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

weak interaction ") )
 $
delta_qnumber_list:='nil
 $
pa_decay_list:='((pr4 (90 (pr1 pr1) 2)) (pr5 (38 (pr1 pr1) 2
)) (pr6 (87 (pr1 pr1) 2)) (pr7 (84 (pr1 pr1) 2) (83 (pr2 pr1
) 2)) (pr8 (80 (pr1 pr1) 2) (79 (pr2 pr1) 2)) (pr9 (76 (pr1
pr1) 2) (75 (pr2 pr1) 2)) (pr10 (37 (pr1 pr1) 2) (36 (pr2 
pr1) 2)) (pr11 (72 (pr1 pr1) 2) (71 (pr2 pr1) 2)) (pr3 (91 (
pr4 pr1) 2) (42 (pr1 pr1) 2) (41 (pr2 pr1) 2)) (pr12 (111 (
pr4 pr1) 2) (68 (pr1 pr1) 2) (67 (pr2 pr1) 2)) (pr13 (110 (
pr4 pr1) 2) (64 (pr1 pr1) 2) (63 (pr2 pr1) 2) (62 (pr2 pr2)
2)) (pr14 (109 (pr4 pr1) 2) (108 (pr6 pr1) 2) (59 (pr1 pr1)
2) (58 (pr2 pr1) 2) (57 (pr2 pr2) 2)) (pr15 (35 (pr1 pr1) 2)
(34 (pr2 pr1) 2) (33 (pr2 pr2) 2)) (pr16 (135 (pr4 pr1) 2) (
134 (pr6 pr1) 2) (127 (pr1 pr1) 2) (126 (pr2 pr1) 2) (125 (
pr2 pr2) 2)) (pr17 (32 (pr1 pr1) 2) (31 (pr2 pr1) 2) (30 (
pr2 pr2) 2)) (pr18 (107 (pr4 pr1) 2) (106 (pr6 pr1) 2) (105
(pr7 pr1) 2) (104 (pr8 pr1) 2) (54 (pr1 pr1) 2) (53 (pr2 pr1
) 2) (52 (pr2 pr2) 2)) (pr19 (29 (pr1 pr1) 2) (28 (pr2 pr1)
2) (27 (pr2 pr2) 2)) (pr20 (103 (pr4 pr1) 2) (102 (pr4 pr2)
2) (101 (pr6 pr1) 2) (100 (pr7 pr1) 2) (99 (pr8 pr1) 2) (98
(pr9 pr1) 2) (50 (pr1 pr1) 2) (49 (pr2 pr1) 2) (48 (pr2 pr2)
2)) (pr21 (133 (pr4 pr1) 2) (132 (pr4 pr2) 2) (131 (pr6 pr1)
2) (130 (pr7 pr1) 2) (129 (pr8 pr1) 2) (128 (pr9 pr1) 2) (
123 (pr1 pr1) 2) (122 (pr2 pr1) 2) (121 (pr2 pr2) 2)) (pr22
(26 (pr1 pr1) 2) (25 (pr2 pr1) 2) (24 (pr2 pr2) 2)) (pr23 (
97 (pr4 pr1) 2) (96 (pr4 pr2) 2) (95 (pr6 pr1) 2) (94 (pr7 
pr1) 2) (93 (pr8 pr1) 2) (92 (pr9 pr1) 2) (46 (pr1 pr1) 2) (
45 (pr2 pr1) 2) (44 (pr2 pr2) 2)) (pr24 (124 (pr16 pr1) 2) (
120 (pr21 pr1) 2) (119 (pr4 pr4) 2) (118 (pr6 pr4) 2) (117 (
pr6 pr6) 2) (116 (pr7 pr4) 2) (115 (pr7 pr6) 2) (114 (pr8 
pr4) 2) (113 (pr8 pr6) 2) (112 (pr9 pr4) 2) (89 (pr4 pr1) 2)
(88 (pr4 pr2) 2) (86 (pr6 pr1) 2) (85 (pr6 pr2) 2) (82 (pr7
pr1) 2) (81 (pr7 pr2) 2) (78 (pr8 pr1) 2) (77 (pr8 pr2) 2) (
74 (pr9 pr1) 2) (73 (pr9 pr2) 2) (70 (pr11 pr1) 2) (69 (pr11
pr2) 2) (66 (pr12 pr1) 2) (65 (pr12 pr2) 2) (61 (pr13 pr1) 2
) (60 (pr13 pr2) 2) (56 (pr14 pr1) 2) (55 (pr14 pr2) 2) (51
(pr18 pr1) 2) (47 (pr20 pr1) 2) (43 (pr23 pr1) 2) (40 (pr3 
pr1) 2) (39 (pr3 pr2) 2) (23 (pr5 pr1) 2) (22 (pr5 pr2) 2) (
21 (pr10 pr1) 2) (20 (pr10 pr2) 2) (19 (pr15 pr1) 2) (18 (
pr15 pr2) 2) (17 (pr17 pr1) 2) (16 (pr19 pr1) 2) (15 (pr22 
pr1) 2)))
 $
two_pa_vertex_list:='nil
 $
stable_pal0:='(p nut numu nue ef qu qd qs mu pr1 pr2 qc pr4
pr5 pr6 pr7 pr8 pr9 pr10 tau pr11 pr3 pr12 pr13 pr14 pr15 
pr16 pr17 pr18 pr19 pr20 pr21 pr22 pr23 pr24 qb w qt)
 $
mass_order_list:='(h0 qt z w qb pr24 pr23 pr22 pr21 pr20 
pr19 pr18 pr17 pr16 pr15 pr14 pr13 pr12 pr3 pr11 tau pr10 
pr9 pr8 pr7 pr6 pr5 pr4 qc pr2 pr1 mu qs qd qu ef nue numu 
nut gsg p gs)
 $
pal_order_list:='(pr1 pr2 pr24 pr4 pr6 pr23 pr20 pr8 pr7 
pr21 w pr18 pr9 h0 pr14 pr13 pr16 pr15 pr3 pr12 pr22 pr19 
pr17 pr10 pr11 pa1 z pr5 pa5 pa4 p pa2 pa3)
 $
v_pal_list:='((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)) (15 (pr24 -1 1) (pr22 
-1 1) (pr1 -1 1)) (16 (pr24 -1 1) (pr19 -1 1) (pr1 -1 1)) (
17 (pr24 -1 1) (pr17 -1 1) (pr1 -1 1)) (18 (pr24 -1 1) (pr15
-1 1) (pr2 -1 1)) (19 (pr24 -1 1) (pr15 -1 1) (pr1 -1 1)) (
20 (pr24 -1 1) (pr10 -1 1) (pr2 -1 1)) (21 (pr24 -1 1) (pr10
-1 1) (pr1 -1 1)) (22 (pr24 -1 1) (pr5 -1 1) (pr2 -1 1)) (23
(pr24 -1 1) (pr5 -1 1) (pr1 -1 1)) (24 (pr22 -1 1) (pr2 -1 2
)) (25 (pr22 -1 1) (pr2 -1 1) (pr1 -1 1)) (26 (pr22 -1 1) (
pr1 -1 2)) (27 (pr19 -1 1) (pr2 -1 2)) (28 (pr19 -1 1) (pr2
-1 1) (pr1 -1 1)) (29 (pr19 -1 1) (pr1 -1 2)) (30 (pr17 -1 1
) (pr2 -1 2)) (31 (pr17 -1 1) (pr2 -1 1) (pr1 -1 1)) (32 (
pr17 -1 1) (pr1 -1 2)) (33 (pr15 -1 1) (pr2 -1 2)) (34 (pr15
-1 1) (pr2 -1 1) (pr1 -1 1)) (35 (pr15 -1 1) (pr1 -1 2)) (36
(pr10 -1 1) (pr2 -1 1) (pr1 -1 1)) (37 (pr10 -1 1) (pr1 -1 2
)) (38 (pr5 -1 1) (pr1 -1 2)) (39 (pr3 -1 1) (pr24 -1 1) (
pr2 -1 1)) (40 (pr3 -1 1) (pr24 -1 1) (pr1 -1 1)) (41 (pr3 
-1 1) (pr2 -1 1) (pr1 -1 1)) (42 (pr3 -1 1) (pr1 -1 2)) (43
(pr23 -1 1) (pr24 -1 1) (pr1 -1 1)) (44 (pr23 -1 1) (pr2 -1
2)) (45 (pr23 -1 1) (pr2 -1 1) (pr1 -1 1)) (46 (pr23 -1 1) (
pr1 -1 2)) (47 (pr20 -1 1) (pr24 -1 1) (pr1 -1 1)) (48 (pr20
-1 1) (pr2 -1 2)) (49 (pr20 -1 1) (pr2 -1 1) (pr1 -1 1)) (50
(pr20 -1 1) (pr1 -1 2)) (51 (pr18 -1 1) (pr24 -1 1) (pr1 -1
1)) (52 (pr18 -1 1) (pr2 -1 2)) (53 (pr18 -1 1) (pr2 -1 1) (
pr1 -1 1)) (54 (pr18 -1 1) (pr1 -1 2)) (55 (pr14 -1 1) (pr24
-1 1) (pr2 -1 1)) (56 (pr14 -1 1) (pr24 -1 1) (pr1 -1 1)) (
57 (pr14 -1 1) (pr2 -1 2)) (58 (pr14 -1 1) (pr2 -1 1) (pr1 
-1 1)) (59 (pr14 -1 1) (pr1 -1 2)) (60 (pr13 -1 1) (pr24 -1
1) (pr2 -1 1)) (61 (pr13 -1 1) (pr24 -1 1) (pr1 -1 1)) (62 (
pr13 -1 1) (pr2 -1 2)) (63 (pr13 -1 1) (pr2 -1 1) (pr1 -1 1)
) (64 (pr13 -1 1) (pr1 -1 2)) (65 (pr12 -1 1) (pr24 -1 1) (
pr2 -1 1)) (66 (pr12 -1 1) (pr24 -1 1) (pr1 -1 1)) (67 (pr12
-1 1) (pr2 -1 1) (pr1 -1 1)) (68 (pr12 -1 1) (pr1 -1 2)) (69
(pr11 -1 1) (pr24 -1 1) (pr2 -1 1)) (70 (pr11 -1 1) (pr24 -1
1) (pr1 -1 1)) (71 (pr11 -1 1) (pr2 -1 1) (pr1 -1 1)) (72 (
pr11 -1 1) (pr1 -1 2)) (73 (pr9 -1 1) (pr24 -1 1) (pr2 -1 1)
) (74 (pr9 -1 1) (pr24 -1 1) (pr1 -1 1)) (75 (pr9 -1 1) (pr2
-1 1) (pr1 -1 1)) (76 (pr9 -1 1) (pr1 -1 2)) (77 (pr8 -1 1)
(pr24 -1 1) (pr2 -1 1)) (78 (pr8 -1 1) (pr24 -1 1) (pr1 -1 1
)) (79 (pr8 -1 1) (pr2 -1 1) (pr1 -1 1)) (80 (pr8 -1 1) (pr1
-1 2)) (81 (pr7 -1 1) (pr24 -1 1) (pr2 -1 1)) (82 (pr7 -1 1)
(pr24 -1 1) (pr1 -1 1)) (83 (pr7 -1 1) (pr2 -1 1) (pr1 -1 1)
) (84 (pr7 -1 1) (pr1 -1 2)) (85 (pr6 -1 1) (pr24 -1 1) (pr2
-1 1)) (86 (pr6 -1 1) (pr24 -1 1) (pr1 -1 1)) (87 (pr6 -1 1)
(pr1 -1 2)) (88 (pr4 -1 1) (pr24 -1 1) (pr2 -1 1)) (89 (pr4
-1 1) (pr24 -1 1) (pr1 -1 1)) (90 (pr4 -1 1) (pr1 -1 2)) (91
(pr4 -1 1) (pr3 -1 1) (pr1 -1 1)) (92 (pr23 -1 1) (pr9 -1 1)
(pr1 -1 1)) (93 (pr23 -1 1) (pr8 -1 1) (pr1 -1 1)) (94 (pr23
-1 1) (pr7 -1 1) (pr1 -1 1)) (95 (pr23 -1 1) (pr6 -1 1) (pr1
-1 1)) (96 (pr23 -1 1) (pr4 -1 1) (pr2 -1 1)) (97 (pr23 -1 1
) (pr4 -1 1) (pr1 -1 1)) (98 (pr20 -1 1) (pr9 -1 1) (pr1 -1
1)) (99 (pr20 -1 1) (pr8 -1 1) (pr1 -1 1)) (100 (pr20 -1 1)
(pr7 -1 1) (pr1 -1 1)) (101 (pr20 -1 1) (pr6 -1 1) (pr1 -1 1
)) (102 (pr20 -1 1) (pr4 -1 1) (pr2 -1 1)) (103 (pr20 -1 1)
(pr4 -1 1) (pr1 -1 1)) (104 (pr18 -1 1) (pr8 -1 1) (pr1 -1 1
)) (105 (pr18 -1 1) (pr7 -1 1) (pr1 -1 1)) (106 (pr18 -1 1)
(pr6 -1 1) (pr1 -1 1)) (107 (pr18 -1 1) (pr4 -1 1) (pr1 -1 1
)) (108 (pr14 -1 1) (pr6 -1 1) (pr1 -1 1)) (109 (pr14 -1 1)
(pr4 -1 1) (pr1 -1 1)) (110 (pr13 -1 1) (pr4 -1 1) (pr1 -1 1
)) (111 (pr12 -1 1) (pr4 -1 1) (pr1 -1 1)) (112 (pr9 -1 1) (
pr4 -1 1) (pr24 -1 1)) (113 (pr8 -1 1) (pr6 -1 1) (pr24 -1 1
)) (114 (pr8 -1 1) (pr4 -1 1) (pr24 -1 1)) (115 (pr7 -1 1) (
pr6 -1 1) (pr24 -1 1)) (116 (pr7 -1 1) (pr4 -1 1) (pr24 -1 1
)) (117 (pr6 -1 2) (pr24 -1 1)) (118 (pr6 -1 1) (pr4 -1 1) (
pr24 -1 1)) (119 (pr4 -1 2) (pr24 -1 1)) (120 (pr21 -1 1) (
pr24 -1 1) (pr1 -1 1)) (121 (pr21 -1 1) (pr2 -1 2)) (122 (
pr21 -1 1) (pr2 -1 1) (pr1 -1 1)) (123 (pr21 -1 1) (pr1 -1 2
)) (124 (pr16 -1 1) (pr24 -1 1) (pr1 -1 1)) (125 (pr16 -1 1)
(pr2 -1 2)) (126 (pr16 -1 1) (pr2 -1 1) (pr1 -1 1)) (127 (
pr16 -1 1) (pr1 -1 2)) (128 (pr21 -1 1) (pr9 -1 1) (pr1 -1 1
)) (129 (pr21 -1 1) (pr8 -1 1) (pr1 -1 1)) (130 (pr21 -1 1)
(pr7 -1 1) (pr1 -1 1)) (131 (pr21 -1 1) (pr6 -1 1) (pr1 -1 1
)) (132 (pr21 -1 1) (pr4 -1 1) (pr2 -1 1)) (133 (pr21 -1 1)
(pr4 -1 1) (pr1 -1 1)) (134 (pr16 -1 1) (pr6 -1 1) (pr1 -1 1
)) (135 (pr16 -1 1) (pr4 -1 1) (pr1 -1 1)))
 $
pa_rv_list:='((pr16 (g (1 124 125 126 127 134 135))) (pr4 (g
(1 88 89 90 91 96 97 102 103 107 109 110 111 112 114 116 118
119 132 133 135))) (pr1 (g (1 15 16 17 19 21 23 25 26 28 29
31 32 34 35 36 37 38 40 41 42 43 45 46 47 49 50 51 53 54 56
58 59 61 63 64 66 67 68 70 71 72 74 75 76 78 79 80 82 83 84
86 87 89 90 91 92 93 94 95 97 98 99 100 101 103 104 105 106
107 108 109 110 111 120 122 123 124 126 127 128 129 130 131
133 134 135))) (pr6 (g (1 85 86 87 95 101 106 108 113 115 
117 118 131 134))) (pr21 (g (1 120 121 122 123 128 129 130 
131 132 133))) (pr2 (g (1 18 20 22 24 25 27 28 30 31 33 34 
36 39 41 44 45 48 49 52 53 55 57 58 60 62 63 65 67 69 71 73
75 77 79 81 83 85 88 96 102 121 122 125 126 132))) (pr7 (g (
1 81 82 83 84 94 100 105 115 116 130))) (pr8 (g (1 77 78 79
80 93 99 104 113 114 129))) (pr9 (g (1 73 74 75 76 92 98 112
128))) (pr24 (g (1 15 16 17 18 19 20 21 22 23 39 40 43 47 51
55 56 60 61 65 66 69 70 73 74 77 78 81 82 85 86 88 89 112 
113 114 115 116 117 118 119 120 124))) (pr12 (g (1 65 66 67
68 111))) (pr13 (g (1 60 61 62 63 64 110))) (pr14 (g (1 55 
56 57 58 59 108 109))) (pr18 (g (1 51 52 53 54 104 105 106 
107))) (pr20 (g (1 47 48 49 50 98 99 100 101 102 103))) (
pr23 (g (1 43 44 45 46 92 93 94 95 96 97))) (pr3 (g (1 39 40
41 42 91))) (pr11 (g (1 69 70 71 72))) (pr5 (g (1 22 23 38))
) (pr10 (g (1 20 21 36 37))) (pr15 (g (1 18 19 33 34 35))) (
pr17 (g (1 17 30 31 32))) (pr19 (g (1 16 27 28 29))) (pr22 (
g (1 15 24 25 26))) (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))) (p (g (2 6))))
 $
cvpd_list:='((14 0) (13 0) (11 1) (7 0) (6 0) (5 0) (4 0) (3
0) (2 0) (1 0) (15 0) (16 0) (17 0) (18 0) (19 0) (20 0) (21
0) (22 0) (23 0) (24 0) (25 0) (26 0) (27 0) (28 0) (29 0) (
30 0) (31 0) (32 0) (33 0) (34 0) (35 0) (36 0) (37 0) (38 0
) (39 1) (40 1) (41 1) (42 1) (43 2) (44 2) (45 2) (46 2) (
47 2) (48 2) (49 2) (50 2) (51 2) (52 2) (53 2) (54 2) (55 2
) (56 2) (57 2) (58 2) (59 2) (60 2) (61 2) (62 2) (63 2) (
64 2) (65 2) (66 2) (67 2) (68 2) (69 2) (70 2) (71 2) (72 2
) (73 2) (74 2) (75 2) (76 2) (77 2) (78 2) (79 2) (80 2) (
81 2) (82 2) (83 2) (84 2) (85 2) (86 2) (87 2) (88 2) (89 2
) (90 2) (91 1) (92 0) (93 0) (94 0) (95 0) (96 0) (97 0) (
98 0) (99 0) (100 0) (101 0) (102 0) (103 0) (104 0) (105 0)
(106 0) (107 0) (108 0) (109 0) (110 0) (111 0) (112 0) (113
0) (114 0) (115 0) (116 0) (117 0) (118 0) (119 0) (120 4) (
121 4) (122 4) (123 4) (124 4) (125 4) (126 4) (127 4) (128
2) (129 2) (130 2) (131 2) (132 2) (133 2) (134 2) (135 2))
 $
gbsymmetrylist:='(strange baryon len lmuon ltau)
 $
fit_para_list:='((135 f157 f156) (134 f155 f154) (133 f153 
f152) (132 f151 f150) (131 f149 f148) (130 f147 f146) (129 
f145 f144) (128 f143 f142) (127 f141) (126 f140) (125 f139)
(124 f138) (123 f137) (122 f136) (121 f135) (120 f134) (119
f133 f132) (118 f131 f130) (117 f129 f128) (116 f127 f126) (
115 f125 f124) (114 f123 f122) (113 f121 f120) (112 f119 
f118) (111 f117 f116) (110 f115 f114) (109 f113 f112) (108 
f111 f110) (107 f109 f108) (106 f107 f106) (105 f105 f104) (
104 f103 f102) (103 f101 f100) (102 f99 f98) (101 f97 f96) (
100 f95 f94) (99 f93 f92) (98 f91 f90) (97 f89 f88) (96 f87
f86) (95 f85 f84) (94 f83 f82) (93 f81 f80) (92 f79 f78) (91
f77) (90 f76) (89 f75) (88 f74) (87 f73) (86 f72) (85 f71) (
84 f70) (83 f69) (82 f68) (81 f67) (80 f66) (79 f65) (78 f64
) (77 f63) (76 f62) (75 f61) (74 f60) (73 f59) (72 f58) (71
f57) (70 f56) (69 f55) (68 f54) (67 f53) (66 f52) (65 f51) (
64 f50) (63 f49) (62 f48) (61 f47) (60 f46) (59 f45) (58 f44
) (57 f43) (56 f42) (55 f41) (54 f40) (53 f39) (52 f38) (51
f37) (50 f36) (49 f35) (48 f34) (47 f33) (46 f32) (45 f31) (
44 f30) (43 f29) (42 f28) (41 f27) (40 f26) (39 f25) (38 f24
) (37 f23) (36 f22) (35 f21) (34 f20) (33 f19) (32 f18) (31
f17) (30 f16) (29 f15) (28 f14) (27 f13) (26 f12) (25 f11) (
24 f10) (23 f9) (22 f8) (21 f7) (20 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 pr19 pr20 pr21 pr22 pr23 pr24
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 pr19 pr20 pr21 pr22 pr23 pr24 gs w z p h0) (any pr1 pr2
pr3 pr4 pr5 pr6 pr7 pr8 pr9 pr10 pr11 pr12 pr13 pr14 pr15 
pr16 pr17 pr18 pr19 pr20 pr21 pr22 pr23 pr24 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) (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:='((12 1) (12 1))
 $
color_vertices:='nil
 $
fcolor_vertices:='nil
 $
bound_pv_list:='nil
 $
fermionprog:='(sf)
 $
bosonprog:='(s11 s1 s0)
 $
propagatorl:='(s4 s2 s11 s1 s0 sf)
 $
splist:='((s11 gs) (s1 pr3 w z p) (s0 pr1 pr2 pr5 pr10 pr15
pr17 pr19 pr22 pr24 gsg h0) (sf qt qc qu tau mu ef qb qs qd
nut numu nue) (s2 pr4 pr6 pr7 pr8 pr9 pr11 pr12 pr13 pr14 
pr18 pr20 pr23) (s4 pr16 pr21))
 $
hvvvl:='((135 ((vvv x 135 r2 r1 vd v vc vb va vf) (b4 pr16 x
0 r1 v va vb vc) (b2 pr4 x 0 r2 vd vf) (b0 pr1 x 0 r3))) (
134 ((vvv x 134 r2 r1 vd v vc vb va vf) (b4 pr16 x 0 r1 v va
vb vc) (b2 pr6 x 0 r2 vd vf) (b0 pr1 x 0 r3))) (133 ((vvv x
133 r2 r1 vd v vc vb va vf) (b4 pr21 x 0 r1 v va vb vc) (b2
pr4 x 0 r2 vd vf) (b0 pr1 x 0 r3))) (132 ((vvv x 132 r2 r1 
vd v vc vb va vf) (b4 pr21 x 0 r1 v va vb vc) (b2 pr4 x 0 r2
vd vf) (b0 pr2 x 0 r3))) (131 ((vvv x 131 r2 r1 vd v vc vb 
va vf) (b4 pr21 x 0 r1 v va vb vc) (b2 pr6 x 0 r2 vd vf) (b0
pr1 x 0 r3))) (130 ((vvv x 130 r2 r1 vd v vc vb va vf) (b4 
pr21 x 0 r1 v va vb vc) (b2 pr7 x 0 r2 vd vf) (b0 pr1 x 0 r3
))) (129 ((vvv x 129 r2 r1 vd v vc vb va vf) (b4 pr21 x 0 r1
v va vb vc) (b2 pr8 x 0 r2 vd vf) (b0 pr1 x 0 r3))) (128 ((
vvv x 128 r2 r1 vd v vc vb va vf) (b4 pr21 x 0 r1 v va vb vc
) (b2 pr9 x 0 r2 vd vf) (b0 pr1 x 0 r3))) (127 ((vvv x 127 
r2 vc vb va v) (b4 pr16 x 0 r1 v va vb vc) (b0 pr1 x 0 r2) (
b0 pr1 x 0 r3))) (126 ((vvv x 126 r2 vc vb va v) (b4 pr16 x
0 r1 v va vb vc) (b0 pr2 x 0 r2) (b0 pr1 x 0 r3))) (125 ((
vvv x 125 r2 vc vb va v) (b4 pr16 x 0 r1 v va vb vc) (b0 pr2
x 0 r2) (b0 pr2 x 0 r3))) (124 ((vvv x 124 r2 vc vb va v) (
b4 pr16 x 0 r1 v va vb vc) (b0 pr24 x 0 r2) (b0 pr1 x 0 r3))
) (123 ((vvv x 123 r2 vc vb va v) (b4 pr21 x 0 r1 v va vb vc
) (b0 pr1 x 0 r2) (b0 pr1 x 0 r3))) (122 ((vvv x 122 r2 vc 
vb va v) (b4 pr21 x 0 r1 v va vb vc) (b0 pr2 x 0 r2) (b0 pr1
x 0 r3))) (121 ((vvv x 121 r2 vc vb va v) (b4 pr21 x 0 r1 v
va vb vc) (b0 pr2 x 0 r2) (b0 pr2 x 0 r3))) (120 ((vvv x 120
r2 vc vb va v) (b4 pr21 x 0 r1 v va vb vc) (b0 pr24 x 0 r2)
(b0 pr1 x 0 r3))) (119 ((vvv x 119 r2 r1 vb v va vc) (b2 pr4
x 0 r1 v va) (b2 pr4 x 0 r2 vb vc) (b0 pr24 x 0 r3))) (118 (
(vvv x 118 r2 r1 vb v va vc) (b2 pr6 x 0 r1 v va) (b2 pr4 x
0 r2 vb vc) (b0 pr24 x 0 r3))) (117 ((vvv x 117 r2 r1 vb v 
va vc) (b2 pr6 x 0 r1 v va) (b2 pr6 x 0 r2 vb vc) (b0 pr24 x
0 r3))) (116 ((vvv x 116 r2 r1 vb v va vc) (b2 pr7 x 0 r1 v
va) (b2 pr4 x 0 r2 vb vc) (b0 pr24 x 0 r3))) (115 ((vvv x 
115 r2 r1 vb v va vc) (b2 pr7 x 0 r1 v va) (b2 pr6 x 0 r2 vb
vc) (b0 pr24 x 0 r3))) (114 ((vvv x 114 r2 r1 vb v va vc) (
b2 pr8 x 0 r1 v va) (b2 pr4 x 0 r2 vb vc) (b0 pr24 x 0 r3)))
(113 ((vvv x 113 r2 r1 vb v va vc) (b2 pr8 x 0 r1 v va) (b2
pr6 x 0 r2 vb vc) (b0 pr24 x 0 r3))) (112 ((vvv x 112 r2 r1
vb v va vc) (b2 pr9 x 0 r1 v va) (b2 pr4 x 0 r2 vb vc) (b0 
pr24 x 0 r3))) (111 ((vvv x 111 r2 r1 vb v va vc) (b2 pr12 x
0 r1 v va) (b2 pr4 x 0 r2 vb vc) (b0 pr1 x 0 r3))) (110 ((
vvv x 110 r2 r1 vb v va vc) (b2 pr13 x 0 r1 v va) (b2 pr4 x
0 r2 vb vc) (b0 pr1 x 0 r3))) (109 ((vvv x 109 r2 r1 vb v va
vc) (b2 pr14 x 0 r1 v va) (b2 pr4 x 0 r2 vb vc) (b0 pr1 x 0
r3))) (108 ((vvv x 108 r2 r1 vb v va vc) (b2 pr14 x 0 r1 v 
va) (b2 pr6 x 0 r2 vb vc) (b0 pr1 x 0 r3))) (107 ((vvv x 107
r2 r1 vb v va vc) (b2 pr18 x 0 r1 v va) (b2 pr4 x 0 r2 vb vc
) (b0 pr1 x 0 r3))) (106 ((vvv x 106 r2 r1 vb v va vc) (b2 
pr18 x 0 r1 v va) (b2 pr6 x 0 r2 vb vc) (b0 pr1 x 0 r3))) (
105 ((vvv x 105 r2 r1 vb v va vc) (b2 pr18 x 0 r1 v va) (b2
pr7 x 0 r2 vb vc) (b0 pr1 x 0 r3))) (104 ((vvv x 104 r2 r1 
vb v va vc) (b2 pr18 x 0 r1 v va) (b2 pr8 x 0 r2 vb vc) (b0
pr1 x 0 r3))) (103 ((vvv x 103 r2 r1 vb v va vc) (b2 pr20 x
0 r1 v va) (b2 pr4 x 0 r2 vb vc) (b0 pr1 x 0 r3))) (102 ((
vvv x 102 r2 r1 vb v va vc) (b2 pr20 x 0 r1 v va) (b2 pr4 x
0 r2 vb vc) (b0 pr2 x 0 r3))) (101 ((vvv x 101 r2 r1 vb v va
vc) (b2 pr20 x 0 r1 v va) (b2 pr6 x 0 r2 vb vc) (b0 pr1 x 0
r3))) (100 ((vvv x 100 r2 r1 vb v va vc) (b2 pr20 x 0 r1 v 
va) (b2 pr7 x 0 r2 vb vc) (b0 pr1 x 0 r3))) (99 ((vvv x 99 
r2 r1 vb v va vc) (b2 pr20 x 0 r1 v va) (b2 pr8 x 0 r2 vb vc
) (b0 pr1 x 0 r3))) (98 ((vvv x 98 r2 r1 vb v va vc) (b2 
pr20 x 0 r1 v va) (b2 pr9 x 0 r2 vb vc) (b0 pr1 x 0 r3))) (
97 ((vvv x 97 r2 r1 vb v va vc) (b2 pr23 x 0 r1 v va) (b2 
pr4 x 0 r2 vb vc) (b0 pr1 x 0 r3))) (96 ((vvv x 96 r2 r1 vb
v va vc) (b2 pr23 x 0 r1 v va) (b2 pr4 x 0 r2 vb vc) (b0 pr2
x 0 r3))) (95 ((vvv x 95 r2 r1 vb v va vc) (b2 pr23 x 0 r1 v
va) (b2 pr6 x 0 r2 vb vc) (b0 pr1 x 0 r3))) (94 ((vvv x 94 
r2 r1 vb v va vc) (b2 pr23 x 0 r1 v va) (b2 pr7 x 0 r2 vb vc
) (b0 pr1 x 0 r3))) (93 ((vvv x 93 r2 r1 vb v va vc) (b2 
pr23 x 0 r1 v va) (b2 pr8 x 0 r2 vb vc) (b0 pr1 x 0 r3))) (
92 ((vvv x 92 r2 r1 vb v va vc) (b2 pr23 x 0 r1 v va) (b2 
pr9 x 0 r2 vb vc) (b0 pr1 x 0 r3))) (91 ((vvv x 91 r1 r2 vb
v va) (b2 pr4 x 0 r1 v va) (b1 pr3 x 0 r2 vb) (b0 pr1 x 0 r3
))) (90 ((vvv x 90 r2 va v) (b2 pr4 x 0 r1 v va) (b0 pr1 x 0
r2) (b0 pr1 x 0 r3))) (89 ((vvv x 89 r2 va v) (b2 pr4 x 0 r1
v va) (b0 pr24 x 0 r2) (b0 pr1 x 0 r3))) (88 ((vvv x 88 r2 
va v) (b2 pr4 x 0 r1 v va) (b0 pr24 x 0 r2) (b0 pr2 x 0 r3))
) (87 ((vvv x 87 r2 va v) (b2 pr6 x 0 r1 v va) (b0 pr1 x 0 
r2) (b0 pr1 x 0 r3))) (86 ((vvv x 86 r2 va v) (b2 pr6 x 0 r1
v va) (b0 pr24 x 0 r2) (b0 pr1 x 0 r3))) (85 ((vvv x 85 r2 
va v) (b2 pr6 x 0 r1 v va) (b0 pr24 x 0 r2) (b0 pr2 x 0 r3))
) (84 ((vvv x 84 r2 va v) (b2 pr7 x 0 r1 v va) (b0 pr1 x 0 
r2) (b0 pr1 x 0 r3))) (83 ((vvv x 83 r2 va v) (b2 pr7 x 0 r1
v va) (b0 pr2 x 0 r2) (b0 pr1 x 0 r3))) (82 ((vvv x 82 r2 va
v) (b2 pr7 x 0 r1 v va) (b0 pr24 x 0 r2) (b0 pr1 x 0 r3))) (
81 ((vvv x 81 r2 va v) (b2 pr7 x 0 r1 v va) (b0 pr24 x 0 r2)
(b0 pr2 x 0 r3))) (80 ((vvv x 80 r2 va v) (b2 pr8 x 0 r1 v 
va) (b0 pr1 x 0 r2) (b0 pr1 x 0 r3))) (79 ((vvv x 79 r2 va v
) (b2 pr8 x 0 r1 v va) (b0 pr2 x 0 r2) (b0 pr1 x 0 r3))) (78
((vvv x 78 r2 va v) (b2 pr8 x 0 r1 v va) (b0 pr24 x 0 r2) (
b0 pr1 x 0 r3))) (77 ((vvv x 77 r2 va v) (b2 pr8 x 0 r1 v va
) (b0 pr24 x 0 r2) (b0 pr2 x 0 r3))) (76 ((vvv x 76 r2 va v)
(b2 pr9 x 0 r1 v va) (b0 pr1 x 0 r2) (b0 pr1 x 0 r3))) (75 (
(vvv x 75 r2 va v) (b2 pr9 x 0 r1 v va) (b0 pr2 x 0 r2) (b0
pr1 x 0 r3))) (74 ((vvv x 74 r2 va v) (b2 pr9 x 0 r1 v va) (
b0 pr24 x 0 r2) (b0 pr1 x 0 r3))) (73 ((vvv x 73 r2 va v) (
b2 pr9 x 0 r1 v va) (b0 pr24 x 0 r2) (b0 pr2 x 0 r3))) (72 (
(vvv x 72 r2 va v) (b2 pr11 x 0 r1 v va) (b0 pr1 x 0 r2) (b0
pr1 x 0 r3))) (71 ((vvv x 71 r2 va v) (b2 pr11 x 0 r1 v va)
(b0 pr2 x 0 r2) (b0 pr1 x 0 r3))) (70 ((vvv x 70 r2 va v) (
b2 pr11 x 0 r1 v va) (b0 pr24 x 0 r2) (b0 pr1 x 0 r3))) (69
((vvv x 69 r2 va v) (b2 pr11 x 0 r1 v va) (b0 pr24 x 0 r2) (
b0 pr2 x 0 r3))) (68 ((vvv x 68 r2 va v) (b2 pr12 x 0 r1 v 
va) (b0 pr1 x 0 r2) (b0 pr1 x 0 r3))) (67 ((vvv x 67 r2 va v
) (b2 pr12 x 0 r1 v va) (b0 pr2 x 0 r2) (b0 pr1 x 0 r3))) (
66 ((vvv x 66 r2 va v) (b2 pr12 x 0 r1 v va) (b0 pr24 x 0 r2
) (b0 pr1 x 0 r3))) (65 ((vvv x 65 r2 va v) (b2 pr12 x 0 r1
v va) (b0 pr24 x 0 r2) (b0 pr2 x 0 r3))) (64 ((vvv x 64 r2 
va v) (b2 pr13 x 0 r1 v va) (b0 pr1 x 0 r2) (b0 pr1 x 0 r3))
) (63 ((vvv x 63 r2 va v) (b2 pr13 x 0 r1 v va) (b0 pr2 x 0
r2) (b0 pr1 x 0 r3))) (62 ((vvv x 62 r2 va v) (b2 pr13 x 0 
r1 v va) (b0 pr2 x 0 r2) (b0 pr2 x 0 r3))) (61 ((vvv x 61 r2
va v) (b2 pr13 x 0 r1 v va) (b0 pr24 x 0 r2) (b0 pr1 x 0 r3)
)) (60 ((vvv x 60 r2 va v) (b2 pr13 x 0 r1 v va) (b0 pr24 x
0 r2) (b0 pr2 x 0 r3))) (59 ((vvv x 59 r2 va v) (b2 pr14 x 0
r1 v va) (b0 pr1 x 0 r2) (b0 pr1 x 0 r3))) (58 ((vvv x 58 r2
va v) (b2 pr14 x 0 r1 v va) (b0 pr2 x 0 r2) (b0 pr1 x 0 r3))
) (57 ((vvv x 57 r2 va v) (b2 pr14 x 0 r1 v va) (b0 pr2 x 0
r2) (b0 pr2 x 0 r3))) (56 ((vvv x 56 r2 va v) (b2 pr14 x 0 
r1 v va) (b0 pr24 x 0 r2) (b0 pr1 x 0 r3))) (55 ((vvv x 55 
r2 va v) (b2 pr14 x 0 r1 v va) (b0 pr24 x 0 r2) (b0 pr2 x 0
r3))) (54 ((vvv x 54 r2 va v) (b2 pr18 x 0 r1 v va) (b0 pr1
x 0 r2) (b0 pr1 x 0 r3))) (53 ((vvv x 53 r2 va v) (b2 pr18 x
0 r1 v va) (b0 pr2 x 0 r2) (b0 pr1 x 0 r3))) (52 ((vvv x 52
r2 va v) (b2 pr18 x 0 r1 v va) (b0 pr2 x 0 r2) (b0 pr2 x 0 
r3))) (51 ((vvv x 51 r2 va v) (b2 pr18 x 0 r1 v va) (b0 pr24
x 0 r2) (b0 pr1 x 0 r3))) (50 ((vvv x 50 r2 va v) (b2 pr20 x
0 r1 v va) (b0 pr1 x 0 r2) (b0 pr1 x 0 r3))) (49 ((vvv x 49
r2 va v) (b2 pr20 x 0 r1 v va) (b0 pr2 x 0 r2) (b0 pr1 x 0 
r3))) (48 ((vvv x 48 r2 va v) (b2 pr20 x 0 r1 v va) (b0 pr2
x 0 r2) (b0 pr2 x 0 r3))) (47 ((vvv x 47 r2 va v) (b2 pr20 x
0 r1 v va) (b0 pr24 x 0 r2) (b0 pr1 x 0 r3))) (46 ((vvv x 46
r2 va v) (b2 pr23 x 0 r1 v va) (b0 pr1 x 0 r2) (b0 pr1 x 0 
r3))) (45 ((vvv x 45 r2 va v) (b2 pr23 x 0 r1 v va) (b0 pr2
x 0 r2) (b0 pr1 x 0 r3))) (44 ((vvv x 44 r2 va v) (b2 pr23 x
0 r1 v va) (b0 pr2 x 0 r2) (b0 pr2 x 0 r3))) (43 ((vvv x 43
r2 va v) (b2 pr23 x 0 r1 v va) (b0 pr24 x 0 r2) (b0 pr1 x 0
r3))) (42 ((vvv x 42 r2 v) (b1 pr3 x 0 r1 v) (b0 pr1 x 0 r2)
(b0 pr1 x 0 r3))) (41 ((vvv x 41 r2 v) (b1 pr3 x 0 r1 v) (b0
pr2 x 0 r2) (b0 pr1 x 0 r3))) (40 ((vvv x 40 r2 v) (b1 pr3 x
0 r1 v) (b0 pr24 x 0 r2) (b0 pr1 x 0 r3))) (39 ((vvv x 39 r2
v) (b1 pr3 x 0 r1 v) (b0 pr24 x 0 r2) (b0 pr2 x 0 r3))) (38
((vvv x 38) (b0 pr5 x 0 r1) (b0 pr1 x 0 r2) (b0 pr1 x 0 r3))
) (37 ((vvv x 37) (b0 pr10 x 0 r1) (b0 pr1 x 0 r2) (b0 pr1 x
0 r3))) (36 ((vvv x 36) (b0 pr10 x 0 r1) (b0 pr2 x 0 r2) (b0
pr1 x 0 r3))) (35 ((vvv x 35) (b0 pr15 x 0 r1) (b0 pr1 x 0 
r2) (b0 pr1 x 0 r3))) (34 ((vvv x 34) (b0 pr15 x 0 r1) (b0 
pr2 x 0 r2) (b0 pr1 x 0 r3))) (33 ((vvv x 33) (b0 pr15 x 0 
r1) (b0 pr2 x 0 r2) (b0 pr2 x 0 r3))) (32 ((vvv x 32) (b0 
pr17 x 0 r1) (b0 pr1 x 0 r2) (b0 pr1 x 0 r3))) (31 ((vvv x 
31) (b0 pr17 x 0 r1) (b0 pr2 x 0 r2) (b0 pr1 x 0 r3))) (30 (
(vvv x 30) (b0 pr17 x 0 r1) (b0 pr2 x 0 r2) (b0 pr2 x 0 r3))
) (29 ((vvv x 29) (b0 pr19 x 0 r1) (b0 pr1 x 0 r2) (b0 pr1 x
0 r3))) (28 ((vvv x 28) (b0 pr19 x 0 r1) (b0 pr2 x 0 r2) (b0
pr1 x 0 r3))) (27 ((vvv x 27) (b0 pr19 x 0 r1) (b0 pr2 x 0 
r2) (b0 pr2 x 0 r3))) (26 ((vvv x 26) (b0 pr22 x 0 r1) (b0 
pr1 x 0 r2) (b0 pr1 x 0 r3))) (25 ((vvv x 25) (b0 pr22 x 0 
r1) (b0 pr2 x 0 r2) (b0 pr1 x 0 r3))) (24 ((vvv x 24) (b0 
pr22 x 0 r1) (b0 pr2 x 0 r2) (b0 pr2 x 0 r3))) (23 ((vvv x 
23) (b0 pr24 x 0 r1) (b0 pr5 x 0 r2) (b0 pr1 x 0 r3))) (22 (
(vvv x 22) (b0 pr24 x 0 r1) (b0 pr5 x 0 r2) (b0 pr2 x 0 r3))
) (21 ((vvv x 21) (b0 pr24 x 0 r1) (b0 pr10 x 0 r2) (b0 pr1
x 0 r3))) (20 ((vvv x 20) (b0 pr24 x 0 r1) (b0 pr10 x 0 r2)
(b0 pr2 x 0 r3))) (19 ((vvv x 19) (b0 pr24 x 0 r1) (b0 pr15
x 0 r2) (b0 pr1 x 0 r3))) (18 ((vvv x 18) (b0 pr24 x 0 r1) (
b0 pr15 x 0 r2) (b0 pr2 x 0 r3))) (17 ((vvv x 17) (b0 pr24 x
0 r1) (b0 pr17 x 0 r2) (b0 pr1 x 0 r3))) (16 ((vvv x 16) (b0
pr24 x 0 r1) (b0 pr19 x 0 r2) (b0 pr1 x 0 r3))) (15 ((vvv x
15) (b0 pr24 x 0 r1) (b0 pr22 x 0 r2) (b0 pr1 x 0 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))))
 $
htionlist:='((g (1 135 134 133 132 131 130 129 128 127 126 
125 124 123 122 121 120 119 118 117 116 115 114 113 112 111
110 109 108 107 106 105 104 103 102 101 100 99 98 97 96 95 
94 93 92 91 90 89 88 87 86 85 84 83 82 81 80 79 78 77 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 16 15
3 4 8 9 10 11 12 14) (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 p19m
w19d p20m w20d p21m w21d p22m w22d p23m w23d p24m w24d 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:='(pr24 pr23 pr22 pr21 pr20 pr19 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 pr24 pr23 pr22 pr21 pr20 pr19 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 pr19 pr20 pr21 pr22 pr23
pr24 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) (b2 s2) (b4 s4
))
 $
end;
 $
