add_fortran_list:='(af1);
 $
vpdlist:='((11 -1));
 $
funclist:='(v_ckm cg tp dmas);
 $
fermionprog:='(sf)
 $
bosonprog:='(s11 s1 s0)
 $
propagatorl:='(s3 s4 s2 s11 s1 s0 sf)
 $
ss_dmas_list:='(s1)
 $
new_const_list:='nil
 $
bound_state_vertex_list:='nil
 $
color_vertices:='nil
 $
fcolor_vertices:='nil
 $
splist:='((s11 gs) (s1 pr2 pr4 pr5 pr6 pr7 pr8 pr9 pr12 pr14
pr16 pr33 w z p) (s0 pr1 pr3 pr17 pr23 pr25 pr27 pr30 pr32 
gsg h0) (sf qt qc qu tau mu ef qb qs qd nut numu nue) (s2 
pr10 pr11 pr13 pr18 pr20 pr21 pr22 pr26 pr28 pr31) (s4 pr24
pr29) (s3 pr15 pr19))
 $
spflist:='(((s11 r1 m v va) i (minus (cons v va))) ((s1 r1 m
v va) i (plus (times (dmas m 2) (cons r1 v) (cons r1 va)) (
minus (cons v va)))) ((s0 r1 m) i 1) ((sf l r1 m) i (plus (
minus (g l r1)) (minus m))))
 $
singlist:='(pr1 pr2 pr3 pr4 pr5 pr6 pr7 pr8 pr9 pr10 pr11 
pr12 pr13 pr14 pr15 pr16 pr17 pr18 pr19 pr20 pr21 pr22 pr23
pr24 pr25 pr26 pr27 pr28 pr29 pr30 pr31 pr32 pr33 gs w z p 
gsg h0 qb qs qd qt qc qu tau mu ef nut numu nue)
 $
wavefunction:='(u ub)
 $
hpsumrange:='((pa3 ef mu tau nue numu nut qd qs qb qu qc qt)
(pa2 qt qc qu qb qs qd tau mu ef) (pa5 nut numu nue qt qc qu
) (pa4 tau mu ef qb qs qd) (pa6 qu qc qt) (pa1 z p))
 $
feynmanrulelist:='(((477 r2 r1 vd v vc vb va vf) 0 (1 (plus
(minus (times (cons r1 vf) (cons r2 va) (cons r2 vb) (cons 
r2 vc) (eps r1 r2 v vd) f1009)) (minus (times (cons r2 va) (
cons r2 vb) (cons vc vf) (eps r1 r2 v vd) f1008)))) nil nil)
((476 r2 r1 vd v vc vb va vf) 0 (1 (plus (minus (times (cons
r1 vf) (cons r2 va) (cons r2 vb) (cons r2 vc) (eps r1 r2 v 
vd) f1007)) (minus (times (cons r2 va) (cons r2 vb) (cons vc
vf) (eps r1 r2 v vd) f1006)))) nil nil) ((475 r2 r1 vd v vc
vb va vf) 0 (1 (plus (minus (times (cons r1 vf) (cons r2 va)
(cons r2 vb) (cons r2 vc) (eps r1 r2 v vd) f1005)) (minus (
times (cons r2 va) (cons r2 vb) (cons vc vf) (eps r1 r2 v vd
) f1004)))) nil nil) ((474 r2 r3 r1 vf v vd vc vb va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons 
r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) f1003) (times (
cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vf) (cons vc 
vd) f1001) (times 2 (cons r1 vf) (cons r3 v) (cons r3 va) (
cons r3 vb) (cons r3 vc) (cons r3 vd) f1003) (times 2 (cons
r1 vf) (cons r3 v) (cons r3 va) (cons r3 vb) (cons vc vd) 
f1001) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb)
(cons r3 vc) (cons r3 vd) (cons v vf) f1003)) (minus (times
(cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vf) (cons vc
vd) f1001)) (times 2 (cons r3 v) (cons r3 va) (cons r3 vb) (
cons r3 vc) (cons vd vf) f1002) (minus (times 2 (cons r3 va)
(cons r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) f1002))))
nil nil) ((473 r2 r1 vc vb va v vf vd) 0 (1 (plus (times (
cons r1 vd) (cons r1 vf) (cons r2 v) (cons r2 va) (cons r2 
vb) (cons r2 vc) f1000) (times (cons r1 vd) (cons r2 v) (
cons r2 va) (cons r2 vb) (cons vc vf) f999) (times (cons r1
vf) (cons r2 v) (cons r2 va) (cons r2 vb) (cons vc vd) f997)
(times (cons r2 v) (cons r2 va) (cons r2 vb) (cons r2 vc) (
cons vd vf) f998) (times (cons r2 v) (cons r2 va) (cons vb 
vd) (cons vc vf) f996))) nil nil) ((472 r2 r3 r1 vf v vd vc
vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3
va) (cons r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) f995)
(times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vf) (
cons vc vd) f993) (times 2 (cons r1 vf) (cons r3 v) (cons r3
va) (cons r3 vb) (cons r3 vc) (cons r3 vd) f995) (times 2 (
cons r1 vf) (cons r3 v) (cons r3 va) (cons r3 vb) (cons vc 
vd) f993) (minus (times (cons r2 r2) (cons r3 va) (cons r3 
vb) (cons r3 vc) (cons r3 vd) (cons v vf) f995)) (minus (
times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vf) (
cons vc vd) f993)) (times 2 (cons r3 v) (cons r3 va) (cons 
r3 vb) (cons r3 vc) (cons vd vf) f994) (minus (times 2 (cons
r3 va) (cons r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) 
f994)))) nil nil) ((471 r2 r1 vc vb va v vf vd) 0 (1 (plus (
times (cons r1 vd) (cons r1 vf) (cons r2 v) (cons r2 va) (
cons r2 vb) (cons r2 vc) f992) (times (cons r1 vd) (cons r2
v) (cons r2 va) (cons r2 vb) (cons vc vf) f991) (times (cons
r1 vf) (cons r2 v) (cons r2 va) (cons r2 vb) (cons vc vd) 
f989) (times (cons r2 v) (cons r2 va) (cons r2 vb) (cons r2
vc) (cons vd vf) f990) (times (cons r2 v) (cons r2 va) (cons
vb vd) (cons vc vf) f988))) nil nil) ((470 r2 r3 r1 vf vd v
vc vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons
r3 va) (cons r3 vb) (cons r3 vc) (eps r1 v vd vf) f987) (
times 2 (cons r1 vf) (cons r3 va) (cons r3 vb) (cons r3 vc)
(eps r1 r3 v vd) f987) (minus (times (cons r2 r2) (cons r3 
va) (cons r3 vb) (cons r3 vc) (eps r1 v vd vf) f987)) (minus
(times 2 (cons r3 va) (cons r3 vb) (cons r3 vc) (eps r1 v vd
vf) f986)) (minus (times 2 (cons r3 va) (cons r3 vb) (cons 
r3 vc) (eps r3 v vd vf) f985)) (times 2 (cons r3 vb) (cons 
r3 vc) (cons va vf) (eps r1 r3 v vd) f986))) nil nil) ((469
r1 r2 vf vd vc vb va v) 0 (1 (plus (minus (times (cons r2 v)
(cons r2 va) (cons r2 vb) (cons r2 vc) (eps r1 r2 vd vf) 
f982)) (minus (times (cons r2 va) (cons r2 vb) (cons r2 vc)
(eps r1 v vd vf) f983)) (minus (times (cons r2 va) (cons r2
vb) (cons r2 vc) (eps r2 v vd vf) f984)) (minus (times (cons
r2 va) (cons r2 vb) (cons vc vd) (eps r1 r2 v vf) f981)))) 
nil nil) ((468 r2 r3 r1 vf vd v vc vb va) 0 ((quotient 1 2)
(plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons r3
vc) (eps r1 v vd vf) f980) (times 2 (cons r1 vf) (cons r3 va
) (cons r3 vb) (cons r3 vc) (eps r1 r3 v vd) f980) (minus (
times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons r3 vc) (
eps r1 v vd vf) f980)) (minus (times 2 (cons r3 va) (cons r3
vb) (cons r3 vc) (eps r1 v vd vf) f979)) (minus (times 2 (
cons r3 va) (cons r3 vb) (cons r3 vc) (eps r3 v vd vf) f978)
) (times 2 (cons r3 vb) (cons r3 vc) (cons va vf) (eps r1 r3
v vd) f979))) nil nil) ((467 r2 r3 r1 vf v vd vc vb va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons 
r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) f977) (times (
cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vf) (cons vc 
vd) f975) (times 2 (cons r1 vf) (cons r3 v) (cons r3 va) (
cons r3 vb) (cons r3 vc) (cons r3 vd) f977) (times 2 (cons 
r1 vf) (cons r3 v) (cons r3 va) (cons r3 vb) (cons vc vd) 
f975) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons r3 vc) (cons r3 vd) (cons v vf) f977)) (minus (times (
cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vf) (cons vc 
vd) f975)) (times 2 (cons r3 v) (cons r3 va) (cons r3 vb) (
cons r3 vc) (cons vd vf) f976) (minus (times 2 (cons r3 va)
(cons r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) f976))))
nil nil) ((466 r2 r3 r1 vf vd v vc vb va) 0 ((quotient 1 2)
(plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons r3
vc) (eps r1 v vd vf) f974) (times 2 (cons r1 vf) (cons r3 va
) (cons r3 vb) (cons r3 vc) (eps r1 r3 v vd) f974) (minus (
times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons r3 vc) (
eps r1 v vd vf) f974)) (minus (times 2 (cons r3 va) (cons r3
vb) (cons r3 vc) (eps r1 v vd vf) f973)) (minus (times 2 (
cons r3 va) (cons r3 vb) (cons r3 vc) (eps r3 v vd vf) f972)
) (times 2 (cons r3 vb) (cons r3 vc) (cons va vf) (eps r1 r3
v vd) f973))) nil nil) ((465 r2 r3 r1 vf v vd vc vb va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons 
r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) f971) (times (
cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vf) (cons vc 
vd) f969) (times 2 (cons r1 vf) (cons r3 v) (cons r3 va) (
cons r3 vb) (cons r3 vc) (cons r3 vd) f971) (times 2 (cons 
r1 vf) (cons r3 v) (cons r3 va) (cons r3 vb) (cons vc vd) 
f969) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons r3 vc) (cons r3 vd) (cons v vf) f971)) (minus (times (
cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vf) (cons vc 
vd) f969)) (times 2 (cons r3 v) (cons r3 va) (cons r3 vb) (
cons r3 vc) (cons vd vf) f970) (minus (times 2 (cons r3 va)
(cons r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) f970))))
nil nil) ((464 r2 r3 r1 vf v vd vc vb va) 0 ((quotient 1 2)
(plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons r3
vc) (cons r3 vd) (cons v vf) f968) (times (cons r1 r1) (cons
r3 va) (cons r3 vb) (cons v vf) (cons vc vd) f966) (times 2
(cons r1 vf) (cons r3 v) (cons r3 va) (cons r3 vb) (cons r3
vc) (cons r3 vd) f968) (times 2 (cons r1 vf) (cons r3 v) (
cons r3 va) (cons r3 vb) (cons vc vd) f966) (minus (times (
cons r2 r2) (cons r3 va) (cons r3 vb) (cons r3 vc) (cons r3
vd) (cons v vf) f968)) (minus (times (cons r2 r2) (cons r3 
va) (cons r3 vb) (cons v vf) (cons vc vd) f966)) (times 2 (
cons r3 v) (cons r3 va) (cons r3 vb) (cons r3 vc) (cons vd 
vf) f967) (minus (times 2 (cons r3 va) (cons r3 vb) (cons r3
vc) (cons r3 vd) (cons v vf) f967)))) nil nil) ((463 r2 r3 
r1 vf v vd vc vb va) 0 ((quotient 1 2) (plus (times (cons r1
r1) (cons r3 va) (cons r3 vb) (cons r3 vc) (cons r3 vd) (
cons v vf) f965) (times (cons r1 r1) (cons r3 va) (cons r3 
vb) (cons v vf) (cons vc vd) f963) (times 2 (cons r1 vf) (
cons r3 v) (cons r3 va) (cons r3 vb) (cons r3 vc) (cons r3 
vd) f965) (times 2 (cons r1 vf) (cons r3 v) (cons r3 va) (
cons r3 vb) (cons vc vd) f963) (minus (times (cons r2 r2) (
cons r3 va) (cons r3 vb) (cons r3 vc) (cons r3 vd) (cons v 
vf) f965)) (minus (times (cons r2 r2) (cons r3 va) (cons r3
vb) (cons v vf) (cons vc vd) f963)) (times 2 (cons r3 v) (
cons r3 va) (cons r3 vb) (cons r3 vc) (cons vd vf) f964) (
minus (times 2 (cons r3 va) (cons r3 vb) (cons r3 vc) (cons
r3 vd) (cons v vf) f964)))) nil nil) ((462 r2 r1 vc vb va v
vf vd) 0 (1 (plus (times (cons r1 vd) (cons r1 vf) (cons r2
v) (cons r2 va) (cons r2 vb) (cons r2 vc) f962) (times (cons
r1 vd) (cons r2 v) (cons r2 va) (cons r2 vb) (cons vc vf) 
f961) (times (cons r1 vf) (cons r2 v) (cons r2 va) (cons r2
vb) (cons vc vd) f959) (times (cons r2 v) (cons r2 va) (cons
r2 vb) (cons r2 vc) (cons vd vf) f960) (times (cons r2 v) (
cons r2 va) (cons vb vd) (cons vc vf) f958))) nil nil) ((461
r2 r1 vc vb va v vf vd) 0 (1 (plus (times (cons r1 vd) (cons
r1 vf) (cons r2 v) (cons r2 va) (cons r2 vb) (cons r2 vc) 
f957) (times (cons r1 vd) (cons r2 v) (cons r2 va) (cons r2
vb) (cons vc vf) f956) (times (cons r1 vf) (cons r2 v) (cons
r2 va) (cons r2 vb) (cons vc vd) f954) (times (cons r2 v) (
cons r2 va) (cons r2 vb) (cons r2 vc) (cons vd vf) f955) (
times (cons r2 v) (cons r2 va) (cons vb vd) (cons vc vf) 
f953))) nil nil) ((460 r2 r3 r1 vf v vd vc vb va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons 
r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) f952) (times (
cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vf) (cons vc 
vd) f950) (times 2 (cons r1 vf) (cons r3 v) (cons r3 va) (
cons r3 vb) (cons r3 vc) (cons r3 vd) f952) (times 2 (cons 
r1 vf) (cons r3 v) (cons r3 va) (cons r3 vb) (cons vc vd) 
f950) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons r3 vc) (cons r3 vd) (cons v vf) f952)) (minus (times (
cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vf) (cons vc 
vd) f950)) (times 2 (cons r3 v) (cons r3 va) (cons r3 vb) (
cons r3 vc) (cons vd vf) f951) (minus (times 2 (cons r3 va)
(cons r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) f951))))
nil nil) ((459 r2 r1 vc vb va v vf vd) 0 (1 (plus (times (
cons r1 vd) (cons r1 vf) (cons r2 v) (cons r2 va) (cons r2 
vb) (cons r2 vc) f949) (times (cons r1 vd) (cons r2 v) (cons
r2 va) (cons r2 vb) (cons vc vf) f948) (times (cons r1 vf) (
cons r2 v) (cons r2 va) (cons r2 vb) (cons vc vd) f946) (
times (cons r2 v) (cons r2 va) (cons r2 vb) (cons r2 vc) (
cons vd vf) f947) (times (cons r2 v) (cons r2 va) (cons vb 
vd) (cons vc vf) f945))) nil nil) ((458 r2 r3 r1 vf v vd vc
vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3
va) (cons r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) f944)
(times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vf) (
cons vc vd) f942) (times 2 (cons r1 vf) (cons r3 v) (cons r3
va) (cons r3 vb) (cons r3 vc) (cons r3 vd) f944) (times 2 (
cons r1 vf) (cons r3 v) (cons r3 va) (cons r3 vb) (cons vc 
vd) f942) (minus (times (cons r2 r2) (cons r3 va) (cons r3 
vb) (cons r3 vc) (cons r3 vd) (cons v vf) f944)) (minus (
times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vf) (
cons vc vd) f942)) (times 2 (cons r3 v) (cons r3 va) (cons 
r3 vb) (cons r3 vc) (cons vd vf) f943) (minus (times 2 (cons
r3 va) (cons r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) 
f943)))) nil nil) ((457 r2 r1 vc vb va v vf vd) 0 (1 (plus (
times (cons r1 vd) (cons r1 vf) (cons r2 v) (cons r2 va) (
cons r2 vb) (cons r2 vc) f941) (times (cons r1 vd) (cons r2
v) (cons r2 va) (cons r2 vb) (cons vc vf) f940) (times (cons
r1 vf) (cons r2 v) (cons r2 va) (cons r2 vb) (cons vc vd) 
f938) (times (cons r2 v) (cons r2 va) (cons r2 vb) (cons r2
vc) (cons vd vf) f939) (times (cons r2 v) (cons r2 va) (cons
vb vd) (cons vc vf) f937))) nil nil) ((456 r2 r1 vc vb va v
vf vd) 0 (1 (plus (times (cons r1 vd) (cons r1 vf) (cons r2
v) (cons r2 va) (cons r2 vb) (cons r2 vc) f936) (times (cons
r1 vd) (cons r2 v) (cons r2 va) (cons r2 vb) (cons vc vf) 
f935) (times (cons r1 vf) (cons r2 v) (cons r2 va) (cons r2
vb) (cons vc vd) f933) (times (cons r2 v) (cons r2 va) (cons
r2 vb) (cons r2 vc) (cons vd vf) f934) (times (cons r2 v) (
cons r2 va) (cons vb vd) (cons vc vf) f932))) nil nil) ((455
r2 r3 r1 vf vd v vc vb va) 0 ((quotient 1 2) (plus (times (
cons r1 r1) (cons r3 va) (cons r3 vb) (cons r3 vc) (eps r1 v
vd vf) f931) (times 2 (cons r1 vf) (cons r3 va) (cons r3 vb)
(cons r3 vc) (eps r1 r3 v vd) f931) (minus (times (cons r2 
r2) (cons r3 va) (cons r3 vb) (cons r3 vc) (eps r1 v vd vf)
f931)) (minus (times 2 (cons r3 va) (cons r3 vb) (cons r3 vc
) (eps r1 v vd vf) f930)) (minus (times 2 (cons r3 va) (cons
r3 vb) (cons r3 vc) (eps r3 v vd vf) f929)) (times 2 (cons 
r3 vb) (cons r3 vc) (cons va vf) (eps r1 r3 v vd) f930))) 
nil nil) ((454 r1 r2 vf vd vc vb va v) 0 (1 (plus (minus (
times (cons r2 v) (cons r2 va) (cons r2 vb) (cons r2 vc) (
eps r1 r2 vd vf) f926)) (minus (times (cons r2 va) (cons r2
vb) (cons r2 vc) (eps r1 v vd vf) f927)) (minus (times (cons
r2 va) (cons r2 vb) (cons r2 vc) (eps r2 v vd vf) f928)) (
minus (times (cons r2 va) (cons r2 vb) (cons vc vd) (eps r1
r2 v vf) f925)))) nil nil) ((453 r1 r2 vf vd vc vb va v) 0 (
1 (plus (minus (times (cons r2 v) (cons r2 va) (cons r2 vb)
(cons r2 vc) (eps r1 r2 vd vf) f922)) (minus (times (cons r2
va) (cons r2 vb) (cons r2 vc) (eps r1 v vd vf) f923)) (minus
(times (cons r2 va) (cons r2 vb) (cons r2 vc) (eps r2 v vd 
vf) f924)) (minus (times (cons r2 va) (cons r2 vb) (cons vc
vd) (eps r1 r2 v vf) f921)))) nil nil) ((452 r2 r3 r1 vf vd
v vc vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (
cons r3 va) (cons r3 vb) (cons r3 vc) (eps r1 v vd vf) f920)
(times 2 (cons r1 vf) (cons r3 va) (cons r3 vb) (cons r3 vc)
(eps r1 r3 v vd) f920) (minus (times (cons r2 r2) (cons r3 
va) (cons r3 vb) (cons r3 vc) (eps r1 v vd vf) f920)) (minus
(times 2 (cons r3 va) (cons r3 vb) (cons r3 vc) (eps r1 v vd
vf) f919)) (minus (times 2 (cons r3 va) (cons r3 vb) (cons 
r3 vc) (eps r3 v vd vf) f918)) (times 2 (cons r3 vb) (cons 
r3 vc) (cons va vf) (eps r1 r3 v vd) f919))) nil nil) ((451
r1 r2 vf vd vc vb va v) 0 (1 (plus (minus (times (cons r2 v)
(cons r2 va) (cons r2 vb) (cons r2 vc) (eps r1 r2 vd vf) 
f915)) (minus (times (cons r2 va) (cons r2 vb) (cons r2 vc)
(eps r1 v vd vf) f916)) (minus (times (cons r2 va) (cons r2
vb) (cons r2 vc) (eps r2 v vd vf) f917)) (minus (times (cons
r2 va) (cons r2 vb) (cons vc vd) (eps r1 r2 v vf) f914)))) 
nil nil) ((450 r2 r3 r1 vf v vd vc vb va) 0 ((quotient 1 2)
(plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons r3
vc) (cons r3 vd) (cons v vf) f913) (times (cons r1 r1) (cons
r3 va) (cons r3 vb) (cons v vf) (cons vc vd) f911) (times 2
(cons r1 vf) (cons r3 v) (cons r3 va) (cons r3 vb) (cons r3
vc) (cons r3 vd) f913) (times 2 (cons r1 vf) (cons r3 v) (
cons r3 va) (cons r3 vb) (cons vc vd) f911) (minus (times (
cons r2 r2) (cons r3 va) (cons r3 vb) (cons r3 vc) (cons r3
vd) (cons v vf) f913)) (minus (times (cons r2 r2) (cons r3 
va) (cons r3 vb) (cons v vf) (cons vc vd) f911)) (times 2 (
cons r3 v) (cons r3 va) (cons r3 vb) (cons r3 vc) (cons vd 
vf) f912) (minus (times 2 (cons r3 va) (cons r3 vb) (cons r3
vc) (cons r3 vd) (cons v vf) f912)))) nil nil) ((449 r2 r1 
vc vb va v vf vd) 0 (1 (plus (times (cons r1 vd) (cons r1 vf
) (cons r2 v) (cons r2 va) (cons r2 vb) (cons r2 vc) f910) (
times (cons r1 vd) (cons r2 v) (cons r2 va) (cons r2 vb) (
cons vc vf) f909) (times (cons r1 vf) (cons r2 v) (cons r2 
va) (cons r2 vb) (cons vc vd) f907) (times (cons r2 v) (cons
r2 va) (cons r2 vb) (cons r2 vc) (cons vd vf) f908) (times (
cons r2 v) (cons r2 va) (cons vb vd) (cons vc vf) f906))) 
nil nil) ((448 r2 r3 r1 vf vd v vc vb va) 0 ((quotient 1 2)
(plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons r3
vc) (eps r1 v vd vf) f905) (times 2 (cons r1 vf) (cons r3 va
) (cons r3 vb) (cons r3 vc) (eps r1 r3 v vd) f905) (minus (
times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons r3 vc) (
eps r1 v vd vf) f905)) (minus (times 2 (cons r3 va) (cons r3
vb) (cons r3 vc) (eps r1 v vd vf) f904)) (minus (times 2 (
cons r3 va) (cons r3 vb) (cons r3 vc) (eps r3 v vd vf) f903)
) (times 2 (cons r3 vb) (cons r3 vc) (cons va vf) (eps r1 r3
v vd) f904))) nil nil) ((447 r2 r3 r1 vf v vd vc vb va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons 
r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) f902) (times (
cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vf) (cons vc 
vd) f900) (times 2 (cons r1 vf) (cons r3 v) (cons r3 va) (
cons r3 vb) (cons r3 vc) (cons r3 vd) f902) (times 2 (cons 
r1 vf) (cons r3 v) (cons r3 va) (cons r3 vb) (cons vc vd) 
f900) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons r3 vc) (cons r3 vd) (cons v vf) f902)) (minus (times (
cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vf) (cons vc 
vd) f900)) (times 2 (cons r3 v) (cons r3 va) (cons r3 vb) (
cons r3 vc) (cons vd vf) f901) (minus (times 2 (cons r3 va)
(cons r3 vb) (cons r3 vc) (cons r3 vd) (cons v vf) f901))))
nil nil) ((446 r2 r3 r1 vf v vd vc vb va) 0 ((quotient 1 2)
(plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons r3
vc) (cons r3 vd) (cons v vf) f899) (times (cons r1 r1) (cons
r3 va) (cons r3 vb) (cons v vf) (cons vc vd) f897) (times 2
(cons r1 vf) (cons r3 v) (cons r3 va) (cons r3 vb) (cons r3
vc) (cons r3 vd) f899) (times 2 (cons r1 vf) (cons r3 v) (
cons r3 va) (cons r3 vb) (cons vc vd) f897) (minus (times (
cons r2 r2) (cons r3 va) (cons r3 vb) (cons r3 vc) (cons r3
vd) (cons v vf) f899)) (minus (times (cons r2 r2) (cons r3 
va) (cons r3 vb) (cons v vf) (cons vc vd) f897)) (times 2 (
cons r3 v) (cons r3 va) (cons r3 vb) (cons r3 vc) (cons vd 
vf) f898) (minus (times 2 (cons r3 va) (cons r3 vb) (cons r3
vc) (cons r3 vd) (cons v vf) f898)))) nil nil) ((445 r2 r3 
r1 vf v vd vc vb va) 0 ((quotient 1 2) (plus (times (cons r1
r1) (cons r3 va) (cons r3 vb) (cons r3 vc) (cons r3 vd) (
cons v vf) f896) (times (cons r1 r1) (cons r3 va) (cons r3 
vb) (cons v vf) (cons vc vd) f894) (times 2 (cons r1 vf) (
cons r3 v) (cons r3 va) (cons r3 vb) (cons r3 vc) (cons r3 
vd) f896) (times 2 (cons r1 vf) (cons r3 v) (cons r3 va) (
cons r3 vb) (cons vc vd) f894) (minus (times (cons r2 r2) (
cons r3 va) (cons r3 vb) (cons r3 vc) (cons r3 vd) (cons v 
vf) f896)) (minus (times (cons r2 r2) (cons r3 va) (cons r3
vb) (cons v vf) (cons vc vd) f894)) (times 2 (cons r3 v) (
cons r3 va) (cons r3 vb) (cons r3 vc) (cons vd vf) f895) (
minus (times 2 (cons r3 va) (cons r3 vb) (cons r3 vc) (cons
r3 vd) (cons v vf) f895)))) nil nil) ((444 r2 r1 vc vb va v
vf vd) 0 (1 (plus (times (cons r1 vd) (cons r1 vf) (cons r2
v) (cons r2 va) (cons r2 vb) (cons r2 vc) f893) (times (cons
r1 vd) (cons r2 v) (cons r2 va) (cons r2 vb) (cons vc vf) 
f892) (times (cons r1 vf) (cons r2 v) (cons r2 va) (cons r2
vb) (cons vc vd) f890) (times (cons r2 v) (cons r2 va) (cons
r2 vb) (cons r2 vc) (cons vd vf) f891) (times (cons r2 v) (
cons r2 va) (cons vb vd) (cons vc vf) f889))) nil nil) ((443
r2 r3 r1 vd v vc vb va) 0 ((quotient i 2) (plus (times (cons
r1 r1) (cons r3 va) (cons r3 vb) (cons r3 vc) (cons v vd) 
f888) (times (cons r1 r1) (cons r3 va) (cons v vd) (cons vb
vc) f886) (times 2 (cons r1 vd) (cons r3 v) (cons r3 va) (
cons r3 vb) (cons r3 vc) f888) (times 2 (cons r1 vd) (cons 
r3 v) (cons r3 va) (cons vb vc) f886) (minus (times (cons r2
r2) (cons r3 va) (cons r3 vb) (cons r3 vc) (cons v vd) f888)
) (minus (times (cons r2 r2) (cons r3 va) (cons v vd) (cons
vb vc) f886)) (times 2 (cons r3 v) (cons r3 va) (cons r3 vb)
(cons vc vd) f887) (minus (times 2 (cons r3 va) (cons r3 vb)
(cons r3 vc) (cons v vd) f887)))) nil nil) ((442 r2 r3 r1 vd
v vc vb va) 0 ((quotient i 2) (plus (times (cons r1 r1) (
cons r3 va) (cons r3 vb) (cons r3 vc) (cons v vd) f885) (
times (cons r1 r1) (cons r3 va) (cons v vd) (cons vb vc) 
f883) (times 2 (cons r1 vd) (cons r3 v) (cons r3 va) (cons 
r3 vb) (cons r3 vc) f885) (times 2 (cons r1 vd) (cons r3 v)
(cons r3 va) (cons vb vc) f883) (minus (times (cons r2 r2) (
cons r3 va) (cons r3 vb) (cons r3 vc) (cons v vd) f885)) (
minus (times (cons r2 r2) (cons r3 va) (cons v vd) (cons vb
vc) f883)) (times 2 (cons r3 v) (cons r3 va) (cons r3 vb) (
cons vc vd) f884) (minus (times 2 (cons r3 va) (cons r3 vb)
(cons r3 vc) (cons v vd) f884)))) nil nil) ((441 r2 vc vb va
v) 0 (f882 (times (cons r2 v) (cons r2 va) (cons r2 vb) (
cons r2 vc))) nil nil) ((440 r2 vc vb va v) 0 (f881 (times (
cons r2 v) (cons r2 va) (cons r2 vb) (cons r2 vc))) nil nil)
((439 r2 vc vb va v) 0 (f880 (times (cons r2 v) (cons r2 va)
(cons r2 vb) (cons r2 vc))) nil nil) ((438 r2 vc vb va v) 0
(f879 (times (cons r2 v) (cons r2 va) (cons r2 vb) (cons r2
vc))) nil nil) ((437 r2 vc vb va v) 0 (f878 (times (cons r2
v) (cons r2 va) (cons r2 vb) (cons r2 vc))) nil nil) ((436 
r2 vc vb va v) 0 (f877 (times (cons r2 v) (cons r2 va) (cons
r2 vb) (cons r2 vc))) nil nil) ((435 r2 vc vb va v) 0 (f876
(times (cons r2 v) (cons r2 va) (cons r2 vb) (cons r2 vc)))
nil nil) ((434 r2 vc vb va v) 0 (f875 (times (cons r2 v) (
cons r2 va) (cons r2 vb) (cons r2 vc))) nil nil) ((433 r1 r2
vc v vb va) 0 (f874 (minus (times (cons r2 va) (cons r2 vb)
(eps r1 r2 v vc)))) nil nil) ((432 r1 r2 vc v vb va) 0 (f873
(minus (times (cons r2 va) (cons r2 vb) (eps r1 r2 v vc))))
nil nil) ((431 r3 r2 r1 vc v vb va) 0 ((quotient f872 2) (
plus (times (cons r1 r1) (cons r2 va) (cons r2 vb) (cons v 
vc)) (times 2 (cons r1 vc) (cons r2 v) (cons r2 va) (cons r2
vb)) (minus (times (cons r2 va) (cons r2 vb) (cons r3 r3) (
cons v vc))))) nil nil) ((430 r3 r2 r1 vc v vb va) 0 ((
quotient f871 2) (plus (times (cons r1 r1) (cons r2 va) (
cons r2 vb) (cons v vc)) (times 2 (cons r1 vc) (cons r2 v) (
cons r2 va) (cons r2 vb)) (minus (times (cons r2 va) (cons 
r2 vb) (cons r3 r3) (cons v vc))))) nil nil) ((429 r3 r2 r1
vc v vb va) 0 ((quotient f870 2) (plus (times (cons r1 r1) (
cons r2 va) (cons r2 vb) (cons v vc)) (times 2 (cons r1 vc)
(cons r2 v) (cons r2 va) (cons r2 vb)) (minus (times (cons 
r2 va) (cons r2 vb) (cons r3 r3) (cons v vc))))) nil nil) ((
428 r3 r2 r1 vc v vb va) 0 ((quotient f869 2) (plus (times (
cons r1 r1) (cons r2 va) (cons r2 vb) (cons v vc)) (times 2
(cons r1 vc) (cons r2 v) (cons r2 va) (cons r2 vb)) (minus (
times (cons r2 va) (cons r2 vb) (cons r3 r3) (cons v vc)))))
nil nil) ((427 r3 r2 r1 vc v vb va) 0 ((quotient f868 2) (
plus (times (cons r1 r1) (cons r2 va) (cons r2 vb) (cons v 
vc)) (times 2 (cons r1 vc) (cons r2 v) (cons r2 va) (cons r2
vb)) (minus (times (cons r2 va) (cons r2 vb) (cons r3 r3) (
cons v vc))))) nil nil) ((426 r1 r2 vc v vb va) 0 (f867 (
minus (times (cons r2 va) (cons r2 vb) (eps r1 r2 v vc)))) 
nil nil) ((425 r1 r2 vc v vb va) 0 (f866 (minus (times (cons
r2 va) (cons r2 vb) (eps r1 r2 v vc)))) nil nil) ((424 r1 r2
vc v vb va) 0 (f865 (minus (times (cons r2 va) (cons r2 vb)
(eps r1 r2 v vc)))) nil nil) ((423 r1 r2 vc v vb va) 0 (f864
(minus (times (cons r2 va) (cons r2 vb) (eps r1 r2 v vc))))
nil nil) ((422 r1 r2 vc v vb va) 0 (f863 (minus (times (cons
r2 va) (cons r2 vb) (eps r1 r2 v vc)))) nil nil) ((421 r2 r1
vb va v vc) 0 (1 (plus (times (cons r1 vc) (cons r2 v) (cons
r2 va) (cons r2 vb) f862) (times (cons r2 v) (cons r2 va) (
cons vb vc) f861))) nil nil) ((420 r1 r2 vc v vb va) 0 (f860
(minus (times (cons r2 va) (cons r2 vb) (eps r1 r2 v vc))))
nil nil) ((419 r1 r2 vc v vb va) 0 (f859 (minus (times (cons
r2 va) (cons r2 vb) (eps r1 r2 v vc)))) nil nil) ((418 r1 r2
vc v vb va) 0 (f858 (minus (times (cons r2 va) (cons r2 vb)
(eps r1 r2 v vc)))) nil nil) ((417 r1 r2 vc v vb va) 0 (f857
(minus (times (cons r2 va) (cons r2 vb) (eps r1 r2 v vc))))
nil nil) ((416 r3 r2 r1 vc v vb va) 0 ((quotient f856 2) (
plus (times (cons r1 r1) (cons r2 va) (cons r2 vb) (cons v 
vc)) (times 2 (cons r1 vc) (cons r2 v) (cons r2 va) (cons r2
vb)) (minus (times (cons r2 va) (cons r2 vb) (cons r3 r3) (
cons v vc))))) nil nil) ((415 r3 r2 r1 vc v vb va) 0 ((
quotient f855 2) (plus (times (cons r1 r1) (cons r2 va) (
cons r2 vb) (cons v vc)) (times 2 (cons r1 vc) (cons r2 v) (
cons r2 va) (cons r2 vb)) (minus (times (cons r2 va) (cons 
r2 vb) (cons r3 r3) (cons v vc))))) nil nil) ((414 r3 r2 r1
vc v vb va) 0 ((quotient f854 2) (plus (times (cons r1 r1) (
cons r2 va) (cons r2 vb) (cons v vc)) (times 2 (cons r1 vc)
(cons r2 v) (cons r2 va) (cons r2 vb)) (minus (times (cons 
r2 va) (cons r2 vb) (cons r3 r3) (cons v vc))))) nil nil) ((
413 r3 r2 r1 vc v vb va) 0 ((quotient f853 2) (plus (times (
cons r1 r1) (cons r2 va) (cons r2 vb) (cons v vc)) (times 2
(cons r1 vc) (cons r2 v) (cons r2 va) (cons r2 vb)) (minus (
times (cons r2 va) (cons r2 vb) (cons r3 r3) (cons v vc)))))
nil nil) ((412 r3 r2 r1 vc v vb va) 0 ((quotient f852 2) (
plus (times (cons r1 r1) (cons r2 va) (cons r2 vb) (cons v 
vc)) (times 2 (cons r1 vc) (cons r2 v) (cons r2 va) (cons r2
vb)) (minus (times (cons r2 va) (cons r2 vb) (cons r3 r3) (
cons v vc))))) nil nil) ((411 r1 r2 vc v vb va) 0 (f851 (
minus (times (cons r2 va) (cons r2 vb) (eps r1 r2 v vc)))) 
nil nil) ((410 r1 r2 vc v vb va) 0 (f850 (minus (times (cons
r2 va) (cons r2 vb) (eps r1 r2 v vc)))) nil nil) ((409 r1 r2
vc v vb va) 0 (f849 (minus (times (cons r2 va) (cons r2 vb)
(eps r1 r2 v vc)))) nil nil) ((408 r1 r2 vc v vb va) 0 (f848
(minus (times (cons r2 va) (cons r2 vb) (eps r1 r2 v vc))))
nil nil) ((407 r1 r2 vc v vb va) 0 (f847 (minus (times (cons
r2 va) (cons r2 vb) (eps r1 r2 v vc)))) nil nil) ((406 r1 r2
vc v vb va) 0 (f846 (minus (times (cons r2 va) (cons r2 vb)
(eps r1 r2 v vc)))) nil nil) ((405 r2 r1 vb va v vc) 0 (1 (
plus (times (cons r1 vc) (cons r2 v) (cons r2 va) (cons r2 
vb) f845) (times (cons r2 v) (cons r2 va) (cons vb vc) f844)
)) nil nil) ((404 r1 r2 vc v vb va) 0 (f843 (minus (times (
cons r2 va) (cons r2 vb) (eps r1 r2 v vc)))) nil nil) ((403
r1 r2 vc v vb va) 0 (f842 (minus (times (cons r2 va) (cons 
r2 vb) (eps r1 r2 v vc)))) nil nil) ((402 r2 r1 vb v va vc)
0 (1 (plus (minus (times (cons r1 vc) (cons r2 va) (eps r1 
r2 v vb) f841)) (minus (times (cons va vc) (eps r1 r2 v vb)
f840)))) nil nil) ((401 r2 r1 vb v va vc) 0 (1 (plus (minus
(times (cons r1 vc) (cons r2 va) (eps r1 r2 v vb) f839)) (
minus (times (cons va vc) (eps r1 r2 v vb) f838)))) nil nil)
((400 r2 r1 vb v va vc) 0 (1 (plus (minus (times (cons r1 vc
) (cons r2 va) (eps r1 r2 v vb) f837)) (minus (times (cons 
va vc) (eps r1 r2 v vb) f836)))) nil nil) ((399 r2 r1 vb v 
va vc) 0 (1 (plus (minus (times (cons r1 vc) (cons r2 va) (
eps r1 r2 v vb) f835)) (minus (times (cons va vc) (eps r1 r2
v vb) f834)))) nil nil) ((398 r2 r1 vb v va vc) 0 (1 (plus (
minus (times (cons r1 vc) (cons r2 va) (eps r1 r2 v vb) f833
)) (minus (times (cons va vc) (eps r1 r2 v vb) f832)))) nil
nil) ((397 r2 r1 vb v va vc) 0 (1 (plus (minus (times (cons
r1 vc) (cons r2 va) (eps r1 r2 v vb) f831)) (minus (times (
cons va vc) (eps r1 r2 v vb) f830)))) nil nil) ((396 r2 r1 
vb v va vc) 0 (1 (plus (minus (times (cons r1 vc) (cons r2 
va) (eps r1 r2 v vb) f829)) (minus (times (cons va vc) (eps
r1 r2 v vb) f828)))) nil nil) ((395 r2 r1 vb v va vc) 0 (1 (
plus (minus (times (cons r1 vc) (cons r2 va) (eps r1 r2 v vb
) f827)) (minus (times (cons va vc) (eps r1 r2 v vb) f826)))
) nil nil) ((394 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons v 
vc) f825) (times (cons r1 r1) (cons v vc) (cons va vb) f823)
(times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb)
f825) (times 2 (cons r1 vc) (cons r3 v) (cons va vb) f823) (
minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v
vc) f825)) (minus (times (cons r2 r2) (cons v vc) (cons va 
vb) f823)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) 
f824) (minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc)
f824)))) nil nil) ((393 r2 r3 r1 vc v vb va) 0 ((quotient 1
2) (plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons
v vc) f822) (times (cons r1 r1) (cons v vc) (cons va vb) 
f820) (times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons 
r3 vb) f822) (times 2 (cons r1 vc) (cons r3 v) (cons va vb)
f820) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons v vc) f822)) (minus (times (cons r2 r2) (cons v vc) (
cons va vb) f820)) (times 2 (cons r3 v) (cons r3 va) (cons 
vb vc) f821) (minus (times 2 (cons r3 va) (cons r3 vb) (cons
v vc) f821)))) nil nil) ((392 r2 r3 r1 vc vb v va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (eps r1
v vb vc) f819) (times 2 (cons r1 vc) (cons r3 va) (eps r1 r3
v vb) f819) (minus (times (cons r2 r2) (cons r3 va) (eps r1
v vb vc) f819)) (minus (times 2 (cons r3 va) (eps r1 v vb vc
) f818)) (minus (times 2 (cons r3 va) (eps r3 v vb vc) f817)
) (times 2 (cons va vc) (eps r1 r3 v vb) f818))) nil nil) ((
391 r2 r3 r1 vc vb v va) 0 ((quotient 1 2) (plus (times (
cons r1 r1) (cons r3 va) (eps r1 v vb vc) f816) (times 2 (
cons r1 vc) (cons r3 va) (eps r1 r3 v vb) f816) (minus (
times (cons r2 r2) (cons r3 va) (eps r1 v vb vc) f816)) (
minus (times 2 (cons r3 va) (eps r1 v vb vc) f815)) (minus (
times 2 (cons r3 va) (eps r3 v vb vc) f814)) (times 2 (cons
va vc) (eps r1 r3 v vb) f815))) nil nil) ((390 r2 r3 r1 vc v
vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3
va) (cons r3 vb) (cons v vc) f813) (times (cons r1 r1) (cons
v vc) (cons va vb) f811) (times 2 (cons r1 vc) (cons r3 v) (
cons r3 va) (cons r3 vb) f813) (times 2 (cons r1 vc) (cons 
r3 v) (cons va vb) f811) (minus (times (cons r2 r2) (cons r3
va) (cons r3 vb) (cons v vc) f813)) (minus (times (cons r2 
r2) (cons v vc) (cons va vb) f811)) (times 2 (cons r3 v) (
cons r3 va) (cons vb vc) f812) (minus (times 2 (cons r3 va)
(cons r3 vb) (cons v vc) f812)))) nil nil) ((389 r2 r3 r1 vc
vb v va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons 
r3 va) (eps r1 v vb vc) f810) (times 2 (cons r1 vc) (cons r3
va) (eps r1 r3 v vb) f810) (minus (times (cons r2 r2) (cons
r3 va) (eps r1 v vb vc) f810)) (minus (times 2 (cons r3 va)
(eps r1 v vb vc) f809)) (minus (times 2 (cons r3 va) (eps r3
v vb vc) f808)) (times 2 (cons va vc) (eps r1 r3 v vb) f809)
)) nil nil) ((388 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons v 
vc) f807) (times (cons r1 r1) (cons v vc) (cons va vb) f805)
(times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb)
f807) (times 2 (cons r1 vc) (cons r3 v) (cons va vb) f805) (
minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v
vc) f807)) (minus (times (cons r2 r2) (cons v vc) (cons va 
vb) f805)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) 
f806) (minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc)
f806)))) nil nil) ((387 r2 r3 r1 vc v vb va) 0 ((quotient 1
2) (plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons
v vc) f804) (times (cons r1 r1) (cons v vc) (cons va vb) 
f802) (times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons 
r3 vb) f804) (times 2 (cons r1 vc) (cons r3 v) (cons va vb)
f802) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons v vc) f804)) (minus (times (cons r2 r2) (cons v vc) (
cons va vb) f802)) (times 2 (cons r3 v) (cons r3 va) (cons 
vb vc) f803) (minus (times 2 (cons r3 va) (cons r3 vb) (cons
v vc) f803)))) nil nil) ((386 r2 r3 r1 vc v vb va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons 
r3 vb) (cons v vc) f801) (times (cons r1 r1) (cons v vc) (
cons va vb) f799) (times 2 (cons r1 vc) (cons r3 v) (cons r3
va) (cons r3 vb) f801) (times 2 (cons r1 vc) (cons r3 v) (
cons va vb) f799) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f801)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f799)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f800) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f800)))) nil nil) ((385 r2 r1 va v vc vb) 0
(1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons
r2 va) f798) (times (cons r1 vb) (cons r2 v) (cons va vc) 
f797) (times (cons r1 vc) (cons r2 v) (cons va vb) f795) (
times (cons r2 v) (cons r2 va) (cons vb vc) f796) (times (
cons v vb) (cons va vc) f794))) nil nil) ((384 r2 r1 va v vc
vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2 v)
(cons r2 va) f793) (times (cons r1 vb) (cons r2 v) (cons va
vc) f792) (times (cons r1 vc) (cons r2 v) (cons va vb) f790)
(times (cons r2 v) (cons r2 va) (cons vb vc) f791) (times (
cons v vb) (cons va vc) f789))) nil nil) ((383 r1 r2 vc vb 
va v) 0 (1 (plus (minus (times (cons r2 v) (cons r2 va) (eps
r1 r2 vb vc) f786)) (minus (times (cons r2 va) (eps r1 v vb
vc) f787)) (minus (times (cons r2 va) (eps r2 v vb vc) f788)
) (minus (times (cons va vb) (eps r1 r2 v vc) f785)))) nil 
nil) ((382 r1 r2 vc vb va v) 0 (1 (plus (minus (times (cons
r2 v) (cons r2 va) (eps r1 r2 vb vc) f782)) (minus (times (
cons r2 va) (eps r1 v vb vc) f783)) (minus (times (cons r2 
va) (eps r2 v vb vc) f784)) (minus (times (cons va vb) (eps
r1 r2 v vc) f781)))) nil nil) ((381 r2 r1 va v vc vb) 0 (1 (
plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons r2 
va) f780) (times (cons r1 vb) (cons r2 v) (cons va vc) f779)
(times (cons r1 vc) (cons r2 v) (cons va vb) f777) (times (
cons r2 v) (cons r2 va) (cons vb vc) f778) (times (cons v vb
) (cons va vc) f776))) nil nil) ((380 r2 r3 r1 vc v vb va) 0
((quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons
r3 vb) (cons v vc) f775) (times (cons r1 r1) (cons v vc) (
cons va vb) f773) (times 2 (cons r1 vc) (cons r3 v) (cons r3
va) (cons r3 vb) f775) (times 2 (cons r1 vc) (cons r3 v) (
cons va vb) f773) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f775)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f773)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f774) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f774)))) nil nil) ((379 r2 r3 r1 vc v vb va)
0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (
cons r3 vb) (cons v vc) f772) (times (cons r1 r1) (cons v vc
) (cons va vb) f770) (times 2 (cons r1 vc) (cons r3 v) (cons
r3 va) (cons r3 vb) f772) (times 2 (cons r1 vc) (cons r3 v)
(cons va vb) f770) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f772)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f770)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f771) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f771)))) nil nil) ((378 r2 r3 r1 vc vb v va)
0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (
eps r1 v vb vc) f769) (times 2 (cons r1 vc) (cons r3 va) (
eps r1 r3 v vb) f769) (minus (times (cons r2 r2) (cons r3 va
) (eps r1 v vb vc) f769)) (minus (times 2 (cons r3 va) (eps
r1 v vb vc) f768)) (minus (times 2 (cons r3 va) (eps r3 v vb
vc) f767)) (times 2 (cons va vc) (eps r1 r3 v vb) f768))) 
nil nil) ((377 r2 r3 r1 vc vb v va) 0 ((quotient 1 2) (plus
(times (cons r1 r1) (cons r3 va) (eps r1 v vb vc) f766) (
times 2 (cons r1 vc) (cons r3 va) (eps r1 r3 v vb) f766) (
minus (times (cons r2 r2) (cons r3 va) (eps r1 v vb vc) f766
)) (minus (times 2 (cons r3 va) (eps r1 v vb vc) f765)) (
minus (times 2 (cons r3 va) (eps r3 v vb vc) f764)) (times 2
(cons va vc) (eps r1 r3 v vb) f765))) nil nil) ((376 r2 r3 
r1 vc v vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (
cons r3 va) (cons r3 vb) (cons v vc) f763) (times (cons r1 
r1) (cons v vc) (cons va vb) f761) (times 2 (cons r1 vc) (
cons r3 v) (cons r3 va) (cons r3 vb) f763) (times 2 (cons r1
vc) (cons r3 v) (cons va vb) f761) (minus (times (cons r2 r2
) (cons r3 va) (cons r3 vb) (cons v vc) f763)) (minus (times
(cons r2 r2) (cons v vc) (cons va vb) f761)) (times 2 (cons
r3 v) (cons r3 va) (cons vb vc) f762) (minus (times 2 (cons
r3 va) (cons r3 vb) (cons v vc) f762)))) nil nil) ((375 r2 
r3 r1 vc vb v va) 0 ((quotient 1 2) (plus (times (cons r1 r1
) (cons r3 va) (eps r1 v vb vc) f760) (times 2 (cons r1 vc)
(cons r3 va) (eps r1 r3 v vb) f760) (minus (times (cons r2 
r2) (cons r3 va) (eps r1 v vb vc) f760)) (minus (times 2 (
cons r3 va) (eps r1 v vb vc) f759)) (minus (times 2 (cons r3
va) (eps r3 v vb vc) f758)) (times 2 (cons va vc) (eps r1 r3
v vb) f759))) nil nil) ((374 r2 r3 r1 vc v vb va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons 
r3 vb) (cons v vc) f757) (times (cons r1 r1) (cons v vc) (
cons va vb) f755) (times 2 (cons r1 vc) (cons r3 v) (cons r3
va) (cons r3 vb) f757) (times 2 (cons r1 vc) (cons r3 v) (
cons va vb) f755) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f757)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f755)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f756) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f756)))) nil nil) ((373 r2 r3 r1 vc v vb va)
0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (
cons r3 vb) (cons v vc) f754) (times (cons r1 r1) (cons v vc
) (cons va vb) f752) (times 2 (cons r1 vc) (cons r3 v) (cons
r3 va) (cons r3 vb) f754) (times 2 (cons r1 vc) (cons r3 v)
(cons va vb) f752) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f754)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f752)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f753) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f753)))) nil nil) ((372 r2 r3 r1 vc v vb va)
0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (
cons r3 vb) (cons v vc) f751) (times (cons r1 r1) (cons v vc
) (cons va vb) f749) (times 2 (cons r1 vc) (cons r3 v) (cons
r3 va) (cons r3 vb) f751) (times 2 (cons r1 vc) (cons r3 v)
(cons va vb) f749) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f751)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f749)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f750) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f750)))) nil nil) ((371 r2 r1 va v vc vb) 0
(1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons
r2 va) f748) (times (cons r1 vb) (cons r2 v) (cons va vc) 
f747) (times (cons r1 vc) (cons r2 v) (cons va vb) f745) (
times (cons r2 v) (cons r2 va) (cons vb vc) f746) (times (
cons v vb) (cons va vc) f744))) nil nil) ((370 r2 r1 va v vc
vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2 v)
(cons r2 va) f743) (times (cons r1 vb) (cons r2 v) (cons va
vc) f742) (times (cons r1 vc) (cons r2 v) (cons va vb) f740)
(times (cons r2 v) (cons r2 va) (cons vb vc) f741) (times (
cons v vb) (cons va vc) f739))) nil nil) ((369 r1 r2 vc vb 
va v) 0 (1 (plus (minus (times (cons r2 v) (cons r2 va) (eps
r1 r2 vb vc) f736)) (minus (times (cons r2 va) (eps r1 v vb
vc) f737)) (minus (times (cons r2 va) (eps r2 v vb vc) f738)
) (minus (times (cons va vb) (eps r1 r2 v vc) f735)))) nil 
nil) ((368 r1 r2 vc vb va v) 0 (1 (plus (minus (times (cons
r2 v) (cons r2 va) (eps r1 r2 vb vc) f732)) (minus (times (
cons r2 va) (eps r1 v vb vc) f733)) (minus (times (cons r2 
va) (eps r2 v vb vc) f734)) (minus (times (cons va vb) (eps
r1 r2 v vc) f731)))) nil nil) ((367 r2 r1 va v vc vb) 0 (1 (
plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons r2 
va) f730) (times (cons r1 vb) (cons r2 v) (cons va vc) f729)
(times (cons r1 vc) (cons r2 v) (cons va vb) f727) (times (
cons r2 v) (cons r2 va) (cons vb vc) f728) (times (cons v vb
) (cons va vc) f726))) nil nil) ((366 r2 r3 r1 vc v vb va) 0
((quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons
r3 vb) (cons v vc) f725) (times (cons r1 r1) (cons v vc) (
cons va vb) f723) (times 2 (cons r1 vc) (cons r3 v) (cons r3
va) (cons r3 vb) f725) (times 2 (cons r1 vc) (cons r3 v) (
cons va vb) f723) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f725)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f723)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f724) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f724)))) nil nil) ((365 r2 r1 va v vc vb) 0
(1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons
r2 va) f722) (times (cons r1 vb) (cons r2 v) (cons va vc) 
f721) (times (cons r1 vc) (cons r2 v) (cons va vb) f719) (
times (cons r2 v) (cons r2 va) (cons vb vc) f720) (times (
cons v vb) (cons va vc) f718))) nil nil) ((364 r2 r3 r1 vc v
vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3
va) (cons r3 vb) (cons v vc) f717) (times (cons r1 r1) (cons
v vc) (cons va vb) f715) (times 2 (cons r1 vc) (cons r3 v) (
cons r3 va) (cons r3 vb) f717) (times 2 (cons r1 vc) (cons 
r3 v) (cons va vb) f715) (minus (times (cons r2 r2) (cons r3
va) (cons r3 vb) (cons v vc) f717)) (minus (times (cons r2 
r2) (cons v vc) (cons va vb) f715)) (times 2 (cons r3 v) (
cons r3 va) (cons vb vc) f716) (minus (times 2 (cons r3 va)
(cons r3 vb) (cons v vc) f716)))) nil nil) ((363 r2 r3 r1 vc
vb v va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons 
r3 va) (eps r1 v vb vc) f714) (times 2 (cons r1 vc) (cons r3
va) (eps r1 r3 v vb) f714) (minus (times (cons r2 r2) (cons
r3 va) (eps r1 v vb vc) f714)) (minus (times 2 (cons r3 va)
(eps r1 v vb vc) f713)) (minus (times 2 (cons r3 va) (eps r3
v vb vc) f712)) (times 2 (cons va vc) (eps r1 r3 v vb) f713)
)) nil nil) ((362 r2 r3 r1 vc vb v va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (eps r1 v vb vc) f711)
(times 2 (cons r1 vc) (cons r3 va) (eps r1 r3 v vb) f711) (
minus (times (cons r2 r2) (cons r3 va) (eps r1 v vb vc) f711
)) (minus (times 2 (cons r3 va) (eps r1 v vb vc) f710)) (
minus (times 2 (cons r3 va) (eps r3 v vb vc) f709)) (times 2
(cons va vc) (eps r1 r3 v vb) f710))) nil nil) ((361 r2 r3 
r1 vc v vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (
cons r3 va) (cons r3 vb) (cons v vc) f708) (times (cons r1 
r1) (cons v vc) (cons va vb) f706) (times 2 (cons r1 vc) (
cons r3 v) (cons r3 va) (cons r3 vb) f708) (times 2 (cons r1
vc) (cons r3 v) (cons va vb) f706) (minus (times (cons r2 r2
) (cons r3 va) (cons r3 vb) (cons v vc) f708)) (minus (times
(cons r2 r2) (cons v vc) (cons va vb) f706)) (times 2 (cons
r3 v) (cons r3 va) (cons vb vc) f707) (minus (times 2 (cons
r3 va) (cons r3 vb) (cons v vc) f707)))) nil nil) ((360 r2 
r3 r1 vc vb v va) 0 ((quotient 1 2) (plus (times (cons r1 r1
) (cons r3 va) (eps r1 v vb vc) f705) (times 2 (cons r1 vc)
(cons r3 va) (eps r1 r3 v vb) f705) (minus (times (cons r2 
r2) (cons r3 va) (eps r1 v vb vc) f705)) (minus (times 2 (
cons r3 va) (eps r1 v vb vc) f704)) (minus (times 2 (cons r3
va) (eps r3 v vb vc) f703)) (times 2 (cons va vc) (eps r1 r3
v vb) f704))) nil nil) ((359 r2 r3 r1 vc v vb va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons 
r3 vb) (cons v vc) f702) (times (cons r1 r1) (cons v vc) (
cons va vb) f700) (times 2 (cons r1 vc) (cons r3 v) (cons r3
va) (cons r3 vb) f702) (times 2 (cons r1 vc) (cons r3 v) (
cons va vb) f700) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f702)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f700)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f701) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f701)))) nil nil) ((358 r2 r3 r1 vc v vb va)
0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (
cons r3 vb) (cons v vc) f699) (times (cons r1 r1) (cons v vc
) (cons va vb) f697) (times 2 (cons r1 vc) (cons r3 v) (cons
r3 va) (cons r3 vb) f699) (times 2 (cons r1 vc) (cons r3 v)
(cons va vb) f697) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f699)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f697)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f698) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f698)))) nil nil) ((357 r2 r3 r1 vc v vb va)
0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (
cons r3 vb) (cons v vc) f696) (times (cons r1 r1) (cons v vc
) (cons va vb) f694) (times 2 (cons r1 vc) (cons r3 v) (cons
r3 va) (cons r3 vb) f696) (times 2 (cons r1 vc) (cons r3 v)
(cons va vb) f694) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f696)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f694)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f695) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f695)))) nil nil) ((356 r2 r1 va v vc vb) 0
(1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons
r2 va) f693) (times (cons r1 vb) (cons r2 v) (cons va vc) 
f692) (times (cons r1 vc) (cons r2 v) (cons va vb) f690) (
times (cons r2 v) (cons r2 va) (cons vb vc) f691) (times (
cons v vb) (cons va vc) f689))) nil nil) ((355 r2 r1 va v vc
vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2 v)
(cons r2 va) f688) (times (cons r1 vb) (cons r2 v) (cons va
vc) f687) (times (cons r1 vc) (cons r2 v) (cons va vb) f685)
(times (cons r2 v) (cons r2 va) (cons vb vc) f686) (times (
cons v vb) (cons va vc) f684))) nil nil) ((354 r1 r2 vc vb 
va v) 0 (1 (plus (minus (times (cons r2 v) (cons r2 va) (eps
r1 r2 vb vc) f681)) (minus (times (cons r2 va) (eps r1 v vb
vc) f682)) (minus (times (cons r2 va) (eps r2 v vb vc) f683)
) (minus (times (cons va vb) (eps r1 r2 v vc) f680)))) nil 
nil) ((353 r1 r2 vc vb va v) 0 (1 (plus (minus (times (cons
r2 v) (cons r2 va) (eps r1 r2 vb vc) f677)) (minus (times (
cons r2 va) (eps r1 v vb vc) f678)) (minus (times (cons r2 
va) (eps r2 v vb vc) f679)) (minus (times (cons va vb) (eps
r1 r2 v vc) f676)))) nil nil) ((352 r2 r1 va v vc vb) 0 (1 (
plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons r2 
va) f675) (times (cons r1 vb) (cons r2 v) (cons va vc) f674)
(times (cons r1 vc) (cons r2 v) (cons va vb) f672) (times (
cons r2 v) (cons r2 va) (cons vb vc) f673) (times (cons v vb
) (cons va vc) f671))) nil nil) ((351 r2 r3 r1 vc v vb va) 0
((quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons
r3 vb) (cons v vc) f670) (times (cons r1 r1) (cons v vc) (
cons va vb) f668) (times 2 (cons r1 vc) (cons r3 v) (cons r3
va) (cons r3 vb) f670) (times 2 (cons r1 vc) (cons r3 v) (
cons va vb) f668) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f670)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f668)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f669) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f669)))) nil nil) ((350 r2 r1 va v vc vb) 0
(1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons
r2 va) f667) (times (cons r1 vb) (cons r2 v) (cons va vc) 
f666) (times (cons r1 vc) (cons r2 v) (cons va vb) f664) (
times (cons r2 v) (cons r2 va) (cons vb vc) f665) (times (
cons v vb) (cons va vc) f663))) nil nil) ((349 r2 r3 r1 vc v
vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3
va) (cons r3 vb) (cons v vc) f662) (times (cons r1 r1) (cons
v vc) (cons va vb) f660) (times 2 (cons r1 vc) (cons r3 v) (
cons r3 va) (cons r3 vb) f662) (times 2 (cons r1 vc) (cons 
r3 v) (cons va vb) f660) (minus (times (cons r2 r2) (cons r3
va) (cons r3 vb) (cons v vc) f662)) (minus (times (cons r2 
r2) (cons v vc) (cons va vb) f660)) (times 2 (cons r3 v) (
cons r3 va) (cons vb vc) f661) (minus (times 2 (cons r3 va)
(cons r3 vb) (cons v vc) f661)))) nil nil) ((348 r2 r1 va v
vc vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2
v) (cons r2 va) f659) (times (cons r1 vb) (cons r2 v) (cons
va vc) f658) (times (cons r1 vc) (cons r2 v) (cons va vb) 
f656) (times (cons r2 v) (cons r2 va) (cons vb vc) f657) (
times (cons v vb) (cons va vc) f655))) nil nil) ((347 r2 r3
r1 vc vb v va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (
cons r3 va) (eps r1 v vb vc) f654) (times 2 (cons r1 vc) (
cons r3 va) (eps r1 r3 v vb) f654) (minus (times (cons r2 r2
) (cons r3 va) (eps r1 v vb vc) f654)) (minus (times 2 (cons
r3 va) (eps r1 v vb vc) f653)) (minus (times 2 (cons r3 va)
(eps r3 v vb vc) f652)) (times 2 (cons va vc) (eps r1 r3 v 
vb) f653))) nil nil) ((346 r2 r3 r1 vc vb v va) 0 ((quotient
1 2) (plus (times (cons r1 r1) (cons r3 va) (eps r1 v vb vc)
f651) (times 2 (cons r1 vc) (cons r3 va) (eps r1 r3 v vb) 
f651) (minus (times (cons r2 r2) (cons r3 va) (eps r1 v vb 
vc) f651)) (minus (times 2 (cons r3 va) (eps r1 v vb vc) 
f650)) (minus (times 2 (cons r3 va) (eps r3 v vb vc) f649))
(times 2 (cons va vc) (eps r1 r3 v vb) f650))) nil nil) ((
345 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (plus (times (
cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vc) f648) (
times (cons r1 r1) (cons v vc) (cons va vb) f646) (times 2 (
cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb) f648) (
times 2 (cons r1 vc) (cons r3 v) (cons va vb) f646) (minus (
times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vc) 
f648)) (minus (times (cons r2 r2) (cons v vc) (cons va vb) 
f646)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) f647)
(minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc) f647))
)) nil nil) ((344 r2 r3 r1 vc vb v va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (eps r1 v vb vc) f645)
(times 2 (cons r1 vc) (cons r3 va) (eps r1 r3 v vb) f645) (
minus (times (cons r2 r2) (cons r3 va) (eps r1 v vb vc) f645
)) (minus (times 2 (cons r3 va) (eps r1 v vb vc) f644)) (
minus (times 2 (cons r3 va) (eps r3 v vb vc) f643)) (times 2
(cons va vc) (eps r1 r3 v vb) f644))) nil nil) ((343 r2 r3 
r1 vc v vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (
cons r3 va) (cons r3 vb) (cons v vc) f642) (times (cons r1 
r1) (cons v vc) (cons va vb) f640) (times 2 (cons r1 vc) (
cons r3 v) (cons r3 va) (cons r3 vb) f642) (times 2 (cons r1
vc) (cons r3 v) (cons va vb) f640) (minus (times (cons r2 r2
) (cons r3 va) (cons r3 vb) (cons v vc) f642)) (minus (times
(cons r2 r2) (cons v vc) (cons va vb) f640)) (times 2 (cons
r3 v) (cons r3 va) (cons vb vc) f641) (minus (times 2 (cons
r3 va) (cons r3 vb) (cons v vc) f641)))) nil nil) ((342 r2 
r3 r1 vc v vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1
) (cons r3 va) (cons r3 vb) (cons v vc) f639) (times (cons 
r1 r1) (cons v vc) (cons va vb) f637) (times 2 (cons r1 vc)
(cons r3 v) (cons r3 va) (cons r3 vb) f639) (times 2 (cons 
r1 vc) (cons r3 v) (cons va vb) f637) (minus (times (cons r2
r2) (cons r3 va) (cons r3 vb) (cons v vc) f639)) (minus (
times (cons r2 r2) (cons v vc) (cons va vb) f637)) (times 2
(cons r3 v) (cons r3 va) (cons vb vc) f638) (minus (times 2
(cons r3 va) (cons r3 vb) (cons v vc) f638)))) nil nil) ((
341 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (plus (times (
cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vc) f636) (
times (cons r1 r1) (cons v vc) (cons va vb) f634) (times 2 (
cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb) f636) (
times 2 (cons r1 vc) (cons r3 v) (cons va vb) f634) (minus (
times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vc) 
f636)) (minus (times (cons r2 r2) (cons v vc) (cons va vb) 
f634)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) f635)
(minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc) f635))
)) nil nil) ((340 r2 r1 va v vc vb) 0 (1 (plus (times (cons
r1 vb) (cons r1 vc) (cons r2 v) (cons r2 va) f633) (times (
cons r1 vb) (cons r2 v) (cons va vc) f632) (times (cons r1 
vc) (cons r2 v) (cons va vb) f630) (times (cons r2 v) (cons
r2 va) (cons vb vc) f631) (times (cons v vb) (cons va vc) 
f629))) nil nil) ((339 r2 r1 va v vc vb) 0 (1 (plus (times (
cons r1 vb) (cons r1 vc) (cons r2 v) (cons r2 va) f628) (
times (cons r1 vb) (cons r2 v) (cons va vc) f627) (times (
cons r1 vc) (cons r2 v) (cons va vb) f625) (times (cons r2 v
) (cons r2 va) (cons vb vc) f626) (times (cons v vb) (cons 
va vc) f624))) nil nil) ((338 r1 r2 vc vb va v) 0 (1 (plus (
minus (times (cons r2 v) (cons r2 va) (eps r1 r2 vb vc) f621
)) (minus (times (cons r2 va) (eps r1 v vb vc) f622)) (minus
(times (cons r2 va) (eps r2 v vb vc) f623)) (minus (times (
cons va vb) (eps r1 r2 v vc) f620)))) nil nil) ((337 r2 r3 
r1 vc v vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (
cons r3 va) (cons r3 vb) (cons v vc) f619) (times (cons r1 
r1) (cons v vc) (cons va vb) f617) (times 2 (cons r1 vc) (
cons r3 v) (cons r3 va) (cons r3 vb) f619) (times 2 (cons r1
vc) (cons r3 v) (cons va vb) f617) (minus (times (cons r2 r2
) (cons r3 va) (cons r3 vb) (cons v vc) f619)) (minus (times
(cons r2 r2) (cons v vc) (cons va vb) f617)) (times 2 (cons
r3 v) (cons r3 va) (cons vb vc) f618) (minus (times 2 (cons
r3 va) (cons r3 vb) (cons v vc) f618)))) nil nil) ((336 r2 
r1 va v vc vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (
cons r2 v) (cons r2 va) f616) (times (cons r1 vb) (cons r2 v
) (cons va vc) f615) (times (cons r1 vc) (cons r2 v) (cons 
va vb) f613) (times (cons r2 v) (cons r2 va) (cons vb vc) 
f614) (times (cons v vb) (cons va vc) f612))) nil nil) ((335
r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (plus (times (cons r1
r1) (cons r3 va) (cons r3 vb) (cons v vc) f611) (times (cons
r1 r1) (cons v vc) (cons va vb) f609) (times 2 (cons r1 vc)
(cons r3 v) (cons r3 va) (cons r3 vb) f611) (times 2 (cons 
r1 vc) (cons r3 v) (cons va vb) f609) (minus (times (cons r2
r2) (cons r3 va) (cons r3 vb) (cons v vc) f611)) (minus (
times (cons r2 r2) (cons v vc) (cons va vb) f609)) (times 2
(cons r3 v) (cons r3 va) (cons vb vc) f610) (minus (times 2
(cons r3 va) (cons r3 vb) (cons v vc) f610)))) nil nil) ((
334 r2 r1 va v vc vb) 0 (1 (plus (times (cons r1 vb) (cons 
r1 vc) (cons r2 v) (cons r2 va) f608) (times (cons r1 vb) (
cons r2 v) (cons va vc) f607) (times (cons r1 vc) (cons r2 v
) (cons va vb) f605) (times (cons r2 v) (cons r2 va) (cons 
vb vc) f606) (times (cons v vb) (cons va vc) f604))) nil nil
) ((333 r2 r3 r1 vc vb v va) 0 ((quotient 1 2) (plus (times
(cons r1 r1) (cons r3 va) (eps r1 v vb vc) f603) (times 2 (
cons r1 vc) (cons r3 va) (eps r1 r3 v vb) f603) (minus (
times (cons r2 r2) (cons r3 va) (eps r1 v vb vc) f603)) (
minus (times 2 (cons r3 va) (eps r1 v vb vc) f602)) (minus (
times 2 (cons r3 va) (eps r3 v vb vc) f601)) (times 2 (cons
va vc) (eps r1 r3 v vb) f602))) nil nil) ((332 r2 r3 r1 vc 
vb v va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons 
r3 va) (eps r1 v vb vc) f600) (times 2 (cons r1 vc) (cons r3
va) (eps r1 r3 v vb) f600) (minus (times (cons r2 r2) (cons
r3 va) (eps r1 v vb vc) f600)) (minus (times 2 (cons r3 va)
(eps r1 v vb vc) f599)) (minus (times 2 (cons r3 va) (eps r3
v vb vc) f598)) (times 2 (cons va vc) (eps r1 r3 v vb) f599)
)) nil nil) ((331 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons v 
vc) f597) (times (cons r1 r1) (cons v vc) (cons va vb) f595)
(times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb)
f597) (times 2 (cons r1 vc) (cons r3 v) (cons va vb) f595) (
minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v
vc) f597)) (minus (times (cons r2 r2) (cons v vc) (cons va 
vb) f595)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) 
f596) (minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc)
f596)))) nil nil) ((330 r2 r3 r1 vc vb v va) 0 ((quotient 1
2) (plus (times (cons r1 r1) (cons r3 va) (eps r1 v vb vc) 
f594) (times 2 (cons r1 vc) (cons r3 va) (eps r1 r3 v vb) 
f594) (minus (times (cons r2 r2) (cons r3 va) (eps r1 v vb 
vc) f594)) (minus (times 2 (cons r3 va) (eps r1 v vb vc) 
f593)) (minus (times 2 (cons r3 va) (eps r3 v vb vc) f592))
(times 2 (cons va vc) (eps r1 r3 v vb) f593))) nil nil) ((
329 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (plus (times (
cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vc) f591) (
times (cons r1 r1) (cons v vc) (cons va vb) f589) (times 2 (
cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb) f591) (
times 2 (cons r1 vc) (cons r3 v) (cons va vb) f589) (minus (
times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vc) 
f591)) (minus (times (cons r2 r2) (cons v vc) (cons va vb) 
f589)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) f590)
(minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc) f590))
)) nil nil) ((328 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons v 
vc) f588) (times (cons r1 r1) (cons v vc) (cons va vb) f586)
(times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb)
f588) (times 2 (cons r1 vc) (cons r3 v) (cons va vb) f586) (
minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v
vc) f588)) (minus (times (cons r2 r2) (cons v vc) (cons va 
vb) f586)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) 
f587) (minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc)
f587)))) nil nil) ((327 r2 r3 r1 vc v vb va) 0 ((quotient 1
2) (plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons
v vc) f585) (times (cons r1 r1) (cons v vc) (cons va vb) 
f583) (times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons 
r3 vb) f585) (times 2 (cons r1 vc) (cons r3 v) (cons va vb)
f583) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons v vc) f585)) (minus (times (cons r2 r2) (cons v vc) (
cons va vb) f583)) (times 2 (cons r3 v) (cons r3 va) (cons 
vb vc) f584) (minus (times 2 (cons r3 va) (cons r3 vb) (cons
v vc) f584)))) nil nil) ((326 r2 r1 va v vc vb) 0 (1 (plus (
times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons r2 va) 
f582) (times (cons r1 vb) (cons r2 v) (cons va vc) f581) (
times (cons r1 vc) (cons r2 v) (cons va vb) f579) (times (
cons r2 v) (cons r2 va) (cons vb vc) f580) (times (cons v vb
) (cons va vc) f578))) nil nil) ((325 r2 r1 va v vc vb) 0 (1
(plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons r2
va) f577) (times (cons r1 vb) (cons r2 v) (cons va vc) f576)
(times (cons r1 vc) (cons r2 v) (cons va vb) f574) (times (
cons r2 v) (cons r2 va) (cons vb vc) f575) (times (cons v vb
) (cons va vc) f573))) nil nil) ((324 r1 r2 vc vb va v) 0 (1
(plus (minus (times (cons r2 v) (cons r2 va) (eps r1 r2 vb 
vc) f570)) (minus (times (cons r2 va) (eps r1 v vb vc) f571)
) (minus (times (cons r2 va) (eps r2 v vb vc) f572)) (minus
(times (cons va vb) (eps r1 r2 v vc) f569)))) nil nil) ((323
r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (plus (times (cons r1
r1) (cons r3 va) (cons r3 vb) (cons v vc) f568) (times (cons
r1 r1) (cons v vc) (cons va vb) f566) (times 2 (cons r1 vc)
(cons r3 v) (cons r3 va) (cons r3 vb) f568) (times 2 (cons 
r1 vc) (cons r3 v) (cons va vb) f566) (minus (times (cons r2
r2) (cons r3 va) (cons r3 vb) (cons v vc) f568)) (minus (
times (cons r2 r2) (cons v vc) (cons va vb) f566)) (times 2
(cons r3 v) (cons r3 va) (cons vb vc) f567) (minus (times 2
(cons r3 va) (cons r3 vb) (cons v vc) f567)))) nil nil) ((
322 r2 r1 va v vc vb) 0 (1 (plus (times (cons r1 vb) (cons 
r1 vc) (cons r2 v) (cons r2 va) f565) (times (cons r1 vb) (
cons r2 v) (cons va vc) f564) (times (cons r1 vc) (cons r2 v
) (cons va vb) f562) (times (cons r2 v) (cons r2 va) (cons 
vb vc) f563) (times (cons v vb) (cons va vc) f561))) nil nil
) ((321 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (plus (times
(cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vc) f560) (
times (cons r1 r1) (cons v vc) (cons va vb) f558) (times 2 (
cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb) f560) (
times 2 (cons r1 vc) (cons r3 v) (cons va vb) f558) (minus (
times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vc) 
f560)) (minus (times (cons r2 r2) (cons v vc) (cons va vb) 
f558)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) f559)
(minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc) f559))
)) nil nil) ((320 r2 r1 va v vc vb) 0 (1 (plus (times (cons
r1 vb) (cons r1 vc) (cons r2 v) (cons r2 va) f557) (times (
cons r1 vb) (cons r2 v) (cons va vc) f556) (times (cons r1 
vc) (cons r2 v) (cons va vb) f554) (times (cons r2 v) (cons
r2 va) (cons vb vc) f555) (times (cons v vb) (cons va vc) 
f553))) nil nil) ((319 r2 r3 r1 vc vb v va) 0 ((quotient 1 2
) (plus (times (cons r1 r1) (cons r3 va) (eps r1 v vb vc) 
f552) (times 2 (cons r1 vc) (cons r3 va) (eps r1 r3 v vb) 
f552) (minus (times (cons r2 r2) (cons r3 va) (eps r1 v vb 
vc) f552)) (minus (times 2 (cons r3 va) (eps r1 v vb vc) 
f551)) (minus (times 2 (cons r3 va) (eps r3 v vb vc) f550))
(times 2 (cons va vc) (eps r1 r3 v vb) f551))) nil nil) ((
318 r2 r3 r1 vc vb v va) 0 ((quotient 1 2) (plus (times (
cons r1 r1) (cons r3 va) (eps r1 v vb vc) f549) (times 2 (
cons r1 vc) (cons r3 va) (eps r1 r3 v vb) f549) (minus (
times (cons r2 r2) (cons r3 va) (eps r1 v vb vc) f549)) (
minus (times 2 (cons r3 va) (eps r1 v vb vc) f548)) (minus (
times 2 (cons r3 va) (eps r3 v vb vc) f547)) (times 2 (cons
va vc) (eps r1 r3 v vb) f548))) nil nil) ((317 r2 r3 r1 vc v
vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3
va) (cons r3 vb) (cons v vc) f546) (times (cons r1 r1) (cons
v vc) (cons va vb) f544) (times 2 (cons r1 vc) (cons r3 v) (
cons r3 va) (cons r3 vb) f546) (times 2 (cons r1 vc) (cons 
r3 v) (cons va vb) f544) (minus (times (cons r2 r2) (cons r3
va) (cons r3 vb) (cons v vc) f546)) (minus (times (cons r2 
r2) (cons v vc) (cons va vb) f544)) (times 2 (cons r3 v) (
cons r3 va) (cons vb vc) f545) (minus (times 2 (cons r3 va)
(cons r3 vb) (cons v vc) f545)))) nil nil) ((316 r2 r3 r1 vc
vb v va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons 
r3 va) (eps r1 v vb vc) f543) (times 2 (cons r1 vc) (cons r3
va) (eps r1 r3 v vb) f543) (minus (times (cons r2 r2) (cons
r3 va) (eps r1 v vb vc) f543)) (minus (times 2 (cons r3 va)
(eps r1 v vb vc) f542)) (minus (times 2 (cons r3 va) (eps r3
v vb vc) f541)) (times 2 (cons va vc) (eps r1 r3 v vb) f542)
)) nil nil) ((315 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons v 
vc) f540) (times (cons r1 r1) (cons v vc) (cons va vb) f538)
(times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb)
f540) (times 2 (cons r1 vc) (cons r3 v) (cons va vb) f538) (
minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v
vc) f540)) (minus (times (cons r2 r2) (cons v vc) (cons va 
vb) f538)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) 
f539) (minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc)
f539)))) nil nil) ((314 r2 r3 r1 vc v vb va) 0 ((quotient 1
2) (plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons
v vc) f537) (times (cons r1 r1) (cons v vc) (cons va vb) 
f535) (times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons 
r3 vb) f537) (times 2 (cons r1 vc) (cons r3 v) (cons va vb)
f535) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons v vc) f537)) (minus (times (cons r2 r2) (cons v vc) (
cons va vb) f535)) (times 2 (cons r3 v) (cons r3 va) (cons 
vb vc) f536) (minus (times 2 (cons r3 va) (cons r3 vb) (cons
v vc) f536)))) nil nil) ((313 r2 r3 r1 vc v vb va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons 
r3 vb) (cons v vc) f534) (times (cons r1 r1) (cons v vc) (
cons va vb) f532) (times 2 (cons r1 vc) (cons r3 v) (cons r3
va) (cons r3 vb) f534) (times 2 (cons r1 vc) (cons r3 v) (
cons va vb) f532) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f534)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f532)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f533) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f533)))) nil nil) ((312 r2 r1 va v vc vb) 0
(1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons
r2 va) f531) (times (cons r1 vb) (cons r2 v) (cons va vc) 
f530) (times (cons r1 vc) (cons r2 v) (cons va vb) f528) (
times (cons r2 v) (cons r2 va) (cons vb vc) f529) (times (
cons v vb) (cons va vc) f527))) nil nil) ((311 r2 r1 va v vc
vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2 v)
(cons r2 va) f526) (times (cons r1 vb) (cons r2 v) (cons va
vc) f525) (times (cons r1 vc) (cons r2 v) (cons va vb) f523)
(times (cons r2 v) (cons r2 va) (cons vb vc) f524) (times (
cons v vb) (cons va vc) f522))) nil nil) ((310 r2 r3 r1 vc v
vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3
va) (cons r3 vb) (cons v vc) f521) (times (cons r1 r1) (cons
v vc) (cons va vb) f519) (times 2 (cons r1 vc) (cons r3 v) (
cons r3 va) (cons r3 vb) f521) (times 2 (cons r1 vc) (cons 
r3 v) (cons va vb) f519) (minus (times (cons r2 r2) (cons r3
va) (cons r3 vb) (cons v vc) f521)) (minus (times (cons r2 
r2) (cons v vc) (cons va vb) f519)) (times 2 (cons r3 v) (
cons r3 va) (cons vb vc) f520) (minus (times 2 (cons r3 va)
(cons r3 vb) (cons v vc) f520)))) nil nil) ((309 r2 r1 va v
vc vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2
v) (cons r2 va) f518) (times (cons r1 vb) (cons r2 v) (cons
va vc) f517) (times (cons r1 vc) (cons r2 v) (cons va vb) 
f515) (times (cons r2 v) (cons r2 va) (cons vb vc) f516) (
times (cons v vb) (cons va vc) f514))) nil nil) ((308 r2 r3
r1 vc v vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (
cons r3 va) (cons r3 vb) (cons v vc) f513) (times (cons r1 
r1) (cons v vc) (cons va vb) f511) (times 2 (cons r1 vc) (
cons r3 v) (cons r3 va) (cons r3 vb) f513) (times 2 (cons r1
vc) (cons r3 v) (cons va vb) f511) (minus (times (cons r2 r2
) (cons r3 va) (cons r3 vb) (cons v vc) f513)) (minus (times
(cons r2 r2) (cons v vc) (cons va vb) f511)) (times 2 (cons
r3 v) (cons r3 va) (cons vb vc) f512) (minus (times 2 (cons
r3 va) (cons r3 vb) (cons v vc) f512)))) nil nil) ((307 r2 
r1 va v vc vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (
cons r2 v) (cons r2 va) f510) (times (cons r1 vb) (cons r2 v
) (cons va vc) f509) (times (cons r1 vc) (cons r2 v) (cons 
va vb) f507) (times (cons r2 v) (cons r2 va) (cons vb vc) 
f508) (times (cons v vb) (cons va vc) f506))) nil nil) ((306
r2 r3 r1 vc vb v va) 0 ((quotient 1 2) (plus (times (cons r1
r1) (cons r3 va) (eps r1 v vb vc) f505) (times 2 (cons r1 vc
) (cons r3 va) (eps r1 r3 v vb) f505) (minus (times (cons r2
r2) (cons r3 va) (eps r1 v vb vc) f505)) (minus (times 2 (
cons r3 va) (eps r1 v vb vc) f504)) (minus (times 2 (cons r3
va) (eps r3 v vb vc) f503)) (times 2 (cons va vc) (eps r1 r3
v vb) f504))) nil nil) ((305 r1 r2 vc vb va v) 0 (1 (plus (
minus (times (cons r2 v) (cons r2 va) (eps r1 r2 vb vc) f500
)) (minus (times (cons r2 va) (eps r1 v vb vc) f501)) (minus
(times (cons r2 va) (eps r2 v vb vc) f502)) (minus (times (
cons va vb) (eps r1 r2 v vc) f499)))) nil nil) ((304 r2 r3 
r1 vc vb v va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (
cons r3 va) (eps r1 v vb vc) f498) (times 2 (cons r1 vc) (
cons r3 va) (eps r1 r3 v vb) f498) (minus (times (cons r2 r2
) (cons r3 va) (eps r1 v vb vc) f498)) (minus (times 2 (cons
r3 va) (eps r1 v vb vc) f497)) (minus (times 2 (cons r3 va)
(eps r3 v vb vc) f496)) (times 2 (cons va vc) (eps r1 r3 v 
vb) f497))) nil nil) ((303 r2 r3 r1 vc v vb va) 0 ((quotient
1 2) (plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (
cons v vc) f495) (times (cons r1 r1) (cons v vc) (cons va vb
) f493) (times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons
r3 vb) f495) (times 2 (cons r1 vc) (cons r3 v) (cons va vb)
f493) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons v vc) f495)) (minus (times (cons r2 r2) (cons v vc) (
cons va vb) f493)) (times 2 (cons r3 v) (cons r3 va) (cons 
vb vc) f494) (minus (times 2 (cons r3 va) (cons r3 vb) (cons
v vc) f494)))) nil nil) ((302 r2 r3 r1 vc vb v va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (eps r1
v vb vc) f492) (times 2 (cons r1 vc) (cons r3 va) (eps r1 r3
v vb) f492) (minus (times (cons r2 r2) (cons r3 va) (eps r1
v vb vc) f492)) (minus (times 2 (cons r3 va) (eps r1 v vb vc
) f491)) (minus (times 2 (cons r3 va) (eps r3 v vb vc) f490)
) (times 2 (cons va vc) (eps r1 r3 v vb) f491))) nil nil) ((
301 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (plus (times (
cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vc) f489) (
times (cons r1 r1) (cons v vc) (cons va vb) f487) (times 2 (
cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb) f489) (
times 2 (cons r1 vc) (cons r3 v) (cons va vb) f487) (minus (
times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vc) 
f489)) (minus (times (cons r2 r2) (cons v vc) (cons va vb) 
f487)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) f488)
(minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc) f488))
)) nil nil) ((300 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons v 
vc) f486) (times (cons r1 r1) (cons v vc) (cons va vb) f484)
(times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb)
f486) (times 2 (cons r1 vc) (cons r3 v) (cons va vb) f484) (
minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v
vc) f486)) (minus (times (cons r2 r2) (cons v vc) (cons va 
vb) f484)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) 
f485) (minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc)
f485)))) nil nil) ((299 r2 r3 r1 vc v vb va) 0 ((quotient 1
2) (plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons
v vc) f483) (times (cons r1 r1) (cons v vc) (cons va vb) 
f481) (times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons 
r3 vb) f483) (times 2 (cons r1 vc) (cons r3 v) (cons va vb)
f481) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons v vc) f483)) (minus (times (cons r2 r2) (cons v vc) (
cons va vb) f481)) (times 2 (cons r3 v) (cons r3 va) (cons 
vb vc) f482) (minus (times 2 (cons r3 va) (cons r3 vb) (cons
v vc) f482)))) nil nil) ((298 r2 r1 va v vc vb) 0 (1 (plus (
times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons r2 va) 
f480) (times (cons r1 vb) (cons r2 v) (cons va vc) f479) (
times (cons r1 vc) (cons r2 v) (cons va vb) f477) (times (
cons r2 v) (cons r2 va) (cons vb vc) f478) (times (cons v vb
) (cons va vc) f476))) nil nil) ((297 r2 r1 va v vc vb) 0 (1
(plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons r2
va) f475) (times (cons r1 vb) (cons r2 v) (cons va vc) f474)
(times (cons r1 vc) (cons r2 v) (cons va vb) f472) (times (
cons r2 v) (cons r2 va) (cons vb vc) f473) (times (cons v vb
) (cons va vc) f471))) nil nil) ((296 r2 r3 r1 vc v vb va) 0
((quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons
r3 vb) (cons v vc) f470) (times (cons r1 r1) (cons v vc) (
cons va vb) f468) (times 2 (cons r1 vc) (cons r3 v) (cons r3
va) (cons r3 vb) f470) (times 2 (cons r1 vc) (cons r3 v) (
cons va vb) f468) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f470)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f468)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f469) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f469)))) nil nil) ((295 r2 r1 va v vc vb) 0
(1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons
r2 va) f467) (times (cons r1 vb) (cons r2 v) (cons va vc) 
f466) (times (cons r1 vc) (cons r2 v) (cons va vb) f464) (
times (cons r2 v) (cons r2 va) (cons vb vc) f465) (times (
cons v vb) (cons va vc) f463))) nil nil) ((294 r2 r3 r1 vc v
vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3
va) (cons r3 vb) (cons v vc) f462) (times (cons r1 r1) (cons
v vc) (cons va vb) f460) (times 2 (cons r1 vc) (cons r3 v) (
cons r3 va) (cons r3 vb) f462) (times 2 (cons r1 vc) (cons 
r3 v) (cons va vb) f460) (minus (times (cons r2 r2) (cons r3
va) (cons r3 vb) (cons v vc) f462)) (minus (times (cons r2 
r2) (cons v vc) (cons va vb) f460)) (times 2 (cons r3 v) (
cons r3 va) (cons vb vc) f461) (minus (times 2 (cons r3 va)
(cons r3 vb) (cons v vc) f461)))) nil nil) ((293 r2 r1 va v
vc vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2
v) (cons r2 va) f459) (times (cons r1 vb) (cons r2 v) (cons
va vc) f458) (times (cons r1 vc) (cons r2 v) (cons va vb) 
f456) (times (cons r2 v) (cons r2 va) (cons vb vc) f457) (
times (cons v vb) (cons va vc) f455))) nil nil) ((292 r2 r1
va v vc vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (
cons r2 v) (cons r2 va) f454) (times (cons r1 vb) (cons r2 v
) (cons va vc) f453) (times (cons r1 vc) (cons r2 v) (cons 
va vb) f451) (times (cons r2 v) (cons r2 va) (cons vb vc) 
f452) (times (cons v vb) (cons va vc) f450))) nil nil) ((291
r2 r3 r1 vc vb v va) 0 ((quotient 1 2) (plus (times (cons r1
r1) (cons r3 va) (eps r1 v vb vc) f449) (times 2 (cons r1 vc
) (cons r3 va) (eps r1 r3 v vb) f449) (minus (times (cons r2
r2) (cons r3 va) (eps r1 v vb vc) f449)) (minus (times 2 (
cons r3 va) (eps r1 v vb vc) f448)) (minus (times 2 (cons r3
va) (eps r3 v vb vc) f447)) (times 2 (cons va vc) (eps r1 r3
v vb) f448))) nil nil) ((290 r1 r2 vc vb va v) 0 (1 (plus (
minus (times (cons r2 v) (cons r2 va) (eps r1 r2 vb vc) f444
)) (minus (times (cons r2 va) (eps r1 v vb vc) f445)) (minus
(times (cons r2 va) (eps r2 v vb vc) f446)) (minus (times (
cons va vb) (eps r1 r2 v vc) f443)))) nil nil) ((289 r2 r3 
r1 vc vb v va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (
cons r3 va) (eps r1 v vb vc) f442) (times 2 (cons r1 vc) (
cons r3 va) (eps r1 r3 v vb) f442) (minus (times (cons r2 r2
) (cons r3 va) (eps r1 v vb vc) f442)) (minus (times 2 (cons
r3 va) (eps r1 v vb vc) f441)) (minus (times 2 (cons r3 va)
(eps r3 v vb vc) f440)) (times 2 (cons va vc) (eps r1 r3 v 
vb) f441))) nil nil) ((288 r2 r3 r1 vc v vb va) 0 ((quotient
1 2) (plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (
cons v vc) f439) (times (cons r1 r1) (cons v vc) (cons va vb
) f437) (times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons
r3 vb) f439) (times 2 (cons r1 vc) (cons r3 v) (cons va vb)
f437) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons v vc) f439)) (minus (times (cons r2 r2) (cons v vc) (
cons va vb) f437)) (times 2 (cons r3 v) (cons r3 va) (cons 
vb vc) f438) (minus (times 2 (cons r3 va) (cons r3 vb) (cons
v vc) f438)))) nil nil) ((287 r2 r3 r1 vc vb v va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (eps r1
v vb vc) f436) (times 2 (cons r1 vc) (cons r3 va) (eps r1 r3
v vb) f436) (minus (times (cons r2 r2) (cons r3 va) (eps r1
v vb vc) f436)) (minus (times 2 (cons r3 va) (eps r1 v vb vc
) f435)) (minus (times 2 (cons r3 va) (eps r3 v vb vc) f434)
) (times 2 (cons va vc) (eps r1 r3 v vb) f435))) nil nil) ((
286 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (plus (times (
cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vc) f433) (
times (cons r1 r1) (cons v vc) (cons va vb) f431) (times 2 (
cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb) f433) (
times 2 (cons r1 vc) (cons r3 v) (cons va vb) f431) (minus (
times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vc) 
f433)) (minus (times (cons r2 r2) (cons v vc) (cons va vb) 
f431)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) f432)
(minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc) f432))
)) nil nil) ((285 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons v 
vc) f430) (times (cons r1 r1) (cons v vc) (cons va vb) f428)
(times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb)
f430) (times 2 (cons r1 vc) (cons r3 v) (cons va vb) f428) (
minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v
vc) f430)) (minus (times (cons r2 r2) (cons v vc) (cons va 
vb) f428)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) 
f429) (minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc)
f429)))) nil nil) ((284 r2 r3 r1 vc v vb va) 0 ((quotient 1
2) (plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons
v vc) f427) (times (cons r1 r1) (cons v vc) (cons va vb) 
f425) (times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons 
r3 vb) f427) (times 2 (cons r1 vc) (cons r3 v) (cons va vb)
f425) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons v vc) f427)) (minus (times (cons r2 r2) (cons v vc) (
cons va vb) f425)) (times 2 (cons r3 v) (cons r3 va) (cons 
vb vc) f426) (minus (times 2 (cons r3 va) (cons r3 vb) (cons
v vc) f426)))) nil nil) ((283 r2 r1 va v vc vb) 0 (1 (plus (
times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons r2 va) 
f424) (times (cons r1 vb) (cons r2 v) (cons va vc) f423) (
times (cons r1 vc) (cons r2 v) (cons va vb) f421) (times (
cons r2 v) (cons r2 va) (cons vb vc) f422) (times (cons v vb
) (cons va vc) f420))) nil nil) ((282 r2 r3 r1 vc v vb va) 0
((quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons
r3 vb) (cons v vc) f419) (times (cons r1 r1) (cons v vc) (
cons va vb) f417) (times 2 (cons r1 vc) (cons r3 v) (cons r3
va) (cons r3 vb) f419) (times 2 (cons r1 vc) (cons r3 v) (
cons va vb) f417) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f419)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f417)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f418) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f418)))) nil nil) ((281 r2 r1 va v vc vb) 0
(1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons
r2 va) f416) (times (cons r1 vb) (cons r2 v) (cons va vc) 
f415) (times (cons r1 vc) (cons r2 v) (cons va vb) f413) (
times (cons r2 v) (cons r2 va) (cons vb vc) f414) (times (
cons v vb) (cons va vc) f412))) nil nil) ((280 r2 r3 r1 vc v
vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3
va) (cons r3 vb) (cons v vc) f411) (times (cons r1 r1) (cons
v vc) (cons va vb) f409) (times 2 (cons r1 vc) (cons r3 v) (
cons r3 va) (cons r3 vb) f411) (times 2 (cons r1 vc) (cons 
r3 v) (cons va vb) f409) (minus (times (cons r2 r2) (cons r3
va) (cons r3 vb) (cons v vc) f411)) (minus (times (cons r2 
r2) (cons v vc) (cons va vb) f409)) (times 2 (cons r3 v) (
cons r3 va) (cons vb vc) f410) (minus (times 2 (cons r3 va)
(cons r3 vb) (cons v vc) f410)))) nil nil) ((279 r2 r1 va v
vc vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2
v) (cons r2 va) f408) (times (cons r1 vb) (cons r2 v) (cons
va vc) f407) (times (cons r1 vc) (cons r2 v) (cons va vb) 
f405) (times (cons r2 v) (cons r2 va) (cons vb vc) f406) (
times (cons v vb) (cons va vc) f404))) nil nil) ((278 r2 r1
va v vc vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (
cons r2 v) (cons r2 va) f403) (times (cons r1 vb) (cons r2 v
) (cons va vc) f402) (times (cons r1 vc) (cons r2 v) (cons 
va vb) f400) (times (cons r2 v) (cons r2 va) (cons vb vc) 
f401) (times (cons v vb) (cons va vc) f399))) nil nil) ((277
r2 r3 r1 vc vb v va) 0 ((quotient 1 2) (plus (times (cons r1
r1) (cons r3 va) (eps r1 v vb vc) f398) (times 2 (cons r1 vc
) (cons r3 va) (eps r1 r3 v vb) f398) (minus (times (cons r2
r2) (cons r3 va) (eps r1 v vb vc) f398)) (minus (times 2 (
cons r3 va) (eps r1 v vb vc) f397)) (minus (times 2 (cons r3
va) (eps r3 v vb vc) f396)) (times 2 (cons va vc) (eps r1 r3
v vb) f397))) nil nil) ((276 r1 r2 vc vb va v) 0 (1 (plus (
minus (times (cons r2 v) (cons r2 va) (eps r1 r2 vb vc) f393
)) (minus (times (cons r2 va) (eps r1 v vb vc) f394)) (minus
(times (cons r2 va) (eps r2 v vb vc) f395)) (minus (times (
cons va vb) (eps r1 r2 v vc) f392)))) nil nil) ((275 r1 r2 
vc vb va v) 0 (1 (plus (minus (times (cons r2 v) (cons r2 va
) (eps r1 r2 vb vc) f389)) (minus (times (cons r2 va) (eps 
r1 v vb vc) f390)) (minus (times (cons r2 va) (eps r2 v vb 
vc) f391)) (minus (times (cons va vb) (eps r1 r2 v vc) f388)
))) nil nil) ((274 r2 r3 r1 vc vb v va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (eps r1 v vb vc) f387)
(times 2 (cons r1 vc) (cons r3 va) (eps r1 r3 v vb) f387) (
minus (times (cons r2 r2) (cons r3 va) (eps r1 v vb vc) f387
)) (minus (times 2 (cons r3 va) (eps r1 v vb vc) f386)) (
minus (times 2 (cons r3 va) (eps r3 v vb vc) f385)) (times 2
(cons va vc) (eps r1 r3 v vb) f386))) nil nil) ((273 r1 r2 
vc vb va v) 0 (1 (plus (minus (times (cons r2 v) (cons r2 va
) (eps r1 r2 vb vc) f382)) (minus (times (cons r2 va) (eps 
r1 v vb vc) f383)) (minus (times (cons r2 va) (eps r2 v vb 
vc) f384)) (minus (times (cons va vb) (eps r1 r2 v vc) f381)
))) nil nil) ((272 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons v 
vc) f380) (times (cons r1 r1) (cons v vc) (cons va vb) f378)
(times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb)
f380) (times 2 (cons r1 vc) (cons r3 v) (cons va vb) f378) (
minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v
vc) f380)) (minus (times (cons r2 r2) (cons v vc) (cons va 
vb) f378)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) 
f379) (minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc)
f379)))) nil nil) ((271 r2 r1 va v vc vb) 0 (1 (plus (times
(cons r1 vb) (cons r1 vc) (cons r2 v) (cons r2 va) f377) (
times (cons r1 vb) (cons r2 v) (cons va vc) f376) (times (
cons r1 vc) (cons r2 v) (cons va vb) f374) (times (cons r2 v
) (cons r2 va) (cons vb vc) f375) (times (cons v vb) (cons 
va vc) f373))) nil nil) ((270 r2 r3 r1 vc vb v va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (eps r1
v vb vc) f372) (times 2 (cons r1 vc) (cons r3 va) (eps r1 r3
v vb) f372) (minus (times (cons r2 r2) (cons r3 va) (eps r1
v vb vc) f372)) (minus (times 2 (cons r3 va) (eps r1 v vb vc
) f371)) (minus (times 2 (cons r3 va) (eps r3 v vb vc) f370)
) (times 2 (cons va vc) (eps r1 r3 v vb) f371))) nil nil) ((
269 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (plus (times (
cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vc) f369) (
times (cons r1 r1) (cons v vc) (cons va vb) f367) (times 2 (
cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb) f369) (
times 2 (cons r1 vc) (cons r3 v) (cons va vb) f367) (minus (
times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vc) 
f369)) (minus (times (cons r2 r2) (cons v vc) (cons va vb) 
f367)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) f368)
(minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc) f368))
)) nil nil) ((268 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons v 
vc) f366) (times (cons r1 r1) (cons v vc) (cons va vb) f364)
(times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb)
f366) (times 2 (cons r1 vc) (cons r3 v) (cons va vb) f364) (
minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v
vc) f366)) (minus (times (cons r2 r2) (cons v vc) (cons va 
vb) f364)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) 
f365) (minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc)
f365)))) nil nil) ((267 r2 r3 r1 vc v vb va) 0 ((quotient 1
2) (plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons
v vc) f363) (times (cons r1 r1) (cons v vc) (cons va vb) 
f361) (times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons 
r3 vb) f363) (times 2 (cons r1 vc) (cons r3 v) (cons va vb)
f361) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons v vc) f363)) (minus (times (cons r2 r2) (cons v vc) (
cons va vb) f361)) (times 2 (cons r3 v) (cons r3 va) (cons 
vb vc) f362) (minus (times 2 (cons r3 va) (cons r3 vb) (cons
v vc) f362)))) nil nil) ((266 r2 r1 va v vc vb) 0 (1 (plus (
times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons r2 va) 
f360) (times (cons r1 vb) (cons r2 v) (cons va vc) f359) (
times (cons r1 vc) (cons r2 v) (cons va vb) f357) (times (
cons r2 v) (cons r2 va) (cons vb vc) f358) (times (cons v vb
) (cons va vc) f356))) nil nil) ((265 r2 r3 r1 vc v vb va) 0
((quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (cons
r3 vb) (cons v vc) f355) (times (cons r1 r1) (cons v vc) (
cons va vb) f353) (times 2 (cons r1 vc) (cons r3 v) (cons r3
va) (cons r3 vb) f355) (times 2 (cons r1 vc) (cons r3 v) (
cons va vb) f353) (minus (times (cons r2 r2) (cons r3 va) (
cons r3 vb) (cons v vc) f355)) (minus (times (cons r2 r2) (
cons v vc) (cons va vb) f353)) (times 2 (cons r3 v) (cons r3
va) (cons vb vc) f354) (minus (times 2 (cons r3 va) (cons r3
vb) (cons v vc) f354)))) nil nil) ((264 r2 r1 va v vc vb) 0
(1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2 v) (cons
r2 va) f352) (times (cons r1 vb) (cons r2 v) (cons va vc) 
f351) (times (cons r1 vc) (cons r2 v) (cons va vb) f349) (
times (cons r2 v) (cons r2 va) (cons vb vc) f350) (times (
cons v vb) (cons va vc) f348))) nil nil) ((263 r2 r3 r1 vc v
vb va) 0 ((quotient 1 2) (plus (times (cons r1 r1) (cons r3
va) (cons r3 vb) (cons v vc) f347) (times (cons r1 r1) (cons
v vc) (cons va vb) f345) (times 2 (cons r1 vc) (cons r3 v) (
cons r3 va) (cons r3 vb) f347) (times 2 (cons r1 vc) (cons 
r3 v) (cons va vb) f345) (minus (times (cons r2 r2) (cons r3
va) (cons r3 vb) (cons v vc) f347)) (minus (times (cons r2 
r2) (cons v vc) (cons va vb) f345)) (times 2 (cons r3 v) (
cons r3 va) (cons vb vc) f346) (minus (times 2 (cons r3 va)
(cons r3 vb) (cons v vc) f346)))) nil nil) ((262 r2 r1 va v
vc vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (cons r2
v) (cons r2 va) f344) (times (cons r1 vb) (cons r2 v) (cons
va vc) f343) (times (cons r1 vc) (cons r2 v) (cons va vb) 
f341) (times (cons r2 v) (cons r2 va) (cons vb vc) f342) (
times (cons v vb) (cons va vc) f340))) nil nil) ((261 r2 r1
va v vc vb) 0 (1 (plus (times (cons r1 vb) (cons r1 vc) (
cons r2 v) (cons r2 va) f339) (times (cons r1 vb) (cons r2 v
) (cons va vc) f338) (times (cons r1 vc) (cons r2 v) (cons 
va vb) f336) (times (cons r2 v) (cons r2 va) (cons vb vc) 
f337) (times (cons v vb) (cons va vc) f335))) nil nil) ((260
r2 r3 r1 vc vb v va) 0 ((quotient 1 2) (plus (times (cons r1
r1) (cons r3 va) (eps r1 v vb vc) f334) (times 2 (cons r1 vc
) (cons r3 va) (eps r1 r3 v vb) f334) (minus (times (cons r2
r2) (cons r3 va) (eps r1 v vb vc) f334)) (minus (times 2 (
cons r3 va) (eps r1 v vb vc) f333)) (minus (times 2 (cons r3
va) (eps r3 v vb vc) f332)) (times 2 (cons va vc) (eps r1 r3
v vb) f333))) nil nil) ((259 r1 r2 vc vb va v) 0 (1 (plus (
minus (times (cons r2 v) (cons r2 va) (eps r1 r2 vb vc) f329
)) (minus (times (cons r2 va) (eps r1 v vb vc) f330)) (minus
(times (cons r2 va) (eps r2 v vb vc) f331)) (minus (times (
cons va vb) (eps r1 r2 v vc) f328)))) nil nil) ((258 r1 r2 
vc vb va v) 0 (1 (plus (minus (times (cons r2 v) (cons r2 va
) (eps r1 r2 vb vc) f325)) (minus (times (cons r2 va) (eps 
r1 v vb vc) f326)) (minus (times (cons r2 va) (eps r2 v vb 
vc) f327)) (minus (times (cons va vb) (eps r1 r2 v vc) f324)
))) nil nil) ((257 r2 r3 r1 vc vb v va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (eps r1 v vb vc) f323)
(times 2 (cons r1 vc) (cons r3 va) (eps r1 r3 v vb) f323) (
minus (times (cons r2 r2) (cons r3 va) (eps r1 v vb vc) f323
)) (minus (times 2 (cons r3 va) (eps r1 v vb vc) f322)) (
minus (times 2 (cons r3 va) (eps r3 v vb vc) f321)) (times 2
(cons va vc) (eps r1 r3 v vb) f322))) nil nil) ((256 r1 r2 
vc vb va v) 0 (1 (plus (minus (times (cons r2 v) (cons r2 va
) (eps r1 r2 vb vc) f318)) (minus (times (cons r2 va) (eps 
r1 v vb vc) f319)) (minus (times (cons r2 va) (eps r2 v vb 
vc) f320)) (minus (times (cons va vb) (eps r1 r2 v vc) f317)
))) nil nil) ((255 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons v 
vc) f316) (times (cons r1 r1) (cons v vc) (cons va vb) f314)
(times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb)
f316) (times 2 (cons r1 vc) (cons r3 v) (cons va vb) f314) (
minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v
vc) f316)) (minus (times (cons r2 r2) (cons v vc) (cons va 
vb) f314)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) 
f315) (minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc)
f315)))) nil nil) ((254 r2 r1 va v vc vb) 0 (1 (plus (times
(cons r1 vb) (cons r1 vc) (cons r2 v) (cons r2 va) f313) (
times (cons r1 vb) (cons r2 v) (cons va vc) f312) (times (
cons r1 vc) (cons r2 v) (cons va vb) f310) (times (cons r2 v
) (cons r2 va) (cons vb vc) f311) (times (cons v vb) (cons 
va vc) f309))) nil nil) ((253 r2 r3 r1 vc vb v va) 0 ((
quotient 1 2) (plus (times (cons r1 r1) (cons r3 va) (eps r1
v vb vc) f308) (times 2 (cons r1 vc) (cons r3 va) (eps r1 r3
v vb) f308) (minus (times (cons r2 r2) (cons r3 va) (eps r1
v vb vc) f308)) (minus (times 2 (cons r3 va) (eps r1 v vb vc
) f307)) (minus (times 2 (cons r3 va) (eps r3 v vb vc) f306)
) (times 2 (cons va vc) (eps r1 r3 v vb) f307))) nil nil) ((
252 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (plus (times (
cons r1 r1) (cons r3 va) (cons r3 vb) (cons v vc) f305) (
times (cons r1 r1) (cons v vc) (cons va vb) f303) (times 2 (
cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb) f305) (
times 2 (cons r1 vc) (cons r3 v) (cons va vb) f303) (minus (
times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v vc) 
f305)) (minus (times (cons r2 r2) (cons v vc) (cons va vb) 
f303)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) f304)
(minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc) f304))
)) nil nil) ((251 r2 r3 r1 vc v vb va) 0 ((quotient 1 2) (
plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons v 
vc) f302) (times (cons r1 r1) (cons v vc) (cons va vb) f300)
(times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons r3 vb)
f302) (times 2 (cons r1 vc) (cons r3 v) (cons va vb) f300) (
minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (cons v
vc) f302)) (minus (times (cons r2 r2) (cons v vc) (cons va 
vb) f300)) (times 2 (cons r3 v) (cons r3 va) (cons vb vc) 
f301) (minus (times 2 (cons r3 va) (cons r3 vb) (cons v vc)
f301)))) nil nil) ((250 r2 r3 r1 vc v vb va) 0 ((quotient 1
2) (plus (times (cons r1 r1) (cons r3 va) (cons r3 vb) (cons
v vc) f299) (times (cons r1 r1) (cons v vc) (cons va vb) 
f297) (times 2 (cons r1 vc) (cons r3 v) (cons r3 va) (cons 
r3 vb) f299) (times 2 (cons r1 vc) (cons r3 v) (cons va vb)
f297) (minus (times (cons r2 r2) (cons r3 va) (cons r3 vb) (
cons v vc) f299)) (minus (times (cons r2 r2) (cons v vc) (
cons va vb) f297)) (times 2 (cons r3 v) (cons r3 va) (cons 
vb vc) f298) (minus (times 2 (cons r3 va) (cons r3 vb) (cons
v vc) f298)))) nil nil) ((249 r2 r3 r1 vb va v) 0 ((quotient
i 2) (plus (minus (times (cons r1 r1) (cons r3 v) (cons va 
vb) f296)) (times (cons r2 r2) (cons r3 v) (cons va vb) f296
) (times 2 (cons r2 vb) (cons r3 v) (cons r3 va) f296) (
minus (times 2 (cons r3 v) (cons va vb) f295)) (times 2 (
cons r3 va) (cons v vb) f295))) nil nil) ((248 r2 r1 v vb va
) 0 (i (plus (times (cons r1 va) (cons r1 vb) (cons r2 v) 
f294) (times (cons r1 va) (cons v vb) f293) (times (cons r1
vb) (cons v va) f291) (times (cons r2 v) (cons va vb) f292))
) nil nil) ((247 r2 r3 r1 vb va v) 0 ((quotient i 2) (plus (
minus (times (cons r1 r1) (cons r3 v) (cons va vb) f290)) (
times (cons r2 r2) (cons r3 v) (cons va vb) f290) (times 2 (
cons r2 vb) (cons r3 v) (cons r3 va) f290) (minus (times 2 (
cons r3 v) (cons va vb) f289)) (times 2 (cons r3 va) (cons v
vb) f289))) nil nil) ((246 r2 r1 v vb va) 0 (i (plus (times
(cons r1 va) (cons r1 vb) (cons r2 v) f288) (times (cons r1
va) (cons v vb) f287) (times (cons r1 vb) (cons v va) f285)
(times (cons r2 v) (cons va vb) f286))) nil nil) ((245 r3 r2
r1 vb va v) 0 ((quotient i 2) (plus (times (cons r1 r1) (eps
r2 v va vb) f284) (minus (times (cons r2 r2) (eps r2 v va vb
) f284)) (minus (times 2 (cons r2 vb) (eps r2 r3 v va) f284)
) (times 2 (eps r3 v va vb) f283))) nil nil) ((244 r3 r2 r1
vb va v) 0 ((quotient i 2) (plus (times (cons r1 r1) (eps r2
v va vb) f282) (minus (times (cons r2 r2) (eps r2 v va vb) 
f282)) (minus (times 2 (cons r2 vb) (eps r2 r3 v va) f282))
(times 2 (eps r3 v va vb) f281))) nil nil) ((243 r2 r3 r1 vb
va v) 0 ((quotient i 2) (plus (minus (times (cons r1 r1) (
cons r3 v) (cons va vb) f280)) (times (cons r2 r2) (cons r3
v) (cons va vb) f280) (times 2 (cons r2 vb) (cons r3 v) (
cons r3 va) f280) (minus (times 2 (cons r3 v) (cons va vb) 
f279)) (times 2 (cons r3 va) (cons v vb) f279))) nil nil) ((
242 r3 r2 r1 vb va v) 0 ((quotient i 2) (plus (times (cons 
r1 r1) (eps r2 v va vb) f278) (minus (times (cons r2 r2) (
eps r2 v va vb) f278)) (minus (times 2 (cons r2 vb) (eps r2
r3 v va) f278)) (times 2 (eps r3 v va vb) f277))) nil nil) (
(241 r2 r3 r1 vb va v) 0 ((quotient i 2) (plus (minus (times
(cons r1 r1) (cons r3 v) (cons va vb) f276)) (times (cons r2
r2) (cons r3 v) (cons va vb) f276) (times 2 (cons r2 vb) (
cons r3 v) (cons r3 va) f276) (minus (times 2 (cons r3 v) (
cons va vb) f275)) (times 2 (cons r3 va) (cons v vb) f275)))
nil nil) ((240 r2 r3 r1 vb va v) 0 ((quotient i 2) (plus (
minus (times (cons r1 r1) (cons r3 v) (cons va vb) f274)) (
times (cons r2 r2) (cons r3 v) (cons va vb) f274) (times 2 (
cons r2 vb) (cons r3 v) (cons r3 va) f274) (minus (times 2 (
cons r3 v) (cons va vb) f273)) (times 2 (cons r3 va) (cons v
vb) f273))) nil nil) ((239 r2 r3 r1 vb va v) 0 ((quotient i
2) (plus (minus (times (cons r1 r1) (cons r3 v) (cons va vb)
f272)) (times (cons r2 r2) (cons r3 v) (cons va vb) f272) (
times 2 (cons r2 vb) (cons r3 v) (cons r3 va) f272) (minus (
times 2 (cons r3 v) (cons va vb) f271)) (times 2 (cons r3 va
) (cons v vb) f271))) nil nil) ((238 r2 r1 v vb va) 0 (i (
plus (times (cons r1 va) (cons r1 vb) (cons r2 v) f270) (
times (cons r1 va) (cons v vb) f269) (times (cons r1 vb) (
cons v va) f267) (times (cons r2 v) (cons va vb) f268))) nil
nil) ((237 r2 r1 v vb va) 0 (i (plus (times (cons r1 va) (
cons r1 vb) (cons r2 v) f266) (times (cons r1 va) (cons v vb
) f265) (times (cons r1 vb) (cons v va) f263) (times (cons 
r2 v) (cons va vb) f264))) nil nil) ((236 r1 r2 vb va v) 0 (
i (plus (minus (times (cons r2 v) (eps r1 r2 va vb) f260)) (
minus (times (eps r1 v va vb) f261)) (minus (times (eps r2 v
va vb) f262)))) nil nil) ((235 r2 va v) 0 (f259 (times (cons
r2 v) (cons r2 va))) nil nil) ((234 r2 va v) 0 (f258 (times
(cons r2 v) (cons r2 va))) nil nil) ((233 r2 va v) 0 (f257 (
times (cons r2 v) (cons r2 va))) nil nil) ((232 r2 va v) 0 (
f256 (times (cons r2 v) (cons r2 va))) nil nil) ((231 r2 va
v) 0 (f255 (times (cons r2 v) (cons r2 va))) nil nil) ((230
r2 va v) 0 (f254 (times (cons r2 v) (cons r2 va))) nil nil)
((229 r2 va v) 0 (f253 (times (cons r2 v) (cons r2 va))) nil
nil) ((228 r2 va v) 0 (f252 (times (cons r2 v) (cons r2 va))
) nil nil) ((227 r2 va v) 0 (f251 (times (cons r2 v) (cons 
r2 va))) nil nil) ((226 r2 va v) 0 (f250 (times (cons r2 v)
(cons r2 va))) nil nil) ((225 r2 va v) 0 (f249 (times (cons
r2 v) (cons r2 va))) nil nil) ((224 r2 va v) 0 (f248 (times
(cons r2 v) (cons r2 va))) nil nil) ((223 r2 va v) 0 (f247 (
times (cons r2 v) (cons r2 va))) nil nil) ((222 r2 va v) 0 (
f246 (times (cons r2 v) (cons r2 va))) nil nil) ((221 r2 va
v) 0 (f245 (times (cons r2 v) (cons r2 va))) nil nil) ((220
r2 va v) 0 (f244 (times (cons r2 v) (cons r2 va))) nil nil)
((219 r2 va v) 0 (f243 (times (cons r2 v) (cons r2 va))) nil
nil) ((218 r2 va v) 0 (f242 (times (cons r2 v) (cons r2 va))
) nil nil) ((217 r2 va v) 0 (f241 (times (cons r2 v) (cons 
r2 va))) nil nil) ((216 r2 va v) 0 (f240 (times (cons r2 v)
(cons r2 va))) nil nil) ((215 r2 va v) 0 (f239 (times (cons
r2 v) (cons r2 va))) nil nil) ((214 r2 va v) 0 (f238 (times
(cons r2 v) (cons r2 va))) nil nil) ((213 r2 va v) 0 (f237 (
times (cons r2 v) (cons r2 va))) nil nil) ((212 r2 va v) 0 (
f236 (times (cons r2 v) (cons r2 va))) nil nil) ((211 r2 va
v) 0 (f235 (times (cons r2 v) (cons r2 va))) nil nil) ((210
r2 va v) 0 (f234 (times (cons r2 v) (cons r2 va))) nil nil)
((209 r2 va v) 0 (f233 (times (cons r2 v) (cons r2 va))) nil
nil) ((208 r2 va v) 0 (f232 (times (cons r2 v) (cons r2 va))
) nil nil) ((207 r2 va v) 0 (f231 (times (cons r2 v) (cons 
r2 va))) nil nil) ((206 r2 va v) 0 (f230 (times (cons r2 v)
(cons r2 va))) nil nil) ((205 r2 va v) 0 (f229 (times (cons
r2 v) (cons r2 va))) nil nil) ((204 r2 va v) 0 (f228 (times
(cons r2 v) (cons r2 va))) nil nil) ((203 r2 va v) 0 (f227 (
times (cons r2 v) (cons r2 va))) nil nil) ((202 r2 va v) 0 (
f226 (times (cons r2 v) (cons r2 va))) nil nil) ((201 r2 va
v) 0 (f225 (times (cons r2 v) (cons r2 va))) nil nil) ((200
r2 va v) 0 (f224 (times (cons r2 v) (cons r2 va))) nil nil)
((199 r2 va v) 0 (f223 (times (cons r2 v) (cons r2 va))) nil
nil) ((198 r2 va v) 0 (f222 (times (cons r2 v) (cons r2 va))
) nil nil) ((197 r2 va v) 0 (f221 (times (cons r2 v) (cons 
r2 va))) nil nil) ((196 r2 va v) 0 (f220 (times (cons r2 v)
(cons r2 va))) nil nil) ((195 r2 va v) 0 (f219 (times (cons
r2 v) (cons r2 va))) nil nil) ((194 r2 va v) 0 (f218 (times
(cons r2 v) (cons r2 va))) nil nil) ((193 r2 r1 va v) 0 (
f217 (minus (eps r1 r2 v va))) nil nil) ((192 r2 r1 va v) 0
(f216 (minus (eps r1 r2 v va))) nil nil) ((191 r3 r2 r1 va v
) 0 ((quotient f215 2) (plus (times (cons r1 r1) (cons v va)
) (times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3
r3) (cons v va))))) nil nil) ((190 r3 r2 r1 va v) 0 ((
quotient f214 2) (plus (times (cons r1 r1) (cons v va)) (
times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3 r3)
(cons v va))))) nil nil) ((189 r3 r2 r1 va v) 0 ((quotient 
f213 2) (plus (times (cons r1 r1) (cons v va)) (times 2 (
cons r1 va) (cons r2 v)) (minus (times (cons r3 r3) (cons v
va))))) nil nil) ((188 r3 r2 r1 va v) 0 ((quotient f212 2) (
plus (times (cons r1 r1) (cons v va)) (times 2 (cons r1 va)
(cons r2 v)) (minus (times (cons r3 r3) (cons v va))))) nil
nil) ((187 r3 r2 r1 va v) 0 ((quotient f211 2) (plus (times
(cons r1 r1) (cons v va)) (times 2 (cons r1 va) (cons r2 v))
(minus (times (cons r3 r3) (cons v va))))) nil nil) ((186 r2
r1 va v) 0 (f210 (minus (eps r1 r2 v va))) nil nil) ((185 r2
r1 v va) 0 (1 (plus (times (cons r1 va) (cons r2 v) f209) (
times (cons v va) f208))) nil nil) ((184 r2 r1 v va) 0 (1 (
plus (times (cons r1 va) (cons r2 v) f207) (times (cons v va
) f206))) nil nil) ((183 r2 r1 v va) 0 (1 (plus (times (cons
r1 va) (cons r2 v) f205) (times (cons v va) f204))) nil nil)
((182 r2 r1 v va) 0 (1 (plus (times (cons r1 va) (cons r2 v)
f203) (times (cons v va) f202))) nil nil) ((181 r2 r1 v va)
0 (1 (plus (times (cons r1 va) (cons r2 v) f201) (times (
cons v va) f200))) nil nil) ((180 r2 r1 va v) 0 (f199 (minus
(eps r1 r2 v va))) nil nil) ((179 r2 r1 va v) 0 (f198 (minus
(eps r1 r2 v va))) nil nil) ((178 r2 r1 va v) 0 (f197 (minus
(eps r1 r2 v va))) nil nil) ((177 r3 r2 r1 va v) 0 ((
quotient f196 2) (plus (times (cons r1 r1) (cons v va)) (
times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3 r3)
(cons v va))))) nil nil) ((176 r3 r2 r1 va v) 0 ((quotient 
f195 2) (plus (times (cons r1 r1) (cons v va)) (times 2 (
cons r1 va) (cons r2 v)) (minus (times (cons r3 r3) (cons v
va))))) nil nil) ((175 r3 r2 r1 va v) 0 ((quotient f194 2) (
plus (times (cons r1 r1) (cons v va)) (times 2 (cons r1 va)
(cons r2 v)) (minus (times (cons r3 r3) (cons v va))))) nil
nil) ((174 r3 r2 r1 va v) 0 ((quotient f193 2) (plus (times
(cons r1 r1) (cons v va)) (times 2 (cons r1 va) (cons r2 v))
(minus (times (cons r3 r3) (cons v va))))) nil nil) ((173 r3
r2 r1 va v) 0 ((quotient f192 2) (plus (times (cons r1 r1) (
cons v va)) (times 2 (cons r1 va) (cons r2 v)) (minus (times
(cons r3 r3) (cons v va))))) nil nil) ((172 r2 r1 va v) 0 (
f191 (minus (eps r1 r2 v va))) nil nil) ((171 r2 r1 v va) 0
(1 (plus (times (cons r1 va) (cons r2 v) f190) (times (cons
v va) f189))) nil nil) ((170 r2 r1 v va) 0 (1 (plus (times (
cons r1 va) (cons r2 v) f188) (times (cons v va) f187))) nil
nil) ((169 r2 r1 v va) 0 (1 (plus (times (cons r1 va) (cons
r2 v) f186) (times (cons v va) f185))) nil nil) ((168 r2 r1
v va) 0 (1 (plus (times (cons r1 va) (cons r2 v) f184) (
times (cons v va) f183))) nil nil) ((167 r2 r1 va v) 0 (f182
(minus (eps r1 r2 v va))) nil nil) ((166 r2 r1 v va) 0 (1 (
plus (times (cons r1 va) (cons r2 v) f181) (times (cons v va
) f180))) nil nil) ((165 r2 r1 v va) 0 (1 (plus (times (cons
r1 va) (cons r2 v) f179) (times (cons v va) f178))) nil nil)
((164 r2 r1 v va) 0 (1 (plus (times (cons r1 va) (cons r2 v)
f177) (times (cons v va) f176))) nil nil) ((163 r2 r1 va v)
0 (f175 (minus (eps r1 r2 v va))) nil nil) ((162 r3 r2 r1 va
v) 0 ((quotient f174 2) (plus (times (cons r1 r1) (cons v va
)) (times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3
r3) (cons v va))))) nil nil) ((161 r3 r2 r1 va v) 0 ((
quotient f173 2) (plus (times (cons r1 r1) (cons v va)) (
times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3 r3)
(cons v va))))) nil nil) ((160 r2 r1 va v) 0 (f172 (minus (
eps r1 r2 v va))) nil nil) ((159 r2 r1 va v) 0 (f171 (minus
(eps r1 r2 v va))) nil nil) ((158 r2 r1 va v) 0 (f170 (minus
(eps r1 r2 v va))) nil nil) ((157 r2 r1 va v) 0 (f169 (minus
(eps r1 r2 v va))) nil nil) ((156 r2 r1 va v) 0 (f168 (minus
(eps r1 r2 v va))) nil nil) ((155 r3 r2 r1 va v) 0 ((
quotient f167 2) (plus (times (cons r1 r1) (cons v va)) (
times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3 r3)
(cons v va))))) nil nil) ((154 r2 r1 va v) 0 (f166 (minus (
eps r1 r2 v va))) nil nil) ((153 r2 r1 va v) 0 (f165 (minus
(eps r1 r2 v va))) nil nil) ((152 r2 r1 va v) 0 (f164 (minus
(eps r1 r2 v va))) nil nil) ((151 r2 r1 va v) 0 (f163 (minus
(eps r1 r2 v va))) nil nil) ((150 r2 r1 v va) 0 (1 (plus (
times (cons r1 va) (cons r2 v) f162) (times (cons v va) f161
))) nil nil) ((149 r2 r1 va v) 0 (f160 (minus (eps r1 r2 v 
va))) nil nil) ((148 r2 r1 va v) 0 (f159 (minus (eps r1 r2 v
va))) nil nil) ((147 r2 r1 v va) 0 (1 (plus (times (cons r1
va) (cons r2 v) f158) (times (cons v va) f157))) nil nil) ((
146 r2 r1 va v) 0 (f156 (minus (eps r1 r2 v va))) nil nil) (
(145 r3 r2 r1 va v) 0 ((quotient f155 2) (plus (times (cons
r1 r1) (cons v va)) (times 2 (cons r1 va) (cons r2 v)) (
minus (times (cons r3 r3) (cons v va))))) nil nil) ((144 r3
r2 r1 va v) 0 ((quotient f154 2) (plus (times (cons r1 r1) (
cons v va)) (times 2 (cons r1 va) (cons r2 v)) (minus (times
(cons r3 r3) (cons v va))))) nil nil) ((143 r2 r1 va v) 0 (
f153 (minus (eps r1 r2 v va))) nil nil) ((142 r2 r1 va v) 0
(f152 (minus (eps r1 r2 v va))) nil nil) ((141 r2 r1 va v) 0
(f151 (minus (eps r1 r2 v va))) nil nil) ((140 r2 r1 va v) 0
(f150 (minus (eps r1 r2 v va))) nil nil) ((139 r2 r1 va v) 0
(f149 (minus (eps r1 r2 v va))) nil nil) ((138 r3 r2 r1 va v
) 0 ((quotient f148 2) (plus (times (cons r1 r1) (cons v va)
) (times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3
r3) (cons v va))))) nil nil) ((137 r2 r1 v va) 0 (1 (plus (
times (cons r1 va) (cons r2 v) f147) (times (cons v va) f146
))) nil nil) ((136 r2 r1 va v) 0 (f145 (minus (eps r1 r2 v 
va))) nil nil) ((135 r2 r1 va v) 0 (f144 (minus (eps r1 r2 v
va))) nil nil) ((134 r2 r1 v va) 0 (1 (plus (times (cons r1
va) (cons r2 v) f143) (times (cons v va) f142))) nil nil) ((
133 r2 r1 v va) 0 (1 (plus (times (cons r1 va) (cons r2 v) 
f141) (times (cons v va) f140))) nil nil) ((132 r2 r1 va v)
0 (f139 (minus (eps r1 r2 v va))) nil nil) ((131 r2 r1 va v)
0 (f138 (minus (eps r1 r2 v va))) nil nil) ((130 r2 r1 va v)
0 (f137 (minus (eps r1 r2 v va))) nil nil) ((129 r2 r1 va v)
0 (f136 (minus (eps r1 r2 v va))) nil nil) ((128 r3 r2 r1 va
v) 0 ((quotient f135 2) (plus (times (cons r1 r1) (cons v va
)) (times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3
r3) (cons v va))))) nil nil) ((127 r3 r2 r1 va v) 0 ((
quotient f134 2) (plus (times (cons r1 r1) (cons v va)) (
times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3 r3)
(cons v va))))) nil nil) ((126 r3 r2 r1 va v) 0 ((quotient 
f133 2) (plus (times (cons r1 r1) (cons v va)) (times 2 (
cons r1 va) (cons r2 v)) (minus (times (cons r3 r3) (cons v
va))))) nil nil) ((125 r3 r2 r1 va v) 0 ((quotient f132 2) (
plus (times (cons r1 r1) (cons v va)) (times 2 (cons r1 va)
(cons r2 v)) (minus (times (cons r3 r3) (cons v va))))) nil
nil) ((124 r3 r2 r1 va v) 0 ((quotient f131 2) (plus (times
(cons r1 r1) (cons v va)) (times 2 (cons r1 va) (cons r2 v))
(minus (times (cons r3 r3) (cons v va))))) nil nil) ((123 r2
r1 va v) 0 (f130 (minus (eps r1 r2 v va))) nil nil) ((122 r2
r1 va v) 0 (f129 (minus (eps r1 r2 v va))) nil nil) ((121 r2
r1 v va) 0 (1 (plus (times (cons r1 va) (cons r2 v) f128) (
times (cons v va) f127))) nil nil) ((120 r2 r1 va v) 0 (f126
(minus (eps r1 r2 v va))) nil nil) ((119 r2 r1 va v) 0 (f125
(minus (eps r1 r2 v va))) nil nil) ((118 r2 r1 v va) 0 (1 (
plus (times (cons r1 va) (cons r2 v) f124) (times (cons v va
) f123))) nil nil) ((117 r2 r1 v va) 0 (1 (plus (times (cons
r1 va) (cons r2 v) f122) (times (cons v va) f121))) nil nil)
((116 r2 r1 va v) 0 (f120 (minus (eps r1 r2 v va))) nil nil)
((115 r3 r2 r1 va v) 0 ((quotient f119 2) (plus (times (cons
r1 r1) (cons v va)) (times 2 (cons r1 va) (cons r2 v)) (
minus (times (cons r3 r3) (cons v va))))) nil nil) ((114 r3
r2 r1 va v) 0 ((quotient f118 2) (plus (times (cons r1 r1) (
cons v va)) (times 2 (cons r1 va) (cons r2 v)) (minus (times
(cons r3 r3) (cons v va))))) nil nil) ((113 r2 r1 va v) 0 (
f117 (minus (eps r1 r2 v va))) nil nil) ((112 r2 r1 va v) 0
(f116 (minus (eps r1 r2 v va))) nil nil) ((111 r2 r1 va v) 0
(f115 (minus (eps r1 r2 v va))) nil nil) ((110 r2 r1 va v) 0
(f114 (minus (eps r1 r2 v va))) nil nil) ((109 r2 r1 va v) 0
(f113 (minus (eps r1 r2 v va))) nil nil) ((108 r3 r2 r1 va v
) 0 ((quotient f112 2) (plus (times (cons r1 r1) (cons v va)
) (times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3
r3) (cons v va))))) nil nil) ((107 r2 r1 v va) 0 (1 (plus (
times (cons r1 va) (cons r2 v) f111) (times (cons v va) f110
))) nil nil) ((106 r2 r1 v va) 0 (1 (plus (times (cons r1 va
) (cons r2 v) f109) (times (cons v va) f108))) nil nil) ((
105 r2 r1 v va) 0 (1 (plus (times (cons r1 va) (cons r2 v) 
f107) (times (cons v va) f106))) nil nil) ((104 r2 r1 v va)
0 (1 (plus (times (cons r1 va) (cons r2 v) f105) (times (
cons v va) f104))) nil nil) ((103 r2 r1 va v) 0 (f103 (minus
(eps r1 r2 v va))) nil nil) ((102 r2 r1 va v) 0 (f102 (minus
(eps r1 r2 v va))) nil nil) ((101 r2 r1 va v) 0 (f101 (minus
(eps r1 r2 v va))) nil nil) ((100 r3 r2 r1 va v) 0 ((
quotient f100 2) (plus (times (cons r1 r1) (cons v va)) (
times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3 r3)
(cons v va))))) nil nil) ((99 r3 r2 r1 va v) 0 ((quotient 
f99 2) (plus (times (cons r1 r1) (cons v va)) (times 2 (cons
r1 va) (cons r2 v)) (minus (times (cons r3 r3) (cons v va)))
)) nil nil) ((98 r3 r2 r1 va v) 0 ((quotient f98 2) (plus (
times (cons r1 r1) (cons v va)) (times 2 (cons r1 va) (cons
r2 v)) (minus (times (cons r3 r3) (cons v va))))) nil nil) (
(97 r3 r2 r1 va v) 0 ((quotient f97 2) (plus (times (cons r1
r1) (cons v va)) (times 2 (cons r1 va) (cons r2 v)) (minus (
times (cons r3 r3) (cons v va))))) nil nil) ((96 r3 r2 r1 va
v) 0 ((quotient f96 2) (plus (times (cons r1 r1) (cons v va)
) (times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3
r3) (cons v va))))) nil nil) ((95 r2 r1 va v) 0 (f95 (minus
(eps r1 r2 v va))) nil nil) ((94 r2 r1 va v) 0 (f94 (minus (
eps r1 r2 v va))) nil nil) ((93 r2 r1 va v) 0 (f93 (minus (
eps r1 r2 v va))) nil nil) ((92 r2 r1 va v) 0 (f92 (minus (
eps r1 r2 v va))) nil nil) ((91 r2 r1 va v) 0 (f91 (minus (
eps r1 r2 v va))) nil nil) ((90 r2 r1 v va) 0 (1 (plus (
times (cons r1 va) (cons r2 v) f90) (times (cons v va) f89))
) nil nil) ((89 r2 r1 va v) 0 (f88 (minus (eps r1 r2 v va)))
nil nil) ((88 r2 r1 va v) 0 (f87 (minus (eps r1 r2 v va))) 
nil nil) ((87 r3 r2 r1 va v) 0 ((quotient f86 2) (plus (
times (cons r1 r1) (cons v va)) (times 2 (cons r1 va) (cons
r2 v)) (minus (times (cons r3 r3) (cons v va))))) nil nil) (
(86 r3 r2 r1 va v) 0 ((quotient f85 2) (plus (times (cons r1
r1) (cons v va)) (times 2 (cons r1 va) (cons r2 v)) (minus (
times (cons r3 r3) (cons v va))))) nil nil) ((85 r3 r2 r1 va
v) 0 ((quotient f84 2) (plus (times (cons r1 r1) (cons v va)
) (times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3
r3) (cons v va))))) nil nil) ((84 r3 r2 r1 va v) 0 ((
quotient f83 2) (plus (times (cons r1 r1) (cons v va)) (
times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3 r3)
(cons v va))))) nil nil) ((83 r3 r2 r1 va v) 0 ((quotient 
f82 2) (plus (times (cons r1 r1) (cons v va)) (times 2 (cons
r1 va) (cons r2 v)) (minus (times (cons r3 r3) (cons v va)))
)) nil nil) ((82 r2 r1 va v) 0 (f81 (minus (eps r1 r2 v va))
) nil nil) ((81 r2 r1 va v) 0 (f80 (minus (eps r1 r2 v va)))
nil nil) ((80 r2 r1 va v) 0 (f79 (minus (eps r1 r2 v va))) 
nil nil) ((79 r2 r1 va v) 0 (f78 (minus (eps r1 r2 v va))) 
nil nil) ((78 r2 r1 va v) 0 (f77 (minus (eps r1 r2 v va))) 
nil nil) ((77 r2 r1 v va) 0 (1 (plus (times (cons r1 va) (
cons r2 v) f76) (times (cons v va) f75))) nil nil) ((76 r2 
r1 va v) 0 (f74 (minus (eps r1 r2 v va))) nil nil) ((75 r2 
r1 va v) 0 (f73 (minus (eps r1 r2 v va))) nil nil) ((74 r3 
r2 r1 va v) 0 ((quotient f72 2) (plus (times (cons r1 r1) (
cons v va)) (times 2 (cons r1 va) (cons r2 v)) (minus (times
(cons r3 r3) (cons v va))))) nil nil) ((73 r3 r2 r1 va v) 0
((quotient f71 2) (plus (times (cons r1 r1) (cons v va)) (
times 2 (cons r1 va) (cons r2 v)) (minus (times (cons r3 r3)
(cons v va))))) nil nil) ((72 r3 r2 r1 va v) 0 ((quotient 
f70 2) (plus (times (cons r1 r1) (cons v va)) (times 2 (cons
r1 va) (cons r2 v)) (minus (times (cons r3 r3) (cons v va)))
)) nil nil) ((71 r3 r2 r1 va v) 0 ((quotient f69 2) (plus (
times (cons r1 r1) (cons v va)) (times 2 (cons r1 va) (cons
r2 v)) (minus (times (cons r3 r3) (cons v va))))) nil nil) (
(70 r3 r2 r1 va v) 0 ((quotient f68 2) (plus (times (cons r1
r1) (cons v va)) (times 2 (cons r1 va) (cons r2 v)) (minus (
times (cons r3 r3) (cons v va))))) nil nil) ((69 r2 r1 va v)
0 (f67 (minus (eps r1 r2 v va))) nil nil) ((68 r2 r1 va v) 0
(f66 (minus (eps r1 r2 v va))) nil nil) ((67 r2 r1 va v) 0 (
f65 (minus (eps r1 r2 v va))) nil nil) ((66 r2 r1 v va) 0 (1
(plus (times (cons r1 va) (cons r2 v) f64) (times (cons v va
) f63))) nil nil) ((65 r2 r1 v va) 0 (1 (plus (times (cons 
r1 va) (cons r2 v) f62) (times (cons v va) f61))) nil nil) (
(64 r2 r1 v va) 0 (1 (plus (times (cons r1 va) (cons r2 v) 
f60) (times (cons v va) f59))) nil nil) ((63 r2 r1 v va) 0 (
1 (plus (times (cons r1 va) (cons r2 v) f58) (times (cons v
va) f57))) nil nil) ((62 r2 r1 va v) 0 (f56 (minus (eps r1 
r2 v va))) nil nil) ((61 r2 r1 va v) 0 (f55 (minus (eps r1 
r2 v va))) nil nil) ((60 r2 r1 v va) 0 (1 (plus (times (cons
r1 va) (cons r2 v) f54) (times (cons v va) f53))) nil nil) (
(59 r2 r1 v va) 0 (1 (plus (times (cons r1 va) (cons r2 v) 
f52) (times (cons v va) f51))) nil nil) ((58 r2 r1 v va) 0 (
1 (plus (times (cons r1 va) (cons r2 v) f50) (times (cons v
va) f49))) nil nil) ((57 r2 r1 v va) 0 (1 (plus (times (cons
r1 va) (cons r2 v) f48) (times (cons v va) f47))) nil nil) (
(56 r2 r1 va v) 0 (f46 (minus (eps r1 r2 v va))) nil nil) ((
55 r2 r1 v va) 0 (1 (plus (times (cons r1 va) (cons r2 v) 
f45) (times (cons v va) f44))) nil nil) ((54 r2 r1 v va) 0 (
1 (plus (times (cons r1 va) (cons r2 v) f43) (times (cons v
va) f42))) nil nil) ((53 r2 r1 va v) 0 (f41 (minus (eps r1 
r2 v va))) nil nil) ((52 r2 r1 va v) 0 (f40 (minus (eps r1 
r2 v va))) nil nil) ((51 r2 r1 v va) 0 (1 (plus (times (cons
r1 va) (cons r2 v) f39) (times (cons v va) f38))) nil nil) (
(50 r2 r1 v va) 0 (1 (plus (times (cons r1 va) (cons r2 v) 
f37) (times (cons v va) f36))) nil nil) ((49 r2 r1 va v) 0 (
f35 (minus (eps r1 r2 v va))) nil nil) ((48 r2 r1 va v) 0 (
f34 (minus (eps r1 r2 v va))) nil nil) ((47 r2 r1 va v) 0 (
f33 (minus (eps r1 r2 v va))) nil nil) ((46 r2 r1 va v) 0 (
f32 (minus (eps r1 r2 v va))) nil nil) ((45 r2 v) 0 ((times
f31 i) (cons r2 v)) nil nil) ((44 r2 v) 0 ((times f30 i) (
cons r2 v)) nil nil) ((43 r2 v) 0 ((times f29 i) (cons r2 v)
) nil nil) ((42 r2 v) 0 ((times f28 i) (cons r2 v)) nil nil)
((41) 0 (f27 1) nil nil) ((40) 0 (f26 1) nil nil) ((39) 0 (
f25 1) nil nil) ((38) 0 (f24 1) nil nil) ((37) 0 (f23 1) nil
nil) ((36) 0 (f22 1) nil nil) ((35) 0 (f21 1) nil nil) ((34)
0 (f20 1) nil nil) ((33) 0 (f19 1) nil nil) ((32) 0 (f18 1)
nil nil) ((31) 0 (f17 1) nil nil) ((30) 0 (f16 1) nil nil) (
(29) 0 (f15 1) nil nil) ((28) 0 (f14 1) nil nil) ((27) 0 (
f13 1) nil nil) ((26) 0 (f12 1) nil nil) ((25) 0 (f11 1) nil
nil) ((24) 0 (f10 1) nil nil) ((23) 0 (f9 1) nil nil) ((22)
0 (f8 1) nil nil) ((21) 0 (f7 1) nil nil) ((1 v va) 0 ((
quotient i (times 2 (expt (cos theta) 2))) (cons v va)) ((h0
z 2)) ((2))) ((2 v va) 0 ((quotient i 2) (cons v va)) ((h0 w
1)) ((1))) ((3 v va) 0 ((quotient (times i wm) (expt (cos 
theta) 2)) (cons v va)) ((h0 z 4)) ((4))) ((4 v va) 0 ((
times i wm) (cons v va)) ((h0 w 3)) ((3))) ((5 pa1 v va vb 
vc) 0 (cc5 (plus (minus (times 2 (cons v va) (cons vb vc)))
(times (cons v vb) (cons va vc)) (times (cons v vc) (cons va
vb)))) ((p 6) (z 8)) ((6 (cc5 times (expt (sin theta) 2) i))
(8 (cc5 times (expt (cos theta) 2) i)))) ((6 v va vb vc) 0 (
(times (cos theta) (sin theta) i) (plus (minus (times 2 (
cons v va) (cons vb vc))) (times (cons v vb) (cons va vc)) (
times (cons v vc) (cons va vb)))) nil ((7))) ((7 v va vb vc)
0 (i (plus (times 2 (cons v va) (cons vb vc)) (minus (times
(cons v vb) (cons va vc))) (minus (times (cons v vc) (cons 
va vb))))) nil ((5))) ((8 l pa1 pa3 v) 4 (2 (cc8c0 (plus (
times (g l a v) cc8c2) (times (g l v) cc8c1)) (plus (times (
g l a v) cc8c1) (minus (times (g l a v) cc8c2)) (times (g l
v) cc8c1) (times (g l v) cc8c2))) ((z qt 43) (z qc 42) (z qu
41) (z qb 31) (z qs 30) (z qd 29) (z nut 23) (z numu 22) (z
nue 21) (z tau 14) (z mu 13) (z ef 12) (p ef 9) (p mu 10) (p
tau 11) (p qd 26) (p qs 27) (p qb 28) (p qu 38) (p qc 39) (p
qt 40)) ((9 (cc8c1 . 1) (cc8c2 . 0) (cc8c0 minus (times (sin
theta) i))) (10 (cc8c1 . 1) (cc8c2 . 0) (cc8c0 minus (times
(sin theta) i))) (11 (cc8c1 . 1) (cc8c2 . 0) (cc8c0 minus (
times (sin theta) i))) (12 (cc8c1 plus (times 4 (expt (sin 
theta) 2)) (minus 1)) (cc8c2 . -1) (cc8c0 quotient i (times
4 (cos theta)))) (13 (cc8c1 plus (times 4 (expt (sin theta)
2)) (minus 1)) (cc8c2 . -1) (cc8c0 quotient i (times 4 (cos
theta)))) (14 (cc8c1 plus (times 4 (expt (sin theta) 2)) (
minus 1)) (cc8c2 . -1) (cc8c0 quotient i (times 4 (cos theta
)))) (21 (cc8c1 . 1) (cc8c2 . 1) (cc8c0 quotient i (times 4
(cos theta)))) (22 (cc8c1 . 1) (cc8c2 . 1) (cc8c0 quotient i
(times 4 (cos theta)))) (23 (cc8c1 . 1) (cc8c2 . 1) (cc8c0 
quotient i (times 4 (cos theta)))) (26 (cc8c1 . 1) (cc8c2 .
0) (cc8c0 quotient (minus (times (sin theta) i)) 3)) (27 (
cc8c1 . 1) (cc8c2 . 0) (cc8c0 quotient (minus (times (sin 
theta) i)) 3)) (28 (cc8c1 . 1) (cc8c2 . 0) (cc8c0 quotient (
minus (times (sin theta) i)) 3)) (29 (cc8c1 plus (times 4 (
expt (sin theta) 2)) (minus 3)) (cc8c2 . -3) (cc8c0 quotient
i (times 12 (cos theta)))) (30 (cc8c1 plus (times 4 (expt (
sin theta) 2)) (minus 3)) (cc8c2 . -3) (cc8c0 quotient i (
times 12 (cos theta)))) (31 (cc8c1 plus (times 4 (expt (sin
theta) 2)) (minus 3)) (cc8c2 . -3) (cc8c0 quotient i (times
12 (cos theta)))) (38 (cc8c1 . 1) (cc8c2 . 0) (cc8c0 
quotient (times 2 (sin theta) i) 3)) (39 (cc8c1 . 1) (cc8c2
 . 0) (cc8c0 quotient (times 2 (sin theta) i) 3)) (40 (cc8c1
 . 1) (cc8c2 . 0) (cc8c0 quotient (times 2 (sin theta) i) 3)
) (41 (cc8c1 plus (times 8 (expt (cos theta) 2)) (minus 5))
(cc8c2 . 3) (cc8c0 quotient i (times 12 (cos theta)))) (42 (
cc8c1 plus (times 8 (expt (cos theta) 2)) (minus 5)) (cc8c2
 . 3) (cc8c0 quotient i (times 12 (cos theta)))) (43 (cc8c1
plus (times 8 (expt (cos theta) 2)) (minus 5)) (cc8c2 . 3) (
cc8c0 quotient i (times 12 (cos theta))))) ((9 (cc8c1 
quotient 1 2) (cc8c2 quotient 1 2) (cc8c0 minus (times (sin
theta) i))) (10 (cc8c1 quotient 1 2) (cc8c2 quotient 1 2) (
cc8c0 minus (times (sin theta) i))) (11 (cc8c1 quotient 1 2)
(cc8c2 quotient 1 2) (cc8c0 minus (times (sin theta) i))) (
12 (cc8c1 plus (times 2 (expt (sin theta) 2)) (minus 1)) (
cc8c2 times 2 (expt (sin theta) 2)) (cc8c0 quotient i (times
4 (cos theta)))) (13 (cc8c1 plus (times 2 (expt (sin theta)
2)) (minus 1)) (cc8c2 times 2 (expt (sin theta) 2)) (cc8c0 
quotient i (times 4 (cos theta)))) (14 (cc8c1 plus (times 2
(expt (sin theta) 2)) (minus 1)) (cc8c2 times 2 (expt (sin 
theta) 2)) (cc8c0 quotient i (times 4 (cos theta)))) (21 (
cc8c1 . 1) (cc8c2 . 0) (cc8c0 quotient i (times 4 (cos theta
)))) (22 (cc8c1 . 1) (cc8c2 . 0) (cc8c0 quotient i (times 4
(cos theta)))) (23 (cc8c1 . 1) (cc8c2 . 0) (cc8c0 quotient i
(times 4 (cos theta)))) (26 (cc8c1 quotient 1 2) (cc8c2 
quotient 1 2) (cc8c0 quotient (minus (times (sin theta) i))
3)) (27 (cc8c1 quotient 1 2) (cc8c2 quotient 1 2) (cc8c0 
quotient (minus (times (sin theta) i)) 3)) (28 (cc8c1 
quotient 1 2) (cc8c2 quotient 1 2) (cc8c0 quotient (minus (
times (sin theta) i)) 3)) (29 (cc8c1 plus (times 2 (expt (
sin theta) 2)) (minus 3)) (cc8c2 times 2 (expt (sin theta) 2
)) (cc8c0 quotient i (times 12 (cos theta)))) (30 (cc8c1 
plus (times 2 (expt (sin theta) 2)) (minus 3)) (cc8c2 times
2 (expt (sin theta) 2)) (cc8c0 quotient i (times 12 (cos 
theta)))) (31 (cc8c1 plus (times 2 (expt (sin theta) 2)) (
minus 3)) (cc8c2 times 2 (expt (sin theta) 2)) (cc8c0 
quotient i (times 12 (cos theta)))) (38 (cc8c1 quotient 1 2)
(cc8c2 quotient 1 2) (cc8c0 quotient (times 2 (sin theta) i)
3)) (39 (cc8c1 quotient 1 2) (cc8c2 quotient 1 2) (cc8c0 
quotient (times 2 (sin theta) i) 3)) (40 (cc8c1 quotient 1 2
) (cc8c2 quotient 1 2) (cc8c0 quotient (times 2 (sin theta)
i) 3)) (41 (cc8c1 plus (times 4 (expt (cos theta) 2)) (minus
1)) (cc8c2 plus (times 4 (expt (cos theta) 2)) (minus 4)) (
cc8c0 quotient i (times 12 (cos theta)))) (42 (cc8c1 plus (
times 4 (expt (cos theta) 2)) (minus 1)) (cc8c2 plus (times
4 (expt (cos theta) 2)) (minus 4)) (cc8c0 quotient i (times
12 (cos theta)))) (43 (cc8c1 plus (times 4 (expt (cos theta)
2)) (minus 1)) (cc8c2 plus (times 4 (expt (cos theta) 2)) (
minus 4)) (cc8c0 quotient i (times 12 (cos theta)))))) (((z
pa6)) 1 ((quotient i (times 12 (cos theta))) (plus (times 3
(g l a v)) (times 8 (g l v) (expt (cos theta) 2)) (minus (
times 5 (g l v))))) ((z qt 43) (z qt 43) (z qt 43))) (((z 
pa4)) 2 (cc8c0 (plus (times (g l a v) cc8c2) (times (g l v)
cc8c1)) (plus (minus (times 2 (g l a v) (expt (sin theta) 2)
)) (times (g l a v) cc8c1) (times 2 (g l v) (expt (sin theta
) 2)) (times (g l v) cc8c1))) ((z qb 31) (z qb 31) (z qb 31)
(z qb 31) (z qb 31) (z qb 31)) ((31 (cc8c1 plus (times 2 (
expt (sin theta) 2)) (minus 3)) (cc8c0 quotient i (times 12
(cos theta)))) (30 (cc8c1 plus (times 2 (expt (sin theta) 2)
) (minus 3)) (cc8c0 quotient i (times 12 (cos theta)))) (29
(cc8c1 plus (times 2 (expt (sin theta) 2)) (minus 3)) (cc8c0
quotient i (times 12 (cos theta)))) (14 (cc8c1 plus (times 2
(expt (sin theta) 2)) (minus 1)) (cc8c0 quotient i (times 4
(cos theta)))) (13 (cc8c1 plus (times 2 (expt (sin theta) 2)
) (minus 1)) (cc8c0 quotient i (times 4 (cos theta)))) (12 (
cc8c1 plus (times 2 (expt (sin theta) 2)) (minus 1)) (cc8c0
quotient i (times 4 (cos theta)))))) (((p pa2) (p pa4) (p 
pa3)) 1 (cc8c0 (g l v)) ((p qt 40) (p qt 40) (p qt 40) (p qt
40) (p qt 40) (p qt 40) (p qt 40) (p qt 40) (p qt 40))) (((p
pa5) (p pa6)) 1 ((quotient (times 2 (sin theta) i) 3) (g l v
)) ((p qt 40) (p qt 40) (p qt 40)))) ((9 l pa5 pa4 v) 1 ((
quotient (times (sqrt 2) i) 4) (plus (g l a v) (g l v))) ((
nut tau 15) (numu mu 16) (nue ef 17) (qt qb 32) (qc qs 33) (
qu qd 34)) ((15) (16) (17) (32) (33) (34))) ((10 l pa4 pa5 v
) 1 ((quotient (times (sqrt 2) i) 4) (plus (g l a v) (g l v)
)) ((qd qu 37) (qs qc 36) (qb qt 35) (ef nue 20) (mu numu 19
) (tau nut 18)) ((18) (19) (20) (35) (36) (37))) ((11 pa1 v
va vb r1 r2 r3) 0 (cc11 (plus (minus (times (cons r1 v) (
cons va vb))) (times (cons r1 vb) (cons v va)) (times (cons
r2 v) (cons va vb)) (minus (times (cons r2 va) (cons v vb)))
(times (cons r3 va) (cons v vb)) (minus (times (cons r3 vb)
(cons v va))))) ((p 24) (z 25)) ((24 (cc11 times (sin theta)
i)) (25 (cc11 times (cos theta) i)))) ((12 l pa2) 1 (cc12c0
1) ((qt 54) (qc 53) (qu 52) (qb 51) (qs 50) (qd 49) (tau 46)
(mu 45) (ef 44)) ((44 (cc12c0 quotient (times fme i) (times
2 wm))) (45 (cc12c0 quotient (times fmmu i) (times 2 wm))) (
46 (cc12c0 quotient (times fmtau i) (times 2 wm))) (49 (
cc12c0 quotient (times fmd i) (times 2 wm))) (50 (cc12c0 
quotient (times fms i) (times 2 wm))) (51 (cc12c0 quotient (
times fmb i) (times 2 wm))) (52 (cc12c0 quotient (times fmu
i) (times 2 wm))) (53 (cc12c0 quotient (times fmc i) (times
2 wm))) (54 (cc12c0 quotient (times fmt i) (times 2 wm)))))
((13) 0 ((quotient (minus (times 3 (expt hm 2) i)) (times 4
(expt wm 2))) 1) nil ((47))) ((14) 0 ((quotient (minus (
times 3 (expt hm 2) i)) (times 2 wm)) 1) nil ((48))) ((20 l
v) 0 (f6 (g l v)) nil nil) ((19 l v) 0 (f5 (g l v)) nil nil)
((18 l v) 0 (f4 (g l v)) nil nil) ((17 l v) 0 (f3 (g l v)) 
nil nil) ((16 l v) 0 (f2 (g l v)) nil nil) ((15 l v) 0 (f1 (
g l v)) nil nil));
 $
feynmanrulelist_new:='nil;
 $
czslist:='nil;
 $
ctp_list:='(((1 ic5 ic1 ic2 ic3 ic4) (cas1 (times (cg ic1 
ic2 ic5 3) (cg ic3 ic4 ic5 3))) (cas2 (times (cg ic3 ic2 ic5
3) (cg ic4 ic1 ic5 3))) ((plus cas1 cas2) (times (cg ic2 ic4
ic5 3) (cg ic1 ic3 ic5 3)))));
 $
end;
 $
