coupling_comment:='( (g3 " strong interaction ")  (g "

weak interaction ") )
 $
delta_qnumber_list:='nil
 $
pa_decay_list:='((pr3 (19 (pr1 pr1) 2) (15 (ef ef) 2)) (pr17
(41 (pr2 pr1) 2) (40 (pr2 pr1) 1)) (pr18 (32 (pr2 pr1) 2) (
31 (pr2 pr1) 1)) (pr4 (63 (pr2 pr2) 2) (23 (pr1 pr1) 2)) (
pr5 (62 (pr2 pr2) 2) (22 (pr1 pr1) 2)) (pr10 (75 (pr2 pr3) 2
) (74 (pr2 pr3) 1)) (pr11 (71 (pr2 pr3) 2) (70 (pr2 pr3) 1))
(pr15 (67 (pr2 pr3) 2) (66 (pr2 pr3) 1)) (pr6 (61 (pr2 pr2)
2) (21 (pr1 pr1) 2)) (pr7 (33 (pr2 pr2) 2) (17 (pr1 pr1) 2))
(pr8 (76 (pr2 pr2) 2) (27 (pr1 pr1) 2)) (pr12 (60 (pr2 pr3)
2) (59 (pr2 pr3) 1) (56 (pr17 pr1) 1) (55 (pr17 pr1) 2)) (
pr13 (53 (pr2 pr3) 2) (52 (pr2 pr3) 1) (39 (pr17 pr1) 1) (38
(pr17 pr1) 2)) (pr14 (49 (pr2 pr3) 2) (48 (pr2 pr3) 1) (37 (
pr17 pr1) 1) (36 (pr17 pr1) 2)) (pr16 (45 (pr2 pr3) 2) (44 (
pr2 pr3) 1) (35 (pr17 pr1) 1) (34 (pr17 pr1) 2) (30 (pr18 
pr1) 1) (29 (pr18 pr1) 2)) (pr9 (73 (pr10 pr2) 2) (72 (pr10
pr2) 2) (69 (pr11 pr2) 2) (68 (pr11 pr2) 2) (65 (pr15 pr2) 2
) (64 (pr15 pr2) 2) (58 (pr12 pr2) 2) (57 (pr12 pr2) 2) (54
(pr2 pr2) 2) (51 (pr13 pr2) 2) (50 (pr13 pr2) 2) (47 (pr14 
pr2) 2) (46 (pr14 pr2) 2) (43 (pr16 pr2) 2) (42 (pr16 pr2) 2
) (28 (pr8 pr3) 2) (26 (pr4 pr3) 2) (25 (pr5 pr3) 2) (24 (
pr6 pr3) 2) (20 (pr3 pr7) 2) (18 (pr1 pr1) 2) (16 (ef ef) 2)
))
 $
two_pa_vertex_list:='nil
 $
stable_pal0:='(p nut numu nue ef qu qd qs mu pr1 pr2 qc pr3
pr17 pr18 tau pr4 pr5 pr10 pr11 pr15 pr6 pr7 pr8 pr12 pr13 
pr14 pr16 pr9 qb w qt)
 $
mass_order_list:='(h0 qt z w qb pr9 pr16 pr14 pr13 pr12 pr8
pr7 pr6 pr15 pr11 pr10 pr5 pr4 tau pr18 pr17 pr3 qc pr2 pr1
mu qs qd qu ef nue numu nut gsg p gs)
 $
pal_order_list:='(pr2 pr9 pr1 pr3 pr17 w pr16 h0 pr14 pr13 
pr12 pr18 pr15 pr11 pr10 pa1 z pr7 pr6 pr5 pr4 pr8 ef pa5 
pa4 p pa2 pa3)
 $
v_pal_list:='((15 (pr3 -1 1) (ef 1 1)) (16 (pr9 -1 1) (ef 1
1)) (14 (h0 -1 3)) (13 (h0 -1 4)) (12 (pa2 1 1) (h0 -1 1)) (
11 (w 1 1) (pa1 -1 1)) (10 (pa5 1 0) (pa4 0 1) (w 0 1)) (9 (
pa4 1 0) (pa5 0 1) (w 1 0)) (8 (pa3 1 1) (pa1 -1 1)) (7 (w 2
2)) (6 (w 1 1) (p -1 1) (z -1 1)) (5 (w 1 1) (pa1 -1 2)) (4
(w 1 1) (h0 -1 1)) (3 (z -1 2) (h0 -1 1)) (2 (w 1 1) (h0 -1
2)) (1 (z -1 2) (h0 -1 2)) (17 (pr7 -1 1) (pr1 1 1)) (18 (
pr9 -1 1) (pr1 1 1)) (19 (pr3 -1 1) (pr1 1 1)) (20 (pr9 -1 1
) (pr3 -1 1) (pr7 -1 1)) (21 (pr6 -1 1) (pr1 1 1)) (22 (pr5
-1 1) (pr1 1 1)) (23 (pr4 -1 1) (pr1 1 1)) (24 (pr6 -1 1) (
pr9 -1 1) (pr3 -1 1)) (25 (pr5 -1 1) (pr9 -1 1) (pr3 -1 1))
(26 (pr4 -1 1) (pr9 -1 1) (pr3 -1 1)) (27 (pr8 -1 1) (pr1 1
1)) (28 (pr8 -1 1) (pr9 -1 1) (pr3 -1 1)) (29 (pr18 1 0) (
pr16 0 1) (pr1 0 1)) (30 (pr1 1 0) (pr16 1 0) (pr18 0 1)) (
31 (pr18 1 0) (pr2 0 1) (pr1 0 1)) (32 (pr1 1 0) (pr2 1 0) (
pr18 0 1)) (33 (pr2 1 1) (pr7 -1 1)) (34 (pr17 1 0) (pr16 0
1) (pr1 0 1)) (35 (pr1 1 0) (pr16 1 0) (pr17 0 1)) (36 (pr17
1 0) (pr14 0 1) (pr1 0 1)) (37 (pr1 1 0) (pr14 1 0) (pr17 0
1)) (38 (pr17 1 0) (pr13 0 1) (pr1 0 1)) (39 (pr1 1 0) (pr13
1 0) (pr17 0 1)) (40 (pr17 1 0) (pr2 0 1) (pr1 0 1)) (41 (
pr1 1 0) (pr2 1 0) (pr17 0 1)) (42 (pr16 1 0) (pr2 0 1) (pr9
-1 1)) (43 (pr9 -1 1) (pr2 1 0) (pr16 0 1)) (44 (pr16 1 0) (
pr2 0 1) (pr3 -1 1)) (45 (pr3 -1 1) (pr2 1 0) (pr16 0 1)) (
46 (pr14 1 0) (pr2 0 1) (pr9 -1 1)) (47 (pr9 -1 1) (pr2 1 0)
(pr14 0 1)) (48 (pr14 1 0) (pr2 0 1) (pr3 -1 1)) (49 (pr3 -1
1) (pr2 1 0) (pr14 0 1)) (50 (pr13 1 0) (pr2 0 1) (pr9 -1 1)
) (51 (pr9 -1 1) (pr2 1 0) (pr13 0 1)) (52 (pr13 1 0) (pr2 0
1) (pr3 -1 1)) (53 (pr3 -1 1) (pr2 1 0) (pr13 0 1)) (54 (pr2
1 1) (pr9 -1 1)) (55 (pr17 1 0) (pr12 0 1) (pr1 0 1)) (56 (
pr1 1 0) (pr12 1 0) (pr17 0 1)) (57 (pr12 1 0) (pr2 0 1) (
pr9 -1 1)) (58 (pr9 -1 1) (pr2 1 0) (pr12 0 1)) (59 (pr12 1
0) (pr2 0 1) (pr3 -1 1)) (60 (pr3 -1 1) (pr2 1 0) (pr12 0 1)
) (61 (pr2 1 1) (pr6 -1 1)) (62 (pr2 1 1) (pr5 -1 1)) (63 (
pr2 1 1) (pr4 -1 1)) (64 (pr15 1 0) (pr2 0 1) (pr9 -1 1)) (
65 (pr9 -1 1) (pr2 1 0) (pr15 0 1)) (66 (pr15 1 0) (pr2 0 1)
(pr3 -1 1)) (67 (pr3 -1 1) (pr2 1 0) (pr15 0 1)) (68 (pr11 1
0) (pr2 0 1) (pr9 -1 1)) (69 (pr9 -1 1) (pr2 1 0) (pr11 0 1)
) (70 (pr11 1 0) (pr2 0 1) (pr3 -1 1)) (71 (pr3 -1 1) (pr2 1
0) (pr11 0 1)) (72 (pr10 1 0) (pr2 0 1) (pr9 -1 1)) (73 (pr9
-1 1) (pr2 1 0) (pr10 0 1)) (74 (pr10 1 0) (pr2 0 1) (pr3 -1
1)) (75 (pr3 -1 1) (pr2 1 0) (pr10 0 1)) (76 (pr2 1 1) (pr8
-1 1)))
 $
pa_rv_list:='((pr2 (g (1 31 32 33 40 41 42 43 44 45 46 47 48
49 50 51 52 53 54 57 58 59 60 61 62 63 64 65 66 67 68 69 70
71 72 73 74 75 76))) (pr8 (g (1 27 28 76))) (pr3 (g (1 15 19
20 24 25 26 28 44 45 48 49 52 53 59 60 66 67 70 71 74 75)))
(pr10 (g (1 72 73 74 75))) (pr9 (g (1 16 18 20 24 25 26 28 
42 43 46 47 50 51 54 57 58 64 65 68 69 72 73))) (pr11 (g (1
68 69 70 71))) (pr15 (g (1 64 65 66 67))) (pr4 (g (1 23 26 
63))) (pr5 (g (1 22 25 62))) (pr6 (g (1 21 24 61))) (pr12 (g
(1 55 56 57 58 59 60))) (pr1 (g (1 17 18 19 21 22 23 27 29 
30 31 32 34 35 36 37 38 39 40 41 55 56))) (pr17 (g (1 34 35
36 37 38 39 40 41 55 56))) (pr13 (g (1 38 39 50 51 52 53)))
(pr14 (g (1 36 37 46 47 48 49))) (pr16 (g (1 29 30 34 35 42
43 44 45))) (pr7 (g (1 17 20 33))) (pr18 (g (1 29 30 31 32))
) (z (g (2 6 1) (1 3))) (h0 (g (2 13 2 1) (1 14 12 4 3))) (w
(g (2 7 6 5 2) (1 11 10 9 4))) (pa3 (g (1 8))) (pa1 (g (2 5)
(1 11 8))) (pa4 (g (1 10 9))) (pa5 (g (1 10 9))) (pa2 (g (1
12))) (ef (g (1 15 16))) (p (g (2 6))))
 $
cvpd_list:='((15 0) (16 0) (14 0) (13 0) (11 1) (7 0) (6 0)
(5 0) (4 0) (3 0) (2 0) (1 0) (17 0) (18 1) (19 1) (20 0) (
21 2) (22 2) (23 2) (24 0) (25 0) (26 0) (27 4) (28 2) (29 0
) (30 0) (31 0) (32 0) (33 0) (34 1) (35 1) (36 1) (37 1) (
38 1) (39 1) (40 1) (41 1) (42 0) (43 0) (44 0) (45 0) (46 0
) (47 0) (48 0) (49 0) (50 0) (51 0) (52 0) (53 0) (54 0) (
55 0) (56 0) (57 0) (58 0) (59 0) (60 0) (61 1) (62 1) (63 1
) (64 1) (65 1) (66 1) (67 1) (68 1) (69 1) (70 1) (71 1) (
72 2) (73 2) (74 2) (75 2) (76 3))
 $
gbsymmetrylist:='(strange baryon len lmuon ltau)
 $
fit_para_list:='((76 f86 f85) (75 f84 f83 f82) (74 f84 f83 
f82) (73 f81 f80 f79) (72 f81 f80 f79) (71 f78 f77 f76) (70
f78 f77 f76) (69 f75 f74 f73) (68 f75 f74 f73) (67 f72 f71 
f70) (66 f72 f71 f70) (65 f69 f68 f67) (64 f69 f68 f67) (63
f66 f65) (62 f64 f63) (61 f62 f61) (60 f60 f59 f58) (59 f60
f59 f58) (58 f57 f56 f55) (57 f57 f56 f55) (56 f54 f53) (55
f54 f53) (54 f52 f51) (53 f50 f49) (52 f50 f49) (51 f48 f47)
(50 f48 f47) (49 f46 f45) (48 f46 f45) (47 f44 f43) (46 f44
f43) (45 f42 f41) (44 f42 f41) (43 f40 f39) (42 f40 f39) (41
f38) (40 f38) (39 f37) (38 f37) (37 f36) (36 f36) (35 f35) (
34 f35) (33 f34) (32 f33) (31 f33) (30 f32) (29 f32) (28 f31
f30 f29 f28 f27) (27 f26) (26 f25 f24 f23 f22 f21) (25 f20 
f19 f18 f17 f16) (24 f15 f14 f13 f12 f11) (23 f10) (22 f9) (
21 f8) (20 f7 f6) (19 f5) (18 f4) (17 f3) (16 f2) (15 f1))
 $
palist:='(pr1 pr2 pr3 pr4 pr5 pr6 pr7 pr8 pr9 pr10 pr11 pr12
pr13 pr14 pr15 pr16 pr17 pr18 gs w z p gsg h0 qb qs qd qt qc
qu tau mu ef nut numu nue)
 $
give_up_compact:='nil
 $
any_type_list:='((any_ext pr2 pr1) (any_nf pr1 pr2 pr3 pr4 
pr5 pr6 pr7 pr8 pr9 pr10 pr11 pr12 pr13 pr14 pr15 pr16 pr17
pr18 gs w z p h0) (any pr1 pr2 pr3 pr4 pr5 pr6 pr7 pr8 pr9 
pr10 pr11 pr12 pr13 pr14 pr15 pr16 pr17 pr18 gs w z p h0 qb
qs qd qt qc qu tau mu ef nut numu nue) (any_f qb qs qd qt qc
qu tau mu ef nut numu nue pr2) (any_l nue numu nut ef mu tau
) (any_q qu qc qt qd qs qb) (any_b h0 gs w z p) (any_b1 gs w
z p) (any_b0 h0))
 $
effective_numbers:='nil
 $
bound_particle_list:='nil
 $
bound_state_vertex_list:='nil
 $
charge_op_sign_list:='((54 -1) (49 -1) (48 -1) (47 -1) (46 
-1) (33 1) (32 1) (31 1) (30 1) (29 1) (12 1) (12 1) (16 -1)
(15 -1))
 $
color_vertices:='nil
 $
fcolor_vertices:='nil
 $
bound_pv_list:='nil
 $
fermionprog:='(sf)
 $
bosonprog:='(s11 s1 s0)
 $
propagatorl:='(s2 s4 sf7 sf5 sf3 s11 s1 s0 sf)
 $
splist:='((s11 gs) (s1 pr3 pr9 w z p) (s0 pr1 pr7 gsg h0) (
sf pr2 pr13 pr14 pr16 pr18 qt qc qu tau mu ef qb qs qd nut 
numu nue) (sf3 pr12 pr17) (sf5 pr11 pr15) (sf7 pr10) (s4 pr8
) (s2 pr4 pr5 pr6))
 $
hvvvl:='((76 ((vvv x 76 l r2 vc vb va v) (psi pr2 x -1 r1) (
psi pr2 x 1 r2) (b4 pr8 x 0 r3 v va vb vc))) (75 ((vvv x 75
l r2 vb va v vc) (b1 pr3 x 0 r3 vc) (psi pr2 x -1 r2) (psi7
pr10 x 1 r1 v va vb))) (74 ((vvv x 74 l r2 vb va v vc) (psi7
pr10 x -1 r1 v va vb) (psi pr2 x 1 r2) (b1 pr3 x 0 r3 vc)))
(73 ((vvv x 73 l r2 vb va v vc) (b1 pr9 x 0 r3 vc) (psi pr2
x -1 r2) (psi7 pr10 x 1 r1 v va vb))) (72 ((vvv x 72 l r2 vb
va v vc) (psi7 pr10 x -1 r1 v va vb) (psi pr2 x 1 r2) (b1 
pr9 x 0 r3 vc))) (71 ((vvv x 71 l r2 vb va v) (b1 pr3 x 0 r3
vb) (psi pr2 x -1 r2) (psi5 pr11 x 1 r1 v va))) (70 ((vvv x
70 l r2 vb va v) (psi5 pr11 x -1 r1 v va) (psi pr2 x 1 r2) (
b1 pr3 x 0 r3 vb))) (69 ((vvv x 69 l r2 vb va v) (b1 pr9 x 0
r3 vb) (psi pr2 x -1 r2) (psi5 pr11 x 1 r1 v va))) (68 ((vvv
x 68 l r2 vb va v) (psi5 pr11 x -1 r1 v va) (psi pr2 x 1 r2)
(b1 pr9 x 0 r3 vb))) (67 ((vvv x 67 l r2 vb va v) (b1 pr3 x
0 r3 vb) (psi pr2 x -1 r2) (psi5 pr15 x 1 r1 v va))) (66 ((
vvv x 66 l r2 vb va v) (psi5 pr15 x -1 r1 v va) (psi pr2 x 1
r2) (b1 pr3 x 0 r3 vb))) (65 ((vvv x 65 l r2 vb va v) (b1 
pr9 x 0 r3 vb) (psi pr2 x -1 r2) (psi5 pr15 x 1 r1 v va))) (
64 ((vvv x 64 l r2 vb va v) (psi5 pr15 x -1 r1 v va) (psi 
pr2 x 1 r2) (b1 pr9 x 0 r3 vb))) (63 ((vvv x 63 l r2 va v) (
psi pr2 x -1 r1) (psi pr2 x 1 r2) (b2 pr4 x 0 r3 v va))) (62
((vvv x 62 l r2 va v) (psi pr2 x -1 r1) (psi pr2 x 1 r2) (b2
pr5 x 0 r3 v va))) (61 ((vvv x 61 l r2 va v) (psi pr2 x -1 
r1) (psi pr2 x 1 r2) (b2 pr6 x 0 r3 v va))) (60 ((vvv x 60 l
r2 va v) (b1 pr3 x 0 r3 va) (psi pr2 x -1 r2) (psi3 pr12 x 1
r1 v))) (59 ((vvv x 59 l r2 va v) (psi3 pr12 x -1 r1 v) (psi
pr2 x 1 r2) (b1 pr3 x 0 r3 va))) (58 ((vvv x 58 l r2 va v) (
b1 pr9 x 0 r3 va) (psi pr2 x -1 r2) (psi3 pr12 x 1 r1 v))) (
57 ((vvv x 57 l r2 va v) (psi3 pr12 x -1 r1 v) (psi pr2 x 1
r2) (b1 pr9 x 0 r3 va))) (56 ((vvv x 56 l r3 r2 va v) (b0 
pr1 x -1 r3) (psi3 pr12 x -1 r2 va) (psi3 pr17 x 1 r1 v))) (
55 ((vvv x 55 l r3 r2 va v) (psi3 pr17 x -1 r1 v) (psi3 pr12
x 1 r2 va) (b0 pr1 x 1 r3))) (54 ((vvv x 54 l r3 v) (psi pr2
x -1 r1) (psi pr2 x 1 r2) (b1 pr9 x 0 r3 v))) (53 ((vvv x 53
l r3 v) (b1 pr3 x 0 r3 v) (psi pr2 x -1 r2) (psi pr13 x 1 r1
))) (52 ((vvv x 52 l r3 v) (psi pr13 x -1 r1) (psi pr2 x 1 
r2) (b1 pr3 x 0 r3 v))) (51 ((vvv x 51 l r3 v) (b1 pr9 x 0 
r3 v) (psi pr2 x -1 r2) (psi pr13 x 1 r1))) (50 ((vvv x 50 l
r3 v) (psi pr13 x -1 r1) (psi pr2 x 1 r2) (b1 pr9 x 0 r3 v))
) (49 ((vvv x 49 l r3 v) (b1 pr3 x 0 r3 v) (psi pr2 x -1 r2)
(psi pr14 x 1 r1))) (48 ((vvv x 48 l r3 v) (psi pr14 x -1 r1
) (psi pr2 x 1 r2) (b1 pr3 x 0 r3 v))) (47 ((vvv x 47 l r3 v
) (b1 pr9 x 0 r3 v) (psi pr2 x -1 r2) (psi pr14 x 1 r1))) (
46 ((vvv x 46 l r3 v) (psi pr14 x -1 r1) (psi pr2 x 1 r2) (
b1 pr9 x 0 r3 v))) (45 ((vvv x 45 l r3 v) (b1 pr3 x 0 r3 v)
(psi pr2 x -1 r2) (psi pr16 x 1 r1))) (44 ((vvv x 44 l r3 v)
(psi pr16 x -1 r1) (psi pr2 x 1 r2) (b1 pr3 x 0 r3 v))) (43
((vvv x 43 l r3 v) (b1 pr9 x 0 r3 v) (psi pr2 x -1 r2) (psi
pr16 x 1 r1))) (42 ((vvv x 42 l r3 v) (psi pr16 x -1 r1) (
psi pr2 x 1 r2) (b1 pr9 x 0 r3 v))) (41 ((vvv x 41 l r2 v) (
b0 pr1 x -1 r3) (psi pr2 x -1 r2) (psi3 pr17 x 1 r1 v))) (40
((vvv x 40 l r2 v) (psi3 pr17 x -1 r1 v) (psi pr2 x 1 r2) (
b0 pr1 x 1 r3))) (39 ((vvv x 39 l r2 v) (b0 pr1 x -1 r3) (
psi pr13 x -1 r2) (psi3 pr17 x 1 r1 v))) (38 ((vvv x 38 l r2
v) (psi3 pr17 x -1 r1 v) (psi pr13 x 1 r2) (b0 pr1 x 1 r3)))
(37 ((vvv x 37 l r2 v) (b0 pr1 x -1 r3) (psi pr14 x -1 r2) (
psi3 pr17 x 1 r1 v))) (36 ((vvv x 36 l r2 v) (psi3 pr17 x -1
r1 v) (psi pr14 x 1 r2) (b0 pr1 x 1 r3))) (35 ((vvv x 35 l 
r2 v) (b0 pr1 x -1 r3) (psi pr16 x -1 r2) (psi3 pr17 x 1 r1
v))) (34 ((vvv x 34 l r2 v) (psi3 pr17 x -1 r1 v) (psi pr16
x 1 r2) (b0 pr1 x 1 r3))) (33 ((vvv x 33 l) (psi pr2 x -1 r1
) (psi pr2 x 1 r2) (b0 pr7 x 0 r3))) (32 ((vvv x 32 l) (b0 
pr1 x -1 r3) (psi pr2 x -1 r2) (psi pr18 x 1 r1))) (31 ((vvv
x 31 l) (psi pr18 x -1 r1) (psi pr2 x 1 r2) (b0 pr1 x 1 r3))
) (30 ((vvv x 30 l) (b0 pr1 x -1 r3) (psi pr16 x -1 r2) (psi
pr18 x 1 r1))) (29 ((vvv x 29 l) (psi pr18 x -1 r1) (psi 
pr16 x 1 r2) (b0 pr1 x 1 r3))) (28 ((vvv x 28 r2 r1 vc vb va
v vf vd) (b4 pr8 x 0 r1 v va vb vc) (b1 pr9 x 0 r2 vd) (b1 
pr3 x 0 r3 vf))) (27 ((vvv x 27 r2 vc vb va v) (b4 pr8 x 0 
r1 v va vb vc) (b0 pr1 x -1 r2) (b0 pr1 x 1 r3))) (26 ((vvv
x 26 r2 r1 va v vc vb) (b2 pr4 x 0 r1 v va) (b1 pr9 x 0 r2 
vb) (b1 pr3 x 0 r3 vc))) (25 ((vvv x 25 r2 r1 va v vc vb) (
b2 pr5 x 0 r1 v va) (b1 pr9 x 0 r2 vb) (b1 pr3 x 0 r3 vc)))
(24 ((vvv x 24 r2 r1 va v vc vb) (b2 pr6 x 0 r1 v va) (b1 
pr9 x 0 r2 vb) (b1 pr3 x 0 r3 vc))) (23 ((vvv x 23 r2 va v)
(b2 pr4 x 0 r1 v va) (b0 pr1 x -1 r2) (b0 pr1 x 1 r3))) (22
((vvv x 22 r2 va v) (b2 pr5 x 0 r1 v va) (b0 pr1 x -1 r2) (
b0 pr1 x 1 r3))) (21 ((vvv x 21 r2 va v) (b2 pr6 x 0 r1 v va
) (b0 pr1 x -1 r2) (b0 pr1 x 1 r3))) (20 ((vvv x 20 r2 r1 v
va) (b1 pr9 x 0 r1 v) (b1 pr3 x 0 r2 va) (b0 pr7 x 0 r3))) (
19 ((vvv x 19 r2 v) (b1 pr3 x 0 r1 v) (b0 pr1 x -1 r2) (b0 
pr1 x 1 r3))) (18 ((vvv x 18 r2 v) (b1 pr9 x 0 r1 v) (b0 pr1
x -1 r2) (b0 pr1 x 1 r3))) (17 ((vvv x 17) (b0 pr7 x 0 r1) (
b0 pr1 x -1 r2) (b0 pr1 x 1 r3))) (1 ((vvv x 1 v va) (b1 z x
0 r4 va) (b1 z x 0 r3 v) (b0 h0 x 0 r1) (b0 h0 x 0 r2))) (2
((vvv x 2 v va) (b1 w x -1 r4 va) (b1 w x 1 r3 v) (b0 h0 x 0
r2) (b0 h0 x 0 r1))) (3 ((vvv x 3 v va) (b1 z x 0 r3 va) (b1
z x 0 r2 v) (b0 h0 x 0 r1))) (4 ((vvv x 4 v va) (b1 w x -1 
r3 va) (b1 w x 1 r2 v) (b0 h0 x 0 r1))) (5 ((vvv x 5 pa1 v 
va vb vc) (b1 w x 1 r1 v) (b1 w x -1 r2 va) (b1 pa1 x 0 r4 
vc) (b1 pa1 x 0 r3 vb))) (6 ((vvv x 6 v va vb vc) (b1 w x 1
r1 v) (b1 w x -1 r2 va) (b1 p x 0 r4 vc) (b1 z x 0 r3 vb)))
(7 ((vvv x 7 v va vb vc) (b1 w x -1 r4 vc) (b1 w x -1 r3 vb)
(b1 w x 1 r2 va) (b1 w x 1 r1 v))) (8 ((vvv x 8 l pa1 pa3 v)
(psi pa3 x -1 r1 id1) (psi pa3 x 1 r2 id1) (b1 pa1 x 0 r3 v)
)) (9 ((vvv x 9 l pa5 pa4 v) (psi pa4 x -1 r1 id1) (psi pa5
x 1 r2 id1) (b1 w x -1 r3 v))) (10 ((vvv x 10 l pa4 pa5 v) (
psi pa5 x -1 r1 id1) (psi pa4 x 1 r2 id1) (b1 w x 1 r3 v)))
(11 ((vvv x 11 pa1 v va vb r1 r2 r3) (b1 w x 1 r1 va) (b1 w
x -1 r2 vb) (b1 pa1 x 0 r3 v))) (12 ((vvv x 12 l pa2) (psi 
pa2 x -1 r1 id1) (psi pa2 x 1 r2 id1) (b0 h0 x 0 r3))) (13 (
(vvv x 13) (b0 h0 x 0 r4) (b0 h0 x 0 r3) (b0 h0 x 0 r2) (b0
h0 x 0 r1))) (14 ((vvv x 14) (b0 h0 x 0 r3) (b0 h0 x 0 r2) (
b0 h0 x 0 r1))) (16 ((vvv x 16 l v) (b1 pr9 x 0 r1 v) (psi 
ef x -1 r2) (psi ef x 1 r3))) (15 ((vvv x 15 l v) (b1 pr3 x
0 r1 v) (psi ef x -1 r2) (psi ef x 1 r3))))
 $
htionlist:='((g (1 76 75 74 73 72 71 70 69 68 67 66 65 64 63
62 61 60 59 58 57 56 55 54 53 52 51 50 49 48 47 46 45 44 43
42 41 40 39 38 37 36 35 34 33 32 31 30 29 28 27 26 25 24 23
22 21 20 19 18 17 3 4 8 9 10 11 12 14 16 15) (2 1 2 5 6 7 13
)))
 $
couplist:='(g3 g)
 $
maslist2:='((gsg mgsg 0) (z zm (quotient wm (cos theta))) (
gs mgs 0))
 $
paramlist:='(((c 0 1) (quotient (expt hm 2) 2)) ((c 0 5) (
quotient (minus (times (expt g 2) (expt hm 2))) (times 8 (
expt wm 2)))) (wangm3 (quotient (times (sqrt 2) fmb g) (
times 2 wm))) (wangm2 (quotient (times (sqrt 2) fms g) (
times 2 wm))) (wangm1 (quotient (times (sqrt 2) fmd g) (
times 2 wm))) (wangm6 (quotient (times (sqrt 2) fmtau g) (
times 2 wm))) (wangm5 (quotient (times (sqrt 2) fmmu g) (
times 2 wm))) (wangm4 (quotient (times (sqrt 2) fme g) (
times 2 wm))) (wangm9 (quotient (times (sqrt 2) fmt g) (
times 2 wm))) (wangm8 (quotient (times (sqrt 2) fmc g) (
times 2 wm))) (wangm7 (quotient (times (sqrt 2) fmu g) (
times 2 wm))) (v0 (quotient (times 2 wm) g)))
 $
phyinput:='(p1m w1d p2m w2d p3m w3d p4m w4d p5m w5d p6m w6d
p7m w7d p8m w8d p9m w9d p10m w10d p11m w11d p12m w12d p13m 
w13d p14m w14d p15m w15d p16m w16d p17m w17d p18m w18d g3 g
theta wm hm fme fmmu fmtau fmd fmu fms fmc fmb fmt)
 $
colorlist:='(pa6 pa4 pa5 pa2 pa3 qd qs qb qu qc qt gs)
 $
hnsuml:='(pr18 pr17 pr16 pr15 pr14 pr13 pr12 pr11 pr10 pr9 
pr8 pr7 pr6 pr5 pr4 pr3 pr2 pr1 h0 gsg w gs)
 $
hsuml:='(pa3 pa2 pa5 pa4 pa6 pa1)
 $
hparameter:='((spacetime x) (sum pa3 pa2 pa5 pa4 pa6 pa1) (
nsum pr18 pr17 pr16 pr15 pr14 pr13 pr12 pr11 pr10 pr9 pr8 
pr7 pr6 pr5 pr4 pr3 pr2 pr1 h0 gsg w gs) (single p z qt qc 
qu qb qs qd nut numu nue tau mu ef) (index3 ic1 ic2 ic3 ic4
ic5) (index2 id1 id2) (index1 v va vb vc vd vf va1 va2))
 $
pnametype:='(sum nsum single)
 $
hway:='(number dotnumber wayorder nameorder dotnameorder)
 $
hparaway:='((index3 wayorder) (index2 wayorder) (index1 
wayorder) (spacetime number) (sum dotnumber) (nsum 
dotwayorder) (single mdotnumber))
 $
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))
 $
hpindex:='(spacetime indices sum)
 $
singlist:='(pr1 pr2 pr3 pr4 pr5 pr6 pr7 pr8 pr9 pr10 pr11 
pr12 pr13 pr14 pr15 pr16 pr17 pr18 gs w z p gsg h0 qb qs qd
qt qc qu tau mu ef nut numu nue)
 $
rangetable:='((pa5 pa6 1) (pa2 pa6 1) (pa2 pa4 1) (pa5 pa2 
pa6) (pa3 pa6 1) (pa3 pa4 1) (pa3 pa5 1) (pa3 pa2 1))
 $
hconstr:='((((0 pa3 pa1) (1 z nut numu nue) (2 pa3 z) (2 pa2
p) (1 pa1 pa2 qt qc qu qb qs qd tau mu ef pa4 pa6)) 8) (((0
pa5 pa4) (0 tau nut) (0 mu numu) (0 ef nue) (0 qb qt) (0 qs
qc) (0 qd qu)) 9 10))
 $
hconstr1:='(((pa3 pa1) 8) ((pa5 pa4) 9 10))
 $
patable1:='((b1 s11) (b1 s1) (b0 s0) (psi sf) (psi3 sf3) (
psi5 sf5) (psi7 sf7) (b4 s4) (b2 s2))
 $
end;
 $
