add_fortran_list:='(af1);
 $
vpdlist:='((11 -1));
 $
funclist:='(v_ckm cg tp dmas);
 $
fermionprog:='(sf)
 $
bosonprog:='(s11 s1 s0)
 $
propagatorl:='(sf3 sf7 sf5 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 pr3 w z p) (s0 pr1 gsg h0) (sf pr2 
pr6 pr8 pr9 pr11 pr17 qt qc qu tau mu ef qb qs qd nut numu 
nue) (sf5 pr10 pr13 pr16) (sf7 pr15) (sf3 pr4 pr5 pr7 pr12 
pr14))
 $
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 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:='(((197 l r2 vb va v vc) 0 (1 (plus (minus
(times (g l a vc) (cons r2 v) (cons r2 va) (cons r2 vb) f156
)) (minus (times (g l a) (cons r2 v) (cons r2 va) (cons r2 
vb) (cons r2 vc) f154)) (minus (times (g l a) (cons r2 v) (
cons r2 va) (cons vb vc) f155)))) nil nil) ((196 l r2 vb va
v vc) 0 (1 (plus (times (g l a vc) (cons r2 v) (cons r2 va)
(cons r2 vb) f156) (times (g l a) (cons r2 v) (cons r2 va) (
cons r2 vb) (cons r2 vc) f154) (times (g l a) (cons r2 v) (
cons r2 va) (cons vb vc) f155))) nil nil) ((195 l r3 r2 vc 
vb va v) 0 (1 (plus (minus (times (g l a) (cons r2 v) (cons
r2 va) (cons r2 vb) (cons r3 vc) f152)) (minus (times (g l a
) (cons r2 v) (cons r2 va) (cons vb vc) f153)))) nil nil) ((
194 l r3 r2 vc vb va v) 0 (1 (plus (times (g l a) (cons r2 v
) (cons r2 va) (cons r2 vb) (cons r3 vc) f152) (times (g l a
) (cons r2 v) (cons r2 va) (cons vb vc) f153))) nil nil) ((
193 l r3 r2 vc vb va v) 0 (1 (plus (minus (times (g l a) (
cons r2 v) (cons r2 va) (cons r2 vb) (cons r3 vc) f150)) (
minus (times (g l a) (cons r2 v) (cons r2 va) (cons vb vc) 
f151)))) nil nil) ((192 l r3 r2 vc vb va v) 0 (1 (plus (
times (g l a) (cons r2 v) (cons r2 va) (cons r2 vb) (cons r3
vc) f150) (times (g l a) (cons r2 v) (cons r2 va) (cons vb 
vc) f151))) nil nil) ((191 l r3 r2 vc vb va v) 0 (i (plus (
minus (times (cons r2 v) (cons r2 va) (cons r2 vb) (cons r3
vc) f148)) (minus (times (cons r2 v) (cons r2 va) (cons vb 
vc) f149)))) nil nil) ((190 l r3 r2 vc vb va v) 0 (i (plus (
times (cons r2 v) (cons r2 va) (cons r2 vb) (cons r3 vc) 
f148) (times (cons r2 v) (cons r2 va) (cons vb vc) f149))) 
nil nil) ((189 l r3 r2 va vb v) 0 (1 (plus (times (cons r2 v
) (cons r2 vb) (cons r3 va) f142) (times (cons r2 v) (cons 
va vb) f143) (times (cons r2 v) (cons va vb) f145) (times (
cons r2 vb) (cons v va) f144) (times (cons r3 va) (cons v vb
) f143) (times (cons r3 va) (cons v vb) f145) (times (g l vb
) (cons r2 v) (cons r3 va) f146) (times (g l vb) (cons v va)
f147))) nil nil) ((188 l r3 r2 va vb v) 0 (1 (plus (minus (
times (cons r2 v) (cons r2 vb) (cons r3 va) f136)) (minus (
times (cons r2 v) (cons va vb) f137)) (minus (times (cons r2
vb) (cons v va) f138)) (minus (times (cons r3 va) (cons v vb
) f139)) (times (g l vb) (cons r2 v) (cons r3 va) f140) (
times (g l vb) (cons v va) f141))) nil nil) ((187 l r3 r2 va
vb v) 0 (1 (plus (times (cons r2 v) (cons r2 vb) (cons r3 va
) f136) (times (cons r2 v) (cons va vb) f137) (times (cons 
r2 vb) (cons v va) f138) (times (cons r3 va) (cons v vb) 
f139) (times (g l vb) (cons r2 v) (cons r3 va) f140) (times
(g l vb) (cons v va) f141))) nil nil) ((186 l r3 r2 va v vb)
0 (i (plus (minus (times (g l a vb) (cons r2 v) (cons r3 va)
f134)) (minus (times (g l a vb) (cons v va) f135)) (minus (
times (g l a) (cons r2 v) (cons r2 vb) (cons r3 va) f130)) (
minus (times (g l a) (cons r2 v) (cons va vb) f131)) (minus
(times (g l a) (cons r2 vb) (cons v va) f132)) (minus (times
(g l a) (cons r3 va) (cons v vb) f133)))) nil nil) ((185 l 
r3 r2 va v vb) 0 (i (plus (times (g l a vb) (cons r2 v) (
cons r3 va) f134) (times (g l a vb) (cons v va) f135) (times
(g l a) (cons r2 v) (cons r2 vb) (cons r3 va) f130) (times (
g l a) (cons r2 v) (cons va vb) f131) (times (g l a) (cons 
r2 vb) (cons v va) f132) (times (g l a) (cons r3 va) (cons v
vb) f133))) nil nil) ((184 l r2 vb va v) 0 (1 (plus (minus (
times (cons r2 v) (cons r2 va) (cons r2 vb) f127)) (minus (
times (cons r2 v) (cons va vb) f128)) (times (g l vb) (cons
r2 v) (cons r2 va) f129))) nil nil) ((183 l r2 vb va v) 0 (1
(plus (times (cons r2 v) (cons r2 va) (cons r2 vb) f127) (
times (cons r2 v) (cons va vb) f128) (times (g l vb) (cons 
r2 v) (cons r2 va) f129))) nil nil) ((182 l r2 va v vb) 0 (i
(plus (minus (times (g l a vb) (cons r2 v) (cons r2 va) f126
)) (minus (times (g l a) (cons r2 v) (cons r2 va) (cons r2 
vb) f124)) (minus (times (g l a) (cons r2 v) (cons va vb) 
f125)))) nil nil) ((181 l r2 va v vb) 0 (i (plus (times (g l
a vb) (cons r2 v) (cons r2 va) f126) (times (g l a) (cons r2
v) (cons r2 va) (cons r2 vb) f124) (times (g l a) (cons r2 v
) (cons va vb) f125))) nil nil) ((180 l r2 vb va v) 0 (1 (
plus (minus (times (cons r2 v) (cons r2 va) (cons r2 vb) 
f121)) (minus (times (cons r2 v) (cons va vb) f122)) (times
(g l vb) (cons r2 v) (cons r2 va) f123))) nil nil) ((179 l 
r2 vb va v) 0 (1 (plus (times (cons r2 v) (cons r2 va) (cons
r2 vb) f121) (times (cons r2 v) (cons va vb) f122) (times (g
l vb) (cons r2 v) (cons r2 va) f123))) nil nil) ((178 l r3 
r2 vb va v) 0 (1 (plus (minus (times (cons r2 v) (cons r2 va
) (cons r3 vb) f119)) (minus (times (cons r2 v) (cons va vb)
f120)))) nil nil) ((177 l r3 r2 vb va v) 0 (1 (plus (times (
cons r2 v) (cons r2 va) (cons r3 vb) f119) (times (cons r2 v
) (cons va vb) f120))) nil nil) ((176 l r3 r2 vb va v) 0 (1
(plus (minus (times (cons r2 v) (cons r2 va) (cons r3 vb) 
f117)) (minus (times (cons r2 v) (cons va vb) f118)))) nil 
nil) ((175 l r3 r2 vb va v) 0 (1 (plus (times (cons r2 v) (
cons r2 va) (cons r3 vb) f117) (times (cons r2 v) (cons va 
vb) f118))) nil nil) ((174 l r3 r2 vb va v) 0 (i (plus (
minus (times (g l a) (cons r2 v) (cons r2 va) (cons r3 vb) 
f115)) (minus (times (g l a) (cons r2 v) (cons va vb) f116))
)) nil nil) ((173 l r3 r2 vb va v) 0 (i (plus (times (g l a)
(cons r2 v) (cons r2 va) (cons r3 vb) f115) (times (g l a) (
cons r2 v) (cons va vb) f116))) nil nil) ((172 l r3 r2 vb va
v) 0 (i (plus (minus (times (g l a) (cons r2 v) (cons r2 va)
(cons r3 vb) f113)) (minus (times (g l a) (cons r2 v) (cons
va vb) f114)))) nil nil) ((171 l r3 r2 vb va v) 0 (i (plus (
times (g l a) (cons r2 v) (cons r2 va) (cons r3 vb) f113) (
times (g l a) (cons r2 v) (cons va vb) f114))) nil nil) ((
170 l r3 r2 vb va v) 0 (i (plus (minus (times (g l a) (cons
r2 v) (cons r2 va) (cons r3 vb) f111)) (minus (times (g l a)
(cons r2 v) (cons va vb) f112)))) nil nil) ((169 l r3 r2 vb
va v) 0 (i (plus (times (g l a) (cons r2 v) (cons r2 va) (
cons r3 vb) f111) (times (g l a) (cons r2 v) (cons va vb) 
f112))) nil nil) ((168 l r3 r2 vb va v) 0 (1 (plus (minus (
times (cons r2 v) (cons r2 va) (cons r3 vb) f109)) (minus (
times (cons r2 v) (cons va vb) f110)))) nil nil) ((167 l r3
r2 vb va v) 0 (1 (plus (times (cons r2 v) (cons r2 va) (cons
r3 vb) f109) (times (cons r2 v) (cons va vb) f110))) nil nil
) ((166 l r3 r2 vb va v) 0 (1 (plus (minus (times (cons r2 v
) (cons r2 va) (cons r3 vb) f107)) (minus (times (cons r2 v)
(cons va vb) f108)))) nil nil) ((165 l r3 r2 vb va v) 0 (1 (
plus (times (cons r2 v) (cons r2 va) (cons r3 vb) f107) (
times (cons r2 v) (cons va vb) f108))) nil nil) ((164 l r3 
r2 vb va v) 0 (1 (plus (minus (times (cons r2 v) (cons r2 va
) (cons r3 vb) f105)) (minus (times (cons r2 v) (cons va vb)
f106)))) nil nil) ((163 l r3 r2 vb va v) 0 (1 (plus (times (
cons r2 v) (cons r2 va) (cons r3 vb) f105) (times (cons r2 v
) (cons va vb) f106))) nil nil) ((162 l r3 r2 vb va v) 0 (i
(plus (minus (times (g l a) (cons r2 v) (cons r2 va) (cons 
r3 vb) f103)) (minus (times (g l a) (cons r2 v) (cons va vb)
f104)))) nil nil) ((161 l r3 r2 vb va v) 0 (i (plus (times (
g l a) (cons r2 v) (cons r2 va) (cons r3 vb) f103) (times (g
l a) (cons r2 v) (cons va vb) f104))) nil nil) ((160 l r2 vb
va v) 0 (f102 (minus (times (cons r2 v) (cons r2 va) (cons 
r2 vb)))) nil nil) ((159 l r2 vb va v) 0 (f102 (times (cons
r2 v) (cons r2 va) (cons r2 vb))) nil nil) ((158 l r2 vb va
v) 0 ((times f101 i) (minus (times (g l a) (cons r2 v) (cons
r2 va) (cons r2 vb)))) nil nil) ((157 l r2 vb va v) 0 ((
times f101 i) (times (g l a) (cons r2 v) (cons r2 va) (cons
r2 vb))) nil nil) ((156 l r2 vb va v) 0 (f100 (minus (times
(cons r2 v) (cons r2 va) (cons r2 vb)))) nil nil) ((155 l r2
vb va v) 0 (f100 (times (cons r2 v) (cons r2 va) (cons r2 vb
))) nil nil) ((154 l r2 vb va v) 0 ((times f99 i) (minus (
times (g l a) (cons r2 v) (cons r2 va) (cons r2 vb)))) nil 
nil) ((153 l r2 vb va v) 0 ((times f99 i) (times (g l a) (
cons r2 v) (cons r2 va) (cons r2 vb))) nil nil) ((152 l r2 v
va) 0 (1 (plus (minus (times (g l a va) (cons r2 v) f98)) (
minus (times (g l a) (cons r2 v) (cons r2 va) f96)) (minus (
times (g l a) (cons v va) f97)))) nil nil) ((151 l r2 v va)
0 (1 (plus (times (g l a va) (cons r2 v) f98) (times (g l a)
(cons r2 v) (cons r2 va) f96) (times (g l a) (cons v va) f97
))) nil nil) ((150 l r2 va v) 0 (i (plus (minus (times (cons
r2 v) (cons r2 va) f93)) (minus (times (cons v va) f94)) (
times (g l va) (cons r2 v) f95))) nil nil) ((149 l r2 va v)
0 (i (plus (times (cons r2 v) (cons r2 va) f93) (times (cons
v va) f94) (times (g l va) (cons r2 v) f95))) nil nil) ((148
l r2 v va) 0 (1 (plus (minus (times (g l a va) (cons r2 v) 
f92)) (minus (times (g l a) (cons r2 v) (cons r2 va) f90)) (
minus (times (g l a) (cons v va) f91)))) nil nil) ((147 l r2
v va) 0 (1 (plus (times (g l a va) (cons r2 v) f92) (times (
g l a) (cons r2 v) (cons r2 va) f90) (times (g l a) (cons v
va) f91))) nil nil) ((146 l r2 v va) 0 (1 (plus (minus (
times (g l a va) (cons r2 v) f89)) (minus (times (g l a) (
cons r2 v) (cons r2 va) f87)) (minus (times (g l a) (cons v
va) f88)))) nil nil) ((145 l r2 v va) 0 (1 (plus (times (g l
a va) (cons r2 v) f89) (times (g l a) (cons r2 v) (cons r2 
va) f87) (times (g l a) (cons v va) f88))) nil nil) ((144 l
r2 va v) 0 (i (plus (minus (times (cons r2 v) (cons r2 va) 
f84)) (minus (times (cons v va) f85)) (times (g l va) (cons
r2 v) f86))) nil nil) ((143 l r2 va v) 0 (i (plus (times (
cons r2 v) (cons r2 va) f84) (times (cons v va) f85) (times
(g l va) (cons r2 v) f86))) nil nil) ((142 l r2 v va) 0 (1 (
plus (minus (times (g l a va) (cons r2 v) f83)) (minus (
times (g l a) (cons r2 v) (cons r2 va) f81)) (minus (times (
g l a) (cons v va) f82)))) nil nil) ((141 l r2 v va) 0 (1 (
plus (times (g l a va) (cons r2 v) f83) (times (g l a) (cons
r2 v) (cons r2 va) f81) (times (g l a) (cons v va) f82))) 
nil nil) ((140 l r2 va v) 0 (i (plus (minus (times (cons r2
v) (cons r2 va) f78)) (minus (times (cons v va) f79)) (times
(g l va) (cons r2 v) f80))) nil nil) ((139 l r2 va v) 0 (i (
plus (times (cons r2 v) (cons r2 va) f78) (times (cons v va)
f79) (times (g l va) (cons r2 v) f80))) nil nil) ((138 l r3
r2 va v) 0 (1 (plus (minus (times (g l a) (cons r2 v) (cons
r3 va) f76)) (minus (times (g l a) (cons v va) f77)))) nil 
nil) ((137 l r3 r2 va v) 0 (1 (plus (times (g l a) (cons r2
v) (cons r3 va) f76) (times (g l a) (cons v va) f77))) nil 
nil) ((136 l r3 r2 va v) 0 (i (plus (minus (times (cons r2 v
) (cons r3 va) f74)) (minus (times (cons v va) f75)))) nil 
nil) ((135 l r3 r2 va v) 0 (i (plus (times (cons r2 v) (cons
r3 va) f74) (times (cons v va) f75))) nil nil) ((134 l r3 r2
va v) 0 (1 (plus (minus (times (g l a) (cons r2 v) (cons r3
va) f72)) (minus (times (g l a) (cons v va) f73)))) nil nil)
((133 l r3 r2 va v) 0 (1 (plus (times (g l a) (cons r2 v) (
cons r3 va) f72) (times (g l a) (cons v va) f73))) nil nil)
((132 l r3 r2 va v) 0 (1 (plus (minus (times (g l a) (cons 
r2 v) (cons r3 va) f70)) (minus (times (g l a) (cons v va) 
f71)))) nil nil) ((131 l r3 r2 va v) 0 (1 (plus (times (g l
a) (cons r2 v) (cons r3 va) f70) (times (g l a) (cons v va)
f71))) nil nil) ((130 l r3 r2 va v) 0 (i (plus (minus (times
(cons r2 v) (cons r3 va) f68)) (minus (times (cons v va) f69
)))) nil nil) ((129 l r3 r2 va v) 0 (i (plus (times (cons r2
v) (cons r3 va) f68) (times (cons v va) f69))) nil nil) ((
128 l r3 r2 va v) 0 (i (plus (minus (times (cons r2 v) (cons
r3 va) f66)) (minus (times (cons v va) f67)))) nil nil) ((
127 l r3 r2 va v) 0 (i (plus (times (cons r2 v) (cons r3 va)
f66) (times (cons v va) f67))) nil nil) ((126 l r3 r2 va v)
0 (i (plus (minus (times (cons r2 v) (cons r3 va) f64)) (
minus (times (cons v va) f65)))) nil nil) ((125 l r3 r2 va v
) 0 (i (plus (times (cons r2 v) (cons r3 va) f64) (times (
cons v va) f65))) nil nil) ((124 l r3 r2 va v) 0 (1 (plus (
minus (times (g l a) (cons r2 v) (cons r3 va) f62)) (minus (
times (g l a) (cons v va) f63)))) nil nil) ((123 l r3 r2 va
v) 0 (1 (plus (times (g l a) (cons r2 v) (cons r3 va) f62) (
times (g l a) (cons v va) f63))) nil nil) ((122 l r2 va v) 0
(f61 (minus (times (g l a) (cons r2 v) (cons r2 va)))) nil 
nil) ((121 l r2 va v) 0 (f61 (times (g l a) (cons r2 v) (
cons r2 va))) nil nil) ((120 l r2 va v) 0 ((times f60 i) (
minus (times (cons r2 v) (cons r2 va)))) nil nil) ((119 l r2
va v) 0 ((times f60 i) (times (cons r2 v) (cons r2 va))) nil
nil) ((118 l r2 va v) 0 (f59 (minus (times (g l a) (cons r2
v) (cons r2 va)))) nil nil) ((117 l r2 va v) 0 (f59 (times (
g l a) (cons r2 v) (cons r2 va))) nil nil) ((116 l r2 va v)
0 ((times f58 i) (minus (times (cons r2 v) (cons r2 va)))) 
nil nil) ((115 l r2 va v) 0 ((times f58 i) (times (cons r2 v
) (cons r2 va))) nil nil) ((114 l r2 va v) 0 ((times f57 i)
(minus (times (cons r2 v) (cons r2 va)))) nil nil) ((113 l 
r2 va v) 0 ((times f57 i) (times (cons r2 v) (cons r2 va)))
nil nil) ((112 l r2 va v) 0 (f56 (minus (times (g l a) (cons
r2 v) (cons r2 va)))) nil nil) ((111 l r2 va v) 0 (f56 (
times (g l a) (cons r2 v) (cons r2 va))) nil nil) ((110 l r2
va v) 0 ((times f55 i) (minus (times (cons r2 v) (cons r2 va
)))) nil nil) ((109 l r2 va v) 0 ((times f55 i) (times (cons
r2 v) (cons r2 va))) nil nil) ((108 l r2 va v) 0 (f54 (minus
(times (g l a) (cons r2 v) (cons r2 va)))) nil nil) ((107 l
r2 va v) 0 (f54 (times (g l a) (cons r2 v) (cons r2 va))) 
nil nil) ((106 l r2 va v) 0 (f53 (minus (times (g l a) (cons
r2 v) (cons r2 va)))) nil nil) ((105 l r2 va v) 0 (f53 (
times (g l a) (cons r2 v) (cons r2 va))) nil nil) ((104 l r2
va v) 0 ((times f52 i) (minus (times (cons r2 v) (cons r2 va
)))) nil nil) ((103 l r2 va v) 0 ((times f52 i) (times (cons
r2 v) (cons r2 va))) nil nil) ((102 l r2 va v) 0 (f51 (minus
(times (g l a) (cons r2 v) (cons r2 va)))) nil nil) ((101 l
r2 va v) 0 (f51 (times (g l a) (cons r2 v) (cons r2 va))) 
nil nil) ((100 l r2 va v) 0 ((times f50 i) (minus (times (
cons r2 v) (cons r2 va)))) nil nil) ((99 l r2 va v) 0 ((
times f50 i) (times (cons r2 v) (cons r2 va))) nil nil) ((98
l r3 v) 0 (1 (plus (minus (times (g l r3 v) f49)) (times (g
l v r3) f49) (times (g l v) f48))) nil nil) ((97 l r3 v) 0 (
i (plus (times (g l a r3 v) f47) (minus (times (g l a v r3)
f47)) (minus (times (g l a v) f46)))) nil nil) ((96 l r3 v)
0 (i (plus (times (g l a r3 v) f47) (minus (times (g l a v 
r3) f47)) (times (g l a v) f46))) nil nil) ((95 l r3 v) 0 (1
(plus (minus (times (g l r3 v) f45)) (times (g l v r3) f45)
(times (g l v) f44))) nil nil) ((94 l r3 v) 0 (1 (plus (
minus (times (g l r3 v) f45)) (times (g l v r3) f45) (times
(g l v) f44))) nil nil) ((93 l r3 v) 0 (i (plus (times (g l
a r3 v) f43) (minus (times (g l a v r3) f43)) (minus (times
(g l a v) f42)))) nil nil) ((92 l r3 v) 0 (i (plus (times (g
l a r3 v) f43) (minus (times (g l a v r3) f43)) (times (g l
a v) f42))) nil nil) ((91 l r3 v) 0 (1 (plus (minus (times (
g l r3 v) f41)) (times (g l v r3) f41) (times (g l v) f40)))
nil nil) ((90 l r3 v) 0 (1 (plus (minus (times (g l r3 v) 
f41)) (times (g l v r3) f41) (times (g l v) f40))) nil nil)
((89 l r3 v) 0 (i (plus (times (g l a r3 v) f39) (minus (
times (g l a v r3) f39)) (minus (times (g l a v) f38)))) nil
nil) ((88 l r3 v) 0 (i (plus (times (g l a r3 v) f39) (minus
(times (g l a v r3) f39)) (times (g l a v) f38))) nil nil) (
(87 l r2 v) 0 (f37 (minus (cons r2 v))) nil nil) ((86 l r2 v
) 0 (f37 (cons r2 v)) nil nil) ((85 l r2 v) 0 ((times f36 i)
(minus (times (g l a) (cons r2 v)))) nil nil) ((84 l r2 v) 0
((times f36 i) (times (g l a) (cons r2 v))) nil nil) ((83 l
r2 v) 0 (f35 (minus (cons r2 v))) nil nil) ((82 l r2 v) 0 (
f35 (cons r2 v)) nil nil) ((81 l r2 v) 0 ((times f34 i) (
minus (times (g l a) (cons r2 v)))) nil nil) ((80 l r2 v) 0
((times f34 i) (times (g l a) (cons r2 v))) nil nil) ((79 l
r2 v) 0 (f33 (minus (cons r2 v))) nil nil) ((78 l r2 v) 0 (
f33 (cons r2 v)) nil nil) ((77 l r2 v) 0 ((times f32 i) (
minus (times (g l a) (cons r2 v)))) nil nil) ((76 l r2 v) 0
((times f32 i) (times (g l a) (cons r2 v))) nil nil) ((75 l
r2 v) 0 (f31 (minus (cons r2 v))) nil nil) ((74 l r2 v) 0 (
f31 (cons r2 v)) nil nil) ((73 l r2 v) 0 (f30 (minus (cons 
r2 v))) nil nil) ((72 l r2 v) 0 (f30 (cons r2 v)) nil nil) (
(71 l r2 v) 0 ((times f29 i) (minus (times (g l a) (cons r2
v)))) nil nil) ((70 l r2 v) 0 ((times f29 i) (times (g l a)
(cons r2 v))) nil nil) ((69 l r2 v) 0 (f28 (minus (cons r2 v
))) nil nil) ((68 l r2 v) 0 (f28 (cons r2 v)) nil nil) ((67
l r2 v) 0 ((times f27 i) (minus (times (g l a) (cons r2 v)))
) nil nil) ((66 l r2 v) 0 ((times f27 i) (times (g l a) (
cons r2 v))) nil nil) ((65 l r2 v) 0 ((times f26 i) (minus (
times (g l a) (cons r2 v)))) nil nil) ((64 l r2 v) 0 ((times
f26 i) (times (g l a) (cons r2 v))) nil nil) ((63 l r2 v) 0
(f25 (minus (cons r2 v))) nil nil) ((62 l r2 v) 0 (f25 (cons
r2 v)) nil nil) ((61 l r2 v) 0 ((times f24 i) (minus (times
(g l a) (cons r2 v)))) nil nil) ((60 l r2 v) 0 ((times f24 i
) (times (g l a) (cons r2 v))) nil nil) ((59 l r2 v) 0 (f23
(minus (cons r2 v))) nil nil) ((58 l r2 v) 0 (f23 (cons r2 v
)) nil nil) ((57 l r2 v) 0 (f22 (minus (cons r2 v))) nil nil
) ((56 l r2 v) 0 (f22 (cons r2 v)) nil nil) ((55 l r2 v) 0 (
(times f21 i) (minus (times (g l a) (cons r2 v)))) nil nil)
((54 l r2 v) 0 ((times f21 i) (times (g l a) (cons r2 v))) 
nil nil) ((53 l r2 v) 0 (f20 (minus (cons r2 v))) nil nil) (
(52 l r2 v) 0 (f20 (cons r2 v)) nil nil) ((51 l r2 v) 0 ((
times f19 i) (minus (times (g l a) (cons r2 v)))) nil nil) (
(50 l r2 v) 0 ((times f19 i) (times (g l a) (cons r2 v))) 
nil nil) ((49 l r2 v) 0 ((times f18 i) (minus (times (g l a)
(cons r2 v)))) nil nil) ((48 l r2 v) 0 ((times f18 i) (times
(g l a) (cons r2 v))) nil nil) ((47 l r2 v) 0 (f17 (minus (
cons r2 v))) nil nil) ((46 l r2 v) 0 (f17 (cons r2 v)) nil 
nil) ((45 l r2 v) 0 ((times f16 i) (minus (times (g l a) (
cons r2 v)))) nil nil) ((44 l r2 v) 0 ((times f16 i) (times
(g l a) (cons r2 v))) nil nil) ((43 l r2 v) 0 (f15 (minus (
cons r2 v))) nil nil) ((42 l r2 v) 0 (f15 (cons r2 v)) nil 
nil) ((41 l) 0 ((times f14 i) -1) nil nil) ((40 l) 0 ((times
f14 i) 1) nil nil) ((39 l) 0 (f13 (minus (g l a))) nil nil)
((38 l) 0 (f13 (g l a)) nil nil) ((37 l) 0 ((times f12 i) -1
) nil nil) ((36 l) 0 ((times f12 i) 1) nil nil) ((35 l) 0 (
f11 (minus (g l a))) nil nil) ((34 l) 0 (f11 (g l a)) nil 
nil) ((33 l) 0 ((times f10 i) -1) nil nil) ((32 l) 0 ((times
f10 i) 1) nil nil) ((31 l) 0 (f9 (minus (g l a))) nil nil) (
(30 l) 0 (f9 (g l a)) nil nil) ((29 l) 0 ((times f8 i) -1) 
nil nil) ((28 l) 0 ((times f8 i) 1) nil nil) ((27 l) 0 (f7 (
minus (g l a))) nil nil) ((26 l) 0 (f7 (g l a)) nil nil) ((
25 l) 0 ((times f6 i) -1) nil nil) ((24 l) 0 ((times f6 i) 1
) nil nil) ((23 l) 0 (f5 (minus (g l a))) nil nil) ((22 l) 0
(f5 (g l a)) nil nil) ((21 l) 0 ((times f4 i) -1) nil nil) (
(20 l) 0 ((times f4 i) 1) nil nil) ((19 l) 0 (f3 (minus (g l
a))) nil nil) ((18 l) 0 (f3 (g l a)) nil nil) ((17 l) 0 ((
times f2 i) -1) nil nil) ((16 l) 0 ((times f2 i) 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))) ((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;
 $