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

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