Context Navigation

Back to HiggsCharacterisation

HiggsCharacterisation: HC.nb

File HC.nb, 953.0 KB (added by mawatari, 11 years ago)
Mathematica notebook

Line
1	(* Content-type: application/vnd.wolfram.mathematica *)
2
3	(* Wolfram Notebook File *)
4	(* http://www.wolfram.com/nb *)
5
6	(* CreatedBy='Mathematica 8.0' *)
7
8	(CacheID: 234)
9	(* Internal cache information:
10	NotebookFileLineBreakTest
11	NotebookFileLineBreakTest
12	NotebookDataPosition[ 157, 7]
13	NotebookDataLength[ 975642, 24556]
14	NotebookOptionsPosition[ 927848, 23400]
15	NotebookOutlinePosition[ 928278, 23419]
16	CellTagsIndexPosition[ 928235, 23416]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21	Cell[BoxData[
22	RowBox[{"Quit", "[", "]"}]], "Input",
23	CellChangeTimes->{{3.4921467751527157`^9, 3.492146812657303^9}}],
24
25	Cell[CellGroupData[{
26
27	Cell[BoxData[{
28	RowBox[{
29	RowBox[{"$FeynRulesPath", "=",
30	RowBox[{
31	"SetDirectory", "[", "\"\</Users/mawatari/work/FR/v2.0.6/\>\"", "]"}]}],
32	";"}], "\[IndentingNewLine]",
33	RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
34	RowBox[{
35	RowBox[{"SetDirectory", "[",
36	RowBox[{"$FeynRulesPath", "<>", "\"\</Models/HC\>\""}], "]"}],
37	";"}]}], "Input",
38	CellChangeTimes->{{3.562493790773467^9, 3.56249379133423^9}, {
39	3.5669854592231197`^9, 3.566985470009097^9}, {3.573969547023426*^9,
40	3.573969552638027^9}, {3.5763110817083693`^9, 3.576311082380014*^9}, {
41	3.577095398145216^9, 3.577095424358136^9}, {3.579449013242025*^9,
42	3.5794490139598637`^9}, {3.581151089241591^9, 3.581151095405628*^9}, {
43	3.591006102395862^9, 3.591006102747958^9}, {3.5953297894365797`*^9,
44	3.595329795947875*^9}}],
45
46	Cell[CellGroupData[{
47
48	Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
49	CellChangeTimes->{
50	3.573969561534667^9, 3.573988921638503^9, 3.573989128428218*^9,
51	3.573990252164946^9, 3.573990757429809^9, 3.57399082394011*^9,
52	3.574002676830162^9, 3.574164201610569^9, 3.574164433488543*^9,
53	3.574164878470636^9, {3.574165545972145^9, 3.574165563408424*^9},
54	3.5741656019888077`^9, 3.574166045925473^9, 3.574166230539588*^9, {
55	3.57416732700756^9, 3.574167355775147^9}, 3.574167804991696*^9,
56	3.5741679908243^9, 3.5741680550586^9, 3.574445338740305*^9,
57	3.574658150803811^9, {3.574659751483637^9, 3.574659763196375*^9},
58	3.574660235076756^9, 3.574660928044083^9, 3.574660965521503*^9,
59	3.5746774577755737`^9, 3.574680642599476^9, 3.5746819309924183`*^9,
60	3.574682434542107^9, 3.574683307427603^9, 3.574741377827265*^9,
61	3.575973238845565^9, 3.575977137229869^9, 3.575977363038227*^9,
62	3.575977647811903^9, 3.5759776796556683`^9, 3.575977823112645*^9,
63	3.575978808354129^9, 3.576307072711788^9, 3.576307137575633*^9,
64	3.576308001074135^9, 3.576310726164761^9, 3.5763107577389803`*^9,
65	3.5763108327262907`^9, 3.5763110853297157`^9, 3.576311605838085*^9,
66	3.577095431088361^9, 3.577106315183086^9, 3.577107420221664*^9,
67	3.577109839517481^9, 3.5771582361754427`^9, 3.577160173939103*^9,
68	3.5774271090854816`^9, 3.579349128193363^9, {3.579379601645918*^9,
69	3.579379613905096^9}, 3.579380479244913^9, 3.579381230719664*^9,
70	3.579381817528495^9, 3.5793819445876513`^9, 3.5793821086824703`*^9,
71	3.579382389975662^9, 3.579382519755333^9, 3.579382590474183*^9,
72	3.579382670424045^9, 3.579383289177012^9, 3.579383891841668*^9,
73	3.579409938122939^9, 3.5794103610924273`^9, 3.579410568675372*^9,
74	3.57941065262562^9, 3.579411623549409^9, 3.5794280314096107`*^9,
75	3.5794283905734386`^9, 3.579429046049884^9, 3.5794291740775013`*^9,
76	3.579432503227852^9, {3.5794326123886633`^9, 3.5794326289078693`*^9},
77	3.57943280024575^9, 3.579432855691215^9, 3.5794333809227543`*^9,
78	3.579433448211287^9, 3.5794342469619427`^9, 3.579434565824304*^9,
79	3.579434946567897^9, 3.579435334371467^9, 3.579437346526101*^9,
80	3.5794374101071787`^9, 3.5794374692567883`^9, 3.579437701867044*^9,
81	3.5794433091544027`^9, 3.579443431957872^9, {3.5794435450520267`*^9,
82	3.579443568777512^9}, 3.5794436320897017`^9, 3.5794484720033703`*^9,
83	3.579449020569099^9, 3.57945026805641^9, 3.5794503447973413`*^9,
84	3.579450586200161^9, 3.579450653152474^9, 3.5794506929516478`*^9,
85	3.579450777155436^9, 3.579450876796424^9, 3.579451350624729*^9,
86	3.5794547243567457`^9, 3.579455888105839^9, 3.5794560621773*^9,
87	3.579509498126337^9, 3.579510005252969^9, 3.579510146867529*^9,
88	3.579511919397335^9, 3.579512200747849^9, 3.579516664896183*^9,
89	3.579516814757353^9, 3.5795170252970552`^9, 3.579517080410318*^9,
90	3.5795173346221437`^9, 3.579517403000581^9, 3.5795175071528807`*^9,
91	3.579517665410318^9, 3.5795197785930233`^9, 3.579539604176497*^9,
92	3.57953963439496^9, 3.5795397479080772`^9, 3.579542435722248*^9,
93	3.5795427786566067`^9, 3.579542856961687^9, 3.579543889539413*^9,
94	3.579543982151785^9, 3.579579824030398^9, 3.579579988605357*^9,
95	3.5795800393356867`^9, 3.579580376076899^9, {3.579592506097886*^9,
96	3.579592532149353^9}, 3.579592586475993^9, 3.57959270402531*^9,
97	3.579594489157303^9, 3.57959456007439^9, 3.579595456189417*^9,
98	3.57959572848632^9, 3.579599199589302^9, 3.579599978576936*^9,
99	3.579600693234166^9, 3.579605907929237^9, 3.57960630660867*^9,
100	3.579606455080131^9, 3.579608777300606^9, 3.5796091277345037`*^9,
101	3.579609300593313^9, 3.579764692442464^9, 3.5797648539516153`*^9,
102	3.579765173494046^9, 3.579765581901507^9, 3.5797673295744333`*^9,
103	3.5797683718417664`^9, 3.5797684217470713`^9, {3.5797686949262342`*^9,
104	3.579768722153154^9}, 3.5797688144328737`^9, 3.57976886269013*^9, {
105	3.579768908604993^9, 3.579768934051848^9}, 3.579769861079896*^9,
106	3.579769902215477^9, 3.579769932217967^9, 3.5797699786071653`*^9,
107	3.57977028562698^9, 3.5797703195910797`^9, 3.579770378790167*^9,
108	3.5797704125899143`^9, 3.5797704440162477`^9, 3.579770499831688*^9,
109	3.5797710518723297`^9, {3.579771821154909^9, 3.5797718487332582`*^9},
110	3.579772239239581^9, 3.579772859592701^9, 3.57977301554532*^9, {
111	3.579773104297743^9, 3.579773116073043^9}, 3.579773474557328*^9,
112	3.579775158534446^9, 3.579775201800521^9, 3.579775596284588*^9,
113	3.579775660825754^9, 3.5797760723592043`^9, 3.579779028527691*^9,
114	3.5799537695858917`^9, 3.580053223786955^9, 3.5800532781940193`*^9,
115	3.580069380359521^9, 3.5801159985682^9, 3.580127094105034*^9,
116	3.580140758787333^9, 3.5801408481083317`^9, 3.580143601394751*^9,
117	3.580277946213983^9, 3.580278344278553^9, 3.58073030754633*^9,
118	3.5807885766559896`^9, 3.5811511037854156`^9, 3.581151237129856*^9,
119	3.581152685289069^9, 3.5813915287005653`^9, 3.581924809955205*^9,
120	3.581956186148337^9, 3.581956800072421^9, 3.581957349295961*^9,
121	3.581959939424966^9, 3.58196006313443^9, 3.581960412127674*^9,
122	3.583279495773596^9, 3.583645080873787^9, 3.583654930752223*^9,
123	3.583655431957835^9, 3.583655686486383^9, 3.5836567487849903`*^9,
124	3.583657122726652^9, 3.583657186840127^9, 3.591006105908379*^9,
125	3.591006252498472^9, 3.5910077177068243`^9, 3.595329801210762*^9,
126	3.595338853185124^9, {3.5955896466505003`^9, 3.595589674567102*^9},
127	3.595590902012226^9, 3.595591801261991^9, 3.595593658865198*^9,
128	3.595655159170542^9, 3.595655744252029^9, 3.595758711968094*^9,
129	3.595774251081539^9, 3.5957749799360228`^9}],
130
131	Cell[BoxData[
132	InterpretationBox[
133	RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.0.6\"\>",
134	"\[InvisibleSpace]",
135	RowBox[{"\<\" (\"\>", " ", "\<\"26 November 2013\"\>"}],
136	"\[InvisibleSpace]", "\<\").\"\>"}],
137	SequenceForm["Version: ", "2.0.6", " (" "26 November 2013", ")."],
138	Editable->False]], "Print",
139	CellChangeTimes->{
140	3.573969561534667^9, 3.573988921638503^9, 3.573989128428218*^9,
141	3.573990252164946^9, 3.573990757429809^9, 3.57399082394011*^9,
142	3.574002676830162^9, 3.574164201610569^9, 3.574164433488543*^9,
143	3.574164878470636^9, {3.574165545972145^9, 3.574165563408424*^9},
144	3.5741656019888077`^9, 3.574166045925473^9, 3.574166230539588*^9, {
145	3.57416732700756^9, 3.574167355775147^9}, 3.574167804991696*^9,
146	3.5741679908243^9, 3.5741680550586^9, 3.574445338740305*^9,
147	3.574658150803811^9, {3.574659751483637^9, 3.574659763196375*^9},
148	3.574660235076756^9, 3.574660928044083^9, 3.574660965521503*^9,
149	3.5746774577755737`^9, 3.574680642599476^9, 3.5746819309924183`*^9,
150	3.574682434542107^9, 3.574683307427603^9, 3.574741377827265*^9,
151	3.575973238845565^9, 3.575977137229869^9, 3.575977363038227*^9,
152	3.575977647811903^9, 3.5759776796556683`^9, 3.575977823112645*^9,
153	3.575978808354129^9, 3.576307072711788^9, 3.576307137575633*^9,
154	3.576308001074135^9, 3.576310726164761^9, 3.5763107577389803`*^9,
155	3.5763108327262907`^9, 3.5763110853297157`^9, 3.576311605838085*^9,
156	3.577095431088361^9, 3.577106315183086^9, 3.577107420221664*^9,
157	3.577109839517481^9, 3.5771582361754427`^9, 3.577160173939103*^9,
158	3.5774271090854816`^9, 3.579349128193363^9, {3.579379601645918*^9,
159	3.579379613905096^9}, 3.579380479244913^9, 3.579381230719664*^9,
160	3.579381817528495^9, 3.5793819445876513`^9, 3.5793821086824703`*^9,
161	3.579382389975662^9, 3.579382519755333^9, 3.579382590474183*^9,
162	3.579382670424045^9, 3.579383289177012^9, 3.579383891841668*^9,
163	3.579409938122939^9, 3.5794103610924273`^9, 3.579410568675372*^9,
164	3.57941065262562^9, 3.579411623549409^9, 3.5794280314096107`*^9,
165	3.5794283905734386`^9, 3.579429046049884^9, 3.5794291740775013`*^9,
166	3.579432503227852^9, {3.5794326123886633`^9, 3.5794326289078693`*^9},
167	3.57943280024575^9, 3.579432855691215^9, 3.5794333809227543`*^9,
168	3.579433448211287^9, 3.5794342469619427`^9, 3.579434565824304*^9,
169	3.579434946567897^9, 3.579435334371467^9, 3.579437346526101*^9,
170	3.5794374101071787`^9, 3.5794374692567883`^9, 3.579437701867044*^9,
171	3.5794433091544027`^9, 3.579443431957872^9, {3.5794435450520267`*^9,
172	3.579443568777512^9}, 3.5794436320897017`^9, 3.5794484720033703`*^9,
173	3.579449020569099^9, 3.57945026805641^9, 3.5794503447973413`*^9,
174	3.579450586200161^9, 3.579450653152474^9, 3.5794506929516478`*^9,
175	3.579450777155436^9, 3.579450876796424^9, 3.579451350624729*^9,
176	3.5794547243567457`^9, 3.579455888105839^9, 3.5794560621773*^9,
177	3.579509498126337^9, 3.579510005252969^9, 3.579510146867529*^9,
178	3.579511919397335^9, 3.579512200747849^9, 3.579516664896183*^9,
179	3.579516814757353^9, 3.5795170252970552`^9, 3.579517080410318*^9,
180	3.5795173346221437`^9, 3.579517403000581^9, 3.5795175071528807`*^9,
181	3.579517665410318^9, 3.5795197785930233`^9, 3.579539604176497*^9,
182	3.57953963439496^9, 3.5795397479080772`^9, 3.579542435722248*^9,
183	3.5795427786566067`^9, 3.579542856961687^9, 3.579543889539413*^9,
184	3.579543982151785^9, 3.579579824030398^9, 3.579579988605357*^9,
185	3.5795800393356867`^9, 3.579580376076899^9, {3.579592506097886*^9,
186	3.579592532149353^9}, 3.579592586475993^9, 3.57959270402531*^9,
187	3.579594489157303^9, 3.57959456007439^9, 3.579595456189417*^9,
188	3.57959572848632^9, 3.579599199589302^9, 3.579599978576936*^9,
189	3.579600693234166^9, 3.579605907929237^9, 3.57960630660867*^9,
190	3.579606455080131^9, 3.579608777300606^9, 3.5796091277345037`*^9,
191	3.579609300593313^9, 3.579764692442464^9, 3.5797648539516153`*^9,
192	3.579765173494046^9, 3.579765581901507^9, 3.5797673295744333`*^9,
193	3.5797683718417664`^9, 3.5797684217470713`^9, {3.5797686949262342`*^9,
194	3.579768722153154^9}, 3.5797688144328737`^9, 3.57976886269013*^9, {
195	3.579768908604993^9, 3.579768934051848^9}, 3.579769861079896*^9,
196	3.579769902215477^9, 3.579769932217967^9, 3.5797699786071653`*^9,
197	3.57977028562698^9, 3.5797703195910797`^9, 3.579770378790167*^9,
198	3.5797704125899143`^9, 3.5797704440162477`^9, 3.579770499831688*^9,
199	3.5797710518723297`^9, {3.579771821154909^9, 3.5797718487332582`*^9},
200	3.579772239239581^9, 3.579772859592701^9, 3.57977301554532*^9, {
201	3.579773104297743^9, 3.579773116073043^9}, 3.579773474557328*^9,
202	3.579775158534446^9, 3.579775201800521^9, 3.579775596284588*^9,
203	3.579775660825754^9, 3.5797760723592043`^9, 3.579779028527691*^9,
204	3.5799537695858917`^9, 3.580053223786955^9, 3.5800532781940193`*^9,
205	3.580069380359521^9, 3.5801159985682^9, 3.580127094105034*^9,
206	3.580140758787333^9, 3.5801408481083317`^9, 3.580143601394751*^9,
207	3.580277946213983^9, 3.580278344278553^9, 3.58073030754633*^9,
208	3.5807885766559896`^9, 3.5811511037854156`^9, 3.581151237129856*^9,
209	3.581152685289069^9, 3.5813915287005653`^9, 3.581924809955205*^9,
210	3.581956186148337^9, 3.581956800072421^9, 3.581957349295961*^9,
211	3.581959939424966^9, 3.58196006313443^9, 3.581960412127674*^9,
212	3.583279495773596^9, 3.583645080873787^9, 3.583654930752223*^9,
213	3.583655431957835^9, 3.583655686486383^9, 3.5836567487849903`*^9,
214	3.583657122726652^9, 3.583657186840127^9, 3.591006105908379*^9,
215	3.591006252498472^9, 3.5910077177068243`^9, 3.595329801210762*^9,
216	3.595338853185124^9, {3.5955896466505003`^9, 3.595589674567102*^9},
217	3.595590902012226^9, 3.595591801261991^9, 3.595593658865198*^9,
218	3.595655159170542^9, 3.595655744252029^9, 3.595758711968094*^9,
219	3.595774251081539^9, 3.595774979941834^9}],
220
221	Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
222	B. Fuks\"\>"], "Print",
223	CellChangeTimes->{
224	3.573969561534667^9, 3.573988921638503^9, 3.573989128428218*^9,
225	3.573990252164946^9, 3.573990757429809^9, 3.57399082394011*^9,
226	3.574002676830162^9, 3.574164201610569^9, 3.574164433488543*^9,
227	3.574164878470636^9, {3.574165545972145^9, 3.574165563408424*^9},
228	3.5741656019888077`^9, 3.574166045925473^9, 3.574166230539588*^9, {
229	3.57416732700756^9, 3.574167355775147^9}, 3.574167804991696*^9,
230	3.5741679908243^9, 3.5741680550586^9, 3.574445338740305*^9,
231	3.574658150803811^9, {3.574659751483637^9, 3.574659763196375*^9},
232	3.574660235076756^9, 3.574660928044083^9, 3.574660965521503*^9,
233	3.5746774577755737`^9, 3.574680642599476^9, 3.5746819309924183`*^9,
234	3.574682434542107^9, 3.574683307427603^9, 3.574741377827265*^9,
235	3.575973238845565^9, 3.575977137229869^9, 3.575977363038227*^9,
236	3.575977647811903^9, 3.5759776796556683`^9, 3.575977823112645*^9,
237	3.575978808354129^9, 3.576307072711788^9, 3.576307137575633*^9,
238	3.576308001074135^9, 3.576310726164761^9, 3.5763107577389803`*^9,
239	3.5763108327262907`^9, 3.5763110853297157`^9, 3.576311605838085*^9,
240	3.577095431088361^9, 3.577106315183086^9, 3.577107420221664*^9,
241	3.577109839517481^9, 3.5771582361754427`^9, 3.577160173939103*^9,
242	3.5774271090854816`^9, 3.579349128193363^9, {3.579379601645918*^9,
243	3.579379613905096^9}, 3.579380479244913^9, 3.579381230719664*^9,
244	3.579381817528495^9, 3.5793819445876513`^9, 3.5793821086824703`*^9,
245	3.579382389975662^9, 3.579382519755333^9, 3.579382590474183*^9,
246	3.579382670424045^9, 3.579383289177012^9, 3.579383891841668*^9,
247	3.579409938122939^9, 3.5794103610924273`^9, 3.579410568675372*^9,
248	3.57941065262562^9, 3.579411623549409^9, 3.5794280314096107`*^9,
249	3.5794283905734386`^9, 3.579429046049884^9, 3.5794291740775013`*^9,
250	3.579432503227852^9, {3.5794326123886633`^9, 3.5794326289078693`*^9},
251	3.57943280024575^9, 3.579432855691215^9, 3.5794333809227543`*^9,
252	3.579433448211287^9, 3.5794342469619427`^9, 3.579434565824304*^9,
253	3.579434946567897^9, 3.579435334371467^9, 3.579437346526101*^9,
254	3.5794374101071787`^9, 3.5794374692567883`^9, 3.579437701867044*^9,
255	3.5794433091544027`^9, 3.579443431957872^9, {3.5794435450520267`*^9,
256	3.579443568777512^9}, 3.5794436320897017`^9, 3.5794484720033703`*^9,
257	3.579449020569099^9, 3.57945026805641^9, 3.5794503447973413`*^9,
258	3.579450586200161^9, 3.579450653152474^9, 3.5794506929516478`*^9,
259	3.579450777155436^9, 3.579450876796424^9, 3.579451350624729*^9,
260	3.5794547243567457`^9, 3.579455888105839^9, 3.5794560621773*^9,
261	3.579509498126337^9, 3.579510005252969^9, 3.579510146867529*^9,
262	3.579511919397335^9, 3.579512200747849^9, 3.579516664896183*^9,
263	3.579516814757353^9, 3.5795170252970552`^9, 3.579517080410318*^9,
264	3.5795173346221437`^9, 3.579517403000581^9, 3.5795175071528807`*^9,
265	3.579517665410318^9, 3.5795197785930233`^9, 3.579539604176497*^9,
266	3.57953963439496^9, 3.5795397479080772`^9, 3.579542435722248*^9,
267	3.5795427786566067`^9, 3.579542856961687^9, 3.579543889539413*^9,
268	3.579543982151785^9, 3.579579824030398^9, 3.579579988605357*^9,
269	3.5795800393356867`^9, 3.579580376076899^9, {3.579592506097886*^9,
270	3.579592532149353^9}, 3.579592586475993^9, 3.57959270402531*^9,
271	3.579594489157303^9, 3.57959456007439^9, 3.579595456189417*^9,
272	3.57959572848632^9, 3.579599199589302^9, 3.579599978576936*^9,
273	3.579600693234166^9, 3.579605907929237^9, 3.57960630660867*^9,
274	3.579606455080131^9, 3.579608777300606^9, 3.5796091277345037`*^9,
275	3.579609300593313^9, 3.579764692442464^9, 3.5797648539516153`*^9,
276	3.579765173494046^9, 3.579765581901507^9, 3.5797673295744333`*^9,
277	3.5797683718417664`^9, 3.5797684217470713`^9, {3.5797686949262342`*^9,
278	3.579768722153154^9}, 3.5797688144328737`^9, 3.57976886269013*^9, {
279	3.579768908604993^9, 3.579768934051848^9}, 3.579769861079896*^9,
280	3.579769902215477^9, 3.579769932217967^9, 3.5797699786071653`*^9,
281	3.57977028562698^9, 3.5797703195910797`^9, 3.579770378790167*^9,
282	3.5797704125899143`^9, 3.5797704440162477`^9, 3.579770499831688*^9,
283	3.5797710518723297`^9, {3.579771821154909^9, 3.5797718487332582`*^9},
284	3.579772239239581^9, 3.579772859592701^9, 3.57977301554532*^9, {
285	3.579773104297743^9, 3.579773116073043^9}, 3.579773474557328*^9,
286	3.579775158534446^9, 3.579775201800521^9, 3.579775596284588*^9,
287	3.579775660825754^9, 3.5797760723592043`^9, 3.579779028527691*^9,
288	3.5799537695858917`^9, 3.580053223786955^9, 3.5800532781940193`*^9,
289	3.580069380359521^9, 3.5801159985682^9, 3.580127094105034*^9,
290	3.580140758787333^9, 3.5801408481083317`^9, 3.580143601394751*^9,
291	3.580277946213983^9, 3.580278344278553^9, 3.58073030754633*^9,
292	3.5807885766559896`^9, 3.5811511037854156`^9, 3.581151237129856*^9,
293	3.581152685289069^9, 3.5813915287005653`^9, 3.581924809955205*^9,
294	3.581956186148337^9, 3.581956800072421^9, 3.581957349295961*^9,
295	3.581959939424966^9, 3.58196006313443^9, 3.581960412127674*^9,
296	3.583279495773596^9, 3.583645080873787^9, 3.583654930752223*^9,
297	3.583655431957835^9, 3.583655686486383^9, 3.5836567487849903`*^9,
298	3.583657122726652^9, 3.583657186840127^9, 3.591006105908379*^9,
299	3.591006252498472^9, 3.5910077177068243`^9, 3.595329801210762*^9,
300	3.595338853185124^9, {3.5955896466505003`^9, 3.595589674567102*^9},
301	3.595590902012226^9, 3.595591801261991^9, 3.595593658865198*^9,
302	3.595655159170542^9, 3.595655744252029^9, 3.595758711968094*^9,
303	3.595774251081539^9, 3.595774979948028^9}],
304
305	Cell[BoxData["\<\" \"\>"], "Print",
306	CellChangeTimes->{
307	3.573969561534667^9, 3.573988921638503^9, 3.573989128428218*^9,
308	3.573990252164946^9, 3.573990757429809^9, 3.57399082394011*^9,
309	3.574002676830162^9, 3.574164201610569^9, 3.574164433488543*^9,
310	3.574164878470636^9, {3.574165545972145^9, 3.574165563408424*^9},
311	3.5741656019888077`^9, 3.574166045925473^9, 3.574166230539588*^9, {
312	3.57416732700756^9, 3.574167355775147^9}, 3.574167804991696*^9,
313	3.5741679908243^9, 3.5741680550586^9, 3.574445338740305*^9,
314	3.574658150803811^9, {3.574659751483637^9, 3.574659763196375*^9},
315	3.574660235076756^9, 3.574660928044083^9, 3.574660965521503*^9,
316	3.5746774577755737`^9, 3.574680642599476^9, 3.5746819309924183`*^9,
317	3.574682434542107^9, 3.574683307427603^9, 3.574741377827265*^9,
318	3.575973238845565^9, 3.575977137229869^9, 3.575977363038227*^9,
319	3.575977647811903^9, 3.5759776796556683`^9, 3.575977823112645*^9,
320	3.575978808354129^9, 3.576307072711788^9, 3.576307137575633*^9,
321	3.576308001074135^9, 3.576310726164761^9, 3.5763107577389803`*^9,
322	3.5763108327262907`^9, 3.5763110853297157`^9, 3.576311605838085*^9,
323	3.577095431088361^9, 3.577106315183086^9, 3.577107420221664*^9,
324	3.577109839517481^9, 3.5771582361754427`^9, 3.577160173939103*^9,
325	3.5774271090854816`^9, 3.579349128193363^9, {3.579379601645918*^9,
326	3.579379613905096^9}, 3.579380479244913^9, 3.579381230719664*^9,
327	3.579381817528495^9, 3.5793819445876513`^9, 3.5793821086824703`*^9,
328	3.579382389975662^9, 3.579382519755333^9, 3.579382590474183*^9,
329	3.579382670424045^9, 3.579383289177012^9, 3.579383891841668*^9,
330	3.579409938122939^9, 3.5794103610924273`^9, 3.579410568675372*^9,
331	3.57941065262562^9, 3.579411623549409^9, 3.5794280314096107`*^9,
332	3.5794283905734386`^9, 3.579429046049884^9, 3.5794291740775013`*^9,
333	3.579432503227852^9, {3.5794326123886633`^9, 3.5794326289078693`*^9},
334	3.57943280024575^9, 3.579432855691215^9, 3.5794333809227543`*^9,
335	3.579433448211287^9, 3.5794342469619427`^9, 3.579434565824304*^9,
336	3.579434946567897^9, 3.579435334371467^9, 3.579437346526101*^9,
337	3.5794374101071787`^9, 3.5794374692567883`^9, 3.579437701867044*^9,
338	3.5794433091544027`^9, 3.579443431957872^9, {3.5794435450520267`*^9,
339	3.579443568777512^9}, 3.5794436320897017`^9, 3.5794484720033703`*^9,
340	3.579449020569099^9, 3.57945026805641^9, 3.5794503447973413`*^9,
341	3.579450586200161^9, 3.579450653152474^9, 3.5794506929516478`*^9,
342	3.579450777155436^9, 3.579450876796424^9, 3.579451350624729*^9,
343	3.5794547243567457`^9, 3.579455888105839^9, 3.5794560621773*^9,
344	3.579509498126337^9, 3.579510005252969^9, 3.579510146867529*^9,
345	3.579511919397335^9, 3.579512200747849^9, 3.579516664896183*^9,
346	3.579516814757353^9, 3.5795170252970552`^9, 3.579517080410318*^9,
347	3.5795173346221437`^9, 3.579517403000581^9, 3.5795175071528807`*^9,
348	3.579517665410318^9, 3.5795197785930233`^9, 3.579539604176497*^9,
349	3.57953963439496^9, 3.5795397479080772`^9, 3.579542435722248*^9,
350	3.5795427786566067`^9, 3.579542856961687^9, 3.579543889539413*^9,
351	3.579543982151785^9, 3.579579824030398^9, 3.579579988605357*^9,
352	3.5795800393356867`^9, 3.579580376076899^9, {3.579592506097886*^9,
353	3.579592532149353^9}, 3.579592586475993^9, 3.57959270402531*^9,
354	3.579594489157303^9, 3.57959456007439^9, 3.579595456189417*^9,
355	3.57959572848632^9, 3.579599199589302^9, 3.579599978576936*^9,
356	3.579600693234166^9, 3.579605907929237^9, 3.57960630660867*^9,
357	3.579606455080131^9, 3.579608777300606^9, 3.5796091277345037`*^9,
358	3.579609300593313^9, 3.579764692442464^9, 3.5797648539516153`*^9,
359	3.579765173494046^9, 3.579765581901507^9, 3.5797673295744333`*^9,
360	3.5797683718417664`^9, 3.5797684217470713`^9, {3.5797686949262342`*^9,
361	3.579768722153154^9}, 3.5797688144328737`^9, 3.57976886269013*^9, {
362	3.579768908604993^9, 3.579768934051848^9}, 3.579769861079896*^9,
363	3.579769902215477^9, 3.579769932217967^9, 3.5797699786071653`*^9,
364	3.57977028562698^9, 3.5797703195910797`^9, 3.579770378790167*^9,
365	3.5797704125899143`^9, 3.5797704440162477`^9, 3.579770499831688*^9,
366	3.5797710518723297`^9, {3.579771821154909^9, 3.5797718487332582`*^9},
367	3.579772239239581^9, 3.579772859592701^9, 3.57977301554532*^9, {
368	3.579773104297743^9, 3.579773116073043^9}, 3.579773474557328*^9,
369	3.579775158534446^9, 3.579775201800521^9, 3.579775596284588*^9,
370	3.579775660825754^9, 3.5797760723592043`^9, 3.579779028527691*^9,
371	3.5799537695858917`^9, 3.580053223786955^9, 3.5800532781940193`*^9,
372	3.580069380359521^9, 3.5801159985682^9, 3.580127094105034*^9,
373	3.580140758787333^9, 3.5801408481083317`^9, 3.580143601394751*^9,
374	3.580277946213983^9, 3.580278344278553^9, 3.58073030754633*^9,
375	3.5807885766559896`^9, 3.5811511037854156`^9, 3.581151237129856*^9,
376	3.581152685289069^9, 3.5813915287005653`^9, 3.581924809955205*^9,
377	3.581956186148337^9, 3.581956800072421^9, 3.581957349295961*^9,
378	3.581959939424966^9, 3.58196006313443^9, 3.581960412127674*^9,
379	3.583279495773596^9, 3.583645080873787^9, 3.583654930752223*^9,
380	3.583655431957835^9, 3.583655686486383^9, 3.5836567487849903`*^9,
381	3.583657122726652^9, 3.583657186840127^9, 3.591006105908379*^9,
382	3.591006252498472^9, 3.5910077177068243`^9, 3.595329801210762*^9,
383	3.595338853185124^9, {3.5955896466505003`^9, 3.595589674567102*^9},
384	3.595590902012226^9, 3.595591801261991^9, 3.595593658865198*^9,
385	3.595655159170542^9, 3.595655744252029^9, 3.595758711968094*^9,
386	3.595774251081539^9, 3.595774979953937^9}],
387
388	Cell[BoxData["\<\"Please cite:\"\>"], "Print",
389	CellChangeTimes->{
390	3.573969561534667^9, 3.573988921638503^9, 3.573989128428218*^9,
391	3.573990252164946^9, 3.573990757429809^9, 3.57399082394011*^9,
392	3.574002676830162^9, 3.574164201610569^9, 3.574164433488543*^9,
393	3.574164878470636^9, {3.574165545972145^9, 3.574165563408424*^9},
394	3.5741656019888077`^9, 3.574166045925473^9, 3.574166230539588*^9, {
395	3.57416732700756^9, 3.574167355775147^9}, 3.574167804991696*^9,
396	3.5741679908243^9, 3.5741680550586^9, 3.574445338740305*^9,
397	3.574658150803811^9, {3.574659751483637^9, 3.574659763196375*^9},
398	3.574660235076756^9, 3.574660928044083^9, 3.574660965521503*^9,
399	3.5746774577755737`^9, 3.574680642599476^9, 3.5746819309924183`*^9,
400	3.574682434542107^9, 3.574683307427603^9, 3.574741377827265*^9,
401	3.575973238845565^9, 3.575977137229869^9, 3.575977363038227*^9,
402	3.575977647811903^9, 3.5759776796556683`^9, 3.575977823112645*^9,
403	3.575978808354129^9, 3.576307072711788^9, 3.576307137575633*^9,
404	3.576308001074135^9, 3.576310726164761^9, 3.5763107577389803`*^9,
405	3.5763108327262907`^9, 3.5763110853297157`^9, 3.576311605838085*^9,
406	3.577095431088361^9, 3.577106315183086^9, 3.577107420221664*^9,
407	3.577109839517481^9, 3.5771582361754427`^9, 3.577160173939103*^9,
408	3.5774271090854816`^9, 3.579349128193363^9, {3.579379601645918*^9,
409	3.579379613905096^9}, 3.579380479244913^9, 3.579381230719664*^9,
410	3.579381817528495^9, 3.5793819445876513`^9, 3.5793821086824703`*^9,
411	3.579382389975662^9, 3.579382519755333^9, 3.579382590474183*^9,
412	3.579382670424045^9, 3.579383289177012^9, 3.579383891841668*^9,
413	3.579409938122939^9, 3.5794103610924273`^9, 3.579410568675372*^9,
414	3.57941065262562^9, 3.579411623549409^9, 3.5794280314096107`*^9,
415	3.5794283905734386`^9, 3.579429046049884^9, 3.5794291740775013`*^9,
416	3.579432503227852^9, {3.5794326123886633`^9, 3.5794326289078693`*^9},
417	3.57943280024575^9, 3.579432855691215^9, 3.5794333809227543`*^9,
418	3.579433448211287^9, 3.5794342469619427`^9, 3.579434565824304*^9,
419	3.579434946567897^9, 3.579435334371467^9, 3.579437346526101*^9,
420	3.5794374101071787`^9, 3.5794374692567883`^9, 3.579437701867044*^9,
421	3.5794433091544027`^9, 3.579443431957872^9, {3.5794435450520267`*^9,
422	3.579443568777512^9}, 3.5794436320897017`^9, 3.5794484720033703`*^9,
423	3.579449020569099^9, 3.57945026805641^9, 3.5794503447973413`*^9,
424	3.579450586200161^9, 3.579450653152474^9, 3.5794506929516478`*^9,
425	3.579450777155436^9, 3.579450876796424^9, 3.579451350624729*^9,
426	3.5794547243567457`^9, 3.579455888105839^9, 3.5794560621773*^9,
427	3.579509498126337^9, 3.579510005252969^9, 3.579510146867529*^9,
428	3.579511919397335^9, 3.579512200747849^9, 3.579516664896183*^9,
429	3.579516814757353^9, 3.5795170252970552`^9, 3.579517080410318*^9,
430	3.5795173346221437`^9, 3.579517403000581^9, 3.5795175071528807`*^9,
431	3.579517665410318^9, 3.5795197785930233`^9, 3.579539604176497*^9,
432	3.57953963439496^9, 3.5795397479080772`^9, 3.579542435722248*^9,
433	3.5795427786566067`^9, 3.579542856961687^9, 3.579543889539413*^9,
434	3.579543982151785^9, 3.579579824030398^9, 3.579579988605357*^9,
435	3.5795800393356867`^9, 3.579580376076899^9, {3.579592506097886*^9,
436	3.579592532149353^9}, 3.579592586475993^9, 3.57959270402531*^9,
437	3.579594489157303^9, 3.57959456007439^9, 3.579595456189417*^9,
438	3.57959572848632^9, 3.579599199589302^9, 3.579599978576936*^9,
439	3.579600693234166^9, 3.579605907929237^9, 3.57960630660867*^9,
440	3.579606455080131^9, 3.579608777300606^9, 3.5796091277345037`*^9,
441	3.579609300593313^9, 3.579764692442464^9, 3.5797648539516153`*^9,
442	3.579765173494046^9, 3.579765581901507^9, 3.5797673295744333`*^9,
443	3.5797683718417664`^9, 3.5797684217470713`^9, {3.5797686949262342`*^9,
444	3.579768722153154^9}, 3.5797688144328737`^9, 3.57976886269013*^9, {
445	3.579768908604993^9, 3.579768934051848^9}, 3.579769861079896*^9,
446	3.579769902215477^9, 3.579769932217967^9, 3.5797699786071653`*^9,
447	3.57977028562698^9, 3.5797703195910797`^9, 3.579770378790167*^9,
448	3.5797704125899143`^9, 3.5797704440162477`^9, 3.579770499831688*^9,
449	3.5797710518723297`^9, {3.579771821154909^9, 3.5797718487332582`*^9},
450	3.579772239239581^9, 3.579772859592701^9, 3.57977301554532*^9, {
451	3.579773104297743^9, 3.579773116073043^9}, 3.579773474557328*^9,
452	3.579775158534446^9, 3.579775201800521^9, 3.579775596284588*^9,
453	3.579775660825754^9, 3.5797760723592043`^9, 3.579779028527691*^9,
454	3.5799537695858917`^9, 3.580053223786955^9, 3.5800532781940193`*^9,
455	3.580069380359521^9, 3.5801159985682^9, 3.580127094105034*^9,
456	3.580140758787333^9, 3.5801408481083317`^9, 3.580143601394751*^9,
457	3.580277946213983^9, 3.580278344278553^9, 3.58073030754633*^9,
458	3.5807885766559896`^9, 3.5811511037854156`^9, 3.581151237129856*^9,
459	3.581152685289069^9, 3.5813915287005653`^9, 3.581924809955205*^9,
460	3.581956186148337^9, 3.581956800072421^9, 3.581957349295961*^9,
461	3.581959939424966^9, 3.58196006313443^9, 3.581960412127674*^9,
462	3.583279495773596^9, 3.583645080873787^9, 3.583654930752223*^9,
463	3.583655431957835^9, 3.583655686486383^9, 3.5836567487849903`*^9,
464	3.583657122726652^9, 3.583657186840127^9, 3.591006105908379*^9,
465	3.591006252498472^9, 3.5910077177068243`^9, 3.595329801210762*^9,
466	3.595338853185124^9, {3.5955896466505003`^9, 3.595589674567102*^9},
467	3.595590902012226^9, 3.595591801261991^9, 3.595593658865198*^9,
468	3.595655159170542^9, 3.595655744252029^9, 3.595758711968094*^9,
469	3.595774251081539^9, 3.595774979959601^9}],
470
471	Cell[BoxData["\<\" - arXiv:1310.1921;\"\>"], "Print",
472	CellChangeTimes->{
473	3.573969561534667^9, 3.573988921638503^9, 3.573989128428218*^9,
474	3.573990252164946^9, 3.573990757429809^9, 3.57399082394011*^9,
475	3.574002676830162^9, 3.574164201610569^9, 3.574164433488543*^9,
476	3.574164878470636^9, {3.574165545972145^9, 3.574165563408424*^9},
477	3.5741656019888077`^9, 3.574166045925473^9, 3.574166230539588*^9, {
478	3.57416732700756^9, 3.574167355775147^9}, 3.574167804991696*^9,
479	3.5741679908243^9, 3.5741680550586^9, 3.574445338740305*^9,
480	3.574658150803811^9, {3.574659751483637^9, 3.574659763196375*^9},
481	3.574660235076756^9, 3.574660928044083^9, 3.574660965521503*^9,
482	3.5746774577755737`^9, 3.574680642599476^9, 3.5746819309924183`*^9,
483	3.574682434542107^9, 3.574683307427603^9, 3.574741377827265*^9,
484	3.575973238845565^9, 3.575977137229869^9, 3.575977363038227*^9,
485	3.575977647811903^9, 3.5759776796556683`^9, 3.575977823112645*^9,
486	3.575978808354129^9, 3.576307072711788^9, 3.576307137575633*^9,
487	3.576308001074135^9, 3.576310726164761^9, 3.5763107577389803`*^9,
488	3.5763108327262907`^9, 3.5763110853297157`^9, 3.576311605838085*^9,
489	3.577095431088361^9, 3.577106315183086^9, 3.577107420221664*^9,
490	3.577109839517481^9, 3.5771582361754427`^9, 3.577160173939103*^9,
491	3.5774271090854816`^9, 3.579349128193363^9, {3.579379601645918*^9,
492	3.579379613905096^9}, 3.579380479244913^9, 3.579381230719664*^9,
493	3.579381817528495^9, 3.5793819445876513`^9, 3.5793821086824703`*^9,
494	3.579382389975662^9, 3.579382519755333^9, 3.579382590474183*^9,
495	3.579382670424045^9, 3.579383289177012^9, 3.579383891841668*^9,
496	3.579409938122939^9, 3.5794103610924273`^9, 3.579410568675372*^9,
497	3.57941065262562^9, 3.579411623549409^9, 3.5794280314096107`*^9,
498	3.5794283905734386`^9, 3.579429046049884^9, 3.5794291740775013`*^9,
499	3.579432503227852^9, {3.5794326123886633`^9, 3.5794326289078693`*^9},
500	3.57943280024575^9, 3.579432855691215^9, 3.5794333809227543`*^9,
501	3.579433448211287^9, 3.5794342469619427`^9, 3.579434565824304*^9,
502	3.579434946567897^9, 3.579435334371467^9, 3.579437346526101*^9,
503	3.5794374101071787`^9, 3.5794374692567883`^9, 3.579437701867044*^9,
504	3.5794433091544027`^9, 3.579443431957872^9, {3.5794435450520267`*^9,
505	3.579443568777512^9}, 3.5794436320897017`^9, 3.5794484720033703`*^9,
506	3.579449020569099^9, 3.57945026805641^9, 3.5794503447973413`*^9,
507	3.579450586200161^9, 3.579450653152474^9, 3.5794506929516478`*^9,
508	3.579450777155436^9, 3.579450876796424^9, 3.579451350624729*^9,
509	3.5794547243567457`^9, 3.579455888105839^9, 3.5794560621773*^9,
510	3.579509498126337^9, 3.579510005252969^9, 3.579510146867529*^9,
511	3.579511919397335^9, 3.579512200747849^9, 3.579516664896183*^9,
512	3.579516814757353^9, 3.5795170252970552`^9, 3.579517080410318*^9,
513	3.5795173346221437`^9, 3.579517403000581^9, 3.5795175071528807`*^9,
514	3.579517665410318^9, 3.5795197785930233`^9, 3.579539604176497*^9,
515	3.57953963439496^9, 3.5795397479080772`^9, 3.579542435722248*^9,
516	3.5795427786566067`^9, 3.579542856961687^9, 3.579543889539413*^9,
517	3.579543982151785^9, 3.579579824030398^9, 3.579579988605357*^9,
518	3.5795800393356867`^9, 3.579580376076899^9, {3.579592506097886*^9,
519	3.579592532149353^9}, 3.579592586475993^9, 3.57959270402531*^9,
520	3.579594489157303^9, 3.57959456007439^9, 3.579595456189417*^9,
521	3.57959572848632^9, 3.579599199589302^9, 3.579599978576936*^9,
522	3.579600693234166^9, 3.579605907929237^9, 3.57960630660867*^9,
523	3.579606455080131^9, 3.579608777300606^9, 3.5796091277345037`*^9,
524	3.579609300593313^9, 3.579764692442464^9, 3.5797648539516153`*^9,
525	3.579765173494046^9, 3.579765581901507^9, 3.5797673295744333`*^9,
526	3.5797683718417664`^9, 3.5797684217470713`^9, {3.5797686949262342`*^9,
527	3.579768722153154^9}, 3.5797688144328737`^9, 3.57976886269013*^9, {
528	3.579768908604993^9, 3.579768934051848^9}, 3.579769861079896*^9,
529	3.579769902215477^9, 3.579769932217967^9, 3.5797699786071653`*^9,
530	3.57977028562698^9, 3.5797703195910797`^9, 3.579770378790167*^9,
531	3.5797704125899143`^9, 3.5797704440162477`^9, 3.579770499831688*^9,
532	3.5797710518723297`^9, {3.579771821154909^9, 3.5797718487332582`*^9},
533	3.579772239239581^9, 3.579772859592701^9, 3.57977301554532*^9, {
534	3.579773104297743^9, 3.579773116073043^9}, 3.579773474557328*^9,
535	3.579775158534446^9, 3.579775201800521^9, 3.579775596284588*^9,
536	3.579775660825754^9, 3.5797760723592043`^9, 3.579779028527691*^9,
537	3.5799537695858917`^9, 3.580053223786955^9, 3.5800532781940193`*^9,
538	3.580069380359521^9, 3.5801159985682^9, 3.580127094105034*^9,
539	3.580140758787333^9, 3.5801408481083317`^9, 3.580143601394751*^9,
540	3.580277946213983^9, 3.580278344278553^9, 3.58073030754633*^9,
541	3.5807885766559896`^9, 3.5811511037854156`^9, 3.581151237129856*^9,
542	3.581152685289069^9, 3.5813915287005653`^9, 3.581924809955205*^9,
543	3.581956186148337^9, 3.581956800072421^9, 3.581957349295961*^9,
544	3.581959939424966^9, 3.58196006313443^9, 3.581960412127674*^9,
545	3.583279495773596^9, 3.583645080873787^9, 3.583654930752223*^9,
546	3.583655431957835^9, 3.583655686486383^9, 3.5836567487849903`*^9,
547	3.583657122726652^9, 3.583657186840127^9, 3.591006105908379*^9,
548	3.591006252498472^9, 3.5910077177068243`^9, 3.595329801210762*^9,
549	3.595338853185124^9, {3.5955896466505003`^9, 3.595589674567102*^9},
550	3.595590902012226^9, 3.595591801261991^9, 3.595593658865198*^9,
551	3.595655159170542^9, 3.595655744252029^9, 3.595758711968094*^9,
552	3.595774251081539^9, 3.595774979965191^9}],
553
554	Cell[BoxData["\<\" - Comput.Phys.Commun.180:1614-1641,2009 \
555	(arXiv:0806.4194).\"\>"], "Print",
556	CellChangeTimes->{
557	3.573969561534667^9, 3.573988921638503^9, 3.573989128428218*^9,
558	3.573990252164946^9, 3.573990757429809^9, 3.57399082394011*^9,
559	3.574002676830162^9, 3.574164201610569^9, 3.574164433488543*^9,
560	3.574164878470636^9, {3.574165545972145^9, 3.574165563408424*^9},
561	3.5741656019888077`^9, 3.574166045925473^9, 3.574166230539588*^9, {
562	3.57416732700756^9, 3.574167355775147^9}, 3.574167804991696*^9,
563	3.5741679908243^9, 3.5741680550586^9, 3.574445338740305*^9,
564	3.574658150803811^9, {3.574659751483637^9, 3.574659763196375*^9},
565	3.574660235076756^9, 3.574660928044083^9, 3.574660965521503*^9,
566	3.5746774577755737`^9, 3.574680642599476^9, 3.5746819309924183`*^9,
567	3.574682434542107^9, 3.574683307427603^9, 3.574741377827265*^9,
568	3.575973238845565^9, 3.575977137229869^9, 3.575977363038227*^9,
569	3.575977647811903^9, 3.5759776796556683`^9, 3.575977823112645*^9,
570	3.575978808354129^9, 3.576307072711788^9, 3.576307137575633*^9,
571	3.576308001074135^9, 3.576310726164761^9, 3.5763107577389803`*^9,
572	3.5763108327262907`^9, 3.5763110853297157`^9, 3.576311605838085*^9,
573	3.577095431088361^9, 3.577106315183086^9, 3.577107420221664*^9,
574	3.577109839517481^9, 3.5771582361754427`^9, 3.577160173939103*^9,
575	3.5774271090854816`^9, 3.579349128193363^9, {3.579379601645918*^9,
576	3.579379613905096^9}, 3.579380479244913^9, 3.579381230719664*^9,
577	3.579381817528495^9, 3.5793819445876513`^9, 3.5793821086824703`*^9,
578	3.579382389975662^9, 3.579382519755333^9, 3.579382590474183*^9,
579	3.579382670424045^9, 3.579383289177012^9, 3.579383891841668*^9,
580	3.579409938122939^9, 3.5794103610924273`^9, 3.579410568675372*^9,
581	3.57941065262562^9, 3.579411623549409^9, 3.5794280314096107`*^9,
582	3.5794283905734386`^9, 3.579429046049884^9, 3.5794291740775013`*^9,
583	3.579432503227852^9, {3.5794326123886633`^9, 3.5794326289078693`*^9},
584	3.57943280024575^9, 3.579432855691215^9, 3.5794333809227543`*^9,
585	3.579433448211287^9, 3.5794342469619427`^9, 3.579434565824304*^9,
586	3.579434946567897^9, 3.579435334371467^9, 3.579437346526101*^9,
587	3.5794374101071787`^9, 3.5794374692567883`^9, 3.579437701867044*^9,
588	3.5794433091544027`^9, 3.579443431957872^9, {3.5794435450520267`*^9,
589	3.579443568777512^9}, 3.5794436320897017`^9, 3.5794484720033703`*^9,
590	3.579449020569099^9, 3.57945026805641^9, 3.5794503447973413`*^9,
591	3.579450586200161^9, 3.579450653152474^9, 3.5794506929516478`*^9,
592	3.579450777155436^9, 3.579450876796424^9, 3.579451350624729*^9,
593	3.5794547243567457`^9, 3.579455888105839^9, 3.5794560621773*^9,
594	3.579509498126337^9, 3.579510005252969^9, 3.579510146867529*^9,
595	3.579511919397335^9, 3.579512200747849^9, 3.579516664896183*^9,
596	3.579516814757353^9, 3.5795170252970552`^9, 3.579517080410318*^9,
597	3.5795173346221437`^9, 3.579517403000581^9, 3.5795175071528807`*^9,
598	3.579517665410318^9, 3.5795197785930233`^9, 3.579539604176497*^9,
599	3.57953963439496^9, 3.5795397479080772`^9, 3.579542435722248*^9,
600	3.5795427786566067`^9, 3.579542856961687^9, 3.579543889539413*^9,
601	3.579543982151785^9, 3.579579824030398^9, 3.579579988605357*^9,
602	3.5795800393356867`^9, 3.579580376076899^9, {3.579592506097886*^9,
603	3.579592532149353^9}, 3.579592586475993^9, 3.57959270402531*^9,
604	3.579594489157303^9, 3.57959456007439^9, 3.579595456189417*^9,
605	3.57959572848632^9, 3.579599199589302^9, 3.579599978576936*^9,
606	3.579600693234166^9, 3.579605907929237^9, 3.57960630660867*^9,
607	3.579606455080131^9, 3.579608777300606^9, 3.5796091277345037`*^9,
608	3.579609300593313^9, 3.579764692442464^9, 3.5797648539516153`*^9,
609	3.579765173494046^9, 3.579765581901507^9, 3.5797673295744333`*^9,
610	3.5797683718417664`^9, 3.5797684217470713`^9, {3.5797686949262342`*^9,
611	3.579768722153154^9}, 3.5797688144328737`^9, 3.57976886269013*^9, {
612	3.579768908604993^9, 3.579768934051848^9}, 3.579769861079896*^9,
613	3.579769902215477^9, 3.579769932217967^9, 3.5797699786071653`*^9,
614	3.57977028562698^9, 3.5797703195910797`^9, 3.579770378790167*^9,
615	3.5797704125899143`^9, 3.5797704440162477`^9, 3.579770499831688*^9,
616	3.5797710518723297`^9, {3.579771821154909^9, 3.5797718487332582`*^9},
617	3.579772239239581^9, 3.579772859592701^9, 3.57977301554532*^9, {
618	3.579773104297743^9, 3.579773116073043^9}, 3.579773474557328*^9,
619	3.579775158534446^9, 3.579775201800521^9, 3.579775596284588*^9,
620	3.579775660825754^9, 3.5797760723592043`^9, 3.579779028527691*^9,
621	3.5799537695858917`^9, 3.580053223786955^9, 3.5800532781940193`*^9,
622	3.580069380359521^9, 3.5801159985682^9, 3.580127094105034*^9,
623	3.580140758787333^9, 3.5801408481083317`^9, 3.580143601394751*^9,
624	3.580277946213983^9, 3.580278344278553^9, 3.58073030754633*^9,
625	3.5807885766559896`^9, 3.5811511037854156`^9, 3.581151237129856*^9,
626	3.581152685289069^9, 3.5813915287005653`^9, 3.581924809955205*^9,
627	3.581956186148337^9, 3.581956800072421^9, 3.581957349295961*^9,
628	3.581959939424966^9, 3.58196006313443^9, 3.581960412127674*^9,
629	3.583279495773596^9, 3.583645080873787^9, 3.583654930752223*^9,
630	3.583655431957835^9, 3.583655686486383^9, 3.5836567487849903`*^9,
631	3.583657122726652^9, 3.583657186840127^9, 3.591006105908379*^9,
632	3.591006252498472^9, 3.5910077177068243`^9, 3.595329801210762*^9,
633	3.595338853185124^9, {3.5955896466505003`^9, 3.595589674567102*^9},
634	3.595590902012226^9, 3.595591801261991^9, 3.595593658865198*^9,
635	3.595655159170542^9, 3.595655744252029^9, 3.595758711968094*^9,
636	3.595774251081539^9, 3.595774979970784^9}],
637
638	Cell[BoxData["\<\" \"\>"], "Print",
639	CellChangeTimes->{
640	3.573969561534667^9, 3.573988921638503^9, 3.573989128428218*^9,
641	3.573990252164946^9, 3.573990757429809^9, 3.57399082394011*^9,
642	3.574002676830162^9, 3.574164201610569^9, 3.574164433488543*^9,
643	3.574164878470636^9, {3.574165545972145^9, 3.574165563408424*^9},
644	3.5741656019888077`^9, 3.574166045925473^9, 3.574166230539588*^9, {
645	3.57416732700756^9, 3.574167355775147^9}, 3.574167804991696*^9,
646	3.5741679908243^9, 3.5741680550586^9, 3.574445338740305*^9,
647	3.574658150803811^9, {3.574659751483637^9, 3.574659763196375*^9},
648	3.574660235076756^9, 3.574660928044083^9, 3.574660965521503*^9,
649	3.5746774577755737`^9, 3.574680642599476^9, 3.5746819309924183`*^9,
650	3.574682434542107^9, 3.574683307427603^9, 3.574741377827265*^9,
651	3.575973238845565^9, 3.575977137229869^9, 3.575977363038227*^9,
652	3.575977647811903^9, 3.5759776796556683`^9, 3.575977823112645*^9,
653	3.575978808354129^9, 3.576307072711788^9, 3.576307137575633*^9,
654	3.576308001074135^9, 3.576310726164761^9, 3.5763107577389803`*^9,
655	3.5763108327262907`^9, 3.5763110853297157`^9, 3.576311605838085*^9,
656	3.577095431088361^9, 3.577106315183086^9, 3.577107420221664*^9,
657	3.577109839517481^9, 3.5771582361754427`^9, 3.577160173939103*^9,
658	3.5774271090854816`^9, 3.579349128193363^9, {3.579379601645918*^9,
659	3.579379613905096^9}, 3.579380479244913^9, 3.579381230719664*^9,
660	3.579381817528495^9, 3.5793819445876513`^9, 3.5793821086824703`*^9,
661	3.579382389975662^9, 3.579382519755333^9, 3.579382590474183*^9,
662	3.579382670424045^9, 3.579383289177012^9, 3.579383891841668*^9,
663	3.579409938122939^9, 3.5794103610924273`^9, 3.579410568675372*^9,
664	3.57941065262562^9, 3.579411623549409^9, 3.5794280314096107`*^9,
665	3.5794283905734386`^9, 3.579429046049884^9, 3.5794291740775013`*^9,
666	3.579432503227852^9, {3.5794326123886633`^9, 3.5794326289078693`*^9},
667	3.57943280024575^9, 3.579432855691215^9, 3.5794333809227543`*^9,
668	3.579433448211287^9, 3.5794342469619427`^9, 3.579434565824304*^9,
669	3.579434946567897^9, 3.579435334371467^9, 3.579437346526101*^9,
670	3.5794374101071787`^9, 3.5794374692567883`^9, 3.579437701867044*^9,
671	3.5794433091544027`^9, 3.579443431957872^9, {3.5794435450520267`*^9,
672	3.579443568777512^9}, 3.5794436320897017`^9, 3.5794484720033703`*^9,
673	3.579449020569099^9, 3.57945026805641^9, 3.5794503447973413`*^9,
674	3.579450586200161^9, 3.579450653152474^9, 3.5794506929516478`*^9,
675	3.579450777155436^9, 3.579450876796424^9, 3.579451350624729*^9,
676	3.5794547243567457`^9, 3.579455888105839^9, 3.5794560621773*^9,
677	3.579509498126337^9, 3.579510005252969^9, 3.579510146867529*^9,
678	3.579511919397335^9, 3.579512200747849^9, 3.579516664896183*^9,
679	3.579516814757353^9, 3.5795170252970552`^9, 3.579517080410318*^9,
680	3.5795173346221437`^9, 3.579517403000581^9, 3.5795175071528807`*^9,
681	3.579517665410318^9, 3.5795197785930233`^9, 3.579539604176497*^9,
682	3.57953963439496^9, 3.5795397479080772`^9, 3.579542435722248*^9,
683	3.5795427786566067`^9, 3.579542856961687^9, 3.579543889539413*^9,
684	3.579543982151785^9, 3.579579824030398^9, 3.579579988605357*^9,
685	3.5795800393356867`^9, 3.579580376076899^9, {3.579592506097886*^9,
686	3.579592532149353^9}, 3.579592586475993^9, 3.57959270402531*^9,
687	3.579594489157303^9, 3.57959456007439^9, 3.579595456189417*^9,
688	3.57959572848632^9, 3.579599199589302^9, 3.579599978576936*^9,
689	3.579600693234166^9, 3.579605907929237^9, 3.57960630660867*^9,
690	3.579606455080131^9, 3.579608777300606^9, 3.5796091277345037`*^9,
691	3.579609300593313^9, 3.579764692442464^9, 3.5797648539516153`*^9,
692	3.579765173494046^9, 3.579765581901507^9, 3.5797673295744333`*^9,
693	3.5797683718417664`^9, 3.5797684217470713`^9, {3.5797686949262342`*^9,
694	3.579768722153154^9}, 3.5797688144328737`^9, 3.57976886269013*^9, {
695	3.579768908604993^9, 3.579768934051848^9}, 3.579769861079896*^9,
696	3.579769902215477^9, 3.579769932217967^9, 3.5797699786071653`*^9,
697	3.57977028562698^9, 3.5797703195910797`^9, 3.579770378790167*^9,
698	3.5797704125899143`^9, 3.5797704440162477`^9, 3.579770499831688*^9,
699	3.5797710518723297`^9, {3.579771821154909^9, 3.5797718487332582`*^9},
700	3.579772239239581^9, 3.579772859592701^9, 3.57977301554532*^9, {
701	3.579773104297743^9, 3.579773116073043^9}, 3.579773474557328*^9,
702	3.579775158534446^9, 3.579775201800521^9, 3.579775596284588*^9,
703	3.579775660825754^9, 3.5797760723592043`^9, 3.579779028527691*^9,
704	3.5799537695858917`^9, 3.580053223786955^9, 3.5800532781940193`*^9,
705	3.580069380359521^9, 3.5801159985682^9, 3.580127094105034*^9,
706	3.580140758787333^9, 3.5801408481083317`^9, 3.580143601394751*^9,
707	3.580277946213983^9, 3.580278344278553^9, 3.58073030754633*^9,
708	3.5807885766559896`^9, 3.5811511037854156`^9, 3.581151237129856*^9,
709	3.581152685289069^9, 3.5813915287005653`^9, 3.581924809955205*^9,
710	3.581956186148337^9, 3.581956800072421^9, 3.581957349295961*^9,
711	3.581959939424966^9, 3.58196006313443^9, 3.581960412127674*^9,
712	3.583279495773596^9, 3.583645080873787^9, 3.583654930752223*^9,
713	3.583655431957835^9, 3.583655686486383^9, 3.5836567487849903`*^9,
714	3.583657122726652^9, 3.583657186840127^9, 3.591006105908379*^9,
715	3.591006252498472^9, 3.5910077177068243`^9, 3.595329801210762*^9,
716	3.595338853185124^9, {3.5955896466505003`^9, 3.595589674567102*^9},
717	3.595590902012226^9, 3.595591801261991^9, 3.595593658865198*^9,
718	3.595655159170542^9, 3.595655744252029^9, 3.595758711968094*^9,
719	3.595774251081539^9, 3.595774979976643^9}],
720
721	Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
722	CellChangeTimes->{
723	3.573969561534667^9, 3.573988921638503^9, 3.573989128428218*^9,
724	3.573990252164946^9, 3.573990757429809^9, 3.57399082394011*^9,
725	3.574002676830162^9, 3.574164201610569^9, 3.574164433488543*^9,
726	3.574164878470636^9, {3.574165545972145^9, 3.574165563408424*^9},
727	3.5741656019888077`^9, 3.574166045925473^9, 3.574166230539588*^9, {
728	3.57416732700756^9, 3.574167355775147^9}, 3.574167804991696*^9,
729	3.5741679908243^9, 3.5741680550586^9, 3.574445338740305*^9,
730	3.574658150803811^9, {3.574659751483637^9, 3.574659763196375*^9},
731	3.574660235076756^9, 3.574660928044083^9, 3.574660965521503*^9,
732	3.5746774577755737`^9, 3.574680642599476^9, 3.5746819309924183`*^9,
733	3.574682434542107^9, 3.574683307427603^9, 3.574741377827265*^9,
734	3.575973238845565^9, 3.575977137229869^9, 3.575977363038227*^9,
735	3.575977647811903^9, 3.5759776796556683`^9, 3.575977823112645*^9,
736	3.575978808354129^9, 3.576307072711788^9, 3.576307137575633*^9,
737	3.576308001074135^9, 3.576310726164761^9, 3.5763107577389803`*^9,
738	3.5763108327262907`^9, 3.5763110853297157`^9, 3.576311605838085*^9,
739	3.577095431088361^9, 3.577106315183086^9, 3.577107420221664*^9,
740	3.577109839517481^9, 3.5771582361754427`^9, 3.577160173939103*^9,
741	3.5774271090854816`^9, 3.579349128193363^9, {3.579379601645918*^9,
742	3.579379613905096^9}, 3.579380479244913^9, 3.579381230719664*^9,
743	3.579381817528495^9, 3.5793819445876513`^9, 3.5793821086824703`*^9,
744	3.579382389975662^9, 3.579382519755333^9, 3.579382590474183*^9,
745	3.579382670424045^9, 3.579383289177012^9, 3.579383891841668*^9,
746	3.579409938122939^9, 3.5794103610924273`^9, 3.579410568675372*^9,
747	3.57941065262562^9, 3.579411623549409^9, 3.5794280314096107`*^9,
748	3.5794283905734386`^9, 3.579429046049884^9, 3.5794291740775013`*^9,
749	3.579432503227852^9, {3.5794326123886633`^9, 3.5794326289078693`*^9},
750	3.57943280024575^9, 3.579432855691215^9, 3.5794333809227543`*^9,
751	3.579433448211287^9, 3.5794342469619427`^9, 3.579434565824304*^9,
752	3.579434946567897^9, 3.579435334371467^9, 3.579437346526101*^9,
753	3.5794374101071787`^9, 3.5794374692567883`^9, 3.579437701867044*^9,
754	3.5794433091544027`^9, 3.579443431957872^9, {3.5794435450520267`*^9,
755	3.579443568777512^9}, 3.5794436320897017`^9, 3.5794484720033703`*^9,
756	3.579449020569099^9, 3.57945026805641^9, 3.5794503447973413`*^9,
757	3.579450586200161^9, 3.579450653152474^9, 3.5794506929516478`*^9,
758	3.579450777155436^9, 3.579450876796424^9, 3.579451350624729*^9,
759	3.5794547243567457`^9, 3.579455888105839^9, 3.5794560621773*^9,
760	3.579509498126337^9, 3.579510005252969^9, 3.579510146867529*^9,
761	3.579511919397335^9, 3.579512200747849^9, 3.579516664896183*^9,
762	3.579516814757353^9, 3.5795170252970552`^9, 3.579517080410318*^9,
763	3.5795173346221437`^9, 3.579517403000581^9, 3.5795175071528807`*^9,
764	3.579517665410318^9, 3.5795197785930233`^9, 3.579539604176497*^9,
765	3.57953963439496^9, 3.5795397479080772`^9, 3.579542435722248*^9,
766	3.5795427786566067`^9, 3.579542856961687^9, 3.579543889539413*^9,
767	3.579543982151785^9, 3.579579824030398^9, 3.579579988605357*^9,
768	3.5795800393356867`^9, 3.579580376076899^9, {3.579592506097886*^9,
769	3.579592532149353^9}, 3.579592586475993^9, 3.57959270402531*^9,
770	3.579594489157303^9, 3.57959456007439^9, 3.579595456189417*^9,
771	3.57959572848632^9, 3.579599199589302^9, 3.579599978576936*^9,
772	3.579600693234166^9, 3.579605907929237^9, 3.57960630660867*^9,
773	3.579606455080131^9, 3.579608777300606^9, 3.5796091277345037`*^9,
774	3.579609300593313^9, 3.579764692442464^9, 3.5797648539516153`*^9,
775	3.579765173494046^9, 3.579765581901507^9, 3.5797673295744333`*^9,
776	3.5797683718417664`^9, 3.5797684217470713`^9, {3.5797686949262342`*^9,
777	3.579768722153154^9}, 3.5797688144328737`^9, 3.57976886269013*^9, {
778	3.579768908604993^9, 3.579768934051848^9}, 3.579769861079896*^9,
779	3.579769902215477^9, 3.579769932217967^9, 3.5797699786071653`*^9,
780	3.57977028562698^9, 3.5797703195910797`^9, 3.579770378790167*^9,
781	3.5797704125899143`^9, 3.5797704440162477`^9, 3.579770499831688*^9,
782	3.5797710518723297`^9, {3.579771821154909^9, 3.5797718487332582`*^9},
783	3.579772239239581^9, 3.579772859592701^9, 3.57977301554532*^9, {
784	3.579773104297743^9, 3.579773116073043^9}, 3.579773474557328*^9,
785	3.579775158534446^9, 3.579775201800521^9, 3.579775596284588*^9,
786	3.579775660825754^9, 3.5797760723592043`^9, 3.579779028527691*^9,
787	3.5799537695858917`^9, 3.580053223786955^9, 3.5800532781940193`*^9,
788	3.580069380359521^9, 3.5801159985682^9, 3.580127094105034*^9,
789	3.580140758787333^9, 3.5801408481083317`^9, 3.580143601394751*^9,
790	3.580277946213983^9, 3.580278344278553^9, 3.58073030754633*^9,
791	3.5807885766559896`^9, 3.5811511037854156`^9, 3.581151237129856*^9,
792	3.581152685289069^9, 3.5813915287005653`^9, 3.581924809955205*^9,
793	3.581956186148337^9, 3.581956800072421^9, 3.581957349295961*^9,
794	3.581959939424966^9, 3.58196006313443^9, 3.581960412127674*^9,
795	3.583279495773596^9, 3.583645080873787^9, 3.583654930752223*^9,
796	3.583655431957835^9, 3.583655686486383^9, 3.5836567487849903`*^9,
797	3.583657122726652^9, 3.583657186840127^9, 3.591006105908379*^9,
798	3.591006252498472^9, 3.5910077177068243`^9, 3.595329801210762*^9,
799	3.595338853185124^9, {3.5955896466505003`^9, 3.595589674567102*^9},
800	3.595590902012226^9, 3.595591801261991^9, 3.595593658865198*^9,
801	3.595655159170542^9, 3.595655744252029^9, 3.595758711968094*^9,
802	3.595774251081539^9, 3.595774979982881^9}],
803
804	Cell[BoxData["\<\" \"\>"], "Print",
805	CellChangeTimes->{
806	3.573969561534667^9, 3.573988921638503^9, 3.573989128428218*^9,
807	3.573990252164946^9, 3.573990757429809^9, 3.57399082394011*^9,
808	3.574002676830162^9, 3.574164201610569^9, 3.574164433488543*^9,
809	3.574164878470636^9, {3.574165545972145^9, 3.574165563408424*^9},
810	3.5741656019888077`^9, 3.574166045925473^9, 3.574166230539588*^9, {
811	3.57416732700756^9, 3.574167355775147^9}, 3.574167804991696*^9,
812	3.5741679908243^9, 3.5741680550586^9, 3.574445338740305*^9,
813	3.574658150803811^9, {3.574659751483637^9, 3.574659763196375*^9},
814	3.574660235076756^9, 3.574660928044083^9, 3.574660965521503*^9,
815	3.5746774577755737`^9, 3.574680642599476^9, 3.5746819309924183`*^9,
816	3.574682434542107^9, 3.574683307427603^9, 3.574741377827265*^9,
817	3.575973238845565^9, 3.575977137229869^9, 3.575977363038227*^9,
818	3.575977647811903^9, 3.5759776796556683`^9, 3.575977823112645*^9,
819	3.575978808354129^9, 3.576307072711788^9, 3.576307137575633*^9,
820	3.576308001074135^9, 3.576310726164761^9, 3.5763107577389803`*^9,
821	3.5763108327262907`^9, 3.5763110853297157`^9, 3.576311605838085*^9,
822	3.577095431088361^9, 3.577106315183086^9, 3.577107420221664*^9,
823	3.577109839517481^9, 3.5771582361754427`^9, 3.577160173939103*^9,
824	3.5774271090854816`^9, 3.579349128193363^9, {3.579379601645918*^9,
825	3.579379613905096^9}, 3.579380479244913^9, 3.579381230719664*^9,
826	3.579381817528495^9, 3.5793819445876513`^9, 3.5793821086824703`*^9,
827	3.579382389975662^9, 3.579382519755333^9, 3.579382590474183*^9,
828	3.579382670424045^9, 3.579383289177012^9, 3.579383891841668*^9,
829	3.579409938122939^9, 3.5794103610924273`^9, 3.579410568675372*^9,
830	3.57941065262562^9, 3.579411623549409^9, 3.5794280314096107`*^9,
831	3.5794283905734386`^9, 3.579429046049884^9, 3.5794291740775013`*^9,
832	3.579432503227852^9, {3.5794326123886633`^9, 3.5794326289078693`*^9},
833	3.57943280024575^9, 3.579432855691215^9, 3.5794333809227543`*^9,
834	3.579433448211287^9, 3.5794342469619427`^9, 3.579434565824304*^9,
835	3.579434946567897^9, 3.579435334371467^9, 3.579437346526101*^9,
836	3.5794374101071787`^9, 3.5794374692567883`^9, 3.579437701867044*^9,
837	3.5794433091544027`^9, 3.579443431957872^9, {3.5794435450520267`*^9,
838	3.579443568777512^9}, 3.5794436320897017`^9, 3.5794484720033703`*^9,
839	3.579449020569099^9, 3.57945026805641^9, 3.5794503447973413`*^9,
840	3.579450586200161^9, 3.579450653152474^9, 3.5794506929516478`*^9,
841	3.579450777155436^9, 3.579450876796424^9, 3.579451350624729*^9,
842	3.5794547243567457`^9, 3.579455888105839^9, 3.5794560621773*^9,
843	3.579509498126337^9, 3.579510005252969^9, 3.579510146867529*^9,
844	3.579511919397335^9, 3.579512200747849^9, 3.579516664896183*^9,
845	3.579516814757353^9, 3.5795170252970552`^9, 3.579517080410318*^9,
846	3.5795173346221437`^9, 3.579517403000581^9, 3.5795175071528807`*^9,
847	3.579517665410318^9, 3.5795197785930233`^9, 3.579539604176497*^9,
848	3.57953963439496^9, 3.5795397479080772`^9, 3.579542435722248*^9,
849	3.5795427786566067`^9, 3.579542856961687^9, 3.579543889539413*^9,
850	3.579543982151785^9, 3.579579824030398^9, 3.579579988605357*^9,
851	3.5795800393356867`^9, 3.579580376076899^9, {3.579592506097886*^9,
852	3.579592532149353^9}, 3.579592586475993^9, 3.57959270402531*^9,
853	3.579594489157303^9, 3.57959456007439^9, 3.579595456189417*^9,
854	3.57959572848632^9, 3.579599199589302^9, 3.579599978576936*^9,
855	3.579600693234166^9, 3.579605907929237^9, 3.57960630660867*^9,
856	3.579606455080131^9, 3.579608777300606^9, 3.5796091277345037`*^9,
857	3.579609300593313^9, 3.579764692442464^9, 3.5797648539516153`*^9,
858	3.579765173494046^9, 3.579765581901507^9, 3.5797673295744333`*^9,
859	3.5797683718417664`^9, 3.5797684217470713`^9, {3.5797686949262342`*^9,
860	3.579768722153154^9}, 3.5797688144328737`^9, 3.57976886269013*^9, {
861	3.579768908604993^9, 3.579768934051848^9}, 3.579769861079896*^9,
862	3.579769902215477^9, 3.579769932217967^9, 3.5797699786071653`*^9,
863	3.57977028562698^9, 3.5797703195910797`^9, 3.579770378790167*^9,
864	3.5797704125899143`^9, 3.5797704440162477`^9, 3.579770499831688*^9,
865	3.5797710518723297`^9, {3.579771821154909^9, 3.5797718487332582`*^9},
866	3.579772239239581^9, 3.579772859592701^9, 3.57977301554532*^9, {
867	3.579773104297743^9, 3.579773116073043^9}, 3.579773474557328*^9,
868	3.579775158534446^9, 3.579775201800521^9, 3.579775596284588*^9,
869	3.579775660825754^9, 3.5797760723592043`^9, 3.579779028527691*^9,
870	3.5799537695858917`^9, 3.580053223786955^9, 3.5800532781940193`*^9,
871	3.580069380359521^9, 3.5801159985682^9, 3.580127094105034*^9,
872	3.580140758787333^9, 3.5801408481083317`^9, 3.580143601394751*^9,
873	3.580277946213983^9, 3.580278344278553^9, 3.58073030754633*^9,
874	3.5807885766559896`^9, 3.5811511037854156`^9, 3.581151237129856*^9,
875	3.581152685289069^9, 3.5813915287005653`^9, 3.581924809955205*^9,
876	3.581956186148337^9, 3.581956800072421^9, 3.581957349295961*^9,
877	3.581959939424966^9, 3.58196006313443^9, 3.581960412127674*^9,
878	3.583279495773596^9, 3.583645080873787^9, 3.583654930752223*^9,
879	3.583655431957835^9, 3.583655686486383^9, 3.5836567487849903`*^9,
880	3.583657122726652^9, 3.583657186840127^9, 3.591006105908379*^9,
881	3.591006252498472^9, 3.5910077177068243`^9, 3.595329801210762*^9,
882	3.595338853185124^9, {3.5955896466505003`^9, 3.595589674567102*^9},
883	3.595590902012226^9, 3.595591801261991^9, 3.595593658865198*^9,
884	3.595655159170542^9, 3.595655744252029^9, 3.595758711968094*^9,
885	3.595774251081539^9, 3.595774979989771^9}],
886
887	Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
888	FRPalette[].\"\>"], "Print",
889	CellChangeTimes->{
890	3.573969561534667^9, 3.573988921638503^9, 3.573989128428218*^9,
891	3.573990252164946^9, 3.573990757429809^9, 3.57399082394011*^9,
892	3.574002676830162^9, 3.574164201610569^9, 3.574164433488543*^9,
893	3.574164878470636^9, {3.574165545972145^9, 3.574165563408424*^9},
894	3.5741656019888077`^9, 3.574166045925473^9, 3.574166230539588*^9, {
895	3.57416732700756^9, 3.574167355775147^9}, 3.574167804991696*^9,
896	3.5741679908243^9, 3.5741680550586^9, 3.574445338740305*^9,
897	3.574658150803811^9, {3.574659751483637^9, 3.574659763196375*^9},
898	3.574660235076756^9, 3.574660928044083^9, 3.574660965521503*^9,
899	3.5746774577755737`^9, 3.574680642599476^9, 3.5746819309924183`*^9,
900	3.574682434542107^9, 3.574683307427603^9, 3.574741377827265*^9,
901	3.575973238845565^9, 3.575977137229869^9, 3.575977363038227*^9,
902	3.575977647811903^9, 3.5759776796556683`^9, 3.575977823112645*^9,
903	3.575978808354129^9, 3.576307072711788^9, 3.576307137575633*^9,
904	3.576308001074135^9, 3.576310726164761^9, 3.5763107577389803`*^9,
905	3.5763108327262907`^9, 3.5763110853297157`^9, 3.576311605838085*^9,
906	3.577095431088361^9, 3.577106315183086^9, 3.577107420221664*^9,
907	3.577109839517481^9, 3.5771582361754427`^9, 3.577160173939103*^9,
908	3.5774271090854816`^9, 3.579349128193363^9, {3.579379601645918*^9,
909	3.579379613905096^9}, 3.579380479244913^9, 3.579381230719664*^9,
910	3.579381817528495^9, 3.5793819445876513`^9, 3.5793821086824703`*^9,
911	3.579382389975662^9, 3.579382519755333^9, 3.579382590474183*^9,
912	3.579382670424045^9, 3.579383289177012^9, 3.579383891841668*^9,
913	3.579409938122939^9, 3.5794103610924273`^9, 3.579410568675372*^9,
914	3.57941065262562^9, 3.579411623549409^9, 3.5794280314096107`*^9,
915	3.5794283905734386`^9, 3.579429046049884^9, 3.5794291740775013`*^9,
916	3.579432503227852^9, {3.5794326123886633`^9, 3.5794326289078693`*^9},
917	3.57943280024575^9, 3.579432855691215^9, 3.5794333809227543`*^9,
918	3.579433448211287^9, 3.5794342469619427`^9, 3.579434565824304*^9,
919	3.579434946567897^9, 3.579435334371467^9, 3.579437346526101*^9,
920	3.5794374101071787`^9, 3.5794374692567883`^9, 3.579437701867044*^9,
921	3.5794433091544027`^9, 3.579443431957872^9, {3.5794435450520267`*^9,
922	3.579443568777512^9}, 3.5794436320897017`^9, 3.5794484720033703`*^9,
923	3.579449020569099^9, 3.57945026805641^9, 3.5794503447973413`*^9,
924	3.579450586200161^9, 3.579450653152474^9, 3.5794506929516478`*^9,
925	3.579450777155436^9, 3.579450876796424^9, 3.579451350624729*^9,
926	3.5794547243567457`^9, 3.579455888105839^9, 3.5794560621773*^9,
927	3.579509498126337^9, 3.579510005252969^9, 3.579510146867529*^9,
928	3.579511919397335^9, 3.579512200747849^9, 3.579516664896183*^9,
929	3.579516814757353^9, 3.5795170252970552`^9, 3.579517080410318*^9,
930	3.5795173346221437`^9, 3.579517403000581^9, 3.5795175071528807`*^9,
931	3.579517665410318^9, 3.5795197785930233`^9, 3.579539604176497*^9,
932	3.57953963439496^9, 3.5795397479080772`^9, 3.579542435722248*^9,
933	3.5795427786566067`^9, 3.579542856961687^9, 3.579543889539413*^9,
934	3.579543982151785^9, 3.579579824030398^9, 3.579579988605357*^9,
935	3.5795800393356867`^9, 3.579580376076899^9, {3.579592506097886*^9,
936	3.579592532149353^9}, 3.579592586475993^9, 3.57959270402531*^9,
937	3.579594489157303^9, 3.57959456007439^9, 3.579595456189417*^9,
938	3.57959572848632^9, 3.579599199589302^9, 3.579599978576936*^9,
939	3.579600693234166^9, 3.579605907929237^9, 3.57960630660867*^9,
940	3.579606455080131^9, 3.579608777300606^9, 3.5796091277345037`*^9,
941	3.579609300593313^9, 3.579764692442464^9, 3.5797648539516153`*^9,
942	3.579765173494046^9, 3.579765581901507^9, 3.5797673295744333`*^9,
943	3.5797683718417664`^9, 3.5797684217470713`^9, {3.5797686949262342`*^9,
944	3.579768722153154^9}, 3.5797688144328737`^9, 3.57976886269013*^9, {
945	3.579768908604993^9, 3.579768934051848^9}, 3.579769861079896*^9,
946	3.579769902215477^9, 3.579769932217967^9, 3.5797699786071653`*^9,
947	3.57977028562698^9, 3.5797703195910797`^9, 3.579770378790167*^9,
948	3.5797704125899143`^9, 3.5797704440162477`^9, 3.579770499831688*^9,
949	3.5797710518723297`^9, {3.579771821154909^9, 3.5797718487332582`*^9},
950	3.579772239239581^9, 3.579772859592701^9, 3.57977301554532*^9, {
951	3.579773104297743^9, 3.579773116073043^9}, 3.579773474557328*^9,
952	3.579775158534446^9, 3.579775201800521^9, 3.579775596284588*^9,
953	3.579775660825754^9, 3.5797760723592043`^9, 3.579779028527691*^9,
954	3.5799537695858917`^9, 3.580053223786955^9, 3.5800532781940193`*^9,
955	3.580069380359521^9, 3.5801159985682^9, 3.580127094105034*^9,
956	3.580140758787333^9, 3.5801408481083317`^9, 3.580143601394751*^9,
957	3.580277946213983^9, 3.580278344278553^9, 3.58073030754633*^9,
958	3.5807885766559896`^9, 3.5811511037854156`^9, 3.581151237129856*^9,
959	3.581152685289069^9, 3.5813915287005653`^9, 3.581924809955205*^9,
960	3.581956186148337^9, 3.581956800072421^9, 3.581957349295961*^9,
961	3.581959939424966^9, 3.58196006313443^9, 3.581960412127674*^9,
962	3.583279495773596^9, 3.583645080873787^9, 3.583654930752223*^9,
963	3.583655431957835^9, 3.583655686486383^9, 3.5836567487849903`*^9,
964	3.583657122726652^9, 3.583657186840127^9, 3.591006105908379*^9,
965	3.591006252498472^9, 3.5910077177068243`^9, 3.595329801210762*^9,
966	3.595338853185124^9, {3.5955896466505003`^9, 3.595589674567102*^9},
967	3.595590902012226^9, 3.595591801261991^9, 3.595593658865198*^9,
968	3.595655159170542^9, 3.595655744252029^9, 3.595758711968094*^9,
969	3.595774251081539^9, 3.595774979996581^9}]
970	}, Open ]]
971	}, Open ]],
972
973	Cell[CellGroupData[{
974
975	Cell["The Higgs Characterisation Model", "Title",
976	CellChangeTimes->{{3.563969384897138^9, 3.563969388480772^9}, {
977	3.579542855003995^9, 3.579542855878519^9}, {3.580788704233615*^9,
978	3.580788704402492*^9}}],
979
980	Cell[CellGroupData[{
981
982	Cell[BoxData[
983	RowBox[{"LoadModel", "[",
984	RowBox[{"\"\<SM_HC.fr\>\"", ",", "\"\<HC.fr\>\""}], "]"}]], "Input",
985	CellChangeTimes->{{3.5797689230966454`^9, 3.579768959605196^9}, {
986	3.5797728634876137`^9, 3.579772869622957^9}, {3.579773022805372*^9,
987	3.579773025161128^9}, {3.580788700320038^9, 3.58078870048149*^9}, {
988	3.581956192102425^9, 3.5819561934167557`^9}, {3.5819604209931593`*^9,
989	3.58196042170662^9}, {3.591006112028008^9, 3.591006115130166*^9}, {
990	3.5910062552983418`^9, 3.591006257373683^9}, {3.595329809474881*^9,
991	3.595329812689343*^9}}],
992
993	Cell[CellGroupData[{
994
995	Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
996	CellChangeTimes->{{3.57976893707021^9, 3.579768960276555^9},
997	3.579769865514038^9, 3.579769907559046^9, 3.579769981469977*^9,
998	3.579770288264614^9, 3.579770322423699^9, 3.57977038141331*^9,
999	3.579770415802527^9, 3.579770447829186^9, 3.5797705026290627`*^9, {
1000	3.579771840458057^9, 3.579771853825611^9}, 3.579772249535247*^9,
1001	3.579772870223282^9, 3.579773025614532^9, 3.5797731257884703`*^9,
1002	3.5797734767753468`^9, 3.5797751608353767`^9, 3.579775204023447*^9,
1003	3.579775665887414^9, 3.579776074687708^9, 3.579779030756297*^9,
1004	3.579953773318592^9, 3.5800532322628^9, 3.5800532810346203`*^9,
1005	3.580069382328477^9, 3.580116001454042^9, 3.580127096425099*^9,
1006	3.580140760993733^9, 3.5801408520886917`^9, 3.580143603399817*^9,
1007	3.580277956444783^9, 3.580278348519937^9, 3.5807303113442574`*^9,
1008	3.580788719949267^9, 3.581151116188569^9, 3.581151240713645*^9,
1009	3.581152689676711^9, 3.581391534927425^9, 3.58192481387215*^9,
1010	3.581956193898932^9, 3.5819568028773403`^9, 3.5819573514463243`*^9,
1011	3.581959942245448^9, 3.581960065559105^9, 3.5819604227699623`*^9,
1012	3.5832795004603767`^9, 3.583645092589262^9, 3.583654936231823*^9,
1013	3.583655434781365^9, 3.583655691084528^9, 3.583656753245407*^9,
1014	3.583657126329726^9, 3.58365719091117^9, 3.591006123036346*^9,
1015	3.591006259506515^9, 3.591007720733861^9, 3.5953298157334213`*^9,
1016	3.595338857913962^9, {3.595589654079033^9, 3.595589678822201*^9},
1017	3.5955909082571774`^9, 3.595591806540279^9, 3.59559366410469*^9,
1018	3.5956551649114027`^9, 3.595655751300111^9, 3.59575871783995*^9,
1019	3.595774258108706^9, 3.595774986255286^9}],
1020
1021	Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
1022	CellChangeTimes->{{3.57976893707021^9, 3.579768960276555^9},
1023	3.579769865514038^9, 3.579769907559046^9, 3.579769981469977*^9,
1024	3.579770288264614^9, 3.579770322423699^9, 3.57977038141331*^9,
1025	3.579770415802527^9, 3.579770447829186^9, 3.5797705026290627`*^9, {
1026	3.579771840458057^9, 3.579771853825611^9}, 3.579772249535247*^9,
1027	3.579772870223282^9, 3.579773025614532^9, 3.5797731257884703`*^9,
1028	3.5797734767753468`^9, 3.5797751608353767`^9, 3.579775204023447*^9,
1029	3.579775665887414^9, 3.579776074687708^9, 3.579779030756297*^9,
1030	3.579953773318592^9, 3.5800532322628^9, 3.5800532810346203`*^9,
1031	3.580069382328477^9, 3.580116001454042^9, 3.580127096425099*^9,
1032	3.580140760993733^9, 3.5801408520886917`^9, 3.580143603399817*^9,
1033	3.580277956444783^9, 3.580278348519937^9, 3.5807303113442574`*^9,
1034	3.580788719949267^9, 3.581151116188569^9, 3.581151240713645*^9,
1035	3.581152689676711^9, 3.581391534927425^9, 3.58192481387215*^9,
1036	3.581956193898932^9, 3.5819568028773403`^9, 3.5819573514463243`*^9,
1037	3.581959942245448^9, 3.581960065559105^9, 3.5819604227699623`*^9,
1038	3.5832795004603767`^9, 3.583645092589262^9, 3.583654936231823*^9,
1039	3.583655434781365^9, 3.583655691084528^9, 3.583656753245407*^9,
1040	3.583657126329726^9, 3.58365719091117^9, 3.591006123036346*^9,
1041	3.591006259506515^9, 3.591007720733861^9, 3.5953298157334213`*^9,
1042	3.595338857913962^9, {3.595589654079033^9, 3.595589678822201*^9},
1043	3.5955909082571774`^9, 3.595591806540279^9, 3.59559366410469*^9,
1044	3.5956551649114027`^9, 3.595655751300111^9, 3.59575871783995*^9,
1045	3.595774258108706^9, 3.595774986293858^9}],
1046
1047	Cell[BoxData["\<\"P. de Aquino, K. Mawatari\"\>"], "Print",
1048	CellChangeTimes->{{3.57976893707021^9, 3.579768960276555^9},
1049	3.579769865514038^9, 3.579769907559046^9, 3.579769981469977*^9,
1050	3.579770288264614^9, 3.579770322423699^9, 3.57977038141331*^9,
1051	3.579770415802527^9, 3.579770447829186^9, 3.5797705026290627`*^9, {
1052	3.579771840458057^9, 3.579771853825611^9}, 3.579772249535247*^9,
1053	3.579772870223282^9, 3.579773025614532^9, 3.5797731257884703`*^9,
1054	3.5797734767753468`^9, 3.5797751608353767`^9, 3.579775204023447*^9,
1055	3.579775665887414^9, 3.579776074687708^9, 3.579779030756297*^9,
1056	3.579953773318592^9, 3.5800532322628^9, 3.5800532810346203`*^9,
1057	3.580069382328477^9, 3.580116001454042^9, 3.580127096425099*^9,
1058	3.580140760993733^9, 3.5801408520886917`^9, 3.580143603399817*^9,
1059	3.580277956444783^9, 3.580278348519937^9, 3.5807303113442574`*^9,
1060	3.580788719949267^9, 3.581151116188569^9, 3.581151240713645*^9,
1061	3.581152689676711^9, 3.581391534927425^9, 3.58192481387215*^9,
1062	3.581956193898932^9, 3.5819568028773403`^9, 3.5819573514463243`*^9,
1063	3.581959942245448^9, 3.581960065559105^9, 3.5819604227699623`*^9,
1064	3.5832795004603767`^9, 3.583645092589262^9, 3.583654936231823*^9,
1065	3.583655434781365^9, 3.583655691084528^9, 3.583656753245407*^9,
1066	3.583657126329726^9, 3.58365719091117^9, 3.591006123036346*^9,
1067	3.591006259506515^9, 3.591007720733861^9, 3.5953298157334213`*^9,
1068	3.595338857913962^9, {3.595589654079033^9, 3.595589678822201*^9},
1069	3.5955909082571774`^9, 3.595591806540279^9, 3.59559366410469*^9,
1070	3.5956551649114027`^9, 3.595655751300111^9, 3.59575871783995*^9,
1071	3.595774258108706^9, 3.59577498629998^9}],
1072
1073	Cell[BoxData[
1074	InterpretationBox[
1075	RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"4.0\"\>"}],
1076	SequenceForm["Model Version: ", "4.0"],
1077	Editable->False]], "Print",
1078	CellChangeTimes->{{3.57976893707021^9, 3.579768960276555^9},
1079	3.579769865514038^9, 3.579769907559046^9, 3.579769981469977*^9,
1080	3.579770288264614^9, 3.579770322423699^9, 3.57977038141331*^9,
1081	3.579770415802527^9, 3.579770447829186^9, 3.5797705026290627`*^9, {
1082	3.579771840458057^9, 3.579771853825611^9}, 3.579772249535247*^9,
1083	3.579772870223282^9, 3.579773025614532^9, 3.5797731257884703`*^9,
1084	3.5797734767753468`^9, 3.5797751608353767`^9, 3.579775204023447*^9,
1085	3.579775665887414^9, 3.579776074687708^9, 3.579779030756297*^9,
1086	3.579953773318592^9, 3.5800532322628^9, 3.5800532810346203`*^9,
1087	3.580069382328477^9, 3.580116001454042^9, 3.580127096425099*^9,
1088	3.580140760993733^9, 3.5801408520886917`^9, 3.580143603399817*^9,
1089	3.580277956444783^9, 3.580278348519937^9, 3.5807303113442574`*^9,
1090	3.580788719949267^9, 3.581151116188569^9, 3.581151240713645*^9,
1091	3.581152689676711^9, 3.581391534927425^9, 3.58192481387215*^9,
1092	3.581956193898932^9, 3.5819568028773403`^9, 3.5819573514463243`*^9,
1093	3.581959942245448^9, 3.581960065559105^9, 3.5819604227699623`*^9,
1094	3.5832795004603767`^9, 3.583645092589262^9, 3.583654936231823*^9,
1095	3.583655434781365^9, 3.583655691084528^9, 3.583656753245407*^9,
1096	3.583657126329726^9, 3.58365719091117^9, 3.591006123036346*^9,
1097	3.591006259506515^9, 3.591007720733861^9, 3.5953298157334213`*^9,
1098	3.595338857913962^9, {3.595589654079033^9, 3.595589678822201*^9},
1099	3.5955909082571774`^9, 3.595591806540279^9, 3.59559366410469*^9,
1100	3.5956551649114027`^9, 3.595655751300111^9, 3.59575871783995*^9,
1101	3.595774258108706^9, 3.595774986305958^9}],
1102
1103	Cell[BoxData["\<\"Please cite\"\>"], "Print",
1104	CellChangeTimes->{{3.57976893707021^9, 3.579768960276555^9},
1105	3.579769865514038^9, 3.579769907559046^9, 3.579769981469977*^9,
1106	3.579770288264614^9, 3.579770322423699^9, 3.57977038141331*^9,
1107	3.579770415802527^9, 3.579770447829186^9, 3.5797705026290627`*^9, {
1108	3.579771840458057^9, 3.579771853825611^9}, 3.579772249535247*^9,
1109	3.579772870223282^9, 3.579773025614532^9, 3.5797731257884703`*^9,
1110	3.5797734767753468`^9, 3.5797751608353767`^9, 3.579775204023447*^9,
1111	3.579775665887414^9, 3.579776074687708^9, 3.579779030756297*^9,
1112	3.579953773318592^9, 3.5800532322628^9, 3.5800532810346203`*^9,
1113	3.580069382328477^9, 3.580116001454042^9, 3.580127096425099*^9,
1114	3.580140760993733^9, 3.5801408520886917`^9, 3.580143603399817*^9,
1115	3.580277956444783^9, 3.580278348519937^9, 3.5807303113442574`*^9,
1116	3.580788719949267^9, 3.581151116188569^9, 3.581151240713645*^9,
1117	3.581152689676711^9, 3.581391534927425^9, 3.58192481387215*^9,
1118	3.581956193898932^9, 3.5819568028773403`^9, 3.5819573514463243`*^9,
1119	3.581959942245448^9, 3.581960065559105^9, 3.5819604227699623`*^9,
1120	3.5832795004603767`^9, 3.583645092589262^9, 3.583654936231823*^9,
1121	3.583655434781365^9, 3.583655691084528^9, 3.583656753245407*^9,
1122	3.583657126329726^9, 3.58365719091117^9, 3.591006123036346*^9,
1123	3.591006259506515^9, 3.591007720733861^9, 3.5953298157334213`*^9,
1124	3.595338857913962^9, {3.595589654079033^9, 3.595589678822201*^9},
1125	3.5955909082571774`^9, 3.595591806540279^9, 3.59559366410469*^9,
1126	3.5956551649114027`^9, 3.595655751300111^9, 3.59575871783995*^9,
1127	3.595774258108706^9, 3.595774986312554^9}],
1128
1129	Cell[BoxData["\<\"P. Artoisenet et al., arXiv:1306.6464\"\>"], "Print",
1130	CellChangeTimes->{{3.57976893707021^9, 3.579768960276555^9},
1131	3.579769865514038^9, 3.579769907559046^9, 3.579769981469977*^9,
1132	3.579770288264614^9, 3.579770322423699^9, 3.57977038141331*^9,
1133	3.579770415802527^9, 3.579770447829186^9, 3.5797705026290627`*^9, {
1134	3.579771840458057^9, 3.579771853825611^9}, 3.579772249535247*^9,
1135	3.579772870223282^9, 3.579773025614532^9, 3.5797731257884703`*^9,
1136	3.5797734767753468`^9, 3.5797751608353767`^9, 3.579775204023447*^9,
1137	3.579775665887414^9, 3.579776074687708^9, 3.579779030756297*^9,
1138	3.579953773318592^9, 3.5800532322628^9, 3.5800532810346203`*^9,
1139	3.580069382328477^9, 3.580116001454042^9, 3.580127096425099*^9,
1140	3.580140760993733^9, 3.5801408520886917`^9, 3.580143603399817*^9,
1141	3.580277956444783^9, 3.580278348519937^9, 3.5807303113442574`*^9,
1142	3.580788719949267^9, 3.581151116188569^9, 3.581151240713645*^9,
1143	3.581152689676711^9, 3.581391534927425^9, 3.58192481387215*^9,
1144	3.581956193898932^9, 3.5819568028773403`^9, 3.5819573514463243`*^9,
1145	3.581959942245448^9, 3.581960065559105^9, 3.5819604227699623`*^9,
1146	3.5832795004603767`^9, 3.583645092589262^9, 3.583654936231823*^9,
1147	3.583655434781365^9, 3.583655691084528^9, 3.583656753245407*^9,
1148	3.583657126329726^9, 3.58365719091117^9, 3.591006123036346*^9,
1149	3.591006259506515^9, 3.591007720733861^9, 3.5953298157334213`*^9,
1150	3.595338857913962^9, {3.595589654079033^9, 3.595589678822201*^9},
1151	3.5955909082571774`^9, 3.595591806540279^9, 3.59559366410469*^9,
1152	3.5956551649114027`^9, 3.595655751300111^9, 3.59575871783995*^9,
1153	3.595774258108706^9, 3.59577498631852^9}],
1154
1155	Cell[BoxData["\<\"http://feynrules.irmp.ucl.ac.be/wiki/HiggsCharacterisation/\
1156	\"\>"], "Print",
1157	CellChangeTimes->{{3.57976893707021^9, 3.579768960276555^9},
1158	3.579769865514038^9, 3.579769907559046^9, 3.579769981469977*^9,
1159	3.579770288264614^9, 3.579770322423699^9, 3.57977038141331*^9,
1160	3.579770415802527^9, 3.579770447829186^9, 3.5797705026290627`*^9, {
1161	3.579771840458057^9, 3.579771853825611^9}, 3.579772249535247*^9,
1162	3.579772870223282^9, 3.579773025614532^9, 3.5797731257884703`*^9,
1163	3.5797734767753468`^9, 3.5797751608353767`^9, 3.579775204023447*^9,
1164	3.579775665887414^9, 3.579776074687708^9, 3.579779030756297*^9,
1165	3.579953773318592^9, 3.5800532322628^9, 3.5800532810346203`*^9,
1166	3.580069382328477^9, 3.580116001454042^9, 3.580127096425099*^9,
1167	3.580140760993733^9, 3.5801408520886917`^9, 3.580143603399817*^9,
1168	3.580277956444783^9, 3.580278348519937^9, 3.5807303113442574`*^9,
1169	3.580788719949267^9, 3.581151116188569^9, 3.581151240713645*^9,
1170	3.581152689676711^9, 3.581391534927425^9, 3.58192481387215*^9,
1171	3.581956193898932^9, 3.5819568028773403`^9, 3.5819573514463243`*^9,
1172	3.581959942245448^9, 3.581960065559105^9, 3.5819604227699623`*^9,
1173	3.5832795004603767`^9, 3.583645092589262^9, 3.583654936231823*^9,
1174	3.583655434781365^9, 3.583655691084528^9, 3.583656753245407*^9,
1175	3.583657126329726^9, 3.58365719091117^9, 3.591006123036346*^9,
1176	3.591006259506515^9, 3.591007720733861^9, 3.5953298157334213`*^9,
1177	3.595338857913962^9, {3.595589654079033^9, 3.595589678822201*^9},
1178	3.5955909082571774`^9, 3.595591806540279^9, 3.59559366410469*^9,
1179	3.5956551649114027`^9, 3.595655751300111^9, 3.59575871783995*^9,
1180	3.595774258108706^9, 3.595774986324383^9}],
1181
1182	Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
1183	"Print",
1184	CellChangeTimes->{{3.57976893707021^9, 3.579768960276555^9},
1185	3.579769865514038^9, 3.579769907559046^9, 3.579769981469977*^9,
1186	3.579770288264614^9, 3.579770322423699^9, 3.57977038141331*^9,
1187	3.579770415802527^9, 3.579770447829186^9, 3.5797705026290627`*^9, {
1188	3.579771840458057^9, 3.579771853825611^9}, 3.579772249535247*^9,
1189	3.579772870223282^9, 3.579773025614532^9, 3.5797731257884703`*^9,
1190	3.5797734767753468`^9, 3.5797751608353767`^9, 3.579775204023447*^9,
1191	3.579775665887414^9, 3.579776074687708^9, 3.579779030756297*^9,
1192	3.579953773318592^9, 3.5800532322628^9, 3.5800532810346203`*^9,
1193	3.580069382328477^9, 3.580116001454042^9, 3.580127096425099*^9,
1194	3.580140760993733^9, 3.5801408520886917`^9, 3.580143603399817*^9,
1195	3.580277956444783^9, 3.580278348519937^9, 3.5807303113442574`*^9,
1196	3.580788719949267^9, 3.581151116188569^9, 3.581151240713645*^9,
1197	3.581152689676711^9, 3.581391534927425^9, 3.58192481387215*^9,
1198	3.581956193898932^9, 3.5819568028773403`^9, 3.5819573514463243`*^9,
1199	3.581959942245448^9, 3.581960065559105^9, 3.5819604227699623`*^9,
1200	3.5832795004603767`^9, 3.583645092589262^9, 3.583654936231823*^9,
1201	3.583655434781365^9, 3.583655691084528^9, 3.583656753245407*^9,
1202	3.583657126329726^9, 3.58365719091117^9, 3.591006123036346*^9,
1203	3.591006259506515^9, 3.591007720733861^9, 3.5953298157334213`*^9,
1204	3.595338857913962^9, {3.595589654079033^9, 3.595589678822201*^9},
1205	3.5955909082571774`^9, 3.595591806540279^9, 3.59559366410469*^9,
1206	3.5956551649114027`^9, 3.595655751300111^9, 3.59575871783995*^9,
1207	3.595774258108706^9, 3.595774986330174^9}],
1208
1209	Cell[BoxData["\<\"\"\>"], "Print",
1210	CellChangeTimes->{{3.57976893707021^9, 3.579768960276555^9},
1211	3.579769865514038^9, 3.579769907559046^9, 3.579769981469977*^9,
1212	3.579770288264614^9, 3.579770322423699^9, 3.57977038141331*^9,
1213	3.579770415802527^9, 3.579770447829186^9, 3.5797705026290627`*^9, {
1214	3.579771840458057^9, 3.579771853825611^9}, 3.579772249535247*^9,
1215	3.579772870223282^9, 3.579773025614532^9, 3.5797731257884703`*^9,
1216	3.5797734767753468`^9, 3.5797751608353767`^9, 3.579775204023447*^9,
1217	3.579775665887414^9, 3.579776074687708^9, 3.579779030756297*^9,
1218	3.579953773318592^9, 3.5800532322628^9, 3.5800532810346203`*^9,
1219	3.580069382328477^9, 3.580116001454042^9, 3.580127096425099*^9,
1220	3.580140760993733^9, 3.5801408520886917`^9, 3.580143603399817*^9,
1221	3.580277956444783^9, 3.580278348519937^9, 3.5807303113442574`*^9,
1222	3.580788719949267^9, 3.581151116188569^9, 3.581151240713645*^9,
1223	3.581152689676711^9, 3.581391534927425^9, 3.58192481387215*^9,
1224	3.581956193898932^9, 3.5819568028773403`^9, 3.5819573514463243`*^9,
1225	3.581959942245448^9, 3.581960065559105^9, 3.5819604227699623`*^9,
1226	3.5832795004603767`^9, 3.583645092589262^9, 3.583654936231823*^9,
1227	3.583655434781365^9, 3.583655691084528^9, 3.583656753245407*^9,
1228	3.583657126329726^9, 3.58365719091117^9, 3.591006123036346*^9,
1229	3.591006259506515^9, 3.591007720733861^9, 3.5953298157334213`*^9,
1230	3.595338857913962^9, {3.595589654079033^9, 3.595589678822201*^9},
1231	3.5955909082571774`^9, 3.595591806540279^9, 3.59559366410469*^9,
1232	3.5956551649114027`^9, 3.595655751300111^9, 3.59575871783995*^9,
1233	3.595774258108706^9, 3.59577498633589^9}],
1234
1235	Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
1236	CellChangeTimes->{{3.57976893707021^9, 3.579768960276555^9},
1237	3.579769865514038^9, 3.579769907559046^9, 3.579769981469977*^9,
1238	3.579770288264614^9, 3.579770322423699^9, 3.57977038141331*^9,
1239	3.579770415802527^9, 3.579770447829186^9, 3.5797705026290627`*^9, {
1240	3.579771840458057^9, 3.579771853825611^9}, 3.579772249535247*^9,
1241	3.579772870223282^9, 3.579773025614532^9, 3.5797731257884703`*^9,
1242	3.5797734767753468`^9, 3.5797751608353767`^9, 3.579775204023447*^9,
1243	3.579775665887414^9, 3.579776074687708^9, 3.579779030756297*^9,
1244	3.579953773318592^9, 3.5800532322628^9, 3.5800532810346203`*^9,
1245	3.580069382328477^9, 3.580116001454042^9, 3.580127096425099*^9,
1246	3.580140760993733^9, 3.5801408520886917`^9, 3.580143603399817*^9,
1247	3.580277956444783^9, 3.580278348519937^9, 3.5807303113442574`*^9,
1248	3.580788719949267^9, 3.581151116188569^9, 3.581151240713645*^9,
1249	3.581152689676711^9, 3.581391534927425^9, 3.58192481387215*^9,
1250	3.581956193898932^9, 3.5819568028773403`^9, 3.5819573514463243`*^9,
1251	3.581959942245448^9, 3.581960065559105^9, 3.5819604227699623`*^9,
1252	3.5832795004603767`^9, 3.583645092589262^9, 3.583654936231823*^9,
1253	3.583655434781365^9, 3.583655691084528^9, 3.583656753245407*^9,
1254	3.583657126329726^9, 3.58365719091117^9, 3.591006123036346*^9,
1255	3.591006259506515^9, 3.591007720733861^9, 3.5953298157334213`*^9,
1256	3.595338857913962^9, {3.595589654079033^9, 3.595589678822201*^9},
1257	3.5955909082571774`^9, 3.595591806540279^9, 3.59559366410469*^9,
1258	3.5956551649114027`^9, 3.595655751300111^9, 3.59575871783995*^9,
1259	3.595774258108706^9, 3.595774986341823^9}],
1260
1261	Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
1262	CellChangeTimes->{{3.57976893707021^9, 3.579768960276555^9},
1263	3.579769865514038^9, 3.579769907559046^9, 3.579769981469977*^9,
1264	3.579770288264614^9, 3.579770322423699^9, 3.57977038141331*^9,
1265	3.579770415802527^9, 3.579770447829186^9, 3.5797705026290627`*^9, {
1266	3.579771840458057^9, 3.579771853825611^9}, 3.579772249535247*^9,
1267	3.579772870223282^9, 3.579773025614532^9, 3.5797731257884703`*^9,
1268	3.5797734767753468`^9, 3.5797751608353767`^9, 3.579775204023447*^9,
1269	3.579775665887414^9, 3.579776074687708^9, 3.579779030756297*^9,
1270	3.579953773318592^9, 3.5800532322628^9, 3.5800532810346203`*^9,
1271	3.580069382328477^9, 3.580116001454042^9, 3.580127096425099*^9,
1272	3.580140760993733^9, 3.5801408520886917`^9, 3.580143603399817*^9,
1273	3.580277956444783^9, 3.580278348519937^9, 3.5807303113442574`*^9,
1274	3.580788719949267^9, 3.581151116188569^9, 3.581151240713645*^9,
1275	3.581152689676711^9, 3.581391534927425^9, 3.58192481387215*^9,
1276	3.581956193898932^9, 3.5819568028773403`^9, 3.5819573514463243`*^9,
1277	3.581959942245448^9, 3.581960065559105^9, 3.5819604227699623`*^9,
1278	3.5832795004603767`^9, 3.583645092589262^9, 3.583654936231823*^9,
1279	3.583655434781365^9, 3.583655691084528^9, 3.583656753245407*^9,
1280	3.583657126329726^9, 3.58365719091117^9, 3.591006123036346*^9,
1281	3.591006259506515^9, 3.591007720733861^9, 3.5953298157334213`*^9,
1282	3.595338857913962^9, {3.595589654079033^9, 3.595589678822201*^9},
1283	3.5955909082571774`^9, 3.595591806540279^9, 3.59559366410469*^9,
1284	3.5956551649114027`^9, 3.595655751300111^9, 3.59575871783995*^9,
1285	3.595774258108706^9, 3.595774986570806^9}],
1286
1287	Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
1288	CellChangeTimes->{{3.57976893707021^9, 3.579768960276555^9},
1289	3.579769865514038^9, 3.579769907559046^9, 3.579769981469977*^9,
1290	3.579770288264614^9, 3.579770322423699^9, 3.57977038141331*^9,
1291	3.579770415802527^9, 3.579770447829186^9, 3.5797705026290627`*^9, {
1292	3.579771840458057^9, 3.579771853825611^9}, 3.579772249535247*^9,
1293	3.579772870223282^9, 3.579773025614532^9, 3.5797731257884703`*^9,
1294	3.5797734767753468`^9, 3.5797751608353767`^9, 3.579775204023447*^9,
1295	3.579775665887414^9, 3.579776074687708^9, 3.579779030756297*^9,
1296	3.579953773318592^9, 3.5800532322628^9, 3.5800532810346203`*^9,
1297	3.580069382328477^9, 3.580116001454042^9, 3.580127096425099*^9,
1298	3.580140760993733^9, 3.5801408520886917`^9, 3.580143603399817*^9,
1299	3.580277956444783^9, 3.580278348519937^9, 3.5807303113442574`*^9,
1300	3.580788719949267^9, 3.581151116188569^9, 3.581151240713645*^9,
1301	3.581152689676711^9, 3.581391534927425^9, 3.58192481387215*^9,
1302	3.581956193898932^9, 3.5819568028773403`^9, 3.5819573514463243`*^9,
1303	3.581959942245448^9, 3.581960065559105^9, 3.5819604227699623`*^9,
1304	3.5832795004603767`^9, 3.583645092589262^9, 3.583654936231823*^9,
1305	3.583655434781365^9, 3.583655691084528^9, 3.583656753245407*^9,
1306	3.583657126329726^9, 3.58365719091117^9, 3.591006123036346*^9,
1307	3.591006259506515^9, 3.591007720733861^9, 3.5953298157334213`*^9,
1308	3.595338857913962^9, {3.595589654079033^9, 3.595589678822201*^9},
1309	3.5955909082571774`^9, 3.595591806540279^9, 3.59559366410469*^9,
1310	3.5956551649114027`^9, 3.595655751300111^9, 3.59575871783995*^9,
1311	3.595774258108706^9, 3.595774986620122^9}],
1312
1313	Cell[BoxData[
1314	InterpretationBox[
1315	RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"HC\"\>",
1316	"\[InvisibleSpace]", "\<\" loaded.\"\>"}],
1317	SequenceForm["\nModel ", "HC", " loaded."],
1318	Editable->False]], "Print",
1319	CellChangeTimes->{{3.57976893707021^9, 3.579768960276555^9},
1320	3.579769865514038^9, 3.579769907559046^9, 3.579769981469977*^9,
1321	3.579770288264614^9, 3.579770322423699^9, 3.57977038141331*^9,
1322	3.579770415802527^9, 3.579770447829186^9, 3.5797705026290627`*^9, {
1323	3.579771840458057^9, 3.579771853825611^9}, 3.579772249535247*^9,
1324	3.579772870223282^9, 3.579773025614532^9, 3.5797731257884703`*^9,
1325	3.5797734767753468`^9, 3.5797751608353767`^9, 3.579775204023447*^9,
1326	3.579775665887414^9, 3.579776074687708^9, 3.579779030756297*^9,
1327	3.579953773318592^9, 3.5800532322628^9, 3.5800532810346203`*^9,
1328	3.580069382328477^9, 3.580116001454042^9, 3.580127096425099*^9,
1329	3.580140760993733^9, 3.5801408520886917`^9, 3.580143603399817*^9,
1330	3.580277956444783^9, 3.580278348519937^9, 3.5807303113442574`*^9,
1331	3.580788719949267^9, 3.581151116188569^9, 3.581151240713645*^9,
1332	3.581152689676711^9, 3.581391534927425^9, 3.58192481387215*^9,
1333	3.581956193898932^9, 3.5819568028773403`^9, 3.5819573514463243`*^9,
1334	3.581959942245448^9, 3.581960065559105^9, 3.5819604227699623`*^9,
1335	3.5832795004603767`^9, 3.583645092589262^9, 3.583654936231823*^9,
1336	3.583655434781365^9, 3.583655691084528^9, 3.583656753245407*^9,
1337	3.583657126329726^9, 3.58365719091117^9, 3.591006123036346*^9,
1338	3.591006259506515^9, 3.591007720733861^9, 3.5953298157334213`*^9,
1339	3.595338857913962^9, {3.595589654079033^9, 3.595589678822201*^9},
1340	3.5955909082571774`^9, 3.595591806540279^9, 3.59559366410469*^9,
1341	3.5956551649114027`^9, 3.595655751300111^9, 3.59575871783995*^9,
1342	3.595774258108706^9, 3.595774986855732^9}]
1343	}, Open ]]
1344	}, Open ]],
1345
1346	Cell[CellGroupData[{
1347
1348	Cell[BoxData[
1349	RowBox[{
1350	RowBox[{"ModelInformation", "[", "]"}], ";"}]], "Input",
1351	CellChangeTimes->{{3.581151369501802^9, 3.5811514013985243`^9}}],
1352
1353	Cell[CellGroupData[{
1354
1355	Cell[BoxData[
1356	InterpretationBox[
1357	RowBox[{"\<\"Model name: \"\>", "\[InvisibleSpace]", "\<\"HC\"\>"}],
1358	SequenceForm["Model name: ", "HC"],
1359	Editable->False]], "Print",
1360	CellChangeTimes->{{3.581151387531425^9, 3.581151401883533^9},
1361	3.581152692208685^9, 3.581391539838377^9, 3.5819248171349382`*^9,
1362	3.5819561962253103`^9, 3.5819568059092093`^9, 3.5819599461628304`*^9,
1363	3.581960067756258^9, 3.581960426065414^9, 3.583279502901986*^9,
1364	3.583645095838223^9, 3.583654939280147^9, 3.583655437406549*^9,
1365	3.58365569572663^9, 3.583656755556831^9, 3.58365712993919*^9,
1366	3.583657193191371^9, 3.591006263291099^9, 3.591007723310964*^9,
1367	3.595329821151325^9, 3.5953388609390182`^9, 3.595589680916645*^9,
1368	3.595590910555626^9, 3.595591808476202^9, 3.5955936685390673`*^9,
1369	3.5956551702697287`^9, 3.5956557541723013`^9, 3.5957587245778217`*^9,
1370	3.5957742607433558`^9, 3.5957749889756393`^9}],
1371
1372	Cell[BoxData[
1373	InterpretationBox[
1374	RowBox[{"\<\"Model version: \"\>", "\[InvisibleSpace]", "\<\"4.0\"\>"}],
1375	SequenceForm["Model version: ", "4.0"],
1376	Editable->False]], "Print",
1377	CellChangeTimes->{{3.581151387531425^9, 3.581151401883533^9},
1378	3.581152692208685^9, 3.581391539838377^9, 3.5819248171349382`*^9,
1379	3.5819561962253103`^9, 3.5819568059092093`^9, 3.5819599461628304`*^9,
1380	3.581960067756258^9, 3.581960426065414^9, 3.583279502901986*^9,
1381	3.583645095838223^9, 3.583654939280147^9, 3.583655437406549*^9,
1382	3.58365569572663^9, 3.583656755556831^9, 3.58365712993919*^9,
1383	3.583657193191371^9, 3.591006263291099^9, 3.591007723310964*^9,
1384	3.595329821151325^9, 3.5953388609390182`^9, 3.595589680916645*^9,
1385	3.595590910555626^9, 3.595591808476202^9, 3.5955936685390673`*^9,
1386	3.5956551702697287`^9, 3.5956557541723013`^9, 3.5957587245778217`*^9,
1387	3.5957742607433558`^9, 3.595774988980631^9}],
1388
1389	Cell[BoxData[
1390	InterpretationBox[
1391	RowBox[{"\<\"Date: \"\>", "\[InvisibleSpace]", "\<\"11.12.2013\"\>"}],
1392	SequenceForm["Date: ", "11.12.2013"],
1393	Editable->False]], "Print",
1394	CellChangeTimes->{{3.581151387531425^9, 3.581151401883533^9},
1395	3.581152692208685^9, 3.581391539838377^9, 3.5819248171349382`*^9,
1396	3.5819561962253103`^9, 3.5819568059092093`^9, 3.5819599461628304`*^9,
1397	3.581960067756258^9, 3.581960426065414^9, 3.583279502901986*^9,
1398	3.583645095838223^9, 3.583654939280147^9, 3.583655437406549*^9,
1399	3.58365569572663^9, 3.583656755556831^9, 3.58365712993919*^9,
1400	3.583657193191371^9, 3.591006263291099^9, 3.591007723310964*^9,
1401	3.595329821151325^9, 3.5953388609390182`^9, 3.595589680916645*^9,
1402	3.595590910555626^9, 3.595591808476202^9, 3.5955936685390673`*^9,
1403	3.5956551702697287`^9, 3.5956557541723013`^9, 3.5957587245778217`*^9,
1404	3.5957742607433558`^9, 3.595774988985696^9}],
1405
1406	Cell[BoxData["\<\"Authors: \"\>"], "Print",
1407	CellChangeTimes->{{3.581151387531425^9, 3.581151401883533^9},
1408	3.581152692208685^9, 3.581391539838377^9, 3.5819248171349382`*^9,
1409	3.5819561962253103`^9, 3.5819568059092093`^9, 3.5819599461628304`*^9,
1410	3.581960067756258^9, 3.581960426065414^9, 3.583279502901986*^9,
1411	3.583645095838223^9, 3.583654939280147^9, 3.583655437406549*^9,
1412	3.58365569572663^9, 3.583656755556831^9, 3.58365712993919*^9,
1413	3.583657193191371^9, 3.591006263291099^9, 3.591007723310964*^9,
1414	3.595329821151325^9, 3.5953388609390182`^9, 3.595589680916645*^9,
1415	3.595590910555626^9, 3.595591808476202^9, 3.5955936685390673`*^9,
1416	3.5956551702697287`^9, 3.5956557541723013`^9, 3.5957587245778217`*^9,
1417	3.5957742607433558`^9, 3.595774988990439^9}],
1418
1419	Cell[BoxData["\<\" P. de Aquino, K. Mawatari\"\>"], "Print",
1420	CellChangeTimes->{{3.581151387531425^9, 3.581151401883533^9},
1421	3.581152692208685^9, 3.581391539838377^9, 3.5819248171349382`*^9,
1422	3.5819561962253103`^9, 3.5819568059092093`^9, 3.5819599461628304`*^9,
1423	3.581960067756258^9, 3.581960426065414^9, 3.583279502901986*^9,
1424	3.583645095838223^9, 3.583654939280147^9, 3.583655437406549*^9,
1425	3.58365569572663^9, 3.583656755556831^9, 3.58365712993919*^9,
1426	3.583657193191371^9, 3.591006263291099^9, 3.591007723310964*^9,
1427	3.595329821151325^9, 3.5953388609390182`^9, 3.595589680916645*^9,
1428	3.595590910555626^9, 3.595591808476202^9, 3.5955936685390673`*^9,
1429	3.5956551702697287`^9, 3.5956557541723013`^9, 3.5957587245778217`*^9,
1430	3.5957742607433558`^9, 3.595774988995092^9}],
1431
1432	Cell[BoxData["\<\"Institutions: \"\>"], "Print",
1433	CellChangeTimes->{{3.581151387531425^9, 3.581151401883533^9},
1434	3.581152692208685^9, 3.581391539838377^9, 3.5819248171349382`*^9,
1435	3.5819561962253103`^9, 3.5819568059092093`^9, 3.5819599461628304`*^9,
1436	3.581960067756258^9, 3.581960426065414^9, 3.583279502901986*^9,
1437	3.583645095838223^9, 3.583654939280147^9, 3.583655437406549*^9,
1438	3.58365569572663^9, 3.583656755556831^9, 3.58365712993919*^9,
1439	3.583657193191371^9, 3.591006263291099^9, 3.591007723310964*^9,
1440	3.595329821151325^9, 3.5953388609390182`^9, 3.595589680916645*^9,
1441	3.595590910555626^9, 3.595591808476202^9, 3.5955936685390673`*^9,
1442	3.5956551702697287`^9, 3.5956557541723013`^9, 3.5957587245778217`*^9,
1443	3.5957742607433558`^9, 3.595774989000292^9}],
1444
1445	Cell[BoxData["\<\" Vrije Universiteit Brussel\"\>"], "Print",
1446	CellChangeTimes->{{3.581151387531425^9, 3.581151401883533^9},
1447	3.581152692208685^9, 3.581391539838377^9, 3.5819248171349382`*^9,
1448	3.5819561962253103`^9, 3.5819568059092093`^9, 3.5819599461628304`*^9,
1449	3.581960067756258^9, 3.581960426065414^9, 3.583279502901986*^9,
1450	3.583645095838223^9, 3.583654939280147^9, 3.583655437406549*^9,
1451	3.58365569572663^9, 3.583656755556831^9, 3.58365712993919*^9,
1452	3.583657193191371^9, 3.591006263291099^9, 3.591007723310964*^9,
1453	3.595329821151325^9, 3.5953388609390182`^9, 3.595589680916645*^9,
1454	3.595590910555626^9, 3.595591808476202^9, 3.5955936685390673`*^9,
1455	3.5956551702697287`^9, 3.5956557541723013`^9, 3.5957587245778217`*^9,
1456	3.5957742607433558`^9, 3.595774989005561^9}],
1457
1458	Cell[BoxData["\<\"Emails: \"\>"], "Print",
1459	CellChangeTimes->{{3.581151387531425^9, 3.581151401883533^9},
1460	3.581152692208685^9, 3.581391539838377^9, 3.5819248171349382`*^9,
1461	3.5819561962253103`^9, 3.5819568059092093`^9, 3.5819599461628304`*^9,
1462	3.581960067756258^9, 3.581960426065414^9, 3.583279502901986*^9,
1463	3.583645095838223^9, 3.583654939280147^9, 3.583655437406549*^9,
1464	3.58365569572663^9, 3.583656755556831^9, 3.58365712993919*^9,
1465	3.583657193191371^9, 3.591006263291099^9, 3.591007723310964*^9,
1466	3.595329821151325^9, 3.5953388609390182`^9, 3.595589680916645*^9,
1467	3.595590910555626^9, 3.595591808476202^9, 3.5955936685390673`*^9,
1468	3.5956551702697287`^9, 3.5956557541723013`^9, 3.5957587245778217`*^9,
1469	3.5957742607433558`^9, 3.595774989010865^9}],
1470
1471	Cell[BoxData["\<\" kentarou.mawatari@vub.ac.be\"\>"], "Print",
1472	CellChangeTimes->{{3.581151387531425^9, 3.581151401883533^9},
1473	3.581152692208685^9, 3.581391539838377^9, 3.5819248171349382`*^9,
1474	3.5819561962253103`^9, 3.5819568059092093`^9, 3.5819599461628304`*^9,
1475	3.581960067756258^9, 3.581960426065414^9, 3.583279502901986*^9,
1476	3.583645095838223^9, 3.583654939280147^9, 3.583655437406549*^9,
1477	3.58365569572663^9, 3.583656755556831^9, 3.58365712993919*^9,
1478	3.583657193191371^9, 3.591006263291099^9, 3.591007723310964*^9,
1479	3.595329821151325^9, 3.5953388609390182`^9, 3.595589680916645*^9,
1480	3.595590910555626^9, 3.595591808476202^9, 3.5955936685390673`*^9,
1481	3.5956551702697287`^9, 3.5956557541723013`^9, 3.5957587245778217`*^9,
1482	3.5957742607433558`^9, 3.595774989016189^9}],
1483
1484	Cell[BoxData["\<\"References: \"\>"], "Print",
1485	CellChangeTimes->{{3.581151387531425^9, 3.581151401883533^9},
1486	3.581152692208685^9, 3.581391539838377^9, 3.5819248171349382`*^9,
1487	3.5819561962253103`^9, 3.5819568059092093`^9, 3.5819599461628304`*^9,
1488	3.581960067756258^9, 3.581960426065414^9, 3.583279502901986*^9,
1489	3.583645095838223^9, 3.583654939280147^9, 3.583655437406549*^9,
1490	3.58365569572663^9, 3.583656755556831^9, 3.58365712993919*^9,
1491	3.583657193191371^9, 3.591006263291099^9, 3.591007723310964*^9,
1492	3.595329821151325^9, 3.5953388609390182`^9, 3.595589680916645*^9,
1493	3.595590910555626^9, 3.595591808476202^9, 3.5955936685390673`*^9,
1494	3.5956551702697287`^9, 3.5956557541723013`^9, 3.5957587245778217`*^9,
1495	3.5957742607433558`^9, 3.5957749890215797`^9}],
1496
1497	Cell[BoxData["\<\" P. Artoisenet et al., arXiv:1306.6464\"\>"], "Print",
1498	CellChangeTimes->{{3.581151387531425^9, 3.581151401883533^9},
1499	3.581152692208685^9, 3.581391539838377^9, 3.5819248171349382`*^9,
1500	3.5819561962253103`^9, 3.5819568059092093`^9, 3.5819599461628304`*^9,
1501	3.581960067756258^9, 3.581960426065414^9, 3.583279502901986*^9,
1502	3.583645095838223^9, 3.583654939280147^9, 3.583655437406549*^9,
1503	3.58365569572663^9, 3.583656755556831^9, 3.58365712993919*^9,
1504	3.583657193191371^9, 3.591006263291099^9, 3.591007723310964*^9,
1505	3.595329821151325^9, 3.5953388609390182`^9, 3.595589680916645*^9,
1506	3.595590910555626^9, 3.595591808476202^9, 3.5955936685390673`*^9,
1507	3.5956551702697287`^9, 3.5956557541723013`^9, 3.5957587245778217`*^9,
1508	3.5957742607433558`^9, 3.595774989026895^9}],
1509
1510	Cell[BoxData["\<\"URL's: \"\>"], "Print",
1511	CellChangeTimes->{{3.581151387531425^9, 3.581151401883533^9},
1512	3.581152692208685^9, 3.581391539838377^9, 3.5819248171349382`*^9,
1513	3.5819561962253103`^9, 3.5819568059092093`^9, 3.5819599461628304`*^9,
1514	3.581960067756258^9, 3.581960426065414^9, 3.583279502901986*^9,
1515	3.583645095838223^9, 3.583654939280147^9, 3.583655437406549*^9,
1516	3.58365569572663^9, 3.583656755556831^9, 3.58365712993919*^9,
1517	3.583657193191371^9, 3.591006263291099^9, 3.591007723310964*^9,
1518	3.595329821151325^9, 3.5953388609390182`^9, 3.595589680916645*^9,
1519	3.595590910555626^9, 3.595591808476202^9, 3.5955936685390673`*^9,
1520	3.5956551702697287`^9, 3.5956557541723013`^9, 3.5957587245778217`*^9,
1521	3.5957742607433558`^9, 3.595774989032241^9}],
1522
1523	Cell[BoxData["\<\" \
1524	http://feynrules.irmp.ucl.ac.be/wiki/HiggsCharacterisation/\"\>"], "Print",
1525	CellChangeTimes->{{3.581151387531425^9, 3.581151401883533^9},
1526	3.581152692208685^9, 3.581391539838377^9, 3.5819248171349382`*^9,
1527	3.5819561962253103`^9, 3.5819568059092093`^9, 3.5819599461628304`*^9,
1528	3.581960067756258^9, 3.581960426065414^9, 3.583279502901986*^9,
1529	3.583645095838223^9, 3.583654939280147^9, 3.583655437406549*^9,
1530	3.58365569572663^9, 3.583656755556831^9, 3.58365712993919*^9,
1531	3.583657193191371^9, 3.591006263291099^9, 3.591007723310964*^9,
1532	3.595329821151325^9, 3.5953388609390182`^9, 3.595589680916645*^9,
1533	3.595590910555626^9, 3.595591808476202^9, 3.5955936685390673`*^9,
1534	3.5956551702697287`^9, 3.5956557541723013`^9, 3.5957587245778217`*^9,
1535	3.5957742607433558`^9, 3.595774989037507^9}]
1536	}, Open ]]
1537	}, Open ]],
1538
1539	Cell[CellGroupData[{
1540
1541	Cell[BoxData[
1542	RowBox[{"LoadRestriction", "[",
1543	RowBox[{"\"\<Cabibbo.rst\>\"", ",", "\"\<Massless.rst\>\""}],
1544	"]"}]], "Input",
1545	CellChangeTimes->{
1546	3.563280223155616^9, {3.563771875657627^9, 3.563771912735396*^9},
1547	3.5671480612443037`^9, {3.579429036774397^9, 3.579429037217311*^9}}],
1548
1549	Cell[CellGroupData[{
1550
1551	Cell[BoxData[
1552	InterpretationBox[
1553	RowBox[{"\<\"Loading restrictions from \"\>",
1554	"\[InvisibleSpace]", "\<\"Cabibbo.rst\"\>",
1555	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
1556	DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
1557	ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1558	"\[InvisibleSpace]", "6"}],
1559	SequenceForm["Loading restrictions from ", "Cabibbo.rst", " : ",
1560	Dynamic[PRIVATE`FR$restrictionCounter], " / ", 6],
1561	Editable->False]], "Print",
1562	CellChangeTimes->{
1563	3.5794290509544363`^9, 3.579429181799006^9, 3.5794325155955677`*^9,
1564	3.579432635108132^9, 3.579432805375701^9, 3.57943286788902*^9,
1565	3.579433386148896^9, 3.579433454039764^9, 3.579434251113165*^9,
1566	3.579434577990007^9, 3.579434965934722^9, 3.579435342903551*^9,
1567	3.579443445016252^9, 3.579443578275963^9, 3.579443639507142*^9,
1568	3.5794490456747837`^9, 3.579450884987849^9, 3.579451357270712*^9,
1569	3.579454729578051^9, 3.57945589472537^9, 3.579456067101851*^9,
1570	3.5795095050913897`^9, 3.579510011236^9, 3.579510161872367*^9,
1571	3.5795119237125273`^9, 3.579512205312881^9, 3.579516670096532*^9,
1572	3.5795168192418127`^9, 3.5795397542168303`^9, 3.579542440945209*^9,
1573	3.57954278255612^9, 3.579542860599605^9, 3.5795439890790577`*^9,
1574	3.5795798372747498`^9, 3.579580044181732^9, 3.579580381444313*^9, {
1575	3.579592510491967^9, 3.579592536546259^9}, 3.579592590208592*^9,
1576	3.579592708359777^9, 3.5795944933253403`^9, 3.579594564512615*^9,
1577	3.579595461840765^9, 3.5795957323353157`^9, 3.57959921585903*^9,
1578	3.579599983939945^9, 3.579600698922448^9, 3.579605912404235*^9,
1579	3.5796063120910587`^9, 3.579606459356874^9, 3.5796087825947437`*^9,
1580	3.579609132580268^9, 3.5796093052741203`^9, 3.57976470978084*^9,
1581	3.579764858430361^9, 3.579765178794323^9, 3.57976559249448*^9,
1582	3.5797673352274303`^9, 3.5797705150852833`^9, 3.579771857942809*^9,
1583	3.579772253067027^9, 3.579772874657702^9, 3.57977303102221*^9,
1584	3.5797731280541563`^9, 3.579773478797687^9, 3.579775163369293*^9,
1585	3.5797752058287086`^9, 3.57977567108652^9, 3.579776076330688*^9,
1586	3.579779034448839^9, 3.579953776110952^9, 3.5800532833299294`*^9,
1587	3.580069385139514^9, 3.5801160033896103`^9, 3.5801270985084133`*^9,
1588	3.580140763667358^9, 3.580140854951489^9, 3.5801436065745687`*^9,
1589	3.580277959531026^9, 3.580278353712617^9, 3.580730313951734*^9,
1590	3.580788726282175^9, 3.581151118759831^9, 3.581151242742681*^9,
1591	3.581152695187685^9, 3.581391547783867^9, 3.5819248220873623`*^9,
1592	3.581956200547022^9, 3.581956808027287^9, 3.5819573568258953`*^9,
1593	3.581959949779924^9, 3.5819600698582973`^9, 3.581960434590064*^9,
1594	3.583279508657537^9, 3.583645099422858^9, 3.583654945788978*^9,
1595	3.583655441069084^9, 3.583655699521132^9, 3.583656759092362*^9,
1596	3.583657136793429^9, 3.583657196643655^9, 3.591006128455742*^9,
1597	3.591006265460855^9, 3.591007726583241^9, 3.595329826591722*^9,
1598	3.5953388663365707`^9, 3.595589685744636^9, 3.5955909136452*^9,
1599	3.595591812197258^9, 3.59559367500727^9, 3.595655228344956*^9,
1600	3.595655759244561^9, 3.595758733420156^9, 3.595774266779652*^9,
1601	3.59577499234085*^9}],
1602
1603	Cell[BoxData[
1604	InterpretationBox[
1605	RowBox[{"\<\"Loading restrictions from \"\>",
1606	"\[InvisibleSpace]", "\<\"Massless.rst\"\>",
1607	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
1608	DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
1609	ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1610	"\[InvisibleSpace]", "18"}],
1611	SequenceForm["Loading restrictions from ", "Massless.rst", " : ",
1612	Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
1613	Editable->False]], "Print",
1614	CellChangeTimes->{
1615	3.5794290509544363`^9, 3.579429181799006^9, 3.5794325155955677`*^9,
1616	3.579432635108132^9, 3.579432805375701^9, 3.57943286788902*^9,
1617	3.579433386148896^9, 3.579433454039764^9, 3.579434251113165*^9,
1618	3.579434577990007^9, 3.579434965934722^9, 3.579435342903551*^9,
1619	3.579443445016252^9, 3.579443578275963^9, 3.579443639507142*^9,
1620	3.5794490456747837`^9, 3.579450884987849^9, 3.579451357270712*^9,
1621	3.579454729578051^9, 3.57945589472537^9, 3.579456067101851*^9,
1622	3.5795095050913897`^9, 3.579510011236^9, 3.579510161872367*^9,
1623	3.5795119237125273`^9, 3.579512205312881^9, 3.579516670096532*^9,
1624	3.5795168192418127`^9, 3.5795397542168303`^9, 3.579542440945209*^9,
1625	3.57954278255612^9, 3.579542860599605^9, 3.5795439890790577`*^9,
1626	3.5795798372747498`^9, 3.579580044181732^9, 3.579580381444313*^9, {
1627	3.579592510491967^9, 3.579592536546259^9}, 3.579592590208592*^9,
1628	3.579592708359777^9, 3.5795944933253403`^9, 3.579594564512615*^9,
1629	3.579595461840765^9, 3.5795957323353157`^9, 3.57959921585903*^9,
1630	3.579599983939945^9, 3.579600698922448^9, 3.579605912404235*^9,
1631	3.5796063120910587`^9, 3.579606459356874^9, 3.5796087825947437`*^9,
1632	3.579609132580268^9, 3.5796093052741203`^9, 3.57976470978084*^9,
1633	3.579764858430361^9, 3.579765178794323^9, 3.57976559249448*^9,
1634	3.5797673352274303`^9, 3.5797705150852833`^9, 3.579771857942809*^9,
1635	3.579772253067027^9, 3.579772874657702^9, 3.57977303102221*^9,
1636	3.5797731280541563`^9, 3.579773478797687^9, 3.579775163369293*^9,
1637	3.5797752058287086`^9, 3.57977567108652^9, 3.579776076330688*^9,
1638	3.579779034448839^9, 3.579953776110952^9, 3.5800532833299294`*^9,
1639	3.580069385139514^9, 3.5801160033896103`^9, 3.5801270985084133`*^9,
1640	3.580140763667358^9, 3.580140854951489^9, 3.5801436065745687`*^9,
1641	3.580277959531026^9, 3.580278353712617^9, 3.580730313951734*^9,
1642	3.580788726282175^9, 3.581151118759831^9, 3.581151242742681*^9,
1643	3.581152695187685^9, 3.581391547783867^9, 3.5819248220873623`*^9,
1644	3.581956200547022^9, 3.581956808027287^9, 3.5819573568258953`*^9,
1645	3.581959949779924^9, 3.5819600698582973`^9, 3.581960434590064*^9,
1646	3.583279508657537^9, 3.583645099422858^9, 3.583654945788978*^9,
1647	3.583655441069084^9, 3.583655699521132^9, 3.583656759092362*^9,
1648	3.583657136793429^9, 3.583657196643655^9, 3.591006128455742*^9,
1649	3.591006265460855^9, 3.591007726583241^9, 3.595329826591722*^9,
1650	3.5953388663365707`^9, 3.595589685744636^9, 3.5955909136452*^9,
1651	3.595591812197258^9, 3.59559367500727^9, 3.595655228344956*^9,
1652	3.595655759244561^9, 3.595758733420156^9, 3.595774266779652*^9,
1653	3.595774992569647*^9}],
1654
1655	Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
1656	CellChangeTimes->{
1657	3.5794290509544363`^9, 3.579429181799006^9, 3.5794325155955677`*^9,
1658	3.579432635108132^9, 3.579432805375701^9, 3.57943286788902*^9,
1659	3.579433386148896^9, 3.579433454039764^9, 3.579434251113165*^9,
1660	3.579434577990007^9, 3.579434965934722^9, 3.579435342903551*^9,
1661	3.579443445016252^9, 3.579443578275963^9, 3.579443639507142*^9,
1662	3.5794490456747837`^9, 3.579450884987849^9, 3.579451357270712*^9,
1663	3.579454729578051^9, 3.57945589472537^9, 3.579456067101851*^9,
1664	3.5795095050913897`^9, 3.579510011236^9, 3.579510161872367*^9,
1665	3.5795119237125273`^9, 3.579512205312881^9, 3.579516670096532*^9,
1666	3.5795168192418127`^9, 3.5795397542168303`^9, 3.579542440945209*^9,
1667	3.57954278255612^9, 3.579542860599605^9, 3.5795439890790577`*^9,
1668	3.5795798372747498`^9, 3.579580044181732^9, 3.579580381444313*^9, {
1669	3.579592510491967^9, 3.579592536546259^9}, 3.579592590208592*^9,
1670	3.579592708359777^9, 3.5795944933253403`^9, 3.579594564512615*^9,
1671	3.579595461840765^9, 3.5795957323353157`^9, 3.57959921585903*^9,
1672	3.579599983939945^9, 3.579600698922448^9, 3.579605912404235*^9,
1673	3.5796063120910587`^9, 3.579606459356874^9, 3.5796087825947437`*^9,
1674	3.579609132580268^9, 3.5796093052741203`^9, 3.57976470978084*^9,
1675	3.579764858430361^9, 3.579765178794323^9, 3.57976559249448*^9,
1676	3.5797673352274303`^9, 3.5797705150852833`^9, 3.579771857942809*^9,
1677	3.579772253067027^9, 3.579772874657702^9, 3.57977303102221*^9,
1678	3.5797731280541563`^9, 3.579773478797687^9, 3.579775163369293*^9,
1679	3.5797752058287086`^9, 3.57977567108652^9, 3.579776076330688*^9,
1680	3.579779034448839^9, 3.579953776110952^9, 3.5800532833299294`*^9,
1681	3.580069385139514^9, 3.5801160033896103`^9, 3.5801270985084133`*^9,
1682	3.580140763667358^9, 3.580140854951489^9, 3.5801436065745687`*^9,
1683	3.580277959531026^9, 3.580278353712617^9, 3.580730313951734*^9,
1684	3.580788726282175^9, 3.581151118759831^9, 3.581151242742681*^9,
1685	3.581152695187685^9, 3.581391547783867^9, 3.5819248220873623`*^9,
1686	3.581956200547022^9, 3.581956808027287^9, 3.5819573568258953`*^9,
1687	3.581959949779924^9, 3.5819600698582973`^9, 3.581960434590064*^9,
1688	3.583279508657537^9, 3.583645099422858^9, 3.583654945788978*^9,
1689	3.583655441069084^9, 3.583655699521132^9, 3.583656759092362*^9,
1690	3.583657136793429^9, 3.583657196643655^9, 3.591006128455742*^9,
1691	3.591006265460855^9, 3.591007726583241^9, 3.595329826591722*^9,
1692	3.5953388663365707`^9, 3.595589685744636^9, 3.5955909136452*^9,
1693	3.595591812197258^9, 3.59559367500727^9, 3.595655228344956*^9,
1694	3.595655759244561^9, 3.595758733420156^9, 3.595774266779652*^9,
1695	3.595774992786254*^9}]
1696	}, Open ]]
1697	}, Open ]],
1698
1699	Cell[CellGroupData[{
1700
1701	Cell[BoxData[
1702	RowBox[{
1703	RowBox[{"CheckHermiticity", "[", "LagHC", "]"}], ";"}]], "Input",
1704	CellChangeTimes->{{3.579767339384638^9, 3.579767354035263^9}, {
1705	3.5797705186463737`^9, 3.5797705200464497`^9}, 3.5797751925371647`*^9, {
1706	3.581151245902598^9, 3.5811512470771513`^9}}],
1707
1708	Cell[CellGroupData[{
1709
1710	Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
1711	contained in L-HC[L].\"\>"], "Print",
1712	CellChangeTimes->{3.5797673546715527`^9, 3.579770523301712^9,
1713	3.5797734822913513`^9, 3.57977516651696^9, 3.579775209619954*^9,
1714	3.579775674892428^9, 3.579776080070469^9, 3.579779038904632*^9,
1715	3.5799537803301163`^9, 3.580053286986227^9, 3.580116007398567*^9,
1716	3.580143610329121^9, 3.580277963501173^9, 3.580788785106824*^9,
1717	3.5811511239862127`^9, 3.581151249348155^9, 3.581152700061235*^9,
1718	3.581391572058302^9, 3.58196054535506^9, 3.583279515910986*^9,
1719	3.5836451031451893`^9, 3.583654949467194^9, 3.583655702479578*^9,
1720	3.583657201223311^9, 3.591006131902779^9, 3.591006270454809*^9,
1721	3.591007730106093^9, 3.595329831808466^9, 3.5953388713117847`*^9,
1722	3.595589691720665^9, 3.595590919040183^9, 3.59559181682102*^9,
1723	3.5955936796015882`^9, 3.595655771301568^9, 3.5957587389373426`*^9,
1724	3.5957742784099903`^9, 3.5957749982134438`^9}],
1725
1726	Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
1727	should be zero.\"\>"], "Print",
1728	CellChangeTimes->{3.5797673546715527`^9, 3.579770523301712^9,
1729	3.5797734822913513`^9, 3.57977516651696^9, 3.579775209619954*^9,
1730	3.579775674892428^9, 3.579776080070469^9, 3.579779038904632*^9,
1731	3.5799537803301163`^9, 3.580053286986227^9, 3.580116007398567*^9,
1732	3.580143610329121^9, 3.580277963501173^9, 3.580788785106824*^9,
1733	3.5811511239862127`^9, 3.581151249348155^9, 3.581152700061235*^9,
1734	3.581391572058302^9, 3.58196054535506^9, 3.583279515910986*^9,
1735	3.5836451031451893`^9, 3.583654949467194^9, 3.583655702479578*^9,
1736	3.583657201223311^9, 3.591006131902779^9, 3.591006270454809*^9,
1737	3.591007730106093^9, 3.595329831808466^9, 3.5953388713117847`*^9,
1738	3.595589691720665^9, 3.595590919040183^9, 3.59559181682102*^9,
1739	3.5955936796015882`^9, 3.595655771301568^9, 3.5957587389373426`*^9,
1740	3.5957742784099903`^9, 3.595774998253516^9}],
1741
1742	Cell[BoxData[
1743	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1744	StripOnInput->False,
1745	LineColor->RGBColor[1, 0.5, 0],
1746	FrontFaceColor->RGBColor[1, 0.5, 0],
1747	BackFaceColor->RGBColor[1, 0.5, 0],
1748	GraphicsColor->RGBColor[1, 0.5, 0],
1749	FontWeight->Bold,
1750	FontColor->RGBColor[1, 0.5, 0]]], "Print",
1751	CellChangeTimes->{3.5797673546715527`^9, 3.579770523301712^9,
1752	3.5797734822913513`^9, 3.57977516651696^9, 3.579775209619954*^9,
1753	3.579775674892428^9, 3.579776080070469^9, 3.579779038904632*^9,
1754	3.5799537803301163`^9, 3.580053286986227^9, 3.580116007398567*^9,
1755	3.580143610329121^9, 3.580277963501173^9, 3.580788785106824*^9,
1756	3.5811511239862127`^9, 3.581151249348155^9, 3.581152700061235*^9,
1757	3.581391572058302^9, 3.58196054535506^9, 3.583279515910986*^9,
1758	3.5836451031451893`^9, 3.583654949467194^9, 3.583655702479578*^9,
1759	3.583657201223311^9, 3.591006131902779^9, 3.591006270454809*^9,
1760	3.591007730106093^9, 3.595329831808466^9, 3.5953388713117847`*^9,
1761	3.595589691720665^9, 3.595590919040183^9, 3.59559181682102*^9,
1762	3.5955936796015882`^9, 3.595655771301568^9, 3.5957587389373426`*^9,
1763	3.5957742784099903`^9, 3.5957751244696903`^9}],
1764
1765	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1766	CellChangeTimes->{3.5797673546715527`^9, 3.579770523301712^9,
1767	3.5797734822913513`^9, 3.57977516651696^9, 3.579775209619954*^9,
1768	3.579775674892428^9, 3.579776080070469^9, 3.579779038904632*^9,
1769	3.5799537803301163`^9, 3.580053286986227^9, 3.580116007398567*^9,
1770	3.580143610329121^9, 3.580277963501173^9, 3.580788785106824*^9,
1771	3.5811511239862127`^9, 3.581151249348155^9, 3.581152700061235*^9,
1772	3.581391572058302^9, 3.58196054535506^9, 3.583279515910986*^9,
1773	3.5836451031451893`^9, 3.583654949467194^9, 3.583655702479578*^9,
1774	3.583657201223311^9, 3.591006131902779^9, 3.591006270454809*^9,
1775	3.591007730106093^9, 3.595329831808466^9, 3.5953388713117847`*^9,
1776	3.595589691720665^9, 3.595590919040183^9, 3.59559181682102*^9,
1777	3.5955936796015882`^9, 3.595655771301568^9, 3.5957587389373426`*^9,
1778	3.5957742784099903`^9, 3.595775124488041^9}],
1779
1780	Cell[BoxData[
1781	InterpretationBox[
1782	RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "2",
1783	"\[InvisibleSpace]", "\<\" cores\"\>"}],
1784	SequenceForm["Expanding indices over ", 2, " cores"],
1785	Editable->False]], "Print",
1786	CellChangeTimes->{3.5797673546715527`^9, 3.579770523301712^9,
1787	3.5797734822913513`^9, 3.57977516651696^9, 3.579775209619954*^9,
1788	3.579775674892428^9, 3.579776080070469^9, 3.579779038904632*^9,
1789	3.5799537803301163`^9, 3.580053286986227^9, 3.580116007398567*^9,
1790	3.580143610329121^9, 3.580277963501173^9, 3.580788785106824*^9,
1791	3.5811511239862127`^9, 3.581151249348155^9, 3.581152700061235*^9,
1792	3.581391572058302^9, 3.58196054535506^9, 3.583279515910986*^9,
1793	3.5836451031451893`^9, 3.583654949467194^9, 3.583655702479578*^9,
1794	3.583657201223311^9, 3.591006131902779^9, 3.591006270454809*^9,
1795	3.591007730106093^9, 3.595329831808466^9, 3.5953388713117847`*^9,
1796	3.595589691720665^9, 3.595590919040183^9, 3.59559181682102*^9,
1797	3.5955936796015882`^9, 3.595655771301568^9, 3.5957587389373426`*^9,
1798	3.5957742784099903`^9, 3.59577512449396^9}],
1799
1800	Cell[BoxData["\<\"Collecting the different structures that enter the \
1801	vertex.\"\>"], "Print",
1802	CellChangeTimes->{3.5797673546715527`^9, 3.579770523301712^9,
1803	3.5797734822913513`^9, 3.57977516651696^9, 3.579775209619954*^9,
1804	3.579775674892428^9, 3.579776080070469^9, 3.579779038904632*^9,
1805	3.5799537803301163`^9, 3.580053286986227^9, 3.580116007398567*^9,
1806	3.580143610329121^9, 3.580277963501173^9, 3.580788785106824*^9,
1807	3.5811511239862127`^9, 3.581151249348155^9, 3.581152700061235*^9,
1808	3.581391572058302^9, 3.58196054535506^9, 3.583279515910986*^9,
1809	3.5836451031451893`^9, 3.583654949467194^9, 3.583655702479578*^9,
1810	3.583657201223311^9, 3.591006131902779^9, 3.591006270454809*^9,
1811	3.591007730106093^9, 3.595329831808466^9, 3.5953388713117847`*^9,
1812	3.595589691720665^9, 3.595590919040183^9, 3.59559181682102*^9,
1813	3.5955936796015882`^9, 3.595655771301568^9, 3.5957587389373426`*^9,
1814	3.5957742784099903`^9, 3.5957751257934313`^9}],
1815
1816	Cell[BoxData[
1817	InterpretationBox[
1818	RowBox[{
1819	"1", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1820	-> starting the computation: \"\>", "\[InvisibleSpace]",
1821	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1822	ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1823	"\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\".\"\>"}],
1824	SequenceForm[
1825	1, " possible non-zero vertices have been found -> starting the \
1826	computation: ",
1827	Dynamic[FeynRules`FR$FeynmanRules], " / ", 1, "."],
1828	Editable->False]], "Print",
1829	CellChangeTimes->{3.5797673546715527`^9, 3.579770523301712^9,
1830	3.5797734822913513`^9, 3.57977516651696^9, 3.579775209619954*^9,
1831	3.579775674892428^9, 3.579776080070469^9, 3.579779038904632*^9,
1832	3.5799537803301163`^9, 3.580053286986227^9, 3.580116007398567*^9,
1833	3.580143610329121^9, 3.580277963501173^9, 3.580788785106824*^9,
1834	3.5811511239862127`^9, 3.581151249348155^9, 3.581152700061235*^9,
1835	3.581391572058302^9, 3.58196054535506^9, 3.583279515910986*^9,
1836	3.5836451031451893`^9, 3.583654949467194^9, 3.583655702479578*^9,
1837	3.583657201223311^9, 3.591006131902779^9, 3.591006270454809*^9,
1838	3.591007730106093^9, 3.595329831808466^9, 3.5953388713117847`*^9,
1839	3.595589691720665^9, 3.595590919040183^9, 3.59559181682102*^9,
1840	3.5955936796015882`^9, 3.595655771301568^9, 3.5957587389373426`*^9,
1841	3.5957742784099903`^9, 3.595775125849351^9}],
1842
1843	Cell[BoxData[
1844	InterpretationBox[
1845	RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1846	SequenceForm[0, " vertices obtained."],
1847	Editable->False]], "Print",
1848	CellChangeTimes->{3.5797673546715527`^9, 3.579770523301712^9,
1849	3.5797734822913513`^9, 3.57977516651696^9, 3.579775209619954*^9,
1850	3.579775674892428^9, 3.579776080070469^9, 3.579779038904632*^9,
1851	3.5799537803301163`^9, 3.580053286986227^9, 3.580116007398567*^9,
1852	3.580143610329121^9, 3.580277963501173^9, 3.580788785106824*^9,
1853	3.5811511239862127`^9, 3.581151249348155^9, 3.581152700061235*^9,
1854	3.581391572058302^9, 3.58196054535506^9, 3.583279515910986*^9,
1855	3.5836451031451893`^9, 3.583654949467194^9, 3.583655702479578*^9,
1856	3.583657201223311^9, 3.591006131902779^9, 3.591006270454809*^9,
1857	3.591007730106093^9, 3.595329831808466^9, 3.5953388713117847`*^9,
1858	3.595589691720665^9, 3.595590919040183^9, 3.59559181682102*^9,
1859	3.5955936796015882`^9, 3.595655771301568^9, 3.5957587389373426`*^9,
1860	3.5957742784099903`^9, 3.595775125970456^9}],
1861
1862	Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
1863	CellChangeTimes->{3.5797673546715527`^9, 3.579770523301712^9,
1864	3.5797734822913513`^9, 3.57977516651696^9, 3.579775209619954*^9,
1865	3.579775674892428^9, 3.579776080070469^9, 3.579779038904632*^9,
1866	3.5799537803301163`^9, 3.580053286986227^9, 3.580116007398567*^9,
1867	3.580143610329121^9, 3.580277963501173^9, 3.580788785106824*^9,
1868	3.5811511239862127`^9, 3.581151249348155^9, 3.581152700061235*^9,
1869	3.581391572058302^9, 3.58196054535506^9, 3.583279515910986*^9,
1870	3.5836451031451893`^9, 3.583654949467194^9, 3.583655702479578*^9,
1871	3.583657201223311^9, 3.591006131902779^9, 3.591006270454809*^9,
1872	3.591007730106093^9, 3.595329831808466^9, 3.5953388713117847`*^9,
1873	3.595589691720665^9, 3.595590919040183^9, 3.59559181682102*^9,
1874	3.5955936796015882`^9, 3.595655771301568^9, 3.5957587389373426`*^9,
1875	3.5957742784099903`^9, 3.595775125976619^9}]
1876	}, Open ]]
1877	}, Open ]],
1878
1879	Cell[CellGroupData[{
1880
1881	Cell[BoxData[
1882	RowBox[{
1883	RowBox[{"FeynmanRules", "[",
1884	RowBox[{"LagHC", ",",
1885	RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}], ";"}]], "Input",
1886	CellChangeTimes->{{3.5811514216342487`^9, 3.581151429564769^9}, {
1887	3.58115146580645^9, 3.581151480344983^9}, {3.5811529367166033`*^9,
1888	3.581152943600583^9}, {3.581159363565619^9, 3.581159365371764*^9}, {
1889	3.581159413678952^9, 3.581159413740821^9}, {3.5811596210852633`*^9,
1890	3.581159623574592*^9}}],
1891
1892	Cell[CellGroupData[{
1893
1894	Cell[BoxData["\<\"Starting Feynman rule calculation.\"\>"], "Print",
1895	CellChangeTimes->{
1896	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
1897	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
1898	3.581159629870883*^9}],
1899
1900	Cell[BoxData["\<\"Collecting the different structures that enter the \
1901	vertex...\"\>"], "Print",
1902	CellChangeTimes->{
1903	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
1904	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
1905	3.58115968449856*^9}],
1906
1907	Cell[BoxData[
1908	InterpretationBox[
1909	RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"139\"\>",
1910	"\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
1911	SequenceForm["Found ", "139", " possible non zero vertices."],
1912	Editable->False]], "Print",
1913	CellChangeTimes->{
1914	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
1915	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
1916	3.581159685833336*^9}],
1917
1918	Cell[BoxData["\<\"Start calculating vertices...\"\>"], "Print",
1919	CellChangeTimes->{
1920	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
1921	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
1922	3.581159685837291*^9}],
1923
1924	Cell[BoxData[
1925	ProgressIndicatorBox[Dynamic[PRIVATE`progress$13502]]], "Print",
1926	CellChangeTimes->{
1927	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
1928	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
1929	3.581159685842091*^9}],
1930
1931	Cell[BoxData[
1932	InterpretationBox[
1933	RowBox[{"139", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1934	SequenceForm[139, " vertices obtained."],
1935	Editable->False]], "Print",
1936	CellChangeTimes->{
1937	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
1938	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
1939	3.581159746795643*^9}],
1940
1941	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
1942	* * * * * *)\"\>"], "Print",
1943	CellChangeTimes->{
1944	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
1945	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
1946	3.581159746800058*^9}],
1947
1948	Cell[BoxData[
1949	InterpretationBox[
1950	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "1"}],
1951	SequenceForm["Vertex ", 1],
1952	Editable->False]], "Print",
1953	CellChangeTimes->{
1954	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
1955	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
1956	3.581159746804309*^9}],
1957
1958	Cell[BoxData[
1959	InterpretationBox[
1960	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
1961	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
1962	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
1963	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
1964	Editable->False]], "Print",
1965	CellChangeTimes->{
1966	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
1967	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
1968	3.581159746808688*^9}],
1969
1970	Cell[BoxData[
1971	InterpretationBox[
1972	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
1973	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
1974	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
1975	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`A],
1976	Editable->False]], "Print",
1977	CellChangeTimes->{
1978	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
1979	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
1980	3.581159746813032*^9}],
1981
1982	Cell[BoxData[
1983	InterpretationBox[
1984	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
1985	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
1986	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
1987	SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
1988	Editable->False]], "Print",
1989	CellChangeTimes->{
1990	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
1991	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
1992	3.581159746817502*^9}],
1993
1994	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
1995	CellChangeTimes->{
1996	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
1997	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
1998	3.581159746821657*^9}],
1999
2000	Cell[BoxData[
2001	RowBox[{
2002	RowBox[{
2003	RowBox[{"-", "\[ImaginaryI]"}], " ",
2004	SubscriptBox["c", "a"], " ",
2005	SubscriptBox["g", "Haa"], " ",
2006	SubscriptBox["\[Kappa]", "Haa"], " ",
2007	SubsuperscriptBox["\<\"p\"\>", "1",
2008	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
2009	SubsuperscriptBox["\<\"p\"\>", "2",
2010	SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "+",
2011	RowBox[{
2012	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2013	SubscriptBox["g", "Aaa"], " ",
2014	SubscriptBox["\[Kappa]", "Aaa"], " ",
2015	SubscriptBox["s", "a"], " ",
2016	SubscriptBox["\[Epsilon]",
2017	RowBox[{
2018	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2019	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11", ",", "mu$21"}]], " ",
2020	SubsuperscriptBox["\<\"p\"\>", "1", "mu$21"], " ",
2021	SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "-",
2022	RowBox[{
2023	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2024	SubscriptBox["g", "Aaa"], " ",
2025	SubscriptBox["\[Kappa]", "Aaa"], " ",
2026	SubscriptBox["s", "a"], " ",
2027	SubscriptBox["\[Epsilon]",
2028	RowBox[{
2029	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2030	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11", ",", "mu$21"}]], " ",
2031	SubsuperscriptBox["\<\"p\"\>", "1", "mu$11"], " ",
2032	SubsuperscriptBox["\<\"p\"\>", "2", "mu$21"]}], "+",
2033	RowBox[{"\[ImaginaryI]", " ",
2034	SubscriptBox["c", "a"], " ",
2035	SubscriptBox["g", "Haa"], " ",
2036	SubscriptBox["\[Kappa]", "Haa"], " ",
2037	SubscriptBox["\[Eta]",
2038	RowBox[{
2039	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2040	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
2041	RowBox[{
2042	SubscriptBox["\<\"p\"\>", "1"], ".",
2043	SubscriptBox["p", "2"]}]}]}]], "Print",
2044	CellChangeTimes->{
2045	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2046	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2047	3.58115974682719*^9}],
2048
2049	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2050	* * * * * *)\"\>"], "Print",
2051	CellChangeTimes->{
2052	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2053	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2054	3.5811597468313704`*^9}],
2055
2056	Cell[BoxData[
2057	InterpretationBox[
2058	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "2"}],
2059	SequenceForm["Vertex ", 2],
2060	Editable->False]], "Print",
2061	CellChangeTimes->{
2062	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2063	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2064	3.581159746835411*^9}],
2065
2066	Cell[BoxData[
2067	InterpretationBox[
2068	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2069	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2070	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
2071	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
2072	Editable->False]], "Print",
2073	CellChangeTimes->{
2074	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2075	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2076	3.5811597468395853`*^9}],
2077
2078	Cell[BoxData[
2079	InterpretationBox[
2080	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2081	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2082	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
2083	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
2084	Editable->False]], "Print",
2085	CellChangeTimes->{
2086	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2087	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2088	3.581159746843647*^9}],
2089
2090	Cell[BoxData[
2091	InterpretationBox[
2092	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2093	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
2094	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
2095	SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
2096	Editable->False]], "Print",
2097	CellChangeTimes->{
2098	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2099	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2100	3.581159746847625*^9}],
2101
2102	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
2103	CellChangeTimes->{
2104	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2105	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2106	3.5811597468517227`*^9}],
2107
2108	Cell[BoxData[
2109	RowBox[{
2110	RowBox[{
2111	RowBox[{"-", "\[ImaginaryI]"}], " ",
2112	SubscriptBox["c", "a"], " ",
2113	SubscriptBox["g", "Hgg"], " ",
2114	SubscriptBox["\[Kappa]", "Hgg"], " ",
2115	SubsuperscriptBox["\<\"p\"\>", "1",
2116	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
2117	SubsuperscriptBox["\<\"p\"\>", "2",
2118	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
2119	SubscriptBox["\[Delta]",
2120	RowBox[{
2121	SubscriptBox["\<\"a\"\>", "1"], ",",
2122	SubscriptBox["\<\"a\"\>", "2"]}]]}], "+",
2123	RowBox[{
2124	FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
2125	SubscriptBox["g", "Agg"], " ",
2126	SubscriptBox["\[Kappa]", "Agg"], " ",
2127	SubscriptBox["s", "a"], " ",
2128	SubscriptBox["\[Epsilon]",
2129	RowBox[{
2130	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2131	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",", "\[Beta]1"}]],
2132	" ",
2133	SubsuperscriptBox["\<\"p\"\>", "1", "\[Beta]1"], " ",
2134	SubsuperscriptBox["\<\"p\"\>", "2", "\[Alpha]1"], " ",
2135	SubscriptBox["\[Delta]",
2136	RowBox[{
2137	SubscriptBox["\<\"a\"\>", "1"], ",",
2138	SubscriptBox["\<\"a\"\>", "2"]}]]}], "+",
2139	RowBox[{
2140	FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
2141	SubscriptBox["g", "Agg"], " ",
2142	SubscriptBox["\[Kappa]", "Agg"], " ",
2143	SubscriptBox["s", "a"], " ",
2144	SubscriptBox["\[Epsilon]",
2145	RowBox[{
2146	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2147	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",",
2148	"\[Delta]1"}]], " ",
2149	SubsuperscriptBox["\<\"p\"\>", "1", "\[Delta]1"], " ",
2150	SubsuperscriptBox["\<\"p\"\>", "2", "\[Alpha]1"], " ",
2151	SubscriptBox["\[Delta]",
2152	RowBox[{
2153	SubscriptBox["\<\"a\"\>", "1"], ",",
2154	SubscriptBox["\<\"a\"\>", "2"]}]]}], "-",
2155	RowBox[{
2156	FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
2157	SubscriptBox["g", "Agg"], " ",
2158	SubscriptBox["\[Kappa]", "Agg"], " ",
2159	SubscriptBox["s", "a"], " ",
2160	SubscriptBox["\[Epsilon]",
2161	RowBox[{
2162	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2163	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",", "\[Beta]1"}]],
2164	" ",
2165	SubsuperscriptBox["\<\"p\"\>", "1", "\[Alpha]1"], " ",
2166	SubsuperscriptBox["\<\"p\"\>", "2", "\[Beta]1"], " ",
2167	SubscriptBox["\[Delta]",
2168	RowBox[{
2169	SubscriptBox["\<\"a\"\>", "1"], ",",
2170	SubscriptBox["\<\"a\"\>", "2"]}]]}], "-",
2171	RowBox[{
2172	FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
2173	SubscriptBox["g", "Agg"], " ",
2174	SubscriptBox["\[Kappa]", "Agg"], " ",
2175	SubscriptBox["s", "a"], " ",
2176	SubscriptBox["\[Epsilon]",
2177	RowBox[{
2178	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2179	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Gamma]1", ",", "\[Beta]1"}]],
2180	" ",
2181	SubsuperscriptBox["\<\"p\"\>", "1", "\[Gamma]1"], " ",
2182	SubsuperscriptBox["\<\"p\"\>", "2", "\[Beta]1"], " ",
2183	SubscriptBox["\[Delta]",
2184	RowBox[{
2185	SubscriptBox["\<\"a\"\>", "1"], ",",
2186	SubscriptBox["\<\"a\"\>", "2"]}]]}], "+",
2187	RowBox[{
2188	FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
2189	SubscriptBox["g", "Agg"], " ",
2190	SubscriptBox["\[Kappa]", "Agg"], " ",
2191	SubscriptBox["s", "a"], " ",
2192	SubscriptBox["\[Epsilon]",
2193	RowBox[{
2194	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2195	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Gamma]1", ",", "\[Beta]1"}]],
2196	" ",
2197	SubsuperscriptBox["\<\"p\"\>", "1", "\[Beta]1"], " ",
2198	SubsuperscriptBox["\<\"p\"\>", "2", "\[Gamma]1"], " ",
2199	SubscriptBox["\[Delta]",
2200	RowBox[{
2201	SubscriptBox["\<\"a\"\>", "1"], ",",
2202	SubscriptBox["\<\"a\"\>", "2"]}]]}], "+",
2203	RowBox[{
2204	FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
2205	SubscriptBox["g", "Agg"], " ",
2206	SubscriptBox["\[Kappa]", "Agg"], " ",
2207	SubscriptBox["s", "a"], " ",
2208	SubscriptBox["\[Epsilon]",
2209	RowBox[{
2210	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2211	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Gamma]1", ",",
2212	"\[Delta]1"}]], " ",
2213	SubsuperscriptBox["\<\"p\"\>", "1", "\[Delta]1"], " ",
2214	SubsuperscriptBox["\<\"p\"\>", "2", "\[Gamma]1"], " ",
2215	SubscriptBox["\[Delta]",
2216	RowBox[{
2217	SubscriptBox["\<\"a\"\>", "1"], ",",
2218	SubscriptBox["\<\"a\"\>", "2"]}]]}], "-",
2219	RowBox[{
2220	FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
2221	SubscriptBox["g", "Agg"], " ",
2222	SubscriptBox["\[Kappa]", "Agg"], " ",
2223	SubscriptBox["s", "a"], " ",
2224	SubscriptBox["\[Epsilon]",
2225	RowBox[{
2226	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2227	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",",
2228	"\[Delta]1"}]], " ",
2229	SubsuperscriptBox["\<\"p\"\>", "1", "\[Alpha]1"], " ",
2230	SubsuperscriptBox["\<\"p\"\>", "2", "\[Delta]1"], " ",
2231	SubscriptBox["\[Delta]",
2232	RowBox[{
2233	SubscriptBox["\<\"a\"\>", "1"], ",",
2234	SubscriptBox["\<\"a\"\>", "2"]}]]}], "-",
2235	RowBox[{
2236	FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
2237	SubscriptBox["g", "Agg"], " ",
2238	SubscriptBox["\[Kappa]", "Agg"], " ",
2239	SubscriptBox["s", "a"], " ",
2240	SubscriptBox["\[Epsilon]",
2241	RowBox[{
2242	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2243	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Gamma]1", ",",
2244	"\[Delta]1"}]], " ",
2245	SubsuperscriptBox["\<\"p\"\>", "1", "\[Gamma]1"], " ",
2246	SubsuperscriptBox["\<\"p\"\>", "2", "\[Delta]1"], " ",
2247	SubscriptBox["\[Delta]",
2248	RowBox[{
2249	SubscriptBox["\<\"a\"\>", "1"], ",",
2250	SubscriptBox["\<\"a\"\>", "2"]}]]}], "+",
2251	RowBox[{"\[ImaginaryI]", " ",
2252	SubscriptBox["c", "a"], " ",
2253	SubscriptBox["g", "Hgg"], " ",
2254	SubscriptBox["\[Kappa]", "Hgg"], " ",
2255	SubscriptBox["\[Delta]",
2256	RowBox[{
2257	SubscriptBox["\<\"a\"\>", "1"], ",",
2258	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
2259	SubscriptBox["\[Eta]",
2260	RowBox[{
2261	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2262	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
2263	RowBox[{
2264	SubscriptBox["\<\"p\"\>", "1"], ".",
2265	SubscriptBox["p", "2"]}]}]}]], "Print",
2266	CellChangeTimes->{
2267	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2268	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2269	3.58115974686061*^9}],
2270
2271	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2272	* * * * * *)\"\>"], "Print",
2273	CellChangeTimes->{
2274	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2275	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2276	3.58115974686405*^9}],
2277
2278	Cell[BoxData[
2279	InterpretationBox[
2280	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "3"}],
2281	SequenceForm["Vertex ", 3],
2282	Editable->False]], "Print",
2283	CellChangeTimes->{
2284	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2285	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2286	3.581159746867771*^9}],
2287
2288	Cell[BoxData[
2289	InterpretationBox[
2290	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2291	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2292	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
2293	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
2294	Editable->False]], "Print",
2295	CellChangeTimes->{
2296	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2297	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2298	3.5811597468713427`*^9}],
2299
2300	Cell[BoxData[
2301	InterpretationBox[
2302	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2303	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2304	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
2305	SuperscriptBox["W", "\[Dagger]"]}],
2306	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
2307	Editable->False]], "Print",
2308	CellChangeTimes->{
2309	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2310	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2311	3.581159746875073*^9}],
2312
2313	Cell[BoxData[
2314	InterpretationBox[
2315	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2316	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
2317	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
2318	SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
2319	Editable->False]], "Print",
2320	CellChangeTimes->{
2321	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2322	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2323	3.581159746879182*^9}],
2324
2325	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
2326	CellChangeTimes->{
2327	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2328	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2329	3.581159746883519*^9}],
2330
2331	Cell[BoxData[
2332	RowBox[{
2333	RowBox[{"-",
2334	FractionBox[
2335	RowBox[{"\[ImaginaryI]", " ",
2336	SubscriptBox["c", "a"], " ",
2337	SubscriptBox["\[Kappa]", "Hdw"], " ",
2338	SubsuperscriptBox["\<\"p\"\>", "1",
2339	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
2340	SubsuperscriptBox["\<\"p\"\>", "1",
2341	SubscriptBox["\<\"\[Mu]\"\>", "2"]]}], "\[CapitalLambda]"]}], "-",
2342	FractionBox[
2343	RowBox[{"\[ImaginaryI]", " ",
2344	SubscriptBox["c", "a"], " ",
2345	SubscriptBox["\[Kappa]", "Hww"], " ",
2346	SubsuperscriptBox["\<\"p\"\>", "1",
2347	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
2348	SubsuperscriptBox["\<\"p\"\>", "2",
2349	SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "\[CapitalLambda]"], "-",
2350	FractionBox[
2351	RowBox[{"\[ImaginaryI]", " ",
2352	SubscriptBox["c", "a"], " ",
2353	SubscriptBox["\[Kappa]", "Hdw"], " ",
2354	SubsuperscriptBox["\<\"p\"\>", "2",
2355	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
2356	SubsuperscriptBox["\<\"p\"\>", "2",
2357	SubscriptBox["\<\"\[Mu]\"\>", "2"]]}], "\[CapitalLambda]"], "+",
2358	FractionBox[
2359	RowBox[{"\[ImaginaryI]", " ",
2360	SubscriptBox["\[Kappa]", "Aww"], " ",
2361	SubscriptBox["s", "a"], " ",
2362	SubscriptBox["\[Epsilon]",
2363	RowBox[{
2364	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2365	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11", ",", "mu$21"}]], " ",
2366
2367	SubsuperscriptBox["\<\"p\"\>", "1", "mu$21"], " ",
2368	SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "\[CapitalLambda]"], "+",
2369
2370	FractionBox[
2371	RowBox[{"\[ImaginaryI]", " ",
2372	SubscriptBox["c", "a"], " ",
2373	SuperscriptBox["e", "2"], " ",
2374	SubscriptBox["\[Kappa]", "SM"], " ", "vev", " ",
2375	SubscriptBox["\[Eta]",
2376	RowBox[{
2377	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2378	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}],
2379	RowBox[{"2", " ",
2380	SubsuperscriptBox["s", "w", "2"]}]], "+",
2381	FractionBox[
2382	RowBox[{"\[ImaginaryI]", " ",
2383	SubscriptBox["c", "a"], " ",
2384	SubscriptBox["\[Kappa]", "Hdw"], " ",
2385	SubscriptBox["\[Eta]",
2386	RowBox[{
2387	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2388	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
2389	RowBox[{
2390	SubscriptBox["\<\"p\"\>", "1"], ".",
2391	SubscriptBox["p", "1"]}]}], "\[CapitalLambda]"], "+",
2392	FractionBox[
2393	RowBox[{"\[ImaginaryI]", " ",
2394	SubscriptBox["c", "a"], " ",
2395	SubscriptBox["\[Kappa]", "Hww"], " ",
2396	SubscriptBox["\[Eta]",
2397	RowBox[{
2398	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2399	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
2400	RowBox[{
2401	SubscriptBox["\<\"p\"\>", "1"], ".",
2402	SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+",
2403	FractionBox[
2404	RowBox[{"\[ImaginaryI]", " ",
2405	SubscriptBox["c", "a"], " ",
2406	SubscriptBox["\[Kappa]", "Hdw"], " ",
2407	SubscriptBox["\[Eta]",
2408	RowBox[{
2409	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2410	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
2411	RowBox[{
2412	SubscriptBox["\<\"p\"\>", "2"], ".",
2413	SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"]}]], "Print",
2414	CellChangeTimes->{
2415	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2416	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2417	3.5811597468887167`*^9}],
2418
2419	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2420	* * * * * *)\"\>"], "Print",
2421	CellChangeTimes->{
2422	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2423	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2424	3.581159746894627*^9}],
2425
2426	Cell[BoxData[
2427	InterpretationBox[
2428	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "4"}],
2429	SequenceForm["Vertex ", 4],
2430	Editable->False]], "Print",
2431	CellChangeTimes->{
2432	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2433	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2434	3.5811597468991537`*^9}],
2435
2436	Cell[BoxData[
2437	InterpretationBox[
2438	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2439	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2440	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
2441	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
2442	Editable->False]], "Print",
2443	CellChangeTimes->{
2444	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2445	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2446	3.58115974690362*^9}],
2447
2448	Cell[BoxData[
2449	InterpretationBox[
2450	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2451	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
2452	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
2453	SequenceForm["Particle ", 2, " : ", "Scalar", " , ", $CellContext`X0],
2454	Editable->False]], "Print",
2455	CellChangeTimes->{
2456	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2457	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2458	3.581159746908063*^9}],
2459
2460	Cell[BoxData[
2461	InterpretationBox[
2462	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2463	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2464	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
2465	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
2466	Editable->False]], "Print",
2467	CellChangeTimes->{
2468	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2469	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2470	3.581159746912528*^9}],
2471
2472	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
2473	CellChangeTimes->{
2474	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2475	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2476	3.581159746917213*^9}],
2477
2478	Cell[BoxData[
2479	RowBox[{
2480	RowBox[{"-",
2481	FractionBox[
2482	RowBox[{"\[ImaginaryI]", " ",
2483	SubscriptBox["c", "a"], " ",
2484	SubscriptBox["\[Kappa]", "Hda"], " ",
2485	SubsuperscriptBox["\<\"p\"\>", "1",
2486	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
2487	SubsuperscriptBox["\<\"p\"\>", "1",
2488	SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "\[CapitalLambda]"]}], "-",
2489	RowBox[{"\[ImaginaryI]", " ",
2490	SubscriptBox["c", "a"], " ",
2491	SubscriptBox["g", "Hza"], " ",
2492	SubscriptBox["\[Kappa]", "Hza"], " ",
2493	SubsuperscriptBox["\<\"p\"\>", "1",
2494	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
2495	SubsuperscriptBox["\<\"p\"\>", "3",
2496	SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "+",
2497	RowBox[{"\[ImaginaryI]", " ",
2498	SubscriptBox["g", "Aza"], " ",
2499	SubscriptBox["\[Kappa]", "Aza"], " ",
2500	SubscriptBox["s", "a"], " ",
2501	SubscriptBox["\[Epsilon]",
2502	RowBox[{
2503	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2504	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11", ",", "mu$21"}]], " ",
2505	SubsuperscriptBox["\<\"p\"\>", "1", "mu$21"], " ",
2506	SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}], "+",
2507	FractionBox[
2508	RowBox[{"\[ImaginaryI]", " ",
2509	SubscriptBox["c", "a"], " ",
2510	SubscriptBox["\[Kappa]", "Hda"], " ",
2511	SubscriptBox["\[Eta]",
2512	RowBox[{
2513	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2514	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
2515	RowBox[{
2516	SubscriptBox["\<\"p\"\>", "1"], ".",
2517	SubscriptBox["p", "1"]}]}], "\[CapitalLambda]"], "+",
2518	RowBox[{"\[ImaginaryI]", " ",
2519	SubscriptBox["c", "a"], " ",
2520	SubscriptBox["g", "Hza"], " ",
2521	SubscriptBox["\[Kappa]", "Hza"], " ",
2522	SubscriptBox["\[Eta]",
2523	RowBox[{
2524	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2525	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
2526	RowBox[{
2527	SubscriptBox["\<\"p\"\>", "1"], ".",
2528	SubscriptBox["p", "3"]}]}]}]], "Print",
2529	CellChangeTimes->{
2530	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2531	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2532	3.5811597469220533`*^9}],
2533
2534	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2535	* * * * * *)\"\>"], "Print",
2536	CellChangeTimes->{
2537	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2538	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2539	3.581159746927601*^9}],
2540
2541	Cell[BoxData[
2542	InterpretationBox[
2543	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "5"}],
2544	SequenceForm["Vertex ", 5],
2545	Editable->False]], "Print",
2546	CellChangeTimes->{
2547	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2548	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2549	3.58115974693218*^9}],
2550
2551	Cell[BoxData[
2552	InterpretationBox[
2553	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2554	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
2555	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
2556	SequenceForm["Particle ", 1, " : ", "Scalar", " , ", $CellContext`X0],
2557	Editable->False]], "Print",
2558	CellChangeTimes->{
2559	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2560	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2561	3.5811597469367123`*^9}],
2562
2563	Cell[BoxData[
2564	InterpretationBox[
2565	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2566	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2567	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
2568	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Z],
2569	Editable->False]], "Print",
2570	CellChangeTimes->{
2571	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2572	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2573	3.581159746941125*^9}],
2574
2575	Cell[BoxData[
2576	InterpretationBox[
2577	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2578	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2579	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
2580	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
2581	Editable->False]], "Print",
2582	CellChangeTimes->{
2583	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2584	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2585	3.581159746945616*^9}],
2586
2587	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
2588	CellChangeTimes->{
2589	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2590	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2591	3.5811597469499807`*^9}],
2592
2593	Cell[BoxData[
2594	RowBox[{
2595	RowBox[{"-",
2596	FractionBox[
2597	RowBox[{"\[ImaginaryI]", " ",
2598	SubscriptBox["c", "a"], " ",
2599	SubscriptBox["\[Kappa]", "Hdz"], " ",
2600	SubsuperscriptBox["\<\"p\"\>", "2",
2601	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
2602	SubsuperscriptBox["\<\"p\"\>", "2",
2603	SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "\[CapitalLambda]"]}], "-",
2604	FractionBox[
2605	RowBox[{"\[ImaginaryI]", " ",
2606	SubscriptBox["c", "a"], " ",
2607	SubscriptBox["\[Kappa]", "Hzz"], " ",
2608	SubsuperscriptBox["\<\"p\"\>", "2",
2609	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
2610	SubsuperscriptBox["\<\"p\"\>", "3",
2611	SubscriptBox["\<\"\[Mu]\"\>", "2"]]}], "\[CapitalLambda]"], "-",
2612	FractionBox[
2613	RowBox[{"\[ImaginaryI]", " ",
2614	SubscriptBox["c", "a"], " ",
2615	SubscriptBox["\[Kappa]", "Hdz"], " ",
2616	SubsuperscriptBox["\<\"p\"\>", "3",
2617	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
2618	SubsuperscriptBox["\<\"p\"\>", "3",
2619	SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "\[CapitalLambda]"], "+",
2620	FractionBox[
2621	RowBox[{"\[ImaginaryI]", " ",
2622	SubscriptBox["\[Kappa]", "Azz"], " ",
2623	SubscriptBox["s", "a"], " ",
2624	SubscriptBox["\[Epsilon]",
2625	RowBox[{
2626	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
2627	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11", ",", "mu$21"}]], " ",
2628
2629	SubsuperscriptBox["\<\"p\"\>", "2", "mu$21"], " ",
2630	SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}],
2631	RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
2632	FractionBox[
2633	RowBox[{"\[ImaginaryI]", " ",
2634	SubscriptBox["\[Kappa]", "Azz"], " ",
2635	SubscriptBox["s", "a"], " ",
2636	SubscriptBox["\[Epsilon]",
2637	RowBox[{
2638	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
2639	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11", ",", "mu$21"}]], " ",
2640
2641	SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"], " ",
2642	SubsuperscriptBox["\<\"p\"\>", "3", "mu$21"]}],
2643	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
2644	RowBox[{"\[ImaginaryI]", " ",
2645	SubscriptBox["c", "a"], " ",
2646	SuperscriptBox["e", "2"], " ",
2647	SubscriptBox["\[Kappa]", "SM"], " ", "vev", " ",
2648	SubscriptBox["\[Eta]",
2649	RowBox[{
2650	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
2651	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
2652	FractionBox[
2653	RowBox[{"\[ImaginaryI]", " ",
2654	SubscriptBox["c", "a"], " ",
2655	SubsuperscriptBox["c", "w", "2"], " ",
2656	SuperscriptBox["e", "2"], " ",
2657	SubscriptBox["\[Kappa]", "SM"], " ", "vev", " ",
2658	SubscriptBox["\[Eta]",
2659	RowBox[{
2660	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
2661	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
2662	RowBox[{"2", " ",
2663	SubsuperscriptBox["s", "w", "2"]}]], "+",
2664	FractionBox[
2665	RowBox[{"\[ImaginaryI]", " ",
2666	SubscriptBox["c", "a"], " ",
2667	SuperscriptBox["e", "2"], " ",
2668	SubscriptBox["\[Kappa]", "SM"], " ",
2669	SubsuperscriptBox["s", "w", "2"], " ", "vev", " ",
2670	SubscriptBox["\[Eta]",
2671	RowBox[{
2672	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
2673	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
2674	RowBox[{"2", " ",
2675	SubsuperscriptBox["c", "w", "2"]}]], "+",
2676	FractionBox[
2677	RowBox[{"\[ImaginaryI]", " ",
2678	SubscriptBox["c", "a"], " ",
2679	SubscriptBox["\[Kappa]", "Hdz"], " ",
2680	SubscriptBox["\[Eta]",
2681	RowBox[{
2682	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
2683	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
2684	RowBox[{
2685	SubscriptBox["\<\"p\"\>", "2"], ".",
2686	SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+",
2687	FractionBox[
2688	RowBox[{"\[ImaginaryI]", " ",
2689	SubscriptBox["c", "a"], " ",
2690	SubscriptBox["\[Kappa]", "Hzz"], " ",
2691	SubscriptBox["\[Eta]",
2692	RowBox[{
2693	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
2694	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
2695	RowBox[{
2696	SubscriptBox["\<\"p\"\>", "2"], ".",
2697	SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"], "+",
2698	FractionBox[
2699	RowBox[{"\[ImaginaryI]", " ",
2700	SubscriptBox["c", "a"], " ",
2701	SubscriptBox["\[Kappa]", "Hdz"], " ",
2702	SubscriptBox["\[Eta]",
2703	RowBox[{
2704	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
2705	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
2706	RowBox[{
2707	SubscriptBox["\<\"p\"\>", "3"], ".",
2708	SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"]}]], "Print",
2709	CellChangeTimes->{
2710	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2711	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2712	3.581159746955433*^9}],
2713
2714	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2715	* * * * * *)\"\>"], "Print",
2716	CellChangeTimes->{
2717	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2718	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2719	3.58115974696201*^9}],
2720
2721	Cell[BoxData[
2722	InterpretationBox[
2723	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "6"}],
2724	SequenceForm["Vertex ", 6],
2725	Editable->False]], "Print",
2726	CellChangeTimes->{
2727	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2728	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2729	3.5811597469666367`*^9}],
2730
2731	Cell[BoxData[
2732	InterpretationBox[
2733	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2734	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2735	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
2736	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
2737	Editable->False]], "Print",
2738	CellChangeTimes->{
2739	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2740	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2741	3.58115974697122*^9}],
2742
2743	Cell[BoxData[
2744	InterpretationBox[
2745	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2746	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
2747	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
2748	SuperscriptBox["ghG", "\[Dagger]"]}],
2749	SequenceForm["Particle ", 2, " : ", "Scalar", " , ", $CellContext`ghGbar],
2750	Editable->False]], "Print",
2751	CellChangeTimes->{
2752	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2753	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2754	3.581159746975525*^9}],
2755
2756	Cell[BoxData[
2757	InterpretationBox[
2758	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2759	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
2760	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ghG"}],
2761	SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`ghG],
2762	Editable->False]], "Print",
2763	CellChangeTimes->{
2764	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2765	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2766	3.581159746980186*^9}],
2767
2768	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
2769	CellChangeTimes->{
2770	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2771	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2772	3.581159746984281*^9}],
2773
2774	Cell[BoxData[
2775	RowBox[{
2776	RowBox[{
2777	SubscriptBox["g", "s"], " ",
2778	SubscriptBox["f",
2779	RowBox[{
2780	SubscriptBox["\<\"a\"\>", "1"], ",",
2781	SubscriptBox["\<\"a\"\>", "2"], ",",
2782	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
2783	SubsuperscriptBox["\<\"p\"\>", "1",
2784	SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "+",
2785	RowBox[{
2786	SubscriptBox["g", "s"], " ",
2787	SubscriptBox["f",
2788	RowBox[{
2789	SubscriptBox["\<\"a\"\>", "1"], ",",
2790	SubscriptBox["\<\"a\"\>", "2"], ",",
2791	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
2792	SubsuperscriptBox["\<\"p\"\>", "3",
2793	SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]}]], "Print",
2794	CellChangeTimes->{
2795	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2796	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2797	3.581159746988553*^9}],
2798
2799	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2800	* * * * * *)\"\>"], "Print",
2801	CellChangeTimes->{
2802	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2803	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2804	3.5811597469938583`*^9}],
2805
2806	Cell[BoxData[
2807	InterpretationBox[
2808	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "7"}],
2809	SequenceForm["Vertex ", 7],
2810	Editable->False]], "Print",
2811	CellChangeTimes->{
2812	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2813	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2814	3.581159746997982*^9}],
2815
2816	Cell[BoxData[
2817	InterpretationBox[
2818	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2819	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2820	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
2821	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
2822	Editable->False]], "Print",
2823	CellChangeTimes->{
2824	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2825	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2826	3.5811597470020447`*^9}],
2827
2828	Cell[BoxData[
2829	InterpretationBox[
2830	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2831	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2832	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
2833	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
2834	Editable->False]], "Print",
2835	CellChangeTimes->{
2836	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2837	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2838	3.581159747007202*^9}],
2839
2840	Cell[BoxData[
2841	InterpretationBox[
2842	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2843	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2844	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
2845	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
2846	Editable->False]], "Print",
2847	CellChangeTimes->{
2848	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2849	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2850	3.581159747011444*^9}],
2851
2852	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
2853	CellChangeTimes->{
2854	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2855	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2856	3.5811597470155163`*^9}],
2857
2858	Cell[BoxData[
2859	RowBox[{
2860	RowBox[{
2861	SubscriptBox["g", "s"], " ",
2862	SubscriptBox["f",
2863	RowBox[{
2864	SubscriptBox["\<\"a\"\>", "1"], ",",
2865	SubscriptBox["\<\"a\"\>", "2"], ",",
2866	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
2867	SubsuperscriptBox["\<\"p\"\>", "1",
2868	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
2869	SubscriptBox["\[Eta]",
2870	RowBox[{
2871	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2872	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
2873	RowBox[{
2874	SubscriptBox["g", "s"], " ",
2875	SubscriptBox["f",
2876	RowBox[{
2877	SubscriptBox["\<\"a\"\>", "1"], ",",
2878	SubscriptBox["\<\"a\"\>", "2"], ",",
2879	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
2880	SubsuperscriptBox["\<\"p\"\>", "2",
2881	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
2882	SubscriptBox["\[Eta]",
2883	RowBox[{
2884	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2885	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
2886	RowBox[{
2887	SubscriptBox["g", "s"], " ",
2888	SubscriptBox["f",
2889	RowBox[{
2890	SubscriptBox["\<\"a\"\>", "1"], ",",
2891	SubscriptBox["\<\"a\"\>", "2"], ",",
2892	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
2893	SubsuperscriptBox["\<\"p\"\>", "1",
2894	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
2895	SubscriptBox["\[Eta]",
2896	RowBox[{
2897	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2898	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
2899	RowBox[{
2900	SubscriptBox["g", "s"], " ",
2901	SubscriptBox["f",
2902	RowBox[{
2903	SubscriptBox["\<\"a\"\>", "1"], ",",
2904	SubscriptBox["\<\"a\"\>", "2"], ",",
2905	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
2906	SubsuperscriptBox["\<\"p\"\>", "3",
2907	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
2908	SubscriptBox["\[Eta]",
2909	RowBox[{
2910	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2911	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
2912	RowBox[{
2913	SubscriptBox["g", "s"], " ",
2914	SubscriptBox["f",
2915	RowBox[{
2916	SubscriptBox["\<\"a\"\>", "1"], ",",
2917	SubscriptBox["\<\"a\"\>", "2"], ",",
2918	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
2919	SubsuperscriptBox["\<\"p\"\>", "2",
2920	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
2921	SubscriptBox["\[Eta]",
2922	RowBox[{
2923	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
2924	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
2925	RowBox[{
2926	SubscriptBox["g", "s"], " ",
2927	SubscriptBox["f",
2928	RowBox[{
2929	SubscriptBox["\<\"a\"\>", "1"], ",",
2930	SubscriptBox["\<\"a\"\>", "2"], ",",
2931	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
2932	SubsuperscriptBox["\<\"p\"\>", "3",
2933	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
2934	SubscriptBox["\[Eta]",
2935	RowBox[{
2936	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
2937	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
2938	CellChangeTimes->{
2939	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2940	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2941	3.5811597470198593`*^9}],
2942
2943	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2944	* * * * * *)\"\>"], "Print",
2945	CellChangeTimes->{
2946	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2947	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2948	3.581159747025696*^9}],
2949
2950	Cell[BoxData[
2951	InterpretationBox[
2952	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "8"}],
2953	SequenceForm["Vertex ", 8],
2954	Editable->False]], "Print",
2955	CellChangeTimes->{
2956	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2957	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2958	3.581159747029901*^9}],
2959
2960	Cell[BoxData[
2961	InterpretationBox[
2962	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2963	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2964	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
2965	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
2966	Editable->False]], "Print",
2967	CellChangeTimes->{
2968	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2969	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2970	3.581159747036425*^9}],
2971
2972	Cell[BoxData[
2973	InterpretationBox[
2974	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2975	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2976	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
2977	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
2978	Editable->False]], "Print",
2979	CellChangeTimes->{
2980	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2981	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2982	3.581159747041359*^9}],
2983
2984	Cell[BoxData[
2985	InterpretationBox[
2986	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2987	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
2988	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
2989	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
2990	Editable->False]], "Print",
2991	CellChangeTimes->{
2992	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
2993	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
2994	3.581159747045637*^9}],
2995
2996	Cell[BoxData[
2997	InterpretationBox[
2998	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
2999	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3000	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
3001	SequenceForm["Particle ", 4, " : ", "Vector", " , ", FeynRules`G],
3002	Editable->False]], "Print",
3003	CellChangeTimes->{
3004	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3005	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3006	3.5811597470505342`*^9}],
3007
3008	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
3009	CellChangeTimes->{
3010	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3011	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3012	3.581159747054731*^9}],
3013
3014	Cell[BoxData[
3015	RowBox[{
3016	RowBox[{"\[ImaginaryI]", " ",
3017	SubsuperscriptBox["g", "s", "2"], " ",
3018	SubscriptBox["f",
3019	RowBox[{
3020	SubscriptBox["\<\"a\"\>", "1"], ",",
3021	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
3022	SubscriptBox["f",
3023	RowBox[{
3024	SubscriptBox["\<\"a\"\>", "2"], ",",
3025	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
3026	SubscriptBox["\[Eta]",
3027	RowBox[{
3028	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3029	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
3030	SubscriptBox["\[Eta]",
3031	RowBox[{
3032	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3033	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
3034	RowBox[{"\[ImaginaryI]", " ",
3035	SubsuperscriptBox["g", "s", "2"], " ",
3036	SubscriptBox["f",
3037	RowBox[{
3038	SubscriptBox["\<\"a\"\>", "1"], ",",
3039	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
3040	SubscriptBox["f",
3041	RowBox[{
3042	SubscriptBox["\<\"a\"\>", "3"], ",",
3043	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
3044	SubscriptBox["\[Eta]",
3045	RowBox[{
3046	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3047	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
3048	SubscriptBox["\[Eta]",
3049	RowBox[{
3050	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3051	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
3052	RowBox[{"\[ImaginaryI]", " ",
3053	SubsuperscriptBox["g", "s", "2"], " ",
3054	SubscriptBox["f",
3055	RowBox[{
3056	SubscriptBox["\<\"a\"\>", "1"], ",",
3057	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
3058	SubscriptBox["f",
3059	RowBox[{
3060	SubscriptBox["\<\"a\"\>", "2"], ",",
3061	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
3062	SubscriptBox["\[Eta]",
3063	RowBox[{
3064	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3065	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
3066	SubscriptBox["\[Eta]",
3067	RowBox[{
3068	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3069	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
3070	RowBox[{"\[ImaginaryI]", " ",
3071	SubsuperscriptBox["g", "s", "2"], " ",
3072	SubscriptBox["f",
3073	RowBox[{
3074	SubscriptBox["\<\"a\"\>", "1"], ",",
3075	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
3076	SubscriptBox["f",
3077	RowBox[{
3078	SubscriptBox["\<\"a\"\>", "3"], ",",
3079	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
3080	SubscriptBox["\[Eta]",
3081	RowBox[{
3082	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3083	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
3084	SubscriptBox["\[Eta]",
3085	RowBox[{
3086	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3087	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
3088	RowBox[{"\[ImaginaryI]", " ",
3089	SubsuperscriptBox["g", "s", "2"], " ",
3090	SubscriptBox["f",
3091	RowBox[{
3092	SubscriptBox["\<\"a\"\>", "1"], ",",
3093	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
3094	SubscriptBox["f",
3095	RowBox[{
3096	SubscriptBox["\<\"a\"\>", "2"], ",",
3097	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
3098	SubscriptBox["\[Eta]",
3099	RowBox[{
3100	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3101	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
3102	SubscriptBox["\[Eta]",
3103	RowBox[{
3104	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
3105	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
3106	RowBox[{"\[ImaginaryI]", " ",
3107	SubsuperscriptBox["g", "s", "2"], " ",
3108	SubscriptBox["f",
3109	RowBox[{
3110	SubscriptBox["\<\"a\"\>", "1"], ",",
3111	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
3112	SubscriptBox["f",
3113	RowBox[{
3114	SubscriptBox["\<\"a\"\>", "2"], ",",
3115	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
3116	SubscriptBox["\[Eta]",
3117	RowBox[{
3118	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3119	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
3120	SubscriptBox["\[Eta]",
3121	RowBox[{
3122	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
3123	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}]}]], "Print",
3124	CellChangeTimes->{
3125	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3126	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3127	3.5811597470598173`*^9}],
3128
3129	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
3130	* * * * * *)\"\>"], "Print",
3131	CellChangeTimes->{
3132	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3133	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3134	3.581159747066896*^9}],
3135
3136	Cell[BoxData[
3137	InterpretationBox[
3138	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "9"}],
3139	SequenceForm["Vertex ", 9],
3140	Editable->False]], "Print",
3141	CellChangeTimes->{
3142	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3143	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3144	3.581159747071403*^9}],
3145
3146	Cell[BoxData[
3147	InterpretationBox[
3148	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
3149	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3150	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
3151	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
3152	Editable->False]], "Print",
3153	CellChangeTimes->{
3154	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3155	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3156	3.581159747075747*^9}],
3157
3158	Cell[BoxData[
3159	InterpretationBox[
3160	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
3161	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3162	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
3163	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
3164	Editable->False]], "Print",
3165	CellChangeTimes->{
3166	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3167	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3168	3.581159747080346*^9}],
3169
3170	Cell[BoxData[
3171	InterpretationBox[
3172	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
3173	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3174	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
3175	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
3176	Editable->False]], "Print",
3177	CellChangeTimes->{
3178	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3179	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3180	3.581159747084772*^9}],
3181
3182	Cell[BoxData[
3183	InterpretationBox[
3184	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
3185	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
3186	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
3187	SequenceForm["Particle ", 4, " : ", "Scalar", " , ", $CellContext`X0],
3188	Editable->False]], "Print",
3189	CellChangeTimes->{
3190	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3191	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3192	3.581159747089181*^9}],
3193
3194	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
3195	CellChangeTimes->{
3196	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3197	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3198	3.5811597470934343`*^9}],
3199
3200	Cell[BoxData[
3201	RowBox[{
3202	RowBox[{
3203	SubscriptBox["g", "Agg"], " ",
3204	SubscriptBox["g", "s"], " ",
3205	SubscriptBox["\[Kappa]", "Agg"], " ",
3206	SubscriptBox["s", "a"], " ",
3207	SubscriptBox["\[Epsilon]",
3208	RowBox[{
3209	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3210	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3211	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ",
3212	SubscriptBox["f",
3213	RowBox[{
3214	SubscriptBox["\<\"a\"\>", "1"], ",",
3215	SubscriptBox["\<\"a\"\>", "2"], ",",
3216	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
3217	SubsuperscriptBox["\<\"p\"\>", "1", "mu$11"]}], "+",
3218	RowBox[{
3219	SubscriptBox["g", "Agg"], " ",
3220	SubscriptBox["g", "s"], " ",
3221	SubscriptBox["\[Kappa]", "Agg"], " ",
3222	SubscriptBox["s", "a"], " ",
3223	SubscriptBox["\[Epsilon]",
3224	RowBox[{
3225	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3226	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3227	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ",
3228	SubscriptBox["f",
3229	RowBox[{
3230	SubscriptBox["\<\"a\"\>", "1"], ",",
3231	SubscriptBox["\<\"a\"\>", "2"], ",",
3232	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
3233	SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "+",
3234	RowBox[{
3235	SubscriptBox["g", "Agg"], " ",
3236	SubscriptBox["g", "s"], " ",
3237	SubscriptBox["\[Kappa]", "Agg"], " ",
3238	SubscriptBox["s", "a"], " ",
3239	SubscriptBox["\[Epsilon]",
3240	RowBox[{
3241	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3242	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3243	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ",
3244	SubscriptBox["f",
3245	RowBox[{
3246	SubscriptBox["\<\"a\"\>", "1"], ",",
3247	SubscriptBox["\<\"a\"\>", "2"], ",",
3248	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
3249	SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}], "+",
3250	RowBox[{
3251	SubscriptBox["c", "a"], " ",
3252	SubscriptBox["g", "Hgg"], " ",
3253	SubscriptBox["g", "s"], " ",
3254	SubscriptBox["\[Kappa]", "Hgg"], " ",
3255	SubscriptBox["f",
3256	RowBox[{
3257	SubscriptBox["\<\"a\"\>", "1"], ",",
3258	SubscriptBox["\<\"a\"\>", "2"], ",",
3259	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
3260	SubsuperscriptBox["\<\"p\"\>", "1",
3261	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
3262	SubscriptBox["\[Eta]",
3263	RowBox[{
3264	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3265	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
3266	RowBox[{
3267	SubscriptBox["c", "a"], " ",
3268	SubscriptBox["g", "Hgg"], " ",
3269	SubscriptBox["g", "s"], " ",
3270	SubscriptBox["\[Kappa]", "Hgg"], " ",
3271	SubscriptBox["f",
3272	RowBox[{
3273	SubscriptBox["\<\"a\"\>", "1"], ",",
3274	SubscriptBox["\<\"a\"\>", "2"], ",",
3275	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
3276	SubsuperscriptBox["\<\"p\"\>", "2",
3277	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
3278	SubscriptBox["\[Eta]",
3279	RowBox[{
3280	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3281	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
3282	RowBox[{
3283	SubscriptBox["c", "a"], " ",
3284	SubscriptBox["g", "Hgg"], " ",
3285	SubscriptBox["g", "s"], " ",
3286	SubscriptBox["\[Kappa]", "Hgg"], " ",
3287	SubscriptBox["f",
3288	RowBox[{
3289	SubscriptBox["\<\"a\"\>", "1"], ",",
3290	SubscriptBox["\<\"a\"\>", "2"], ",",
3291	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
3292	SubsuperscriptBox["\<\"p\"\>", "1",
3293	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
3294	SubscriptBox["\[Eta]",
3295	RowBox[{
3296	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3297	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
3298	RowBox[{
3299	SubscriptBox["c", "a"], " ",
3300	SubscriptBox["g", "Hgg"], " ",
3301	SubscriptBox["g", "s"], " ",
3302	SubscriptBox["\[Kappa]", "Hgg"], " ",
3303	SubscriptBox["f",
3304	RowBox[{
3305	SubscriptBox["\<\"a\"\>", "1"], ",",
3306	SubscriptBox["\<\"a\"\>", "2"], ",",
3307	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
3308	SubsuperscriptBox["\<\"p\"\>", "3",
3309	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
3310	SubscriptBox["\[Eta]",
3311	RowBox[{
3312	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3313	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
3314	RowBox[{
3315	SubscriptBox["c", "a"], " ",
3316	SubscriptBox["g", "Hgg"], " ",
3317	SubscriptBox["g", "s"], " ",
3318	SubscriptBox["\[Kappa]", "Hgg"], " ",
3319	SubscriptBox["f",
3320	RowBox[{
3321	SubscriptBox["\<\"a\"\>", "1"], ",",
3322	SubscriptBox["\<\"a\"\>", "2"], ",",
3323	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
3324	SubsuperscriptBox["\<\"p\"\>", "2",
3325	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
3326	SubscriptBox["\[Eta]",
3327	RowBox[{
3328	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3329	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
3330	RowBox[{
3331	SubscriptBox["c", "a"], " ",
3332	SubscriptBox["g", "Hgg"], " ",
3333	SubscriptBox["g", "s"], " ",
3334	SubscriptBox["\[Kappa]", "Hgg"], " ",
3335	SubscriptBox["f",
3336	RowBox[{
3337	SubscriptBox["\<\"a\"\>", "1"], ",",
3338	SubscriptBox["\<\"a\"\>", "2"], ",",
3339	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
3340	SubsuperscriptBox["\<\"p\"\>", "3",
3341	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
3342	SubscriptBox["\[Eta]",
3343	RowBox[{
3344	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3345	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
3346	CellChangeTimes->{
3347	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3348	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3349	3.5811597471143837`*^9}],
3350
3351	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
3352	* * * * * *)\"\>"], "Print",
3353	CellChangeTimes->{
3354	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3355	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3356	3.581159747121714*^9}],
3357
3358	Cell[BoxData[
3359	InterpretationBox[
3360	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "10"}],
3361	SequenceForm["Vertex ", 10],
3362	Editable->False]], "Print",
3363	CellChangeTimes->{
3364	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3365	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3366	3.581159747125943*^9}],
3367
3368	Cell[BoxData[
3369	InterpretationBox[
3370	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
3371	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3372	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
3373	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
3374	Editable->False]], "Print",
3375	CellChangeTimes->{
3376	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3377	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3378	3.581159747134646*^9}],
3379
3380	Cell[BoxData[
3381	InterpretationBox[
3382	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
3383	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3384	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
3385	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
3386	Editable->False]], "Print",
3387	CellChangeTimes->{
3388	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3389	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3390	3.581159747150731*^9}],
3391
3392	Cell[BoxData[
3393	InterpretationBox[
3394	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
3395	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3396	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
3397	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
3398	Editable->False]], "Print",
3399	CellChangeTimes->{
3400	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3401	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3402	3.581159747319437*^9}],
3403
3404	Cell[BoxData[
3405	InterpretationBox[
3406	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
3407	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3408	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
3409	SequenceForm["Particle ", 4, " : ", "Vector", " , ", FeynRules`G],
3410	Editable->False]], "Print",
3411	CellChangeTimes->{
3412	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3413	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3414	3.581159747323792*^9}],
3415
3416	Cell[BoxData[
3417	InterpretationBox[
3418	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "5",
3419	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
3420	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
3421	SequenceForm["Particle ", 5, " : ", "Scalar", " , ", $CellContext`X0],
3422	Editable->False]], "Print",
3423	CellChangeTimes->{
3424	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3425	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3426	3.581159747328158*^9}],
3427
3428	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
3429	CellChangeTimes->{
3430	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3431	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3432	3.581159747332593*^9}],
3433
3434	Cell[BoxData[
3435	RowBox[{
3436	RowBox[{
3437	RowBox[{"-", "\[ImaginaryI]"}], " ",
3438	SubscriptBox["g", "Agg"], " ",
3439	SubsuperscriptBox["g", "s", "2"], " ",
3440	SubscriptBox["\[Kappa]", "Agg"], " ",
3441	SubscriptBox["s", "a"], " ",
3442	SubscriptBox["\[Epsilon]",
3443	RowBox[{
3444	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3445	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3446	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
3447	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
3448	SubscriptBox["f",
3449	RowBox[{
3450	SubscriptBox["\<\"a\"\>", "1"], ",",
3451	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
3452	SubscriptBox["f",
3453	RowBox[{
3454	SubscriptBox["\<\"a\"\>", "2"], ",",
3455	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]]}], "+",
3456	RowBox[{"\[ImaginaryI]", " ",
3457	SubscriptBox["g", "Agg"], " ",
3458	SubsuperscriptBox["g", "s", "2"], " ",
3459	SubscriptBox["\[Kappa]", "Agg"], " ",
3460	SubscriptBox["s", "a"], " ",
3461	SubscriptBox["\[Epsilon]",
3462	RowBox[{
3463	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3464	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3465	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
3466	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
3467	SubscriptBox["f",
3468	RowBox[{
3469	SubscriptBox["\<\"a\"\>", "1"], ",",
3470	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
3471	SubscriptBox["f",
3472	RowBox[{
3473	SubscriptBox["\<\"a\"\>", "2"], ",",
3474	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]]}], "-",
3475	RowBox[{"\[ImaginaryI]", " ",
3476	SubscriptBox["g", "Agg"], " ",
3477	SubsuperscriptBox["g", "s", "2"], " ",
3478	SubscriptBox["\[Kappa]", "Agg"], " ",
3479	SubscriptBox["s", "a"], " ",
3480	SubscriptBox["\[Epsilon]",
3481	RowBox[{
3482	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3483	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3484	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
3485	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
3486	SubscriptBox["f",
3487	RowBox[{
3488	SubscriptBox["\<\"a\"\>", "1"], ",",
3489	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
3490	SubscriptBox["f",
3491	RowBox[{
3492	SubscriptBox["\<\"a\"\>", "3"], ",",
3493	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]]}], "+",
3494	RowBox[{"\[ImaginaryI]", " ",
3495	SubscriptBox["c", "a"], " ",
3496	SubscriptBox["g", "Hgg"], " ",
3497	SubsuperscriptBox["g", "s", "2"], " ",
3498	SubscriptBox["\[Kappa]", "Hgg"], " ",
3499	SubscriptBox["f",
3500	RowBox[{
3501	SubscriptBox["\<\"a\"\>", "1"], ",",
3502	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
3503	SubscriptBox["f",
3504	RowBox[{
3505	SubscriptBox["\<\"a\"\>", "2"], ",",
3506	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
3507	SubscriptBox["\[Eta]",
3508	RowBox[{
3509	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3510	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
3511	SubscriptBox["\[Eta]",
3512	RowBox[{
3513	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3514	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
3515	RowBox[{"\[ImaginaryI]", " ",
3516	SubscriptBox["c", "a"], " ",
3517	SubscriptBox["g", "Hgg"], " ",
3518	SubsuperscriptBox["g", "s", "2"], " ",
3519	SubscriptBox["\[Kappa]", "Hgg"], " ",
3520	SubscriptBox["f",
3521	RowBox[{
3522	SubscriptBox["\<\"a\"\>", "1"], ",",
3523	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
3524	SubscriptBox["f",
3525	RowBox[{
3526	SubscriptBox["\<\"a\"\>", "3"], ",",
3527	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
3528	SubscriptBox["\[Eta]",
3529	RowBox[{
3530	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3531	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
3532	SubscriptBox["\[Eta]",
3533	RowBox[{
3534	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3535	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
3536	RowBox[{"\[ImaginaryI]", " ",
3537	SubscriptBox["c", "a"], " ",
3538	SubscriptBox["g", "Hgg"], " ",
3539	SubsuperscriptBox["g", "s", "2"], " ",
3540	SubscriptBox["\[Kappa]", "Hgg"], " ",
3541	SubscriptBox["f",
3542	RowBox[{
3543	SubscriptBox["\<\"a\"\>", "1"], ",",
3544	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
3545	SubscriptBox["f",
3546	RowBox[{
3547	SubscriptBox["\<\"a\"\>", "2"], ",",
3548	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
3549	SubscriptBox["\[Eta]",
3550	RowBox[{
3551	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3552	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
3553	SubscriptBox["\[Eta]",
3554	RowBox[{
3555	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3556	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
3557	RowBox[{"\[ImaginaryI]", " ",
3558	SubscriptBox["c", "a"], " ",
3559	SubscriptBox["g", "Hgg"], " ",
3560	SubsuperscriptBox["g", "s", "2"], " ",
3561	SubscriptBox["\[Kappa]", "Hgg"], " ",
3562	SubscriptBox["f",
3563	RowBox[{
3564	SubscriptBox["\<\"a\"\>", "1"], ",",
3565	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
3566	SubscriptBox["f",
3567	RowBox[{
3568	SubscriptBox["\<\"a\"\>", "3"], ",",
3569	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
3570	SubscriptBox["\[Eta]",
3571	RowBox[{
3572	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3573	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
3574	SubscriptBox["\[Eta]",
3575	RowBox[{
3576	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
3577	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
3578	RowBox[{"\[ImaginaryI]", " ",
3579	SubscriptBox["c", "a"], " ",
3580	SubscriptBox["g", "Hgg"], " ",
3581	SubsuperscriptBox["g", "s", "2"], " ",
3582	SubscriptBox["\[Kappa]", "Hgg"], " ",
3583	SubscriptBox["f",
3584	RowBox[{
3585	SubscriptBox["\<\"a\"\>", "1"], ",",
3586	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
3587	SubscriptBox["f",
3588	RowBox[{
3589	SubscriptBox["\<\"a\"\>", "2"], ",",
3590	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
3591	SubscriptBox["\[Eta]",
3592	RowBox[{
3593	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3594	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
3595	SubscriptBox["\[Eta]",
3596	RowBox[{
3597	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
3598	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
3599	RowBox[{"\[ImaginaryI]", " ",
3600	SubscriptBox["c", "a"], " ",
3601	SubscriptBox["g", "Hgg"], " ",
3602	SubsuperscriptBox["g", "s", "2"], " ",
3603	SubscriptBox["\[Kappa]", "Hgg"], " ",
3604	SubscriptBox["f",
3605	RowBox[{
3606	SubscriptBox["\<\"a\"\>", "1"], ",",
3607	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
3608	SubscriptBox["f",
3609	RowBox[{
3610	SubscriptBox["\<\"a\"\>", "2"], ",",
3611	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
3612	SubscriptBox["\[Eta]",
3613	RowBox[{
3614	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
3615	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
3616	SubscriptBox["\[Eta]",
3617	RowBox[{
3618	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
3619	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}]}]], "Print",
3620	CellChangeTimes->{
3621	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3622	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3623	3.581159747338441*^9}],
3624
3625	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
3626	* * * * * *)\"\>"], "Print",
3627	CellChangeTimes->{
3628	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3629	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3630	3.58115974735032*^9}],
3631
3632	Cell[BoxData[
3633	InterpretationBox[
3634	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "11"}],
3635	SequenceForm["Vertex ", 11],
3636	Editable->False]], "Print",
3637	CellChangeTimes->{
3638	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3639	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3640	3.58115974735434*^9}],
3641
3642	Cell[BoxData[
3643	InterpretationBox[
3644	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
3645	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3646	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
3647	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
3648	Editable->False]], "Print",
3649	CellChangeTimes->{
3650	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3651	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3652	3.5811597473581142`*^9}],
3653
3654	Cell[BoxData[
3655	InterpretationBox[
3656	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
3657	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3658	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
3659	OverscriptBox["b", "\<\"-\"\>"]}],
3660	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
3661	Editable->False]], "Print",
3662	CellChangeTimes->{
3663	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3664	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3665	3.58115974737466*^9}],
3666
3667	Cell[BoxData[
3668	InterpretationBox[
3669	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
3670	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
3671	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
3672	SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
3673	Editable->False]], "Print",
3674	CellChangeTimes->{
3675	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3676	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3677	3.581159747381386*^9}],
3678
3679	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
3680	CellChangeTimes->{
3681	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3682	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3683	3.5811597473859997`*^9}],
3684
3685	Cell[BoxData[
3686	RowBox[{
3687	FractionBox[
3688	RowBox[{
3689	SubscriptBox["\[Kappa]", "Abb"], " ", "MB", " ",
3690	SubscriptBox["s", "a"], " ",
3691	SubsuperscriptBox["\[Gamma]",
3692	RowBox[{
3693	SubscriptBox["\<\"s\"\>", "2"], ",",
3694	SubscriptBox["\<\"s\"\>", "1"]}], "5"], " ",
3695	SubscriptBox["\[Delta]",
3696	RowBox[{
3697	SubscriptBox["\<\"m\"\>", "1"], ",",
3698	SubscriptBox["\<\"m\"\>", "2"]}]]}], "vev"], "-",
3699	FractionBox[
3700	RowBox[{"\[ImaginaryI]", " ",
3701	SubscriptBox["c", "a"], " ",
3702	SubscriptBox["\[Kappa]", "Hbb"], " ",
3703	SubsuperscriptBox[
3704	RowBox[{"(",
3705	TemplateBox[{"y","d"},
3706	"Superscript"], ")"}],
3707	RowBox[{"3", ",", "3"}], "\<\"*\"\>"], " ",
3708	SubscriptBox["\[Delta]",
3709	RowBox[{
3710	SubscriptBox["\<\"m\"\>", "1"], ",",
3711	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
3712	SubscriptBox[
3713	SubscriptBox["P", "\<\"-\"\>"],
3714	RowBox[{
3715	SubscriptBox["\<\"s\"\>", "2"], ",",
3716	SubscriptBox["\<\"s\"\>", "1"]}]]}],
3717	SqrtBox["2"]], "-",
3718	FractionBox[
3719	RowBox[{"\[ImaginaryI]", " ",
3720	SubscriptBox["c", "a"], " ",
3721	SubscriptBox["\[Kappa]", "Hbb"], " ",
3722	SubscriptBox["\[Delta]",
3723	RowBox[{
3724	SubscriptBox["\<\"m\"\>", "1"], ",",
3725	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
3726	SubscriptBox[
3727	SubscriptBox["P", "\<\"+\"\>"],
3728	RowBox[{
3729	SubscriptBox["\<\"s\"\>", "2"], ",",
3730	SubscriptBox["\<\"s\"\>", "1"]}]], " ",
3731	SubscriptBox[
3732	TemplateBox[{"y","d"},
3733	"Superscript"],
3734	RowBox[{"3", ",", "3"}]]}],
3735	SqrtBox["2"]]}]], "Print",
3736	CellChangeTimes->{
3737	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3738	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3739	3.581159747391428*^9}],
3740
3741	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
3742	* * * * * *)\"\>"], "Print",
3743	CellChangeTimes->{
3744	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3745	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3746	3.5811597473978643`*^9}],
3747
3748	Cell[BoxData[
3749	InterpretationBox[
3750	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "12"}],
3751	SequenceForm["Vertex ", 12],
3752	Editable->False]], "Print",
3753	CellChangeTimes->{
3754	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3755	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3756	3.581159747402664*^9}],
3757
3758	Cell[BoxData[
3759	InterpretationBox[
3760	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
3761	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3762	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
3763	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
3764	Editable->False]], "Print",
3765	CellChangeTimes->{
3766	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3767	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3768	3.581159747406969*^9}],
3769
3770	Cell[BoxData[
3771	InterpretationBox[
3772	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
3773	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3774	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
3775	OverscriptBox["ta", "\<\"-\"\>"]}],
3776	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
3777	Editable->False]], "Print",
3778	CellChangeTimes->{
3779	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3780	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3781	3.581159747411677*^9}],
3782
3783	Cell[BoxData[
3784	InterpretationBox[
3785	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
3786	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
3787	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
3788	SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
3789	Editable->False]], "Print",
3790	CellChangeTimes->{
3791	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3792	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3793	3.581159747416778*^9}],
3794
3795	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
3796	CellChangeTimes->{
3797	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3798	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3799	3.5811597474217587`*^9}],
3800
3801	Cell[BoxData[
3802	RowBox[{
3803	FractionBox[
3804	RowBox[{
3805	SubscriptBox["\[Kappa]", "All"], " ", "MTA", " ",
3806	SubscriptBox["s", "a"], " ",
3807	SubsuperscriptBox["\[Gamma]",
3808	RowBox[{
3809	SubscriptBox["\<\"s\"\>", "2"], ",",
3810	SubscriptBox["\<\"s\"\>", "1"]}], "5"]}], "vev"], "-",
3811	FractionBox[
3812	RowBox[{"\[ImaginaryI]", " ",
3813	SubscriptBox["c", "a"], " ",
3814	SubscriptBox["\[Kappa]", "Hll"], " ",
3815	SubsuperscriptBox[
3816	RowBox[{"(",
3817	TemplateBox[{"y","l"},
3818	"Superscript"], ")"}],
3819	RowBox[{"3", ",", "3"}], "\<\"*\"\>"], " ",
3820	SubscriptBox[
3821	SubscriptBox["P", "\<\"-\"\>"],
3822	RowBox[{
3823	SubscriptBox["\<\"s\"\>", "2"], ",",
3824	SubscriptBox["\<\"s\"\>", "1"]}]]}],
3825	SqrtBox["2"]], "-",
3826	FractionBox[
3827	RowBox[{"\[ImaginaryI]", " ",
3828	SubscriptBox["c", "a"], " ",
3829	SubscriptBox["\[Kappa]", "Hll"], " ",
3830	SubscriptBox[
3831	SubscriptBox["P", "\<\"+\"\>"],
3832	RowBox[{
3833	SubscriptBox["\<\"s\"\>", "2"], ",",
3834	SubscriptBox["\<\"s\"\>", "1"]}]], " ",
3835	SubscriptBox[
3836	TemplateBox[{"y","l"},
3837	"Superscript"],
3838	RowBox[{"3", ",", "3"}]]}],
3839	SqrtBox["2"]]}]], "Print",
3840	CellChangeTimes->{
3841	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3842	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3843	3.581159747427003*^9}],
3844
3845	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
3846	* * * * * *)\"\>"], "Print",
3847	CellChangeTimes->{
3848	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3849	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3850	3.58115974743258*^9}],
3851
3852	Cell[BoxData[
3853	InterpretationBox[
3854	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "13"}],
3855	SequenceForm["Vertex ", 13],
3856	Editable->False]], "Print",
3857	CellChangeTimes->{
3858	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3859	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3860	3.58115974743717*^9}],
3861
3862	Cell[BoxData[
3863	InterpretationBox[
3864	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
3865	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3866	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
3867	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
3868	Editable->False]], "Print",
3869	CellChangeTimes->{
3870	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3871	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3872	3.5811597474426126`*^9}],
3873
3874	Cell[BoxData[
3875	InterpretationBox[
3876	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
3877	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3878	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
3879	OverscriptBox["t", "\<\"-\"\>"]}],
3880	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
3881	Editable->False]], "Print",
3882	CellChangeTimes->{
3883	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3884	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3885	3.581159747447309*^9}],
3886
3887	Cell[BoxData[
3888	InterpretationBox[
3889	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
3890	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
3891	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
3892	SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
3893	Editable->False]], "Print",
3894	CellChangeTimes->{
3895	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3896	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3897	3.581159747452277*^9}],
3898
3899	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
3900	CellChangeTimes->{
3901	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3902	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3903	3.5811597474566402`*^9}],
3904
3905	Cell[BoxData[
3906	RowBox[{
3907	FractionBox[
3908	RowBox[{
3909	SubscriptBox["\[Kappa]", "Att"], " ", "MT", " ",
3910	SubscriptBox["s", "a"], " ",
3911	SubsuperscriptBox["\[Gamma]",
3912	RowBox[{
3913	SubscriptBox["\<\"s\"\>", "2"], ",",
3914	SubscriptBox["\<\"s\"\>", "1"]}], "5"], " ",
3915	SubscriptBox["\[Delta]",
3916	RowBox[{
3917	SubscriptBox["\<\"m\"\>", "1"], ",",
3918	SubscriptBox["\<\"m\"\>", "2"]}]]}], "vev"], "-",
3919	FractionBox[
3920	RowBox[{"\[ImaginaryI]", " ",
3921	SubscriptBox["c", "a"], " ",
3922	SubscriptBox["\[Kappa]", "Htt"], " ",
3923	SubsuperscriptBox[
3924	RowBox[{"(",
3925	TemplateBox[{"y","u"},
3926	"Superscript"], ")"}],
3927	RowBox[{"3", ",", "3"}], "\<\"*\"\>"], " ",
3928	SubscriptBox["\[Delta]",
3929	RowBox[{
3930	SubscriptBox["\<\"m\"\>", "1"], ",",
3931	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
3932	SubscriptBox[
3933	SubscriptBox["P", "\<\"-\"\>"],
3934	RowBox[{
3935	SubscriptBox["\<\"s\"\>", "2"], ",",
3936	SubscriptBox["\<\"s\"\>", "1"]}]]}],
3937	SqrtBox["2"]], "-",
3938	FractionBox[
3939	RowBox[{"\[ImaginaryI]", " ",
3940	SubscriptBox["c", "a"], " ",
3941	SubscriptBox["\[Kappa]", "Htt"], " ",
3942	SubscriptBox["\[Delta]",
3943	RowBox[{
3944	SubscriptBox["\<\"m\"\>", "1"], ",",
3945	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
3946	SubscriptBox[
3947	SubscriptBox["P", "\<\"+\"\>"],
3948	RowBox[{
3949	SubscriptBox["\<\"s\"\>", "2"], ",",
3950	SubscriptBox["\<\"s\"\>", "1"]}]], " ",
3951	SubscriptBox[
3952	TemplateBox[{"y","u"},
3953	"Superscript"],
3954	RowBox[{"3", ",", "3"}]]}],
3955	SqrtBox["2"]]}]], "Print",
3956	CellChangeTimes->{
3957	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3958	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3959	3.581159747462173*^9}],
3960
3961	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
3962	* * * * * *)\"\>"], "Print",
3963	CellChangeTimes->{
3964	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3965	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3966	3.581159747467955*^9}],
3967
3968	Cell[BoxData[
3969	InterpretationBox[
3970	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "14"}],
3971	SequenceForm["Vertex ", 14],
3972	Editable->False]], "Print",
3973	CellChangeTimes->{
3974	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3975	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3976	3.581159747472177*^9}],
3977
3978	Cell[BoxData[
3979	InterpretationBox[
3980	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
3981	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3982	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
3983	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
3984	Editable->False]], "Print",
3985	CellChangeTimes->{
3986	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
3987	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
3988	3.5811597474763927`*^9}],
3989
3990	Cell[BoxData[
3991	InterpretationBox[
3992	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
3993	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3994	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
3995	OverscriptBox["b", "\<\"-\"\>"]}],
3996	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
3997	Editable->False]], "Print",
3998	CellChangeTimes->{
3999	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4000	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4001	3.5811597474822893`*^9}],
4002
4003	Cell[BoxData[
4004	InterpretationBox[
4005	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4006	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4007	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
4008	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
4009	Editable->False]], "Print",
4010	CellChangeTimes->{
4011	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4012	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4013	3.581159747487668*^9}],
4014
4015	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
4016	CellChangeTimes->{
4017	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4018	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4019	3.581159747495528*^9}],
4020
4021	Cell[BoxData[
4022	RowBox[{"\[ImaginaryI]", " ",
4023	SubscriptBox["g", "s"], " ",
4024	SubsuperscriptBox["\[Gamma]",
4025	RowBox[{
4026	SubscriptBox["\<\"s\"\>", "2"], ",",
4027	SubscriptBox["\<\"s\"\>", "1"]}],
4028	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
4029	SubsuperscriptBox["T",
4030	RowBox[{
4031	SubscriptBox["\<\"m\"\>", "2"], ",",
4032	SubscriptBox["\<\"m\"\>", "1"]}],
4033	SubscriptBox["\<\"a\"\>", "3"]]}]], "Print",
4034	CellChangeTimes->{
4035	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4036	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4037	3.5811597475013733`*^9}],
4038
4039	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4040	* * * * * *)\"\>"], "Print",
4041	CellChangeTimes->{
4042	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4043	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4044	3.581159747506775*^9}],
4045
4046	Cell[BoxData[
4047	InterpretationBox[
4048	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "15"}],
4049	SequenceForm["Vertex ", 15],
4050	Editable->False]], "Print",
4051	CellChangeTimes->{
4052	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4053	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4054	3.581159747515459*^9}],
4055
4056	Cell[BoxData[
4057	InterpretationBox[
4058	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4059	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4060	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
4061	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
4062	Editable->False]], "Print",
4063	CellChangeTimes->{
4064	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4065	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4066	3.58115974752065*^9}],
4067
4068	Cell[BoxData[
4069	InterpretationBox[
4070	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4071	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4072	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4073	OverscriptBox["d", "\<\"-\"\>"]}],
4074	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
4075	Editable->False]], "Print",
4076	CellChangeTimes->{
4077	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4078	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4079	3.5811597475258636`*^9}],
4080
4081	Cell[BoxData[
4082	InterpretationBox[
4083	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4084	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4085	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
4086	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
4087	Editable->False]], "Print",
4088	CellChangeTimes->{
4089	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4090	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4091	3.581159747531062*^9}],
4092
4093	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
4094	CellChangeTimes->{
4095	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4096	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4097	3.581159747534914*^9}],
4098
4099	Cell[BoxData[
4100	RowBox[{"\[ImaginaryI]", " ",
4101	SubscriptBox["g", "s"], " ",
4102	SubsuperscriptBox["\[Gamma]",
4103	RowBox[{
4104	SubscriptBox["\<\"s\"\>", "2"], ",",
4105	SubscriptBox["\<\"s\"\>", "1"]}],
4106	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
4107	SubsuperscriptBox["T",
4108	RowBox[{
4109	SubscriptBox["\<\"m\"\>", "2"], ",",
4110	SubscriptBox["\<\"m\"\>", "1"]}],
4111	SubscriptBox["\<\"a\"\>", "3"]]}]], "Print",
4112	CellChangeTimes->{
4113	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4114	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4115	3.581159747539673*^9}],
4116
4117	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4118	* * * * * *)\"\>"], "Print",
4119	CellChangeTimes->{
4120	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4121	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4122	3.581159747545939*^9}],
4123
4124	Cell[BoxData[
4125	InterpretationBox[
4126	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "16"}],
4127	SequenceForm["Vertex ", 16],
4128	Editable->False]], "Print",
4129	CellChangeTimes->{
4130	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4131	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4132	3.581159747550284*^9}],
4133
4134	Cell[BoxData[
4135	InterpretationBox[
4136	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4137	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4138	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
4139	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
4140	Editable->False]], "Print",
4141	CellChangeTimes->{
4142	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4143	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4144	3.581159747554646*^9}],
4145
4146	Cell[BoxData[
4147	InterpretationBox[
4148	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4149	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4150	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
4151	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
4152	Editable->False]], "Print",
4153	CellChangeTimes->{
4154	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4155	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4156	3.581159747560543*^9}],
4157
4158	Cell[BoxData[
4159	InterpretationBox[
4160	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4161	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4162	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4163	OverscriptBox["s", "\<\"-\"\>"]}],
4164	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
4165	Editable->False]], "Print",
4166	CellChangeTimes->{
4167	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4168	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4169	3.581159747572665*^9}],
4170
4171	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
4172	CellChangeTimes->{
4173	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4174	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4175	3.58115974757755*^9}],
4176
4177	Cell[BoxData[
4178	RowBox[{"\[ImaginaryI]", " ",
4179	SubscriptBox["g", "s"], " ",
4180	SubsuperscriptBox["\[Gamma]",
4181	RowBox[{
4182	SubscriptBox["\<\"s\"\>", "3"], ",",
4183	SubscriptBox["\<\"s\"\>", "2"]}],
4184	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
4185	SubsuperscriptBox["T",
4186	RowBox[{
4187	SubscriptBox["\<\"m\"\>", "3"], ",",
4188	SubscriptBox["\<\"m\"\>", "2"]}],
4189	SubscriptBox["\<\"a\"\>", "1"]]}]], "Print",
4190	CellChangeTimes->{
4191	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4192	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4193	3.5811597475827093`*^9}],
4194
4195	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4196	* * * * * *)\"\>"], "Print",
4197	CellChangeTimes->{
4198	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4199	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4200	3.581159747593952*^9}],
4201
4202	Cell[BoxData[
4203	InterpretationBox[
4204	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "17"}],
4205	SequenceForm["Vertex ", 17],
4206	Editable->False]], "Print",
4207	CellChangeTimes->{
4208	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4209	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4210	3.581159747601626*^9}],
4211
4212	Cell[BoxData[
4213	InterpretationBox[
4214	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4215	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4216	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
4217	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
4218	Editable->False]], "Print",
4219	CellChangeTimes->{
4220	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4221	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4222	3.5811597476057873`*^9}],
4223
4224	Cell[BoxData[
4225	InterpretationBox[
4226	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4227	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4228	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4229	OverscriptBox["c", "\<\"-\"\>"]}],
4230	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
4231	Editable->False]], "Print",
4232	CellChangeTimes->{
4233	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4234	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4235	3.581159747611032*^9}],
4236
4237	Cell[BoxData[
4238	InterpretationBox[
4239	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4240	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4241	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
4242	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
4243	Editable->False]], "Print",
4244	CellChangeTimes->{
4245	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4246	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4247	3.581159747615642*^9}],
4248
4249	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
4250	CellChangeTimes->{
4251	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4252	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4253	3.581159747620447*^9}],
4254
4255	Cell[BoxData[
4256	RowBox[{"\[ImaginaryI]", " ",
4257	SubscriptBox["g", "s"], " ",
4258	SubsuperscriptBox["\[Gamma]",
4259	RowBox[{
4260	SubscriptBox["\<\"s\"\>", "2"], ",",
4261	SubscriptBox["\<\"s\"\>", "1"]}],
4262	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
4263	SubsuperscriptBox["T",
4264	RowBox[{
4265	SubscriptBox["\<\"m\"\>", "2"], ",",
4266	SubscriptBox["\<\"m\"\>", "1"]}],
4267	SubscriptBox["\<\"a\"\>", "3"]]}]], "Print",
4268	CellChangeTimes->{
4269	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4270	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4271	3.5811597476263742`*^9}],
4272
4273	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4274	* * * * * *)\"\>"], "Print",
4275	CellChangeTimes->{
4276	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4277	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4278	3.581159747630959*^9}],
4279
4280	Cell[BoxData[
4281	InterpretationBox[
4282	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "18"}],
4283	SequenceForm["Vertex ", 18],
4284	Editable->False]], "Print",
4285	CellChangeTimes->{
4286	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4287	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4288	3.5811597476351757`*^9}],
4289
4290	Cell[BoxData[
4291	InterpretationBox[
4292	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4293	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4294	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
4295	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
4296	Editable->False]], "Print",
4297	CellChangeTimes->{
4298	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4299	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4300	3.581159747640018*^9}],
4301
4302	Cell[BoxData[
4303	InterpretationBox[
4304	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4305	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4306	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
4307	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
4308	Editable->False]], "Print",
4309	CellChangeTimes->{
4310	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4311	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4312	3.581159747644957*^9}],
4313
4314	Cell[BoxData[
4315	InterpretationBox[
4316	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4317	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4318	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4319	OverscriptBox["t", "\<\"-\"\>"]}],
4320	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tbar],
4321	Editable->False]], "Print",
4322	CellChangeTimes->{
4323	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4324	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4325	3.581159747653171*^9}],
4326
4327	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
4328	CellChangeTimes->{
4329	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4330	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4331	3.581159747657748*^9}],
4332
4333	Cell[BoxData[
4334	RowBox[{"\[ImaginaryI]", " ",
4335	SubscriptBox["g", "s"], " ",
4336	SubsuperscriptBox["\[Gamma]",
4337	RowBox[{
4338	SubscriptBox["\<\"s\"\>", "3"], ",",
4339	SubscriptBox["\<\"s\"\>", "2"]}],
4340	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
4341	SubsuperscriptBox["T",
4342	RowBox[{
4343	SubscriptBox["\<\"m\"\>", "3"], ",",
4344	SubscriptBox["\<\"m\"\>", "2"]}],
4345	SubscriptBox["\<\"a\"\>", "1"]]}]], "Print",
4346	CellChangeTimes->{
4347	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4348	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4349	3.5811597476620502`*^9}],
4350
4351	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4352	* * * * * *)\"\>"], "Print",
4353	CellChangeTimes->{
4354	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4355	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4356	3.581159747666419*^9}],
4357
4358	Cell[BoxData[
4359	InterpretationBox[
4360	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "19"}],
4361	SequenceForm["Vertex ", 19],
4362	Editable->False]], "Print",
4363	CellChangeTimes->{
4364	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4365	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4366	3.581159747671567*^9}],
4367
4368	Cell[BoxData[
4369	InterpretationBox[
4370	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4371	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4372	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
4373	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
4374	Editable->False]], "Print",
4375	CellChangeTimes->{
4376	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4377	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4378	3.5811597476766977`*^9}],
4379
4380	Cell[BoxData[
4381	InterpretationBox[
4382	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4383	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4384	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
4385	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
4386	Editable->False]], "Print",
4387	CellChangeTimes->{
4388	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4389	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4390	3.581159747681163*^9}],
4391
4392	Cell[BoxData[
4393	InterpretationBox[
4394	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4395	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4396	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4397	OverscriptBox["u", "\<\"-\"\>"]}],
4398	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
4399	Editable->False]], "Print",
4400	CellChangeTimes->{
4401	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4402	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4403	3.581159747709982*^9}],
4404
4405	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
4406	CellChangeTimes->{
4407	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4408	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4409	3.581159747714191*^9}],
4410
4411	Cell[BoxData[
4412	RowBox[{"\[ImaginaryI]", " ",
4413	SubscriptBox["g", "s"], " ",
4414	SubsuperscriptBox["\[Gamma]",
4415	RowBox[{
4416	SubscriptBox["\<\"s\"\>", "3"], ",",
4417	SubscriptBox["\<\"s\"\>", "2"]}],
4418	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
4419	SubsuperscriptBox["T",
4420	RowBox[{
4421	SubscriptBox["\<\"m\"\>", "3"], ",",
4422	SubscriptBox["\<\"m\"\>", "2"]}],
4423	SubscriptBox["\<\"a\"\>", "1"]]}]], "Print",
4424	CellChangeTimes->{
4425	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4426	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4427	3.581159747718296*^9}],
4428
4429	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4430	* * * * * *)\"\>"], "Print",
4431	CellChangeTimes->{
4432	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4433	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4434	3.5811597477231827`*^9}],
4435
4436	Cell[BoxData[
4437	InterpretationBox[
4438	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "20"}],
4439	SequenceForm["Vertex ", 20],
4440	Editable->False]], "Print",
4441	CellChangeTimes->{
4442	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4443	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4444	3.5811597477280273`*^9}],
4445
4446	Cell[BoxData[
4447	InterpretationBox[
4448	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4449	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4450	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
4451	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
4452	Editable->False]], "Print",
4453	CellChangeTimes->{
4454	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4455	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4456	3.5811597477330008`*^9}],
4457
4458	Cell[BoxData[
4459	InterpretationBox[
4460	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4461	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4462	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
4463	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
4464	Editable->False]], "Print",
4465	CellChangeTimes->{
4466	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4467	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4468	3.581159747737774*^9}],
4469
4470	Cell[BoxData[
4471	InterpretationBox[
4472	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4473	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4474	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4475	SuperscriptBox["W", "\[Dagger]"]}],
4476	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
4477	Editable->False]], "Print",
4478	CellChangeTimes->{
4479	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4480	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4481	3.5811597477422123`*^9}],
4482
4483	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
4484	CellChangeTimes->{
4485	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4486	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4487	3.5811597477463427`*^9}],
4488
4489	Cell[BoxData[
4490	RowBox[{
4491	RowBox[{
4492	RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
4493	SubsuperscriptBox["\<\"p\"\>", "1",
4494	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
4495	SubscriptBox["\[Eta]",
4496	RowBox[{
4497	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4498	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "+",
4499	RowBox[{"\[ImaginaryI]", " ", "e", " ",
4500	SubsuperscriptBox["\<\"p\"\>", "2",
4501	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
4502	SubscriptBox["\[Eta]",
4503	RowBox[{
4504	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4505	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "+",
4506	RowBox[{"\[ImaginaryI]", " ", "e", " ",
4507	SubsuperscriptBox["\<\"p\"\>", "1",
4508	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
4509	SubscriptBox["\[Eta]",
4510	RowBox[{
4511	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4512	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
4513	RowBox[{"\[ImaginaryI]", " ", "e", " ",
4514	SubsuperscriptBox["\<\"p\"\>", "3",
4515	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
4516	SubscriptBox["\[Eta]",
4517	RowBox[{
4518	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4519	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
4520	RowBox[{"\[ImaginaryI]", " ", "e", " ",
4521	SubsuperscriptBox["\<\"p\"\>", "2",
4522	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
4523	SubscriptBox["\[Eta]",
4524	RowBox[{
4525	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
4526	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
4527	RowBox[{"\[ImaginaryI]", " ", "e", " ",
4528	SubsuperscriptBox["\<\"p\"\>", "3",
4529	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
4530	SubscriptBox["\[Eta]",
4531	RowBox[{
4532	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
4533	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
4534	CellChangeTimes->{
4535	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4536	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4537	3.581159747750716*^9}],
4538
4539	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4540	* * * * * *)\"\>"], "Print",
4541	CellChangeTimes->{
4542	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4543	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4544	3.581159747755525*^9}],
4545
4546	Cell[BoxData[
4547	InterpretationBox[
4548	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "21"}],
4549	SequenceForm["Vertex ", 21],
4550	Editable->False]], "Print",
4551	CellChangeTimes->{
4552	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4553	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4554	3.581159747759865*^9}],
4555
4556	Cell[BoxData[
4557	InterpretationBox[
4558	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4559	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4560	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
4561	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
4562	Editable->False]], "Print",
4563	CellChangeTimes->{
4564	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4565	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4566	3.581159747764269*^9}],
4567
4568	Cell[BoxData[
4569	InterpretationBox[
4570	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4571	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4572	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4573	SuperscriptBox["W", "\[Dagger]"]}],
4574	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
4575	Editable->False]], "Print",
4576	CellChangeTimes->{
4577	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4578	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4579	3.581159747768849*^9}],
4580
4581	Cell[BoxData[
4582	InterpretationBox[
4583	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4584	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
4585	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
4586	SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
4587	Editable->False]], "Print",
4588	CellChangeTimes->{
4589	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4590	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4591	3.58115974777348*^9}],
4592
4593	Cell[BoxData[
4594	InterpretationBox[
4595	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
4596	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
4597	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
4598	SequenceForm["Particle ", 4, " : ", "Scalar", " , ", $CellContext`X0],
4599	Editable->False]], "Print",
4600	CellChangeTimes->{
4601	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4602	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4603	3.581159747777966*^9}],
4604
4605	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
4606	CellChangeTimes->{
4607	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4608	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4609	3.581159747782226*^9}],
4610
4611	Cell[BoxData[
4612	FractionBox[
4613	RowBox[{"\[ImaginaryI]", " ",
4614	SubsuperscriptBox["c", "a", "2"], " ",
4615	SuperscriptBox["e", "2"], " ",
4616	SubscriptBox["\[Kappa]", "SM"], " ",
4617	SubscriptBox["\[Eta]",
4618	RowBox[{
4619	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4620	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}],
4621	RowBox[{"2", " ",
4622	SubsuperscriptBox["s", "w", "2"]}]]], "Print",
4623	CellChangeTimes->{
4624	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4625	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4626	3.5811597477865868`*^9}],
4627
4628	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4629	* * * * * *)\"\>"], "Print",
4630	CellChangeTimes->{
4631	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4632	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4633	3.5811597477910137`*^9}],
4634
4635	Cell[BoxData[
4636	InterpretationBox[
4637	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "22"}],
4638	SequenceForm["Vertex ", 22],
4639	Editable->False]], "Print",
4640	CellChangeTimes->{
4641	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4642	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4643	3.581159747795445*^9}],
4644
4645	Cell[BoxData[
4646	InterpretationBox[
4647	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4648	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4649	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
4650	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
4651	Editable->False]], "Print",
4652	CellChangeTimes->{
4653	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4654	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4655	3.581159747799802*^9}],
4656
4657	Cell[BoxData[
4658	InterpretationBox[
4659	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4660	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4661	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
4662	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`A],
4663	Editable->False]], "Print",
4664	CellChangeTimes->{
4665	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4666	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4667	3.581159747804267*^9}],
4668
4669	Cell[BoxData[
4670	InterpretationBox[
4671	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4672	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4673	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
4674	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
4675	Editable->False]], "Print",
4676	CellChangeTimes->{
4677	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4678	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4679	3.581159747808776*^9}],
4680
4681	Cell[BoxData[
4682	InterpretationBox[
4683	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
4684	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4685	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4686	SuperscriptBox["W", "\[Dagger]"]}],
4687	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Wbar],
4688	Editable->False]], "Print",
4689	CellChangeTimes->{
4690	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4691	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4692	3.581159747813299*^9}],
4693
4694	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
4695	CellChangeTimes->{
4696	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4697	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4698	3.58115974781769*^9}],
4699
4700	Cell[BoxData[
4701	RowBox[{
4702	RowBox[{"\[ImaginaryI]", " ",
4703	SuperscriptBox["e", "2"], " ",
4704	SubscriptBox["\[Eta]",
4705	RowBox[{
4706	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4707	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
4708	SubscriptBox["\[Eta]",
4709	RowBox[{
4710	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
4711	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
4712	RowBox[{"\[ImaginaryI]", " ",
4713	SuperscriptBox["e", "2"], " ",
4714	SubscriptBox["\[Eta]",
4715	RowBox[{
4716	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4717	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
4718	SubscriptBox["\[Eta]",
4719	RowBox[{
4720	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
4721	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
4722	RowBox[{"2", " ", "\[ImaginaryI]", " ",
4723	SuperscriptBox["e", "2"], " ",
4724	SubscriptBox["\[Eta]",
4725	RowBox[{
4726	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4727	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
4728	SubscriptBox["\[Eta]",
4729	RowBox[{
4730	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
4731	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}]}]], "Print",
4732	CellChangeTimes->{
4733	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4734	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4735	3.5811597478222713`*^9}],
4736
4737	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4738	* * * * * *)\"\>"], "Print",
4739	CellChangeTimes->{
4740	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4741	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4742	3.581159747827116*^9}],
4743
4744	Cell[BoxData[
4745	InterpretationBox[
4746	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "23"}],
4747	SequenceForm["Vertex ", 23],
4748	Editable->False]], "Print",
4749	CellChangeTimes->{
4750	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4751	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4752	3.581159747831627*^9}],
4753
4754	Cell[BoxData[
4755	InterpretationBox[
4756	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4757	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4758	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
4759	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
4760	Editable->False]], "Print",
4761	CellChangeTimes->{
4762	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4763	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4764	3.581159747835994*^9}],
4765
4766	Cell[BoxData[
4767	InterpretationBox[
4768	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4769	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4770	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4771	SuperscriptBox["W", "\[Dagger]"]}],
4772	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
4773	Editable->False]], "Print",
4774	CellChangeTimes->{
4775	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4776	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4777	3.581159747840494*^9}],
4778
4779	Cell[BoxData[
4780	InterpretationBox[
4781	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4782	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4783	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
4784	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
4785	Editable->False]], "Print",
4786	CellChangeTimes->{
4787	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4788	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4789	3.5811597478449697`*^9}],
4790
4791	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
4792	CellChangeTimes->{
4793	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4794	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4795	3.5811597478492737`*^9}],
4796
4797	Cell[BoxData[
4798	RowBox[{
4799	RowBox[{
4800	RowBox[{"-",
4801	SubscriptBox["\[Kappa]", "w5"]}], " ",
4802	SubscriptBox["\[Epsilon]",
4803	RowBox[{
4804	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
4805	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4806	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11"}]], " ",
4807	SubsuperscriptBox["\<\"p\"\>", "1", "mu$11"]}], "+",
4808	RowBox[{
4809	SubscriptBox["\[Kappa]", "w5"], " ",
4810	SubscriptBox["\[Epsilon]",
4811	RowBox[{
4812	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
4813	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4814	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11"}]], " ",
4815	SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "+",
4816	RowBox[{"\[ImaginaryI]", " ",
4817	SubscriptBox["\[Kappa]", "w4"], " ",
4818	SubscriptBox["\[Epsilon]",
4819	RowBox[{
4820	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
4821	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4822	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11"}]], " ",
4823	SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}], "+",
4824	RowBox[{"\[ImaginaryI]", " ",
4825	SubscriptBox["g", "wwz"], " ",
4826	SubscriptBox["\[Kappa]", "w1"], " ",
4827	SubsuperscriptBox["\<\"p\"\>", "1",
4828	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
4829	SubscriptBox["\[Eta]",
4830	RowBox[{
4831	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4832	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
4833	RowBox[{"\[ImaginaryI]", " ",
4834	SubscriptBox["g", "wwz"], " ",
4835	SubscriptBox["\[Kappa]", "w1"], " ",
4836	SubsuperscriptBox["\<\"p\"\>", "2",
4837	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
4838	SubscriptBox["\[Eta]",
4839	RowBox[{
4840	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4841	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
4842	RowBox[{"\[ImaginaryI]", " ",
4843	SubscriptBox["g", "wwz"], " ",
4844	SubscriptBox["\[Kappa]", "w1"], " ",
4845	SubsuperscriptBox["\<\"p\"\>", "1",
4846	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
4847	SubscriptBox["\[Eta]",
4848	RowBox[{
4849	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4850	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
4851	RowBox[{"\[ImaginaryI]", " ",
4852	SubscriptBox["g", "wwz"], " ",
4853	SubscriptBox["\[Kappa]", "w2"], " ",
4854	SubsuperscriptBox["\<\"p\"\>", "3",
4855	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
4856	SubscriptBox["\[Eta]",
4857	RowBox[{
4858	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4859	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
4860	RowBox[{
4861	SubscriptBox["\[Kappa]", "w3"], " ",
4862	SubsuperscriptBox["\<\"p\"\>", "3",
4863	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
4864	SubscriptBox["\[Eta]",
4865	RowBox[{
4866	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4867	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
4868	RowBox[{"\[ImaginaryI]", " ",
4869	SubscriptBox["g", "wwz"], " ",
4870	SubscriptBox["\[Kappa]", "w1"], " ",
4871	SubsuperscriptBox["\<\"p\"\>", "2",
4872	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
4873	SubscriptBox["\[Eta]",
4874	RowBox[{
4875	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
4876	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
4877	RowBox[{"\[ImaginaryI]", " ",
4878	SubscriptBox["g", "wwz"], " ",
4879	SubscriptBox["\[Kappa]", "w2"], " ",
4880	SubsuperscriptBox["\<\"p\"\>", "3",
4881	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
4882	SubscriptBox["\[Eta]",
4883	RowBox[{
4884	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
4885	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
4886	RowBox[{
4887	SubscriptBox["\[Kappa]", "w3"], " ",
4888	SubsuperscriptBox["\<\"p\"\>", "3",
4889	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
4890	SubscriptBox["\[Eta]",
4891	RowBox[{
4892	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
4893	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
4894	CellChangeTimes->{
4895	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4896	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4897	3.581159747854433*^9}],
4898
4899	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4900	* * * * * *)\"\>"], "Print",
4901	CellChangeTimes->{
4902	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4903	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4904	3.581159747860819*^9}],
4905
4906	Cell[BoxData[
4907	InterpretationBox[
4908	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "24"}],
4909	SequenceForm["Vertex ", 24],
4910	Editable->False]], "Print",
4911	CellChangeTimes->{
4912	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4913	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4914	3.581159747865251*^9}],
4915
4916	Cell[BoxData[
4917	InterpretationBox[
4918	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4919	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4920	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
4921	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
4922	Editable->False]], "Print",
4923	CellChangeTimes->{
4924	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4925	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4926	3.581159747869482*^9}],
4927
4928	Cell[BoxData[
4929	InterpretationBox[
4930	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4931	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4932	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4933	SuperscriptBox["W", "\[Dagger]"]}],
4934	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
4935	Editable->False]], "Print",
4936	CellChangeTimes->{
4937	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4938	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4939	3.5811597478738337`*^9}],
4940
4941	Cell[BoxData[
4942	InterpretationBox[
4943	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4944	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4945	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
4946	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
4947	Editable->False]], "Print",
4948	CellChangeTimes->{
4949	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4950	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4951	3.58115974787816*^9}],
4952
4953	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
4954	CellChangeTimes->{
4955	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
4956	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
4957	3.581159747882481*^9}],
4958
4959	Cell[BoxData[
4960	RowBox[{
4961	RowBox[{"-",
4962	FractionBox[
4963	RowBox[{"\[ImaginaryI]", " ",
4964	SubscriptBox["c", "w"], " ", "e", " ",
4965	SubsuperscriptBox["\<\"p\"\>", "1",
4966	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
4967	SubscriptBox["\[Eta]",
4968	RowBox[{
4969	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4970	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}],
4971	SubscriptBox["s", "w"]]}], "+",
4972	FractionBox[
4973	RowBox[{"\[ImaginaryI]", " ",
4974	SubscriptBox["c", "w"], " ", "e", " ",
4975	SubsuperscriptBox["\<\"p\"\>", "2",
4976	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
4977	SubscriptBox["\[Eta]",
4978	RowBox[{
4979	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4980	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}],
4981	SubscriptBox["s", "w"]], "+",
4982	FractionBox[
4983	RowBox[{"\[ImaginaryI]", " ",
4984	SubscriptBox["c", "w"], " ", "e", " ",
4985	SubsuperscriptBox["\<\"p\"\>", "1",
4986	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
4987	SubscriptBox["\[Eta]",
4988	RowBox[{
4989	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
4990	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
4991	SubscriptBox["s", "w"]], "-",
4992	FractionBox[
4993	RowBox[{"\[ImaginaryI]", " ",
4994	SubscriptBox["c", "w"], " ", "e", " ",
4995	SubsuperscriptBox["\<\"p\"\>", "3",
4996	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
4997	SubscriptBox["\[Eta]",
4998	RowBox[{
4999	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
5000	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
5001	SubscriptBox["s", "w"]], "-",
5002	FractionBox[
5003	RowBox[{"\[ImaginaryI]", " ",
5004	SubscriptBox["c", "w"], " ", "e", " ",
5005	SubsuperscriptBox["\<\"p\"\>", "2",
5006	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
5007	SubscriptBox["\[Eta]",
5008	RowBox[{
5009	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
5010	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
5011	SubscriptBox["s", "w"]], "+",
5012	FractionBox[
5013	RowBox[{"\[ImaginaryI]", " ",
5014	SubscriptBox["c", "w"], " ", "e", " ",
5015	SubsuperscriptBox["\<\"p\"\>", "3",
5016	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
5017	SubscriptBox["\[Eta]",
5018	RowBox[{
5019	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
5020	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
5021	SubscriptBox["s", "w"]]}]], "Print",
5022	CellChangeTimes->{
5023	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5024	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5025	3.5811597478872747`*^9}],
5026
5027	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5028	* * * * * *)\"\>"], "Print",
5029	CellChangeTimes->{
5030	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5031	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5032	3.581159747893166*^9}],
5033
5034	Cell[BoxData[
5035	InterpretationBox[
5036	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "25"}],
5037	SequenceForm["Vertex ", 25],
5038	Editable->False]], "Print",
5039	CellChangeTimes->{
5040	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5041	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5042	3.581159747901907*^9}],
5043
5044	Cell[BoxData[
5045	InterpretationBox[
5046	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5047	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5048	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
5049	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
5050	Editable->False]], "Print",
5051	CellChangeTimes->{
5052	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5053	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5054	3.5811597479064713`*^9}],
5055
5056	Cell[BoxData[
5057	InterpretationBox[
5058	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5059	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5060	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
5061	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
5062	Editable->False]], "Print",
5063	CellChangeTimes->{
5064	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5065	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5066	3.581159747910695*^9}],
5067
5068	Cell[BoxData[
5069	InterpretationBox[
5070	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5071	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5072	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5073	SuperscriptBox["W", "\[Dagger]"]}],
5074	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
5075	Editable->False]], "Print",
5076	CellChangeTimes->{
5077	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5078	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5079	3.5811597479150343`*^9}],
5080
5081	Cell[BoxData[
5082	InterpretationBox[
5083	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
5084	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5085	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5086	SuperscriptBox["W", "\[Dagger]"]}],
5087	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Wbar],
5088	Editable->False]], "Print",
5089	CellChangeTimes->{
5090	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5091	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5092	3.581159747920347*^9}],
5093
5094	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
5095	CellChangeTimes->{
5096	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5097	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5098	3.58115974792479*^9}],
5099
5100	Cell[BoxData[
5101	RowBox[{
5102	RowBox[{"-",
5103	FractionBox[
5104	RowBox[{"\[ImaginaryI]", " ",
5105	SuperscriptBox["e", "2"], " ",
5106	SubscriptBox["\[Eta]",
5107	RowBox[{
5108	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
5109	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
5110	SubscriptBox["\[Eta]",
5111	RowBox[{
5112	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
5113	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
5114	SubsuperscriptBox["s", "w", "2"]]}], "-",
5115	FractionBox[
5116	RowBox[{"\[ImaginaryI]", " ",
5117	SuperscriptBox["e", "2"], " ",
5118	SubscriptBox["\[Eta]",
5119	RowBox[{
5120	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
5121	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
5122	SubscriptBox["\[Eta]",
5123	RowBox[{
5124	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
5125	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
5126	SubsuperscriptBox["s", "w", "2"]], "+",
5127	FractionBox[
5128	RowBox[{"2", " ", "\[ImaginaryI]", " ",
5129	SuperscriptBox["e", "2"], " ",
5130	SubscriptBox["\[Eta]",
5131	RowBox[{
5132	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
5133	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
5134	SubscriptBox["\[Eta]",
5135	RowBox[{
5136	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
5137	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
5138	SubsuperscriptBox["s", "w", "2"]]}]], "Print",
5139	CellChangeTimes->{
5140	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5141	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5142	3.581159747930333*^9}],
5143
5144	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5145	* * * * * *)\"\>"], "Print",
5146	CellChangeTimes->{
5147	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5148	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5149	3.581159747935541*^9}],
5150
5151	Cell[BoxData[
5152	InterpretationBox[
5153	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "26"}],
5154	SequenceForm["Vertex ", 26],
5155	Editable->False]], "Print",
5156	CellChangeTimes->{
5157	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5158	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5159	3.581159747940323*^9}],
5160
5161	Cell[BoxData[
5162	InterpretationBox[
5163	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5164	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5165	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
5166	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
5167	Editable->False]], "Print",
5168	CellChangeTimes->{
5169	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5170	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5171	3.581159747945126*^9}],
5172
5173	Cell[BoxData[
5174	InterpretationBox[
5175	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5176	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5177	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5178	OverscriptBox["b", "\<\"-\"\>"]}],
5179	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
5180	Editable->False]], "Print",
5181	CellChangeTimes->{
5182	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5183	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5184	3.5811597479503517`*^9}],
5185
5186	Cell[BoxData[
5187	InterpretationBox[
5188	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5189	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5190	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
5191	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
5192	Editable->False]], "Print",
5193	CellChangeTimes->{
5194	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5195	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5196	3.581159747954955*^9}],
5197
5198	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
5199	CellChangeTimes->{
5200	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5201	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5202	3.581159747959401*^9}],
5203
5204	Cell[BoxData[
5205	RowBox[{
5206	RowBox[{"\[ImaginaryI]", " ",
5207	SubscriptBox["a", "d"], " ",
5208	SubscriptBox["\[Kappa]", "ffa"], " ",
5209	SubsuperscriptBox["\[Gamma]",
5210	RowBox[{
5211	SubscriptBox["\<\"s\"\>", "2"], ",",
5212	SubscriptBox["\<\"s\"\>", "1"]}],
5213	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
5214	SubscriptBox["\[Delta]",
5215	RowBox[{
5216	SubscriptBox["\<\"m\"\>", "1"], ",",
5217	SubscriptBox["\<\"m\"\>", "2"]}]]}], "-",
5218	RowBox[{"\[ImaginaryI]", " ",
5219	SubscriptBox["b", "d"], " ",
5220	SubscriptBox["\[Kappa]", "ffb"], " ",
5221	SubscriptBox["\[Delta]",
5222	RowBox[{
5223	SubscriptBox["\<\"m\"\>", "1"], ",",
5224	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5225	SubscriptBox[
5226	RowBox[{
5227	SuperscriptBox["\[Gamma]",
5228	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
5229	SuperscriptBox["\[Gamma]", "5"]}],
5230	RowBox[{
5231	SubscriptBox["\<\"s\"\>", "2"], ",",
5232	SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
5233	CellChangeTimes->{
5234	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5235	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5236	3.5811597479637957`*^9}],
5237
5238	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5239	* * * * * *)\"\>"], "Print",
5240	CellChangeTimes->{
5241	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5242	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5243	3.5811597479683332`*^9}],
5244
5245	Cell[BoxData[
5246	InterpretationBox[
5247	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "27"}],
5248	SequenceForm["Vertex ", 27],
5249	Editable->False]], "Print",
5250	CellChangeTimes->{
5251	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5252	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5253	3.581159747972917*^9}],
5254
5255	Cell[BoxData[
5256	InterpretationBox[
5257	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5258	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5259	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
5260	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
5261	Editable->False]], "Print",
5262	CellChangeTimes->{
5263	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5264	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5265	3.5811597479774227`*^9}],
5266
5267	Cell[BoxData[
5268	InterpretationBox[
5269	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5270	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5271	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5272	OverscriptBox["c", "\<\"-\"\>"]}],
5273	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
5274	Editable->False]], "Print",
5275	CellChangeTimes->{
5276	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5277	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5278	3.5811597479821377`*^9}],
5279
5280	Cell[BoxData[
5281	InterpretationBox[
5282	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5283	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5284	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
5285	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
5286	Editable->False]], "Print",
5287	CellChangeTimes->{
5288	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5289	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5290	3.581159747986546*^9}],
5291
5292	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
5293	CellChangeTimes->{
5294	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5295	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5296	3.581159747990971*^9}],
5297
5298	Cell[BoxData[
5299	RowBox[{
5300	RowBox[{"\[ImaginaryI]", " ", "au", " ",
5301	SubscriptBox["\[Kappa]", "ffa"], " ",
5302	SubsuperscriptBox["\[Gamma]",
5303	RowBox[{
5304	SubscriptBox["\<\"s\"\>", "2"], ",",
5305	SubscriptBox["\<\"s\"\>", "1"]}],
5306	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
5307	SubscriptBox["\[Delta]",
5308	RowBox[{
5309	SubscriptBox["\<\"m\"\>", "1"], ",",
5310	SubscriptBox["\<\"m\"\>", "2"]}]]}], "-",
5311	RowBox[{"\[ImaginaryI]", " ",
5312	SubscriptBox["b", "u"], " ",
5313	SubscriptBox["\[Kappa]", "ffb"], " ",
5314	SubscriptBox["\[Delta]",
5315	RowBox[{
5316	SubscriptBox["\<\"m\"\>", "1"], ",",
5317	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5318	SubscriptBox[
5319	RowBox[{
5320	SuperscriptBox["\[Gamma]",
5321	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
5322	SuperscriptBox["\[Gamma]", "5"]}],
5323	RowBox[{
5324	SubscriptBox["\<\"s\"\>", "2"], ",",
5325	SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
5326	CellChangeTimes->{
5327	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5328	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5329	3.5811597479955063`*^9}],
5330
5331	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5332	* * * * * *)\"\>"], "Print",
5333	CellChangeTimes->{
5334	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5335	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5336	3.581159748000359*^9}],
5337
5338	Cell[BoxData[
5339	InterpretationBox[
5340	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "28"}],
5341	SequenceForm["Vertex ", 28],
5342	Editable->False]], "Print",
5343	CellChangeTimes->{
5344	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5345	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5346	3.581159748005156*^9}],
5347
5348	Cell[BoxData[
5349	InterpretationBox[
5350	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5351	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5352	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
5353	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
5354	Editable->False]], "Print",
5355	CellChangeTimes->{
5356	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5357	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5358	3.581159748009522*^9}],
5359
5360	Cell[BoxData[
5361	InterpretationBox[
5362	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5363	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5364	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5365	OverscriptBox["d", "\<\"-\"\>"]}],
5366	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
5367	Editable->False]], "Print",
5368	CellChangeTimes->{
5369	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5370	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5371	3.5811597480139847`*^9}],
5372
5373	Cell[BoxData[
5374	InterpretationBox[
5375	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5376	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5377	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
5378	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
5379	Editable->False]], "Print",
5380	CellChangeTimes->{
5381	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5382	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5383	3.5811597480185633`*^9}],
5384
5385	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
5386	CellChangeTimes->{
5387	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5388	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5389	3.581159748023027*^9}],
5390
5391	Cell[BoxData[
5392	RowBox[{
5393	RowBox[{"\[ImaginaryI]", " ",
5394	SubscriptBox["a", "d"], " ",
5395	SubscriptBox["\[Kappa]", "ffa"], " ",
5396	SubsuperscriptBox["\[Gamma]",
5397	RowBox[{
5398	SubscriptBox["\<\"s\"\>", "2"], ",",
5399	SubscriptBox["\<\"s\"\>", "1"]}],
5400	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
5401	SubscriptBox["\[Delta]",
5402	RowBox[{
5403	SubscriptBox["\<\"m\"\>", "1"], ",",
5404	SubscriptBox["\<\"m\"\>", "2"]}]]}], "-",
5405	RowBox[{"\[ImaginaryI]", " ",
5406	SubscriptBox["b", "d"], " ",
5407	SubscriptBox["\[Kappa]", "ffb"], " ",
5408	SubscriptBox["\[Delta]",
5409	RowBox[{
5410	SubscriptBox["\<\"m\"\>", "1"], ",",
5411	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5412	SubscriptBox[
5413	RowBox[{
5414	SuperscriptBox["\[Gamma]",
5415	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
5416	SuperscriptBox["\[Gamma]", "5"]}],
5417	RowBox[{
5418	SubscriptBox["\<\"s\"\>", "2"], ",",
5419	SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
5420	CellChangeTimes->{
5421	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5422	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5423	3.581159748028042*^9}],
5424
5425	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5426	* * * * * *)\"\>"], "Print",
5427	CellChangeTimes->{
5428	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5429	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5430	3.5811597480327797`*^9}],
5431
5432	Cell[BoxData[
5433	InterpretationBox[
5434	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "29"}],
5435	SequenceForm["Vertex ", 29],
5436	Editable->False]], "Print",
5437	CellChangeTimes->{
5438	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5439	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5440	3.581159748037952*^9}],
5441
5442	Cell[BoxData[
5443	InterpretationBox[
5444	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5445	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5446	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
5447	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
5448	Editable->False]], "Print",
5449	CellChangeTimes->{
5450	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5451	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5452	3.581159748042192*^9}],
5453
5454	Cell[BoxData[
5455	InterpretationBox[
5456	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5457	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5458	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5459	OverscriptBox["e", "\<\"-\"\>"]}],
5460	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ebar],
5461	Editable->False]], "Print",
5462	CellChangeTimes->{
5463	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5464	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5465	3.581159748047283*^9}],
5466
5467	Cell[BoxData[
5468	InterpretationBox[
5469	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5470	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5471	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
5472	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
5473	Editable->False]], "Print",
5474	CellChangeTimes->{
5475	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5476	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5477	3.581159748051461*^9}],
5478
5479	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
5480	CellChangeTimes->{
5481	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5482	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5483	3.581159748055236*^9}],
5484
5485	Cell[BoxData[
5486	RowBox[{
5487	RowBox[{"\[ImaginaryI]", " ",
5488	SubscriptBox["a", "l"], " ",
5489	SubscriptBox["\[Kappa]", "ffa"], " ",
5490	SubsuperscriptBox["\[Gamma]",
5491	RowBox[{
5492	SubscriptBox["\<\"s\"\>", "2"], ",",
5493	SubscriptBox["\<\"s\"\>", "1"]}],
5494	SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-",
5495	RowBox[{"\[ImaginaryI]", " ",
5496	SubscriptBox["b", "l"], " ",
5497	SubscriptBox["\[Kappa]", "ffb"], " ",
5498	SubscriptBox[
5499	RowBox[{
5500	SuperscriptBox["\[Gamma]",
5501	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
5502	SuperscriptBox["\[Gamma]", "5"]}],
5503	RowBox[{
5504	SubscriptBox["\<\"s\"\>", "2"], ",",
5505	SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
5506	CellChangeTimes->{
5507	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5508	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5509	3.5811597480599537`*^9}],
5510
5511	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5512	* * * * * *)\"\>"], "Print",
5513	CellChangeTimes->{
5514	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5515	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5516	3.581159748064395*^9}],
5517
5518	Cell[BoxData[
5519	InterpretationBox[
5520	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "30"}],
5521	SequenceForm["Vertex ", 30],
5522	Editable->False]], "Print",
5523	CellChangeTimes->{
5524	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5525	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5526	3.5811597480908957`*^9}],
5527
5528	Cell[BoxData[
5529	InterpretationBox[
5530	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5531	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5532	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
5533	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
5534	Editable->False]], "Print",
5535	CellChangeTimes->{
5536	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5537	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5538	3.5811597480950336`*^9}],
5539
5540	Cell[BoxData[
5541	InterpretationBox[
5542	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5543	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5544	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5545	OverscriptBox["mu", "\<\"-\"\>"]}],
5546	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`mubar],
5547	Editable->False]], "Print",
5548	CellChangeTimes->{
5549	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5550	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5551	3.5811597480993958`*^9}],
5552
5553	Cell[BoxData[
5554	InterpretationBox[
5555	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5556	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5557	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
5558	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
5559	Editable->False]], "Print",
5560	CellChangeTimes->{
5561	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5562	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5563	3.581159748103437*^9}],
5564
5565	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
5566	CellChangeTimes->{
5567	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5568	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5569	3.5811597481074057`*^9}],
5570
5571	Cell[BoxData[
5572	RowBox[{
5573	RowBox[{"\[ImaginaryI]", " ",
5574	SubscriptBox["a", "l"], " ",
5575	SubscriptBox["\[Kappa]", "ffa"], " ",
5576	SubsuperscriptBox["\[Gamma]",
5577	RowBox[{
5578	SubscriptBox["\<\"s\"\>", "2"], ",",
5579	SubscriptBox["\<\"s\"\>", "1"]}],
5580	SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-",
5581	RowBox[{"\[ImaginaryI]", " ",
5582	SubscriptBox["b", "l"], " ",
5583	SubscriptBox["\[Kappa]", "ffb"], " ",
5584	SubscriptBox[
5585	RowBox[{
5586	SuperscriptBox["\[Gamma]",
5587	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
5588	SuperscriptBox["\[Gamma]", "5"]}],
5589	RowBox[{
5590	SubscriptBox["\<\"s\"\>", "2"], ",",
5591	SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
5592	CellChangeTimes->{
5593	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5594	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5595	3.5811597481113787`*^9}],
5596
5597	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5598	* * * * * *)\"\>"], "Print",
5599	CellChangeTimes->{
5600	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5601	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5602	3.5811597481156473`*^9}],
5603
5604	Cell[BoxData[
5605	InterpretationBox[
5606	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "31"}],
5607	SequenceForm["Vertex ", 31],
5608	Editable->False]], "Print",
5609	CellChangeTimes->{
5610	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5611	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5612	3.581159748119677*^9}],
5613
5614	Cell[BoxData[
5615	InterpretationBox[
5616	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5617	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5618	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
5619	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
5620	Editable->False]], "Print",
5621	CellChangeTimes->{
5622	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5623	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5624	3.5811597481239*^9}],
5625
5626	Cell[BoxData[
5627	InterpretationBox[
5628	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5629	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5630	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5631	OverscriptBox["s", "\<\"-\"\>"]}],
5632	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
5633	Editable->False]], "Print",
5634	CellChangeTimes->{
5635	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5636	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5637	3.581159748127965*^9}],
5638
5639	Cell[BoxData[
5640	InterpretationBox[
5641	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5642	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5643	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
5644	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
5645	Editable->False]], "Print",
5646	CellChangeTimes->{
5647	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5648	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5649	3.581159748131868*^9}],
5650
5651	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
5652	CellChangeTimes->{
5653	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5654	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5655	3.5811597481362753`*^9}],
5656
5657	Cell[BoxData[
5658	RowBox[{
5659	RowBox[{"\[ImaginaryI]", " ",
5660	SubscriptBox["a", "d"], " ",
5661	SubscriptBox["\[Kappa]", "ffa"], " ",
5662	SubsuperscriptBox["\[Gamma]",
5663	RowBox[{
5664	SubscriptBox["\<\"s\"\>", "2"], ",",
5665	SubscriptBox["\<\"s\"\>", "1"]}],
5666	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
5667	SubscriptBox["\[Delta]",
5668	RowBox[{
5669	SubscriptBox["\<\"m\"\>", "1"], ",",
5670	SubscriptBox["\<\"m\"\>", "2"]}]]}], "-",
5671	RowBox[{"\[ImaginaryI]", " ",
5672	SubscriptBox["b", "d"], " ",
5673	SubscriptBox["\[Kappa]", "ffb"], " ",
5674	SubscriptBox["\[Delta]",
5675	RowBox[{
5676	SubscriptBox["\<\"m\"\>", "1"], ",",
5677	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5678	SubscriptBox[
5679	RowBox[{
5680	SuperscriptBox["\[Gamma]",
5681	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
5682	SuperscriptBox["\[Gamma]", "5"]}],
5683	RowBox[{
5684	SubscriptBox["\<\"s\"\>", "2"], ",",
5685	SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
5686	CellChangeTimes->{
5687	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5688	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5689	3.5811597481409483`*^9}],
5690
5691	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5692	* * * * * *)\"\>"], "Print",
5693	CellChangeTimes->{
5694	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5695	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5696	3.581159748145834*^9}],
5697
5698	Cell[BoxData[
5699	InterpretationBox[
5700	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "32"}],
5701	SequenceForm["Vertex ", 32],
5702	Editable->False]], "Print",
5703	CellChangeTimes->{
5704	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5705	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5706	3.581159748150467*^9}],
5707
5708	Cell[BoxData[
5709	InterpretationBox[
5710	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5711	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5712	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
5713	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
5714	Editable->False]], "Print",
5715	CellChangeTimes->{
5716	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5717	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5718	3.58115974815481*^9}],
5719
5720	Cell[BoxData[
5721	InterpretationBox[
5722	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5723	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5724	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5725	OverscriptBox["ta", "\<\"-\"\>"]}],
5726	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
5727	Editable->False]], "Print",
5728	CellChangeTimes->{
5729	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5730	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5731	3.581159748159151*^9}],
5732
5733	Cell[BoxData[
5734	InterpretationBox[
5735	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5736	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5737	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
5738	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
5739	Editable->False]], "Print",
5740	CellChangeTimes->{
5741	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5742	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5743	3.5811597481632137`*^9}],
5744
5745	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
5746	CellChangeTimes->{
5747	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5748	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5749	3.581159748167383*^9}],
5750
5751	Cell[BoxData[
5752	RowBox[{
5753	RowBox[{"\[ImaginaryI]", " ",
5754	SubscriptBox["a", "l"], " ",
5755	SubscriptBox["\[Kappa]", "ffa"], " ",
5756	SubsuperscriptBox["\[Gamma]",
5757	RowBox[{
5758	SubscriptBox["\<\"s\"\>", "2"], ",",
5759	SubscriptBox["\<\"s\"\>", "1"]}],
5760	SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-",
5761	RowBox[{"\[ImaginaryI]", " ",
5762	SubscriptBox["b", "l"], " ",
5763	SubscriptBox["\[Kappa]", "ffb"], " ",
5764	SubscriptBox[
5765	RowBox[{
5766	SuperscriptBox["\[Gamma]",
5767	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
5768	SuperscriptBox["\[Gamma]", "5"]}],
5769	RowBox[{
5770	SubscriptBox["\<\"s\"\>", "2"], ",",
5771	SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
5772	CellChangeTimes->{
5773	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5774	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5775	3.581159748171596*^9}],
5776
5777	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5778	* * * * * *)\"\>"], "Print",
5779	CellChangeTimes->{
5780	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5781	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5782	3.5811597481767483`*^9}],
5783
5784	Cell[BoxData[
5785	InterpretationBox[
5786	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "33"}],
5787	SequenceForm["Vertex ", 33],
5788	Editable->False]], "Print",
5789	CellChangeTimes->{
5790	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5791	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5792	3.581159748181238*^9}],
5793
5794	Cell[BoxData[
5795	InterpretationBox[
5796	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5797	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5798	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
5799	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
5800	Editable->False]], "Print",
5801	CellChangeTimes->{
5802	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5803	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5804	3.581159748185467*^9}],
5805
5806	Cell[BoxData[
5807	InterpretationBox[
5808	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5809	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5810	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5811	OverscriptBox["t", "\<\"-\"\>"]}],
5812	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
5813	Editable->False]], "Print",
5814	CellChangeTimes->{
5815	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5816	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5817	3.581159748190037*^9}],
5818
5819	Cell[BoxData[
5820	InterpretationBox[
5821	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5822	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5823	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
5824	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
5825	Editable->False]], "Print",
5826	CellChangeTimes->{
5827	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5828	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5829	3.5811597481941853`*^9}],
5830
5831	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
5832	CellChangeTimes->{
5833	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5834	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5835	3.5811597481982927`*^9}],
5836
5837	Cell[BoxData[
5838	RowBox[{
5839	RowBox[{"\[ImaginaryI]", " ", "au", " ",
5840	SubscriptBox["\[Kappa]", "ffa"], " ",
5841	SubsuperscriptBox["\[Gamma]",
5842	RowBox[{
5843	SubscriptBox["\<\"s\"\>", "2"], ",",
5844	SubscriptBox["\<\"s\"\>", "1"]}],
5845	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
5846	SubscriptBox["\[Delta]",
5847	RowBox[{
5848	SubscriptBox["\<\"m\"\>", "1"], ",",
5849	SubscriptBox["\<\"m\"\>", "2"]}]]}], "-",
5850	RowBox[{"\[ImaginaryI]", " ",
5851	SubscriptBox["b", "u"], " ",
5852	SubscriptBox["\[Kappa]", "ffb"], " ",
5853	SubscriptBox["\[Delta]",
5854	RowBox[{
5855	SubscriptBox["\<\"m\"\>", "1"], ",",
5856	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5857	SubscriptBox[
5858	RowBox[{
5859	SuperscriptBox["\[Gamma]",
5860	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
5861	SuperscriptBox["\[Gamma]", "5"]}],
5862	RowBox[{
5863	SubscriptBox["\<\"s\"\>", "2"], ",",
5864	SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
5865	CellChangeTimes->{
5866	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5867	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5868	3.5811597482029963`*^9}],
5869
5870	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5871	* * * * * *)\"\>"], "Print",
5872	CellChangeTimes->{
5873	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5874	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5875	3.581159748207613*^9}],
5876
5877	Cell[BoxData[
5878	InterpretationBox[
5879	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "34"}],
5880	SequenceForm["Vertex ", 34],
5881	Editable->False]], "Print",
5882	CellChangeTimes->{
5883	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5884	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5885	3.581159748211823*^9}],
5886
5887	Cell[BoxData[
5888	InterpretationBox[
5889	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5890	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5891	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
5892	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
5893	Editable->False]], "Print",
5894	CellChangeTimes->{
5895	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5896	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5897	3.581159748216073*^9}],
5898
5899	Cell[BoxData[
5900	InterpretationBox[
5901	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5902	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5903	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5904	OverscriptBox["u", "\<\"-\"\>"]}],
5905	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
5906	Editable->False]], "Print",
5907	CellChangeTimes->{
5908	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5909	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5910	3.5811597482206373`*^9}],
5911
5912	Cell[BoxData[
5913	InterpretationBox[
5914	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5915	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5916	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
5917	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
5918	Editable->False]], "Print",
5919	CellChangeTimes->{
5920	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5921	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5922	3.581159748225881*^9}],
5923
5924	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
5925	CellChangeTimes->{
5926	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5927	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5928	3.581159748231205*^9}],
5929
5930	Cell[BoxData[
5931	RowBox[{
5932	RowBox[{"\[ImaginaryI]", " ", "au", " ",
5933	SubscriptBox["\[Kappa]", "ffa"], " ",
5934	SubsuperscriptBox["\[Gamma]",
5935	RowBox[{
5936	SubscriptBox["\<\"s\"\>", "2"], ",",
5937	SubscriptBox["\<\"s\"\>", "1"]}],
5938	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
5939	SubscriptBox["\[Delta]",
5940	RowBox[{
5941	SubscriptBox["\<\"m\"\>", "1"], ",",
5942	SubscriptBox["\<\"m\"\>", "2"]}]]}], "-",
5943	RowBox[{"\[ImaginaryI]", " ",
5944	SubscriptBox["b", "u"], " ",
5945	SubscriptBox["\[Kappa]", "ffb"], " ",
5946	SubscriptBox["\[Delta]",
5947	RowBox[{
5948	SubscriptBox["\<\"m\"\>", "1"], ",",
5949	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5950	SubscriptBox[
5951	RowBox[{
5952	SuperscriptBox["\[Gamma]",
5953	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
5954	SuperscriptBox["\[Gamma]", "5"]}],
5955	RowBox[{
5956	SubscriptBox["\<\"s\"\>", "2"], ",",
5957	SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
5958	CellChangeTimes->{
5959	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5960	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5961	3.5811597482361517`*^9}],
5962
5963	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5964	* * * * * *)\"\>"], "Print",
5965	CellChangeTimes->{
5966	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5967	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5968	3.581159748241089*^9}],
5969
5970	Cell[BoxData[
5971	InterpretationBox[
5972	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "35"}],
5973	SequenceForm["Vertex ", 35],
5974	Editable->False]], "Print",
5975	CellChangeTimes->{
5976	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5977	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5978	3.5811597482455673`*^9}],
5979
5980	Cell[BoxData[
5981	InterpretationBox[
5982	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5983	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5984	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
5985	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ve],
5986	Editable->False]], "Print",
5987	CellChangeTimes->{
5988	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
5989	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
5990	3.581159748249617*^9}],
5991
5992	Cell[BoxData[
5993	InterpretationBox[
5994	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5995	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5996	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5997	OverscriptBox["ve", "\<\"-\"\>"]}],
5998	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
5999	Editable->False]], "Print",
6000	CellChangeTimes->{
6001	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6002	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6003	3.581159748254404*^9}],
6004
6005	Cell[BoxData[
6006	InterpretationBox[
6007	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
6008	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6009	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
6010	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
6011	Editable->False]], "Print",
6012	CellChangeTimes->{
6013	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6014	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6015	3.581159748259688*^9}],
6016
6017	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
6018	CellChangeTimes->{
6019	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6020	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6021	3.581159748264234*^9}],
6022
6023	Cell[BoxData[
6024	RowBox[{
6025	RowBox[{"\[ImaginaryI]", " ", "an", " ",
6026	SubscriptBox["\[Kappa]", "ffa"], " ",
6027	SubsuperscriptBox["\[Gamma]",
6028	RowBox[{
6029	SubscriptBox["\<\"s\"\>", "2"], ",",
6030	SubscriptBox["\<\"s\"\>", "1"]}],
6031	SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-",
6032	RowBox[{"\[ImaginaryI]", " ",
6033	SubscriptBox["b", "n"], " ",
6034	SubscriptBox["\[Kappa]", "ffb"], " ",
6035	SubscriptBox[
6036	RowBox[{
6037	SuperscriptBox["\[Gamma]",
6038	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
6039	SuperscriptBox["\[Gamma]", "5"]}],
6040	RowBox[{
6041	SubscriptBox["\<\"s\"\>", "2"], ",",
6042	SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
6043	CellChangeTimes->{
6044	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6045	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6046	3.5811597482691593`*^9}],
6047
6048	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
6049	* * * * * *)\"\>"], "Print",
6050	CellChangeTimes->{
6051	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6052	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6053	3.581159748274413*^9}],
6054
6055	Cell[BoxData[
6056	InterpretationBox[
6057	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "36"}],
6058	SequenceForm["Vertex ", 36],
6059	Editable->False]], "Print",
6060	CellChangeTimes->{
6061	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6062	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6063	3.581159748279188*^9}],
6064
6065	Cell[BoxData[
6066	InterpretationBox[
6067	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
6068	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6069	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
6070	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vm],
6071	Editable->False]], "Print",
6072	CellChangeTimes->{
6073	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6074	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6075	3.581159748284444*^9}],
6076
6077	Cell[BoxData[
6078	InterpretationBox[
6079	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
6080	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6081	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
6082	OverscriptBox["vm", "\<\"-\"\>"]}],
6083	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
6084	Editable->False]], "Print",
6085	CellChangeTimes->{
6086	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6087	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6088	3.5811597482894087`*^9}],
6089
6090	Cell[BoxData[
6091	InterpretationBox[
6092	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
6093	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6094	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
6095	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
6096	Editable->False]], "Print",
6097	CellChangeTimes->{
6098	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6099	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6100	3.581159748294428*^9}],
6101
6102	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
6103	CellChangeTimes->{
6104	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6105	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6106	3.581159748299429*^9}],
6107
6108	Cell[BoxData[
6109	RowBox[{
6110	RowBox[{"\[ImaginaryI]", " ", "an", " ",
6111	SubscriptBox["\[Kappa]", "ffa"], " ",
6112	SubsuperscriptBox["\[Gamma]",
6113	RowBox[{
6114	SubscriptBox["\<\"s\"\>", "2"], ",",
6115	SubscriptBox["\<\"s\"\>", "1"]}],
6116	SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-",
6117	RowBox[{"\[ImaginaryI]", " ",
6118	SubscriptBox["b", "n"], " ",
6119	SubscriptBox["\[Kappa]", "ffb"], " ",
6120	SubscriptBox[
6121	RowBox[{
6122	SuperscriptBox["\[Gamma]",
6123	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
6124	SuperscriptBox["\[Gamma]", "5"]}],
6125	RowBox[{
6126	SubscriptBox["\<\"s\"\>", "2"], ",",
6127	SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
6128	CellChangeTimes->{
6129	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6130	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6131	3.581159748304678*^9}],
6132
6133	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
6134	* * * * * *)\"\>"], "Print",
6135	CellChangeTimes->{
6136	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6137	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6138	3.581159748311204*^9}],
6139
6140	Cell[BoxData[
6141	InterpretationBox[
6142	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "37"}],
6143	SequenceForm["Vertex ", 37],
6144	Editable->False]], "Print",
6145	CellChangeTimes->{
6146	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6147	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6148	3.581159748317594*^9}],
6149
6150	Cell[BoxData[
6151	InterpretationBox[
6152	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
6153	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6154	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
6155	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vt],
6156	Editable->False]], "Print",
6157	CellChangeTimes->{
6158	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6159	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6160	3.581159748322857*^9}],
6161
6162	Cell[BoxData[
6163	InterpretationBox[
6164	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
6165	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6166	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
6167	OverscriptBox["vt", "\<\"-\"\>"]}],
6168	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
6169	Editable->False]], "Print",
6170	CellChangeTimes->{
6171	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6172	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6173	3.581159748328124*^9}],
6174
6175	Cell[BoxData[
6176	InterpretationBox[
6177	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
6178	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6179	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
6180	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
6181	Editable->False]], "Print",
6182	CellChangeTimes->{
6183	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6184	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6185	3.581159748333761*^9}],
6186
6187	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
6188	CellChangeTimes->{
6189	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6190	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6191	3.581159748339045*^9}],
6192
6193	Cell[BoxData[
6194	RowBox[{
6195	RowBox[{"\[ImaginaryI]", " ", "an", " ",
6196	SubscriptBox["\[Kappa]", "ffa"], " ",
6197	SubsuperscriptBox["\[Gamma]",
6198	RowBox[{
6199	SubscriptBox["\<\"s\"\>", "2"], ",",
6200	SubscriptBox["\<\"s\"\>", "1"]}],
6201	SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-",
6202	RowBox[{"\[ImaginaryI]", " ",
6203	SubscriptBox["b", "n"], " ",
6204	SubscriptBox["\[Kappa]", "ffb"], " ",
6205	SubscriptBox[
6206	RowBox[{
6207	SuperscriptBox["\[Gamma]",
6208	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
6209	SuperscriptBox["\[Gamma]", "5"]}],
6210	RowBox[{
6211	SubscriptBox["\<\"s\"\>", "2"], ",",
6212	SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
6213	CellChangeTimes->{
6214	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6215	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6216	3.581159748344936*^9}],
6217
6218	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
6219	* * * * * *)\"\>"], "Print",
6220	CellChangeTimes->{
6221	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6222	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6223	3.581159748350876*^9}],
6224
6225	Cell[BoxData[
6226	InterpretationBox[
6227	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "38"}],
6228	SequenceForm["Vertex ", 38],
6229	Editable->False]], "Print",
6230	CellChangeTimes->{
6231	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6232	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6233	3.581159748356264*^9}],
6234
6235	Cell[BoxData[
6236	InterpretationBox[
6237	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
6238	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6239	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
6240	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
6241	Editable->False]], "Print",
6242	CellChangeTimes->{
6243	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6244	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6245	3.581159748361575*^9}],
6246
6247	Cell[BoxData[
6248	InterpretationBox[
6249	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
6250	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6251	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
6252	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`A],
6253	Editable->False]], "Print",
6254	CellChangeTimes->{
6255	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6256	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6257	3.581159748367374*^9}],
6258
6259	Cell[BoxData[
6260	InterpretationBox[
6261	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
6262	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
6263	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
6264	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
6265	Editable->False]], "Print",
6266	CellChangeTimes->{
6267	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6268	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6269	3.5811597483724833`*^9}],
6270
6271	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
6272	CellChangeTimes->{
6273	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6274	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6275	3.581159748377913*^9}],
6276
6277	Cell[BoxData[
6278	RowBox[{
6279	RowBox[{"-",
6280	FractionBox[
6281	RowBox[{"\[ImaginaryI]", " ",
6282	SubscriptBox["\[Kappa]", "a"], " ",
6283	SubsuperscriptBox["\<\"p\"\>", "1",
6284	SubscriptBox["\<\"\[Mu]\"\>",
6285	RowBox[{"3", ",", "2"}]]], " ",
6286	SubsuperscriptBox["\<\"p\"\>", "2",
6287	SubscriptBox["\<\"\[Mu]\"\>",
6288	RowBox[{"3", ",", "1"}]]], " ",
6289	SubscriptBox["\[Eta]",
6290	RowBox[{
6291	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6292	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-",
6293	FractionBox[
6294	RowBox[{"\[ImaginaryI]", " ",
6295	SubscriptBox["\[Kappa]", "a"], " ",
6296	SubsuperscriptBox["\<\"p\"\>", "1",
6297	SubscriptBox["\<\"\[Mu]\"\>",
6298	RowBox[{"3", ",", "1"}]]], " ",
6299	SubsuperscriptBox["\<\"p\"\>", "2",
6300	SubscriptBox["\<\"\[Mu]\"\>",
6301	RowBox[{"3", ",", "2"}]]], " ",
6302	SubscriptBox["\[Eta]",
6303	RowBox[{
6304	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6305	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"], "+",
6306	FractionBox[
6307	RowBox[{"\[ImaginaryI]", " ",
6308	SubscriptBox["\[Kappa]", "a"], " ",
6309	SubsuperscriptBox["\<\"p\"\>", "1",
6310	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6311	SubsuperscriptBox["\<\"p\"\>", "2",
6312	SubscriptBox["\<\"\[Mu]\"\>",
6313	RowBox[{"3", ",", "2"}]]], " ",
6314	SubscriptBox["\[Eta]",
6315	RowBox[{
6316	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6317	SubscriptBox["\<\"\[Mu]\"\>",
6318	RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
6319	FractionBox[
6320	RowBox[{"\[ImaginaryI]", " ",
6321	SubscriptBox["\[Kappa]", "a"], " ",
6322	SubsuperscriptBox["\<\"p\"\>", "2",
6323	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6324	SubsuperscriptBox["\<\"p\"\>", "2",
6325	SubscriptBox["\<\"\[Mu]\"\>",
6326	RowBox[{"3", ",", "2"}]]], " ",
6327	SubscriptBox["\[Eta]",
6328	RowBox[{
6329	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6330	SubscriptBox["\<\"\[Mu]\"\>",
6331	RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
6332	FractionBox[
6333	RowBox[{"\[ImaginaryI]", " ",
6334	SubscriptBox["\[Kappa]", "a"], " ",
6335	SubsuperscriptBox["\<\"p\"\>", "1",
6336	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6337	SubsuperscriptBox["\<\"p\"\>", "2",
6338	SubscriptBox["\<\"\[Mu]\"\>",
6339	RowBox[{"3", ",", "1"}]]], " ",
6340	SubscriptBox["\[Eta]",
6341	RowBox[{
6342	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6343	SubscriptBox["\<\"\[Mu]\"\>",
6344	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
6345	FractionBox[
6346	RowBox[{"\[ImaginaryI]", " ",
6347	SubscriptBox["\[Kappa]", "a"], " ",
6348	SubsuperscriptBox["\<\"p\"\>", "2",
6349	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6350	SubsuperscriptBox["\<\"p\"\>", "2",
6351	SubscriptBox["\<\"\[Mu]\"\>",
6352	RowBox[{"3", ",", "1"}]]], " ",
6353	SubscriptBox["\[Eta]",
6354	RowBox[{
6355	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6356	SubscriptBox["\<\"\[Mu]\"\>",
6357	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
6358	FractionBox[
6359	RowBox[{"\[ImaginaryI]", " ",
6360	SubscriptBox["\[Kappa]", "a"], " ",
6361	SubsuperscriptBox["\<\"p\"\>", "1",
6362	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6363	SubsuperscriptBox["\<\"p\"\>", "1",
6364	SubscriptBox["\<\"\[Mu]\"\>",
6365	RowBox[{"3", ",", "2"}]]], " ",
6366	SubscriptBox["\[Eta]",
6367	RowBox[{
6368	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
6369	SubscriptBox["\<\"\[Mu]\"\>",
6370	RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
6371	FractionBox[
6372	RowBox[{"\[ImaginaryI]", " ",
6373	SubscriptBox["\[Kappa]", "a"], " ",
6374	SubsuperscriptBox["\<\"p\"\>", "1",
6375	SubscriptBox["\<\"\[Mu]\"\>",
6376	RowBox[{"3", ",", "2"}]]], " ",
6377	SubsuperscriptBox["\<\"p\"\>", "2",
6378	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6379	SubscriptBox["\[Eta]",
6380	RowBox[{
6381	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
6382	SubscriptBox["\<\"\[Mu]\"\>",
6383	RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
6384	FractionBox[
6385	RowBox[{"\[ImaginaryI]", " ",
6386	SubscriptBox["\[Kappa]", "a"], " ",
6387	SubsuperscriptBox["\<\"p\"\>", "1",
6388	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6389	SubsuperscriptBox["\<\"p\"\>", "1",
6390	SubscriptBox["\<\"\[Mu]\"\>",
6391	RowBox[{"3", ",", "1"}]]], " ",
6392	SubscriptBox["\[Eta]",
6393	RowBox[{
6394	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
6395	SubscriptBox["\<\"\[Mu]\"\>",
6396	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
6397	FractionBox[
6398	RowBox[{"\[ImaginaryI]", " ",
6399	SubscriptBox["\[Kappa]", "a"], " ",
6400	SubsuperscriptBox["\<\"p\"\>", "1",
6401	SubscriptBox["\<\"\[Mu]\"\>",
6402	RowBox[{"3", ",", "1"}]]], " ",
6403	SubsuperscriptBox["\<\"p\"\>", "2",
6404	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6405	SubscriptBox["\[Eta]",
6406	RowBox[{
6407	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
6408	SubscriptBox["\<\"\[Mu]\"\>",
6409	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
6410	FractionBox[
6411	RowBox[{"\[ImaginaryI]", " ",
6412	SubscriptBox["\[Kappa]", "a"], " ",
6413	SubsuperscriptBox["\<\"p\"\>", "1",
6414	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6415	SubsuperscriptBox["\<\"p\"\>", "1",
6416	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6417	SubscriptBox["\[Eta]",
6418	RowBox[{
6419	SubscriptBox["\<\"\[Mu]\"\>",
6420	RowBox[{"3", ",", "1"}]], ",",
6421	SubscriptBox["\<\"\[Mu]\"\>",
6422	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
6423	FractionBox[
6424	RowBox[{"\[ImaginaryI]", " ",
6425	SubscriptBox["\[Kappa]", "a"], " ",
6426	SubsuperscriptBox["\<\"p\"\>", "1",
6427	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6428	SubsuperscriptBox["\<\"p\"\>", "2",
6429	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6430	SubscriptBox["\[Eta]",
6431	RowBox[{
6432	SubscriptBox["\<\"\[Mu]\"\>",
6433	RowBox[{"3", ",", "1"}]], ",",
6434	SubscriptBox["\<\"\[Mu]\"\>",
6435	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
6436	FractionBox[
6437	RowBox[{"4", " ", "\[ImaginaryI]", " ",
6438	SubscriptBox["\[Kappa]", "a"], " ",
6439	SubsuperscriptBox["\<\"p\"\>", "1",
6440	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6441	SubsuperscriptBox["\<\"p\"\>", "2",
6442	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6443	SubscriptBox["\[Eta]",
6444	RowBox[{
6445	SubscriptBox["\<\"\[Mu]\"\>",
6446	RowBox[{"3", ",", "1"}]], ",",
6447	SubscriptBox["\<\"\[Mu]\"\>",
6448	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
6449	FractionBox[
6450	RowBox[{"\[ImaginaryI]", " ",
6451	SubscriptBox["\[Kappa]", "a"], " ",
6452	SubsuperscriptBox["\<\"p\"\>", "2",
6453	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6454	SubsuperscriptBox["\<\"p\"\>", "2",
6455	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6456	SubscriptBox["\[Eta]",
6457	RowBox[{
6458	SubscriptBox["\<\"\[Mu]\"\>",
6459	RowBox[{"3", ",", "1"}]], ",",
6460	SubscriptBox["\<\"\[Mu]\"\>",
6461	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
6462	FractionBox[
6463	RowBox[{"\[ImaginaryI]", " ",
6464	SubscriptBox["\[Kappa]", "a"], " ",
6465	SubscriptBox["\[Eta]",
6466	RowBox[{
6467	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6468	SubscriptBox["\<\"\[Mu]\"\>",
6469	RowBox[{"3", ",", "2"}]]}]], " ",
6470	SubscriptBox["\[Eta]",
6471	RowBox[{
6472	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
6473	SubscriptBox["\<\"\[Mu]\"\>",
6474	RowBox[{"3", ",", "1"}]]}]], " ",
6475	RowBox[{
6476	SubscriptBox["\<\"p\"\>", "1"], ".",
6477	SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "-",
6478	FractionBox[
6479	RowBox[{"\[ImaginaryI]", " ",
6480	SubscriptBox["\[Kappa]", "a"], " ",
6481	SubscriptBox["\[Eta]",
6482	RowBox[{
6483	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6484	SubscriptBox["\<\"\[Mu]\"\>",
6485	RowBox[{"3", ",", "1"}]]}]], " ",
6486	SubscriptBox["\[Eta]",
6487	RowBox[{
6488	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
6489	SubscriptBox["\<\"\[Mu]\"\>",
6490	RowBox[{"3", ",", "2"}]]}]], " ",
6491	RowBox[{
6492	SubscriptBox["\<\"p\"\>", "1"], ".",
6493	SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+",
6494	FractionBox[
6495	RowBox[{"\[ImaginaryI]", " ",
6496	SubscriptBox["\[Kappa]", "a"], " ",
6497	SubscriptBox["\[Eta]",
6498	RowBox[{
6499	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6500	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
6501	SubscriptBox["\[Eta]",
6502	RowBox[{
6503	SubscriptBox["\<\"\[Mu]\"\>",
6504	RowBox[{"3", ",", "1"}]], ",",
6505	SubscriptBox["\<\"\[Mu]\"\>",
6506	RowBox[{"3", ",", "2"}]]}]], " ",
6507	RowBox[{
6508	SubscriptBox["\<\"p\"\>", "1"], ".",
6509	SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"]}]], "Print",
6510	CellChangeTimes->{
6511	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6512	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6513	3.58115974838443*^9}],
6514
6515	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
6516	* * * * * *)\"\>"], "Print",
6517	CellChangeTimes->{
6518	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6519	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6520	3.581159748393256*^9}],
6521
6522	Cell[BoxData[
6523	InterpretationBox[
6524	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "39"}],
6525	SequenceForm["Vertex ", 39],
6526	Editable->False]], "Print",
6527	CellChangeTimes->{
6528	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6529	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6530	3.581159748397698*^9}],
6531
6532	Cell[BoxData[
6533	InterpretationBox[
6534	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
6535	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6536	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
6537	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
6538	Editable->False]], "Print",
6539	CellChangeTimes->{
6540	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6541	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6542	3.581159748402405*^9}],
6543
6544	Cell[BoxData[
6545	InterpretationBox[
6546	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
6547	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6548	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
6549	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
6550	Editable->False]], "Print",
6551	CellChangeTimes->{
6552	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6553	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6554	3.581159748407222*^9}],
6555
6556	Cell[BoxData[
6557	InterpretationBox[
6558	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
6559	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
6560	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
6561	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
6562	Editable->False]], "Print",
6563	CellChangeTimes->{
6564	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6565	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6566	3.581159748412072*^9}],
6567
6568	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
6569	CellChangeTimes->{
6570	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6571	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6572	3.5811597484168367`*^9}],
6573
6574	Cell[BoxData[
6575	RowBox[{
6576	RowBox[{"-",
6577	FractionBox[
6578	RowBox[{"\[ImaginaryI]", " ",
6579	SubscriptBox["\[Kappa]", "g"], " ",
6580	SubsuperscriptBox["\<\"p\"\>", "1",
6581	SubscriptBox["\<\"\[Mu]\"\>",
6582	RowBox[{"3", ",", "2"}]]], " ",
6583	SubsuperscriptBox["\<\"p\"\>", "2",
6584	SubscriptBox["\<\"\[Mu]\"\>",
6585	RowBox[{"3", ",", "1"}]]], " ",
6586	SubscriptBox["\[Delta]",
6587	RowBox[{
6588	SubscriptBox["\<\"a\"\>", "1"], ",",
6589	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6590	SubscriptBox["\[Eta]",
6591	RowBox[{
6592	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6593	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-",
6594	FractionBox[
6595	RowBox[{"\[ImaginaryI]", " ",
6596	SubscriptBox["\[Kappa]", "g"], " ",
6597	SubsuperscriptBox["\<\"p\"\>", "1",
6598	SubscriptBox["\<\"\[Mu]\"\>",
6599	RowBox[{"3", ",", "1"}]]], " ",
6600	SubsuperscriptBox["\<\"p\"\>", "2",
6601	SubscriptBox["\<\"\[Mu]\"\>",
6602	RowBox[{"3", ",", "2"}]]], " ",
6603	SubscriptBox["\[Delta]",
6604	RowBox[{
6605	SubscriptBox["\<\"a\"\>", "1"], ",",
6606	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6607	SubscriptBox["\[Eta]",
6608	RowBox[{
6609	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6610	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"], "+",
6611	FractionBox[
6612	RowBox[{"\[ImaginaryI]", " ",
6613	SubscriptBox["\[Kappa]", "g"], " ",
6614	SubsuperscriptBox["\<\"p\"\>", "1",
6615	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6616	SubsuperscriptBox["\<\"p\"\>", "2",
6617	SubscriptBox["\<\"\[Mu]\"\>",
6618	RowBox[{"3", ",", "2"}]]], " ",
6619	SubscriptBox["\[Delta]",
6620	RowBox[{
6621	SubscriptBox["\<\"a\"\>", "1"], ",",
6622	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6623	SubscriptBox["\[Eta]",
6624	RowBox[{
6625	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6626	SubscriptBox["\<\"\[Mu]\"\>",
6627	RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
6628	FractionBox[
6629	RowBox[{"\[ImaginaryI]", " ",
6630	SubscriptBox["\[Kappa]", "g"], " ",
6631	SubsuperscriptBox["\<\"p\"\>", "2",
6632	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6633	SubsuperscriptBox["\<\"p\"\>", "2",
6634	SubscriptBox["\<\"\[Mu]\"\>",
6635	RowBox[{"3", ",", "2"}]]], " ",
6636	SubscriptBox["\[Delta]",
6637	RowBox[{
6638	SubscriptBox["\<\"a\"\>", "1"], ",",
6639	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6640	SubscriptBox["\[Eta]",
6641	RowBox[{
6642	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6643	SubscriptBox["\<\"\[Mu]\"\>",
6644	RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
6645	FractionBox[
6646	RowBox[{"\[ImaginaryI]", " ",
6647	SubscriptBox["\[Kappa]", "g"], " ",
6648	SubsuperscriptBox["\<\"p\"\>", "1",
6649	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6650	SubsuperscriptBox["\<\"p\"\>", "2",
6651	SubscriptBox["\<\"\[Mu]\"\>",
6652	RowBox[{"3", ",", "1"}]]], " ",
6653	SubscriptBox["\[Delta]",
6654	RowBox[{
6655	SubscriptBox["\<\"a\"\>", "1"], ",",
6656	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6657	SubscriptBox["\[Eta]",
6658	RowBox[{
6659	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6660	SubscriptBox["\<\"\[Mu]\"\>",
6661	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
6662	FractionBox[
6663	RowBox[{"\[ImaginaryI]", " ",
6664	SubscriptBox["\[Kappa]", "g"], " ",
6665	SubsuperscriptBox["\<\"p\"\>", "2",
6666	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6667	SubsuperscriptBox["\<\"p\"\>", "2",
6668	SubscriptBox["\<\"\[Mu]\"\>",
6669	RowBox[{"3", ",", "1"}]]], " ",
6670	SubscriptBox["\[Delta]",
6671	RowBox[{
6672	SubscriptBox["\<\"a\"\>", "1"], ",",
6673	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6674	SubscriptBox["\[Eta]",
6675	RowBox[{
6676	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6677	SubscriptBox["\<\"\[Mu]\"\>",
6678	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
6679	FractionBox[
6680	RowBox[{"\[ImaginaryI]", " ",
6681	SubscriptBox["\[Kappa]", "g"], " ",
6682	SubsuperscriptBox["\<\"p\"\>", "1",
6683	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6684	SubsuperscriptBox["\<\"p\"\>", "1",
6685	SubscriptBox["\<\"\[Mu]\"\>",
6686	RowBox[{"3", ",", "2"}]]], " ",
6687	SubscriptBox["\[Delta]",
6688	RowBox[{
6689	SubscriptBox["\<\"a\"\>", "1"], ",",
6690	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6691	SubscriptBox["\[Eta]",
6692	RowBox[{
6693	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
6694	SubscriptBox["\<\"\[Mu]\"\>",
6695	RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
6696	FractionBox[
6697	RowBox[{"\[ImaginaryI]", " ",
6698	SubscriptBox["\[Kappa]", "g"], " ",
6699	SubsuperscriptBox["\<\"p\"\>", "1",
6700	SubscriptBox["\<\"\[Mu]\"\>",
6701	RowBox[{"3", ",", "2"}]]], " ",
6702	SubsuperscriptBox["\<\"p\"\>", "2",
6703	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6704	SubscriptBox["\[Delta]",
6705	RowBox[{
6706	SubscriptBox["\<\"a\"\>", "1"], ",",
6707	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6708	SubscriptBox["\[Eta]",
6709	RowBox[{
6710	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
6711	SubscriptBox["\<\"\[Mu]\"\>",
6712	RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
6713	FractionBox[
6714	RowBox[{"\[ImaginaryI]", " ",
6715	SubscriptBox["\[Kappa]", "g"], " ",
6716	SubsuperscriptBox["\<\"p\"\>", "1",
6717	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6718	SubsuperscriptBox["\<\"p\"\>", "1",
6719	SubscriptBox["\<\"\[Mu]\"\>",
6720	RowBox[{"3", ",", "1"}]]], " ",
6721	SubscriptBox["\[Delta]",
6722	RowBox[{
6723	SubscriptBox["\<\"a\"\>", "1"], ",",
6724	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6725	SubscriptBox["\[Eta]",
6726	RowBox[{
6727	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
6728	SubscriptBox["\<\"\[Mu]\"\>",
6729	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
6730	FractionBox[
6731	RowBox[{"\[ImaginaryI]", " ",
6732	SubscriptBox["\[Kappa]", "g"], " ",
6733	SubsuperscriptBox["\<\"p\"\>", "1",
6734	SubscriptBox["\<\"\[Mu]\"\>",
6735	RowBox[{"3", ",", "1"}]]], " ",
6736	SubsuperscriptBox["\<\"p\"\>", "2",
6737	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6738	SubscriptBox["\[Delta]",
6739	RowBox[{
6740	SubscriptBox["\<\"a\"\>", "1"], ",",
6741	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6742	SubscriptBox["\[Eta]",
6743	RowBox[{
6744	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
6745	SubscriptBox["\<\"\[Mu]\"\>",
6746	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
6747	FractionBox[
6748	RowBox[{"\[ImaginaryI]", " ",
6749	SubscriptBox["\[Kappa]", "g"], " ",
6750	SubsuperscriptBox["\<\"p\"\>", "1",
6751	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6752	SubsuperscriptBox["\<\"p\"\>", "1",
6753	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6754	SubscriptBox["\[Delta]",
6755	RowBox[{
6756	SubscriptBox["\<\"a\"\>", "1"], ",",
6757	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6758	SubscriptBox["\[Eta]",
6759	RowBox[{
6760	SubscriptBox["\<\"\[Mu]\"\>",
6761	RowBox[{"3", ",", "1"}]], ",",
6762	SubscriptBox["\<\"\[Mu]\"\>",
6763	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
6764	FractionBox[
6765	RowBox[{"\[ImaginaryI]", " ",
6766	SubscriptBox["\[Kappa]", "g"], " ",
6767	SubsuperscriptBox["\<\"p\"\>", "1",
6768	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6769	SubsuperscriptBox["\<\"p\"\>", "2",
6770	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6771	SubscriptBox["\[Delta]",
6772	RowBox[{
6773	SubscriptBox["\<\"a\"\>", "1"], ",",
6774	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6775	SubscriptBox["\[Eta]",
6776	RowBox[{
6777	SubscriptBox["\<\"\[Mu]\"\>",
6778	RowBox[{"3", ",", "1"}]], ",",
6779	SubscriptBox["\<\"\[Mu]\"\>",
6780	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
6781	FractionBox[
6782	RowBox[{"4", " ", "\[ImaginaryI]", " ",
6783	SubscriptBox["\[Kappa]", "g"], " ",
6784	SubsuperscriptBox["\<\"p\"\>", "1",
6785	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6786	SubsuperscriptBox["\<\"p\"\>", "2",
6787	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6788	SubscriptBox["\[Delta]",
6789	RowBox[{
6790	SubscriptBox["\<\"a\"\>", "1"], ",",
6791	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6792	SubscriptBox["\[Eta]",
6793	RowBox[{
6794	SubscriptBox["\<\"\[Mu]\"\>",
6795	RowBox[{"3", ",", "1"}]], ",",
6796	SubscriptBox["\<\"\[Mu]\"\>",
6797	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
6798	FractionBox[
6799	RowBox[{"\[ImaginaryI]", " ",
6800	SubscriptBox["\[Kappa]", "g"], " ",
6801	SubsuperscriptBox["\<\"p\"\>", "2",
6802	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
6803	SubsuperscriptBox["\<\"p\"\>", "2",
6804	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6805	SubscriptBox["\[Delta]",
6806	RowBox[{
6807	SubscriptBox["\<\"a\"\>", "1"], ",",
6808	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6809	SubscriptBox["\[Eta]",
6810	RowBox[{
6811	SubscriptBox["\<\"\[Mu]\"\>",
6812	RowBox[{"3", ",", "1"}]], ",",
6813	SubscriptBox["\<\"\[Mu]\"\>",
6814	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
6815	FractionBox[
6816	RowBox[{"\[ImaginaryI]", " ",
6817	SubscriptBox["\[Kappa]", "g"], " ",
6818	SubscriptBox["\[Delta]",
6819	RowBox[{
6820	SubscriptBox["\<\"a\"\>", "1"], ",",
6821	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6822	SubscriptBox["\[Eta]",
6823	RowBox[{
6824	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6825	SubscriptBox["\<\"\[Mu]\"\>",
6826	RowBox[{"3", ",", "2"}]]}]], " ",
6827	SubscriptBox["\[Eta]",
6828	RowBox[{
6829	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
6830	SubscriptBox["\<\"\[Mu]\"\>",
6831	RowBox[{"3", ",", "1"}]]}]], " ",
6832	RowBox[{
6833	SubscriptBox["\<\"p\"\>", "1"], ".",
6834	SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "-",
6835	FractionBox[
6836	RowBox[{"\[ImaginaryI]", " ",
6837	SubscriptBox["\[Kappa]", "g"], " ",
6838	SubscriptBox["\[Delta]",
6839	RowBox[{
6840	SubscriptBox["\<\"a\"\>", "1"], ",",
6841	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6842	SubscriptBox["\[Eta]",
6843	RowBox[{
6844	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6845	SubscriptBox["\<\"\[Mu]\"\>",
6846	RowBox[{"3", ",", "1"}]]}]], " ",
6847	SubscriptBox["\[Eta]",
6848	RowBox[{
6849	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
6850	SubscriptBox["\<\"\[Mu]\"\>",
6851	RowBox[{"3", ",", "2"}]]}]], " ",
6852	RowBox[{
6853	SubscriptBox["\<\"p\"\>", "1"], ".",
6854	SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+",
6855	FractionBox[
6856	RowBox[{"\[ImaginaryI]", " ",
6857	SubscriptBox["\[Kappa]", "g"], " ",
6858	SubscriptBox["\[Delta]",
6859	RowBox[{
6860	SubscriptBox["\<\"a\"\>", "1"], ",",
6861	SubscriptBox["\<\"a\"\>", "2"]}]], " ",
6862	SubscriptBox["\[Eta]",
6863	RowBox[{
6864	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6865	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
6866	SubscriptBox["\[Eta]",
6867	RowBox[{
6868	SubscriptBox["\<\"\[Mu]\"\>",
6869	RowBox[{"3", ",", "1"}]], ",",
6870	SubscriptBox["\<\"\[Mu]\"\>",
6871	RowBox[{"3", ",", "2"}]]}]], " ",
6872	RowBox[{
6873	SubscriptBox["\<\"p\"\>", "1"], ".",
6874	SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"]}]], "Print",
6875	CellChangeTimes->{
6876	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6877	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6878	3.5811597484237022`*^9}],
6879
6880	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
6881	* * * * * *)\"\>"], "Print",
6882	CellChangeTimes->{
6883	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6884	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6885	3.5811597484342823`*^9}],
6886
6887	Cell[BoxData[
6888	InterpretationBox[
6889	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "40"}],
6890	SequenceForm["Vertex ", 40],
6891	Editable->False]], "Print",
6892	CellChangeTimes->{
6893	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6894	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6895	3.581159748439048*^9}],
6896
6897	Cell[BoxData[
6898	InterpretationBox[
6899	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
6900	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6901	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
6902	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
6903	Editable->False]], "Print",
6904	CellChangeTimes->{
6905	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6906	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6907	3.5811597484437428`*^9}],
6908
6909	Cell[BoxData[
6910	InterpretationBox[
6911	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
6912	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6913	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
6914	SuperscriptBox["W", "\[Dagger]"]}],
6915	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
6916	Editable->False]], "Print",
6917	CellChangeTimes->{
6918	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6919	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6920	3.5811597484486227`*^9}],
6921
6922	Cell[BoxData[
6923	InterpretationBox[
6924	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
6925	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
6926	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
6927	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
6928	Editable->False]], "Print",
6929	CellChangeTimes->{
6930	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6931	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6932	3.581159748478456*^9}],
6933
6934	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
6935	CellChangeTimes->{
6936	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
6937	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
6938	3.58115974848346*^9}],
6939
6940	Cell[BoxData[
6941	RowBox[{
6942	RowBox[{"-",
6943	FractionBox[
6944	RowBox[{"\[ImaginaryI]", " ",
6945	SubscriptBox["\[Kappa]", "w"], " ",
6946	SubsuperscriptBox["\<\"p\"\>", "1",
6947	SubscriptBox["\<\"\[Mu]\"\>",
6948	RowBox[{"3", ",", "2"}]]], " ",
6949	SubsuperscriptBox["\<\"p\"\>", "2",
6950	SubscriptBox["\<\"\[Mu]\"\>",
6951	RowBox[{"3", ",", "1"}]]], " ",
6952	SubscriptBox["\[Eta]",
6953	RowBox[{
6954	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6955	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-",
6956	FractionBox[
6957	RowBox[{"\[ImaginaryI]", " ",
6958	SubscriptBox["\[Kappa]", "w"], " ",
6959	SubsuperscriptBox["\<\"p\"\>", "1",
6960	SubscriptBox["\<\"\[Mu]\"\>",
6961	RowBox[{"3", ",", "1"}]]], " ",
6962	SubsuperscriptBox["\<\"p\"\>", "2",
6963	SubscriptBox["\<\"\[Mu]\"\>",
6964	RowBox[{"3", ",", "2"}]]], " ",
6965	SubscriptBox["\[Eta]",
6966	RowBox[{
6967	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6968	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"], "+",
6969	FractionBox[
6970	RowBox[{"\[ImaginaryI]", " ",
6971	SubscriptBox["\[Kappa]", "w"], " ",
6972	SubsuperscriptBox["\<\"p\"\>", "1",
6973	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6974	SubsuperscriptBox["\<\"p\"\>", "2",
6975	SubscriptBox["\<\"\[Mu]\"\>",
6976	RowBox[{"3", ",", "2"}]]], " ",
6977	SubscriptBox["\[Eta]",
6978	RowBox[{
6979	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6980	SubscriptBox["\<\"\[Mu]\"\>",
6981	RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
6982	FractionBox[
6983	RowBox[{"\[ImaginaryI]", " ",
6984	SubscriptBox["\[Kappa]", "w"], " ",
6985	SubsuperscriptBox["\<\"p\"\>", "1",
6986	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
6987	SubsuperscriptBox["\<\"p\"\>", "2",
6988	SubscriptBox["\<\"\[Mu]\"\>",
6989	RowBox[{"3", ",", "1"}]]], " ",
6990	SubscriptBox["\[Eta]",
6991	RowBox[{
6992	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
6993	SubscriptBox["\<\"\[Mu]\"\>",
6994	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
6995	FractionBox[
6996	RowBox[{"\[ImaginaryI]", " ",
6997	SubscriptBox["\[Kappa]", "w"], " ",
6998	SubsuperscriptBox["\<\"p\"\>", "1",
6999	SubscriptBox["\<\"\[Mu]\"\>",
7000	RowBox[{"3", ",", "2"}]]], " ",
7001	SubsuperscriptBox["\<\"p\"\>", "2",
7002	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
7003	SubscriptBox["\[Eta]",
7004	RowBox[{
7005	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7006	SubscriptBox["\<\"\[Mu]\"\>",
7007	RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
7008	FractionBox[
7009	RowBox[{"\[ImaginaryI]", " ",
7010	SubscriptBox["\[Kappa]", "w"], " ",
7011	SubsuperscriptBox["M", "W", "2"], " ",
7012	SubscriptBox["\[Eta]",
7013	RowBox[{
7014	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7015	SubscriptBox["\<\"\[Mu]\"\>",
7016	RowBox[{"3", ",", "2"}]]}]], " ",
7017	SubscriptBox["\[Eta]",
7018	RowBox[{
7019	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7020	SubscriptBox["\<\"\[Mu]\"\>",
7021	RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
7022	FractionBox[
7023	RowBox[{"\[ImaginaryI]", " ",
7024	SubscriptBox["\[Kappa]", "w"], " ",
7025	SubsuperscriptBox["\<\"p\"\>", "1",
7026	SubscriptBox["\<\"\[Mu]\"\>",
7027	RowBox[{"3", ",", "1"}]]], " ",
7028	SubsuperscriptBox["\<\"p\"\>", "2",
7029	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
7030	SubscriptBox["\[Eta]",
7031	RowBox[{
7032	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7033	SubscriptBox["\<\"\[Mu]\"\>",
7034	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
7035	FractionBox[
7036	RowBox[{"\[ImaginaryI]", " ",
7037	SubscriptBox["\[Kappa]", "w"], " ",
7038	SubsuperscriptBox["M", "W", "2"], " ",
7039	SubscriptBox["\[Eta]",
7040	RowBox[{
7041	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7042	SubscriptBox["\<\"\[Mu]\"\>",
7043	RowBox[{"3", ",", "1"}]]}]], " ",
7044	SubscriptBox["\[Eta]",
7045	RowBox[{
7046	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7047	SubscriptBox["\<\"\[Mu]\"\>",
7048	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
7049	FractionBox[
7050	RowBox[{"\[ImaginaryI]", " ",
7051	SubscriptBox["\[Kappa]", "w"], " ",
7052	SubsuperscriptBox["\<\"p\"\>", "1",
7053	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
7054	SubsuperscriptBox["\<\"p\"\>", "2",
7055	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
7056	SubscriptBox["\[Eta]",
7057	RowBox[{
7058	SubscriptBox["\<\"\[Mu]\"\>",
7059	RowBox[{"3", ",", "1"}]], ",",
7060	SubscriptBox["\<\"\[Mu]\"\>",
7061	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
7062	FractionBox[
7063	RowBox[{"\[ImaginaryI]", " ",
7064	SubscriptBox["\[Kappa]", "w"], " ",
7065	SubsuperscriptBox["M", "W", "2"], " ",
7066	SubscriptBox["\[Eta]",
7067	RowBox[{
7068	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7069	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
7070	SubscriptBox["\[Eta]",
7071	RowBox[{
7072	SubscriptBox["\<\"\[Mu]\"\>",
7073	RowBox[{"3", ",", "1"}]], ",",
7074	SubscriptBox["\<\"\[Mu]\"\>",
7075	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
7076	FractionBox[
7077	RowBox[{"\[ImaginaryI]", " ",
7078	SubscriptBox["\[Kappa]", "w"], " ",
7079	SubscriptBox["\[Eta]",
7080	RowBox[{
7081	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7082	SubscriptBox["\<\"\[Mu]\"\>",
7083	RowBox[{"3", ",", "2"}]]}]], " ",
7084	SubscriptBox["\[Eta]",
7085	RowBox[{
7086	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7087	SubscriptBox["\<\"\[Mu]\"\>",
7088	RowBox[{"3", ",", "1"}]]}]], " ",
7089	RowBox[{
7090	SubscriptBox["\<\"p\"\>", "1"], ".",
7091	SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "-",
7092	FractionBox[
7093	RowBox[{"\[ImaginaryI]", " ",
7094	SubscriptBox["\[Kappa]", "w"], " ",
7095	SubscriptBox["\[Eta]",
7096	RowBox[{
7097	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7098	SubscriptBox["\<\"\[Mu]\"\>",
7099	RowBox[{"3", ",", "1"}]]}]], " ",
7100	SubscriptBox["\[Eta]",
7101	RowBox[{
7102	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7103	SubscriptBox["\<\"\[Mu]\"\>",
7104	RowBox[{"3", ",", "2"}]]}]], " ",
7105	RowBox[{
7106	SubscriptBox["\<\"p\"\>", "1"], ".",
7107	SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+",
7108	FractionBox[
7109	RowBox[{"\[ImaginaryI]", " ",
7110	SubscriptBox["\[Kappa]", "w"], " ",
7111	SubscriptBox["\[Eta]",
7112	RowBox[{
7113	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7114	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
7115	SubscriptBox["\[Eta]",
7116	RowBox[{
7117	SubscriptBox["\<\"\[Mu]\"\>",
7118	RowBox[{"3", ",", "1"}]], ",",
7119	SubscriptBox["\<\"\[Mu]\"\>",
7120	RowBox[{"3", ",", "2"}]]}]], " ",
7121	RowBox[{
7122	SubscriptBox["\<\"p\"\>", "1"], ".",
7123	SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"]}]], "Print",
7124	CellChangeTimes->{
7125	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7126	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7127	3.581159748489787*^9}],
7128
7129	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
7130	* * * * * *)\"\>"], "Print",
7131	CellChangeTimes->{
7132	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7133	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7134	3.581159748498128*^9}],
7135
7136	Cell[BoxData[
7137	InterpretationBox[
7138	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "41"}],
7139	SequenceForm["Vertex ", 41],
7140	Editable->False]], "Print",
7141	CellChangeTimes->{
7142	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7143	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7144	3.581159748503084*^9}],
7145
7146	Cell[BoxData[
7147	InterpretationBox[
7148	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
7149	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
7150	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
7151	SequenceForm["Particle ", 1, " : ", "Spin 2", " , ", $CellContext`X2],
7152	Editable->False]], "Print",
7153	CellChangeTimes->{
7154	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7155	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7156	3.58115974850791*^9}],
7157
7158	Cell[BoxData[
7159	InterpretationBox[
7160	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
7161	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
7162	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
7163	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Z],
7164	Editable->False]], "Print",
7165	CellChangeTimes->{
7166	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7167	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7168	3.581159748513166*^9}],
7169
7170	Cell[BoxData[
7171	InterpretationBox[
7172	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
7173	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
7174	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
7175	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
7176	Editable->False]], "Print",
7177	CellChangeTimes->{
7178	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7179	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7180	3.5811597485179462`*^9}],
7181
7182	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
7183	CellChangeTimes->{
7184	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7185	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7186	3.5811597485226507`*^9}],
7187
7188	Cell[BoxData[
7189	RowBox[{
7190	RowBox[{"-",
7191	FractionBox[
7192	RowBox[{"\[ImaginaryI]", " ",
7193	SubscriptBox["\[Kappa]", "z"], " ",
7194	SubsuperscriptBox["\<\"p\"\>", "2",
7195	SubscriptBox["\<\"\[Mu]\"\>",
7196	RowBox[{"1", ",", "2"}]]], " ",
7197	SubsuperscriptBox["\<\"p\"\>", "3",
7198	SubscriptBox["\<\"\[Mu]\"\>",
7199	RowBox[{"1", ",", "1"}]]], " ",
7200	SubscriptBox["\[Eta]",
7201	RowBox[{
7202	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7203	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"]}], "-",
7204	FractionBox[
7205	RowBox[{"\[ImaginaryI]", " ",
7206	SubscriptBox["\[Kappa]", "z"], " ",
7207	SubsuperscriptBox["\<\"p\"\>", "2",
7208	SubscriptBox["\<\"\[Mu]\"\>",
7209	RowBox[{"1", ",", "1"}]]], " ",
7210	SubsuperscriptBox["\<\"p\"\>", "3",
7211	SubscriptBox["\<\"\[Mu]\"\>",
7212	RowBox[{"1", ",", "2"}]]], " ",
7213	SubscriptBox["\[Eta]",
7214	RowBox[{
7215	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7216	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"], "+",
7217	FractionBox[
7218	RowBox[{"\[ImaginaryI]", " ",
7219	SubscriptBox["\[Kappa]", "z"], " ",
7220	SubsuperscriptBox["\<\"p\"\>", "2",
7221	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
7222	SubsuperscriptBox["\<\"p\"\>", "3",
7223	SubscriptBox["\<\"\[Mu]\"\>",
7224	RowBox[{"1", ",", "2"}]]], " ",
7225	SubscriptBox["\[Eta]",
7226	RowBox[{
7227	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7228	SubscriptBox["\<\"\[Mu]\"\>",
7229	RowBox[{"1", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
7230	FractionBox[
7231	RowBox[{"\[ImaginaryI]", " ",
7232	SubscriptBox["\[Kappa]", "z"], " ",
7233	SubsuperscriptBox["\<\"p\"\>", "2",
7234	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
7235	SubsuperscriptBox["\<\"p\"\>", "3",
7236	SubscriptBox["\<\"\[Mu]\"\>",
7237	RowBox[{"1", ",", "1"}]]], " ",
7238	SubscriptBox["\[Eta]",
7239	RowBox[{
7240	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7241	SubscriptBox["\<\"\[Mu]\"\>",
7242	RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
7243	FractionBox[
7244	RowBox[{"\[ImaginaryI]", " ",
7245	SubscriptBox["\[Kappa]", "z"], " ",
7246	SubsuperscriptBox["\<\"p\"\>", "2",
7247	SubscriptBox["\<\"\[Mu]\"\>",
7248	RowBox[{"1", ",", "2"}]]], " ",
7249	SubsuperscriptBox["\<\"p\"\>", "3",
7250	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
7251	SubscriptBox["\[Eta]",
7252	RowBox[{
7253	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7254	SubscriptBox["\<\"\[Mu]\"\>",
7255	RowBox[{"1", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
7256	FractionBox[
7257	RowBox[{"\[ImaginaryI]", " ",
7258	SubscriptBox["\[Kappa]", "z"], " ",
7259	SuperscriptBox["MZ", "2"], " ",
7260	SubscriptBox["\[Eta]",
7261	RowBox[{
7262	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7263	SubscriptBox["\<\"\[Mu]\"\>",
7264	RowBox[{"1", ",", "2"}]]}]], " ",
7265	SubscriptBox["\[Eta]",
7266	RowBox[{
7267	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7268	SubscriptBox["\<\"\[Mu]\"\>",
7269	RowBox[{"1", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
7270	FractionBox[
7271	RowBox[{"\[ImaginaryI]", " ",
7272	SubscriptBox["\[Kappa]", "z"], " ",
7273	SubsuperscriptBox["\<\"p\"\>", "2",
7274	SubscriptBox["\<\"\[Mu]\"\>",
7275	RowBox[{"1", ",", "1"}]]], " ",
7276	SubsuperscriptBox["\<\"p\"\>", "3",
7277	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
7278	SubscriptBox["\[Eta]",
7279	RowBox[{
7280	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7281	SubscriptBox["\<\"\[Mu]\"\>",
7282	RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
7283	FractionBox[
7284	RowBox[{"\[ImaginaryI]", " ",
7285	SubscriptBox["\[Kappa]", "z"], " ",
7286	SuperscriptBox["MZ", "2"], " ",
7287	SubscriptBox["\[Eta]",
7288	RowBox[{
7289	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7290	SubscriptBox["\<\"\[Mu]\"\>",
7291	RowBox[{"1", ",", "1"}]]}]], " ",
7292	SubscriptBox["\[Eta]",
7293	RowBox[{
7294	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7295	SubscriptBox["\<\"\[Mu]\"\>",
7296	RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
7297	FractionBox[
7298	RowBox[{"\[ImaginaryI]", " ",
7299	SubscriptBox["\[Kappa]", "z"], " ",
7300	SubsuperscriptBox["\<\"p\"\>", "2",
7301	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
7302	SubsuperscriptBox["\<\"p\"\>", "3",
7303	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
7304	SubscriptBox["\[Eta]",
7305	RowBox[{
7306	SubscriptBox["\<\"\[Mu]\"\>",
7307	RowBox[{"1", ",", "1"}]], ",",
7308	SubscriptBox["\<\"\[Mu]\"\>",
7309	RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
7310	FractionBox[
7311	RowBox[{"\[ImaginaryI]", " ",
7312	SubscriptBox["\[Kappa]", "z"], " ",
7313	SuperscriptBox["MZ", "2"], " ",
7314	SubscriptBox["\[Eta]",
7315	RowBox[{
7316	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7317	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
7318	SubscriptBox["\[Eta]",
7319	RowBox[{
7320	SubscriptBox["\<\"\[Mu]\"\>",
7321	RowBox[{"1", ",", "1"}]], ",",
7322	SubscriptBox["\<\"\[Mu]\"\>",
7323	RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
7324	FractionBox[
7325	RowBox[{"\[ImaginaryI]", " ",
7326	SubscriptBox["\[Kappa]", "z"], " ",
7327	SubscriptBox["\[Eta]",
7328	RowBox[{
7329	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7330	SubscriptBox["\<\"\[Mu]\"\>",
7331	RowBox[{"1", ",", "2"}]]}]], " ",
7332	SubscriptBox["\[Eta]",
7333	RowBox[{
7334	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7335	SubscriptBox["\<\"\[Mu]\"\>",
7336	RowBox[{"1", ",", "1"}]]}]], " ",
7337	RowBox[{
7338	SubscriptBox["\<\"p\"\>", "2"], ".",
7339	SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"], "-",
7340	FractionBox[
7341	RowBox[{"\[ImaginaryI]", " ",
7342	SubscriptBox["\[Kappa]", "z"], " ",
7343	SubscriptBox["\[Eta]",
7344	RowBox[{
7345	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7346	SubscriptBox["\<\"\[Mu]\"\>",
7347	RowBox[{"1", ",", "1"}]]}]], " ",
7348	SubscriptBox["\[Eta]",
7349	RowBox[{
7350	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7351	SubscriptBox["\<\"\[Mu]\"\>",
7352	RowBox[{"1", ",", "2"}]]}]], " ",
7353	RowBox[{
7354	SubscriptBox["\<\"p\"\>", "2"], ".",
7355	SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"], "+",
7356	FractionBox[
7357	RowBox[{"\[ImaginaryI]", " ",
7358	SubscriptBox["\[Kappa]", "z"], " ",
7359	SubscriptBox["\[Eta]",
7360	RowBox[{
7361	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7362	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
7363	SubscriptBox["\[Eta]",
7364	RowBox[{
7365	SubscriptBox["\<\"\[Mu]\"\>",
7366	RowBox[{"1", ",", "1"}]], ",",
7367	SubscriptBox["\<\"\[Mu]\"\>",
7368	RowBox[{"1", ",", "2"}]]}]], " ",
7369	RowBox[{
7370	SubscriptBox["\<\"p\"\>", "2"], ".",
7371	SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"]}]], "Print",
7372	CellChangeTimes->{
7373	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7374	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7375	3.5811597485287447`*^9}],
7376
7377	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
7378	* * * * * *)\"\>"], "Print",
7379	CellChangeTimes->{
7380	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7381	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7382	3.581159748536928*^9}],
7383
7384	Cell[BoxData[
7385	InterpretationBox[
7386	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "42"}],
7387	SequenceForm["Vertex ", 42],
7388	Editable->False]], "Print",
7389	CellChangeTimes->{
7390	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7391	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7392	3.581159748541706*^9}],
7393
7394	Cell[BoxData[
7395	InterpretationBox[
7396	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
7397	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
7398	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
7399	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
7400	Editable->False]], "Print",
7401	CellChangeTimes->{
7402	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7403	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7404	3.581159748546483*^9}],
7405
7406	Cell[BoxData[
7407	InterpretationBox[
7408	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
7409	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
7410	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
7411	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
7412	Editable->False]], "Print",
7413	CellChangeTimes->{
7414	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7415	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7416	3.581159748551306*^9}],
7417
7418	Cell[BoxData[
7419	InterpretationBox[
7420	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
7421	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
7422	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
7423	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
7424	Editable->False]], "Print",
7425	CellChangeTimes->{
7426	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7427	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7428	3.581159748556196*^9}],
7429
7430	Cell[BoxData[
7431	InterpretationBox[
7432	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
7433	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
7434	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
7435	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
7436	Editable->False]], "Print",
7437	CellChangeTimes->{
7438	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7439	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7440	3.58115974856108*^9}],
7441
7442	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
7443	CellChangeTimes->{
7444	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
7445	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
7446	3.581159748565803*^9}],
7447
7448	Cell[BoxData[
7449	RowBox[{
7450	RowBox[{"-",
7451	FractionBox[
7452	RowBox[{
7453	SubscriptBox["g", "s"], " ",
7454	SubscriptBox["\[Kappa]", "g"], " ",
7455	SubscriptBox["f",
7456	RowBox[{
7457	SubscriptBox["\<\"a\"\>", "1"], ",",
7458	SubscriptBox["\<\"a\"\>", "2"], ",",
7459	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7460	SubsuperscriptBox["\<\"p\"\>", "2",
7461	SubscriptBox["\<\"\[Mu]\"\>",
7462	RowBox[{"4", ",", "2"}]]], " ",
7463	SubscriptBox["\[Eta]",
7464	RowBox[{
7465	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7466	SubscriptBox["\<\"\[Mu]\"\>",
7467	RowBox[{"4", ",", "1"}]]}]], " ",
7468	SubscriptBox["\[Eta]",
7469	RowBox[{
7470	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7471	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"]}], "+",
7472	FractionBox[
7473	RowBox[{
7474	SubscriptBox["g", "s"], " ",
7475	SubscriptBox["\[Kappa]", "g"], " ",
7476	SubscriptBox["f",
7477	RowBox[{
7478	SubscriptBox["\<\"a\"\>", "1"], ",",
7479	SubscriptBox["\<\"a\"\>", "2"], ",",
7480	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7481	SubsuperscriptBox["\<\"p\"\>", "3",
7482	SubscriptBox["\<\"\[Mu]\"\>",
7483	RowBox[{"4", ",", "2"}]]], " ",
7484	SubscriptBox["\[Eta]",
7485	RowBox[{
7486	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7487	SubscriptBox["\<\"\[Mu]\"\>",
7488	RowBox[{"4", ",", "1"}]]}]], " ",
7489	SubscriptBox["\[Eta]",
7490	RowBox[{
7491	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7492	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"], "-",
7493	FractionBox[
7494	RowBox[{
7495	SubscriptBox["g", "s"], " ",
7496	SubscriptBox["\[Kappa]", "g"], " ",
7497	SubscriptBox["f",
7498	RowBox[{
7499	SubscriptBox["\<\"a\"\>", "1"], ",",
7500	SubscriptBox["\<\"a\"\>", "2"], ",",
7501	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7502	SubsuperscriptBox["\<\"p\"\>", "2",
7503	SubscriptBox["\<\"\[Mu]\"\>",
7504	RowBox[{"4", ",", "1"}]]], " ",
7505	SubscriptBox["\[Eta]",
7506	RowBox[{
7507	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7508	SubscriptBox["\<\"\[Mu]\"\>",
7509	RowBox[{"4", ",", "2"}]]}]], " ",
7510	SubscriptBox["\[Eta]",
7511	RowBox[{
7512	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7513	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"], "+",
7514	FractionBox[
7515	RowBox[{
7516	SubscriptBox["g", "s"], " ",
7517	SubscriptBox["\[Kappa]", "g"], " ",
7518	SubscriptBox["f",
7519	RowBox[{
7520	SubscriptBox["\<\"a\"\>", "1"], ",",
7521	SubscriptBox["\<\"a\"\>", "2"], ",",
7522	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7523	SubsuperscriptBox["\<\"p\"\>", "3",
7524	SubscriptBox["\<\"\[Mu]\"\>",
7525	RowBox[{"4", ",", "1"}]]], " ",
7526	SubscriptBox["\[Eta]",
7527	RowBox[{
7528	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7529	SubscriptBox["\<\"\[Mu]\"\>",
7530	RowBox[{"4", ",", "2"}]]}]], " ",
7531	SubscriptBox["\[Eta]",
7532	RowBox[{
7533	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7534	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"], "+",
7535	FractionBox[
7536	RowBox[{
7537	SubscriptBox["g", "s"], " ",
7538	SubscriptBox["\[Kappa]", "g"], " ",
7539	SubscriptBox["f",
7540	RowBox[{
7541	SubscriptBox["\<\"a\"\>", "1"], ",",
7542	SubscriptBox["\<\"a\"\>", "2"], ",",
7543	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7544	SubsuperscriptBox["\<\"p\"\>", "1",
7545	SubscriptBox["\<\"\[Mu]\"\>",
7546	RowBox[{"4", ",", "2"}]]], " ",
7547	SubscriptBox["\[Eta]",
7548	RowBox[{
7549	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7550	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
7551	SubscriptBox["\[Eta]",
7552	RowBox[{
7553	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7554	SubscriptBox["\<\"\[Mu]\"\>",
7555	RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
7556	FractionBox[
7557	RowBox[{
7558	SubscriptBox["g", "s"], " ",
7559	SubscriptBox["\[Kappa]", "g"], " ",
7560	SubscriptBox["f",
7561	RowBox[{
7562	SubscriptBox["\<\"a\"\>", "1"], ",",
7563	SubscriptBox["\<\"a\"\>", "2"], ",",
7564	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7565	SubsuperscriptBox["\<\"p\"\>", "3",
7566	SubscriptBox["\<\"\[Mu]\"\>",
7567	RowBox[{"4", ",", "2"}]]], " ",
7568	SubscriptBox["\[Eta]",
7569	RowBox[{
7570	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7571	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
7572	SubscriptBox["\[Eta]",
7573	RowBox[{
7574	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7575	SubscriptBox["\<\"\[Mu]\"\>",
7576	RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
7577	FractionBox[
7578	RowBox[{
7579	SubscriptBox["g", "s"], " ",
7580	SubscriptBox["\[Kappa]", "g"], " ",
7581	SubscriptBox["f",
7582	RowBox[{
7583	SubscriptBox["\<\"a\"\>", "1"], ",",
7584	SubscriptBox["\<\"a\"\>", "2"], ",",
7585	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7586	SubsuperscriptBox["\<\"p\"\>", "1",
7587	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
7588	SubscriptBox["\[Eta]",
7589	RowBox[{
7590	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7591	SubscriptBox["\<\"\[Mu]\"\>",
7592	RowBox[{"4", ",", "2"}]]}]], " ",
7593	SubscriptBox["\[Eta]",
7594	RowBox[{
7595	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7596	SubscriptBox["\<\"\[Mu]\"\>",
7597	RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
7598	FractionBox[
7599	RowBox[{
7600	SubscriptBox["g", "s"], " ",
7601	SubscriptBox["\[Kappa]", "g"], " ",
7602	SubscriptBox["f",
7603	RowBox[{
7604	SubscriptBox["\<\"a\"\>", "1"], ",",
7605	SubscriptBox["\<\"a\"\>", "2"], ",",
7606	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7607	SubsuperscriptBox["\<\"p\"\>", "2",
7608	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
7609	SubscriptBox["\[Eta]",
7610	RowBox[{
7611	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7612	SubscriptBox["\<\"\[Mu]\"\>",
7613	RowBox[{"4", ",", "2"}]]}]], " ",
7614	SubscriptBox["\[Eta]",
7615	RowBox[{
7616	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7617	SubscriptBox["\<\"\[Mu]\"\>",
7618	RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
7619	FractionBox[
7620	RowBox[{
7621	SubscriptBox["g", "s"], " ",
7622	SubscriptBox["\[Kappa]", "g"], " ",
7623	SubscriptBox["f",
7624	RowBox[{
7625	SubscriptBox["\<\"a\"\>", "1"], ",",
7626	SubscriptBox["\<\"a\"\>", "2"], ",",
7627	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7628	SubsuperscriptBox["\<\"p\"\>", "1",
7629	SubscriptBox["\<\"\[Mu]\"\>",
7630	RowBox[{"4", ",", "1"}]]], " ",
7631	SubscriptBox["\[Eta]",
7632	RowBox[{
7633	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7634	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
7635	SubscriptBox["\[Eta]",
7636	RowBox[{
7637	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7638	SubscriptBox["\<\"\[Mu]\"\>",
7639	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
7640	FractionBox[
7641	RowBox[{
7642	SubscriptBox["g", "s"], " ",
7643	SubscriptBox["\[Kappa]", "g"], " ",
7644	SubscriptBox["f",
7645	RowBox[{
7646	SubscriptBox["\<\"a\"\>", "1"], ",",
7647	SubscriptBox["\<\"a\"\>", "2"], ",",
7648	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7649	SubsuperscriptBox["\<\"p\"\>", "3",
7650	SubscriptBox["\<\"\[Mu]\"\>",
7651	RowBox[{"4", ",", "1"}]]], " ",
7652	SubscriptBox["\[Eta]",
7653	RowBox[{
7654	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7655	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
7656	SubscriptBox["\[Eta]",
7657	RowBox[{
7658	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7659	SubscriptBox["\<\"\[Mu]\"\>",
7660	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
7661	FractionBox[
7662	RowBox[{
7663	SubscriptBox["g", "s"], " ",
7664	SubscriptBox["\[Kappa]", "g"], " ",
7665	SubscriptBox["f",
7666	RowBox[{
7667	SubscriptBox["\<\"a\"\>", "1"], ",",
7668	SubscriptBox["\<\"a\"\>", "2"], ",",
7669	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7670	SubsuperscriptBox["\<\"p\"\>", "1",
7671	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
7672	SubscriptBox["\[Eta]",
7673	RowBox[{
7674	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7675	SubscriptBox["\<\"\[Mu]\"\>",
7676	RowBox[{"4", ",", "1"}]]}]], " ",
7677	SubscriptBox["\[Eta]",
7678	RowBox[{
7679	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7680	SubscriptBox["\<\"\[Mu]\"\>",
7681	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
7682	FractionBox[
7683	RowBox[{
7684	SubscriptBox["g", "s"], " ",
7685	SubscriptBox["\[Kappa]", "g"], " ",
7686	SubscriptBox["f",
7687	RowBox[{
7688	SubscriptBox["\<\"a\"\>", "1"], ",",
7689	SubscriptBox["\<\"a\"\>", "2"], ",",
7690	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7691	SubsuperscriptBox["\<\"p\"\>", "2",
7692	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
7693	SubscriptBox["\[Eta]",
7694	RowBox[{
7695	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7696	SubscriptBox["\<\"\[Mu]\"\>",
7697	RowBox[{"4", ",", "1"}]]}]], " ",
7698	SubscriptBox["\[Eta]",
7699	RowBox[{
7700	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7701	SubscriptBox["\<\"\[Mu]\"\>",
7702	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
7703	FractionBox[
7704	RowBox[{
7705	SubscriptBox["g", "s"], " ",
7706	SubscriptBox["\[Kappa]", "g"], " ",
7707	SubscriptBox["f",
7708	RowBox[{
7709	SubscriptBox["\<\"a\"\>", "1"], ",",
7710	SubscriptBox["\<\"a\"\>", "2"], ",",
7711	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7712	SubsuperscriptBox["\<\"p\"\>", "1",
7713	SubscriptBox["\<\"\[Mu]\"\>",
7714	RowBox[{"4", ",", "2"}]]], " ",
7715	SubscriptBox["\[Eta]",
7716	RowBox[{
7717	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7718	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
7719	SubscriptBox["\[Eta]",
7720	RowBox[{
7721	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7722	SubscriptBox["\<\"\[Mu]\"\>",
7723	RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
7724	FractionBox[
7725	RowBox[{
7726	SubscriptBox["g", "s"], " ",
7727	SubscriptBox["\[Kappa]", "g"], " ",
7728	SubscriptBox["f",
7729	RowBox[{
7730	SubscriptBox["\<\"a\"\>", "1"], ",",
7731	SubscriptBox["\<\"a\"\>", "2"], ",",
7732	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7733	SubsuperscriptBox["\<\"p\"\>", "2",
7734	SubscriptBox["\<\"\[Mu]\"\>",
7735	RowBox[{"4", ",", "2"}]]], " ",
7736	SubscriptBox["\[Eta]",
7737	RowBox[{
7738	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7739	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
7740	SubscriptBox["\[Eta]",
7741	RowBox[{
7742	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7743	SubscriptBox["\<\"\[Mu]\"\>",
7744	RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
7745	FractionBox[
7746	RowBox[{
7747	SubscriptBox["g", "s"], " ",
7748	SubscriptBox["\[Kappa]", "g"], " ",
7749	SubscriptBox["f",
7750	RowBox[{
7751	SubscriptBox["\<\"a\"\>", "1"], ",",
7752	SubscriptBox["\<\"a\"\>", "2"], ",",
7753	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7754	SubsuperscriptBox["\<\"p\"\>", "1",
7755	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
7756	SubscriptBox["\[Eta]",
7757	RowBox[{
7758	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7759	SubscriptBox["\<\"\[Mu]\"\>",
7760	RowBox[{"4", ",", "2"}]]}]], " ",
7761	SubscriptBox["\[Eta]",
7762	RowBox[{
7763	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7764	SubscriptBox["\<\"\[Mu]\"\>",
7765	RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
7766	FractionBox[
7767	RowBox[{
7768	SubscriptBox["g", "s"], " ",
7769	SubscriptBox["\[Kappa]", "g"], " ",
7770	SubscriptBox["f",
7771	RowBox[{
7772	SubscriptBox["\<\"a\"\>", "1"], ",",
7773	SubscriptBox["\<\"a\"\>", "2"], ",",
7774	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7775	SubsuperscriptBox["\<\"p\"\>", "3",
7776	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
7777	SubscriptBox["\[Eta]",
7778	RowBox[{
7779	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7780	SubscriptBox["\<\"\[Mu]\"\>",
7781	RowBox[{"4", ",", "2"}]]}]], " ",
7782	SubscriptBox["\[Eta]",
7783	RowBox[{
7784	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7785	SubscriptBox["\<\"\[Mu]\"\>",
7786	RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
7787	FractionBox[
7788	RowBox[{
7789	SubscriptBox["g", "s"], " ",
7790	SubscriptBox["\[Kappa]", "g"], " ",
7791	SubscriptBox["f",
7792	RowBox[{
7793	SubscriptBox["\<\"a\"\>", "1"], ",",
7794	SubscriptBox["\<\"a\"\>", "2"], ",",
7795	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7796	SubsuperscriptBox["\<\"p\"\>", "2",
7797	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
7798	SubscriptBox["\[Eta]",
7799	RowBox[{
7800	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7801	SubscriptBox["\<\"\[Mu]\"\>",
7802	RowBox[{"4", ",", "2"}]]}]], " ",
7803	SubscriptBox["\[Eta]",
7804	RowBox[{
7805	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7806	SubscriptBox["\<\"\[Mu]\"\>",
7807	RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
7808	FractionBox[
7809	RowBox[{
7810	SubscriptBox["g", "s"], " ",
7811	SubscriptBox["\[Kappa]", "g"], " ",
7812	SubscriptBox["f",
7813	RowBox[{
7814	SubscriptBox["\<\"a\"\>", "1"], ",",
7815	SubscriptBox["\<\"a\"\>", "2"], ",",
7816	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7817	SubsuperscriptBox["\<\"p\"\>", "3",
7818	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
7819	SubscriptBox["\[Eta]",
7820	RowBox[{
7821	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7822	SubscriptBox["\<\"\[Mu]\"\>",
7823	RowBox[{"4", ",", "2"}]]}]], " ",
7824	SubscriptBox["\[Eta]",
7825	RowBox[{
7826	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7827	SubscriptBox["\<\"\[Mu]\"\>",
7828	RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
7829	FractionBox[
7830	RowBox[{
7831	SubscriptBox["g", "s"], " ",
7832	SubscriptBox["\[Kappa]", "g"], " ",
7833	SubscriptBox["f",
7834	RowBox[{
7835	SubscriptBox["\<\"a\"\>", "1"], ",",
7836	SubscriptBox["\<\"a\"\>", "2"], ",",
7837	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7838	SubsuperscriptBox["\<\"p\"\>", "1",
7839	SubscriptBox["\<\"\[Mu]\"\>",
7840	RowBox[{"4", ",", "1"}]]], " ",
7841	SubscriptBox["\[Eta]",
7842	RowBox[{
7843	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7844	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
7845	SubscriptBox["\[Eta]",
7846	RowBox[{
7847	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7848	SubscriptBox["\<\"\[Mu]\"\>",
7849	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
7850	FractionBox[
7851	RowBox[{
7852	SubscriptBox["g", "s"], " ",
7853	SubscriptBox["\[Kappa]", "g"], " ",
7854	SubscriptBox["f",
7855	RowBox[{
7856	SubscriptBox["\<\"a\"\>", "1"], ",",
7857	SubscriptBox["\<\"a\"\>", "2"], ",",
7858	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7859	SubsuperscriptBox["\<\"p\"\>", "2",
7860	SubscriptBox["\<\"\[Mu]\"\>",
7861	RowBox[{"4", ",", "1"}]]], " ",
7862	SubscriptBox["\[Eta]",
7863	RowBox[{
7864	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7865	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
7866	SubscriptBox["\[Eta]",
7867	RowBox[{
7868	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7869	SubscriptBox["\<\"\[Mu]\"\>",
7870	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
7871	FractionBox[
7872	RowBox[{
7873	SubscriptBox["g", "s"], " ",
7874	SubscriptBox["\[Kappa]", "g"], " ",
7875	SubscriptBox["f",
7876	RowBox[{
7877	SubscriptBox["\<\"a\"\>", "1"], ",",
7878	SubscriptBox["\<\"a\"\>", "2"], ",",
7879	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7880	SubsuperscriptBox["\<\"p\"\>", "1",
7881	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
7882	SubscriptBox["\[Eta]",
7883	RowBox[{
7884	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7885	SubscriptBox["\<\"\[Mu]\"\>",
7886	RowBox[{"4", ",", "1"}]]}]], " ",
7887	SubscriptBox["\[Eta]",
7888	RowBox[{
7889	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7890	SubscriptBox["\<\"\[Mu]\"\>",
7891	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
7892	FractionBox[
7893	RowBox[{
7894	SubscriptBox["g", "s"], " ",
7895	SubscriptBox["\[Kappa]", "g"], " ",
7896	SubscriptBox["f",
7897	RowBox[{
7898	SubscriptBox["\<\"a\"\>", "1"], ",",
7899	SubscriptBox["\<\"a\"\>", "2"], ",",
7900	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7901	SubsuperscriptBox["\<\"p\"\>", "3",
7902	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
7903	SubscriptBox["\[Eta]",
7904	RowBox[{
7905	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7906	SubscriptBox["\<\"\[Mu]\"\>",
7907	RowBox[{"4", ",", "1"}]]}]], " ",
7908	SubscriptBox["\[Eta]",
7909	RowBox[{
7910	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7911	SubscriptBox["\<\"\[Mu]\"\>",
7912	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
7913	FractionBox[
7914	RowBox[{
7915	SubscriptBox["g", "s"], " ",
7916	SubscriptBox["\[Kappa]", "g"], " ",
7917	SubscriptBox["f",
7918	RowBox[{
7919	SubscriptBox["\<\"a\"\>", "1"], ",",
7920	SubscriptBox["\<\"a\"\>", "2"], ",",
7921	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7922	SubsuperscriptBox["\<\"p\"\>", "2",
7923	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
7924	SubscriptBox["\[Eta]",
7925	RowBox[{
7926	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7927	SubscriptBox["\<\"\[Mu]\"\>",
7928	RowBox[{"4", ",", "1"}]]}]], " ",
7929	SubscriptBox["\[Eta]",
7930	RowBox[{
7931	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7932	SubscriptBox["\<\"\[Mu]\"\>",
7933	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
7934	FractionBox[
7935	RowBox[{
7936	SubscriptBox["g", "s"], " ",
7937	SubscriptBox["\[Kappa]", "g"], " ",
7938	SubscriptBox["f",
7939	RowBox[{
7940	SubscriptBox["\<\"a\"\>", "1"], ",",
7941	SubscriptBox["\<\"a\"\>", "2"], ",",
7942	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7943	SubsuperscriptBox["\<\"p\"\>", "3",
7944	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
7945	SubscriptBox["\[Eta]",
7946	RowBox[{
7947	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
7948	SubscriptBox["\<\"\[Mu]\"\>",
7949	RowBox[{"4", ",", "1"}]]}]], " ",
7950	SubscriptBox["\[Eta]",
7951	RowBox[{
7952	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
7953	SubscriptBox["\<\"\[Mu]\"\>",
7954	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
7955	FractionBox[
7956	RowBox[{
7957	SubscriptBox["g", "s"], " ",
7958	SubscriptBox["\[Kappa]", "g"], " ",
7959	SubscriptBox["f",
7960	RowBox[{
7961	SubscriptBox["\<\"a\"\>", "1"], ",",
7962	SubscriptBox["\<\"a\"\>", "2"], ",",
7963	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7964	SubsuperscriptBox["\<\"p\"\>", "1",
7965	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
7966	SubscriptBox["\[Eta]",
7967	RowBox[{
7968	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7969	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
7970	SubscriptBox["\[Eta]",
7971	RowBox[{
7972	SubscriptBox["\<\"\[Mu]\"\>",
7973	RowBox[{"4", ",", "1"}]], ",",
7974	SubscriptBox["\<\"\[Mu]\"\>",
7975	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
7976	FractionBox[
7977	RowBox[{
7978	SubscriptBox["g", "s"], " ",
7979	SubscriptBox["\[Kappa]", "g"], " ",
7980	SubscriptBox["f",
7981	RowBox[{
7982	SubscriptBox["\<\"a\"\>", "1"], ",",
7983	SubscriptBox["\<\"a\"\>", "2"], ",",
7984	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
7985	SubsuperscriptBox["\<\"p\"\>", "2",
7986	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
7987	SubscriptBox["\[Eta]",
7988	RowBox[{
7989	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
7990	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
7991	SubscriptBox["\[Eta]",
7992	RowBox[{
7993	SubscriptBox["\<\"\[Mu]\"\>",
7994	RowBox[{"4", ",", "1"}]], ",",
7995	SubscriptBox["\<\"\[Mu]\"\>",
7996	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
7997	FractionBox[
7998	RowBox[{
7999	SubscriptBox["g", "s"], " ",
8000	SubscriptBox["\[Kappa]", "g"], " ",
8001	SubscriptBox["f",
8002	RowBox[{
8003	SubscriptBox["\<\"a\"\>", "1"], ",",
8004	SubscriptBox["\<\"a\"\>", "2"], ",",
8005	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
8006	SubsuperscriptBox["\<\"p\"\>", "1",
8007	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
8008	SubscriptBox["\[Eta]",
8009	RowBox[{
8010	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8011	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8012	SubscriptBox["\[Eta]",
8013	RowBox[{
8014	SubscriptBox["\<\"\[Mu]\"\>",
8015	RowBox[{"4", ",", "1"}]], ",",
8016	SubscriptBox["\<\"\[Mu]\"\>",
8017	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
8018	FractionBox[
8019	RowBox[{
8020	SubscriptBox["g", "s"], " ",
8021	SubscriptBox["\[Kappa]", "g"], " ",
8022	SubscriptBox["f",
8023	RowBox[{
8024	SubscriptBox["\<\"a\"\>", "1"], ",",
8025	SubscriptBox["\<\"a\"\>", "2"], ",",
8026	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
8027	SubsuperscriptBox["\<\"p\"\>", "3",
8028	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
8029	SubscriptBox["\[Eta]",
8030	RowBox[{
8031	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8032	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8033	SubscriptBox["\[Eta]",
8034	RowBox[{
8035	SubscriptBox["\<\"\[Mu]\"\>",
8036	RowBox[{"4", ",", "1"}]], ",",
8037	SubscriptBox["\<\"\[Mu]\"\>",
8038	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
8039	FractionBox[
8040	RowBox[{
8041	SubscriptBox["g", "s"], " ",
8042	SubscriptBox["\[Kappa]", "g"], " ",
8043	SubscriptBox["f",
8044	RowBox[{
8045	SubscriptBox["\<\"a\"\>", "1"], ",",
8046	SubscriptBox["\<\"a\"\>", "2"], ",",
8047	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
8048	SubsuperscriptBox["\<\"p\"\>", "2",
8049	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
8050	SubscriptBox["\[Eta]",
8051	RowBox[{
8052	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8053	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8054	SubscriptBox["\[Eta]",
8055	RowBox[{
8056	SubscriptBox["\<\"\[Mu]\"\>",
8057	RowBox[{"4", ",", "1"}]], ",",
8058	SubscriptBox["\<\"\[Mu]\"\>",
8059	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
8060	FractionBox[
8061	RowBox[{
8062	SubscriptBox["g", "s"], " ",
8063	SubscriptBox["\[Kappa]", "g"], " ",
8064	SubscriptBox["f",
8065	RowBox[{
8066	SubscriptBox["\<\"a\"\>", "1"], ",",
8067	SubscriptBox["\<\"a\"\>", "2"], ",",
8068	SubscriptBox["\<\"a\"\>", "3"]}]], " ",
8069	SubsuperscriptBox["\<\"p\"\>", "3",
8070	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
8071	SubscriptBox["\[Eta]",
8072	RowBox[{
8073	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8074	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8075	SubscriptBox["\[Eta]",
8076	RowBox[{
8077	SubscriptBox["\<\"\[Mu]\"\>",
8078	RowBox[{"4", ",", "1"}]], ",",
8079	SubscriptBox["\<\"\[Mu]\"\>",
8080	RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"]}]], "Print",
8081	CellChangeTimes->{
8082	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8083	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8084	3.5811597485749397`*^9}],
8085
8086	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
8087	* * * * * *)\"\>"], "Print",
8088	CellChangeTimes->{
8089	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8090	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8091	3.5811597485917397`*^9}],
8092
8093	Cell[BoxData[
8094	InterpretationBox[
8095	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "43"}],
8096	SequenceForm["Vertex ", 43],
8097	Editable->False]], "Print",
8098	CellChangeTimes->{
8099	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8100	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8101	3.581159748596613*^9}],
8102
8103	Cell[BoxData[
8104	InterpretationBox[
8105	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
8106	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
8107	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
8108	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
8109	Editable->False]], "Print",
8110	CellChangeTimes->{
8111	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8112	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8113	3.581159748601349*^9}],
8114
8115	Cell[BoxData[
8116	InterpretationBox[
8117	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
8118	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
8119	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
8120	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
8121	Editable->False]], "Print",
8122	CellChangeTimes->{
8123	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8124	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8125	3.5811597486061277`*^9}],
8126
8127	Cell[BoxData[
8128	InterpretationBox[
8129	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
8130	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
8131	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
8132	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
8133	Editable->False]], "Print",
8134	CellChangeTimes->{
8135	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8136	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8137	3.581159748610895*^9}],
8138
8139	Cell[BoxData[
8140	InterpretationBox[
8141	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
8142	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
8143	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
8144	SequenceForm["Particle ", 4, " : ", "Vector", " , ", FeynRules`G],
8145	Editable->False]], "Print",
8146	CellChangeTimes->{
8147	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8148	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8149	3.581159748615778*^9}],
8150
8151	Cell[BoxData[
8152	InterpretationBox[
8153	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "5",
8154	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
8155	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
8156	SequenceForm["Particle ", 5, " : ", "Spin 2", " , ", $CellContext`X2],
8157	Editable->False]], "Print",
8158	CellChangeTimes->{
8159	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8160	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8161	3.581159748620595*^9}],
8162
8163	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
8164	CellChangeTimes->{
8165	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8166	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8167	3.581159748625334*^9}],
8168
8169	Cell[BoxData[
8170	RowBox[{
8171	FractionBox[
8172	RowBox[{"\[ImaginaryI]", " ",
8173	SubsuperscriptBox["g", "s", "2"], " ",
8174	SubscriptBox["\[Kappa]", "g"], " ",
8175	SubscriptBox["f",
8176	RowBox[{
8177	SubscriptBox["\<\"a\"\>", "1"], ",",
8178	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8179	SubscriptBox["f",
8180	RowBox[{
8181	SubscriptBox["\<\"a\"\>", "2"], ",",
8182	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8183	SubscriptBox["\[Eta]",
8184	RowBox[{
8185	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8186	SubscriptBox["\<\"\[Mu]\"\>",
8187	RowBox[{"5", ",", "2"}]]}]], " ",
8188	SubscriptBox["\[Eta]",
8189	RowBox[{
8190	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8191	SubscriptBox["\<\"\[Mu]\"\>",
8192	RowBox[{"5", ",", "1"}]]}]], " ",
8193	SubscriptBox["\[Eta]",
8194	RowBox[{
8195	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8196	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "\[CapitalLambda]"], "+",
8197	FractionBox[
8198	RowBox[{"\[ImaginaryI]", " ",
8199	SubsuperscriptBox["g", "s", "2"], " ",
8200	SubscriptBox["\[Kappa]", "g"], " ",
8201	SubscriptBox["f",
8202	RowBox[{
8203	SubscriptBox["\<\"a\"\>", "1"], ",",
8204	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8205	SubscriptBox["f",
8206	RowBox[{
8207	SubscriptBox["\<\"a\"\>", "2"], ",",
8208	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8209	SubscriptBox["\[Eta]",
8210	RowBox[{
8211	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8212	SubscriptBox["\<\"\[Mu]\"\>",
8213	RowBox[{"5", ",", "2"}]]}]], " ",
8214	SubscriptBox["\[Eta]",
8215	RowBox[{
8216	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8217	SubscriptBox["\<\"\[Mu]\"\>",
8218	RowBox[{"5", ",", "1"}]]}]], " ",
8219	SubscriptBox["\[Eta]",
8220	RowBox[{
8221	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8222	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "\[CapitalLambda]"], "+",
8223	FractionBox[
8224	RowBox[{"\[ImaginaryI]", " ",
8225	SubsuperscriptBox["g", "s", "2"], " ",
8226	SubscriptBox["\[Kappa]", "g"], " ",
8227	SubscriptBox["f",
8228	RowBox[{
8229	SubscriptBox["\<\"a\"\>", "1"], ",",
8230	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8231	SubscriptBox["f",
8232	RowBox[{
8233	SubscriptBox["\<\"a\"\>", "2"], ",",
8234	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8235	SubscriptBox["\[Eta]",
8236	RowBox[{
8237	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8238	SubscriptBox["\<\"\[Mu]\"\>",
8239	RowBox[{"5", ",", "1"}]]}]], " ",
8240	SubscriptBox["\[Eta]",
8241	RowBox[{
8242	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8243	SubscriptBox["\<\"\[Mu]\"\>",
8244	RowBox[{"5", ",", "2"}]]}]], " ",
8245	SubscriptBox["\[Eta]",
8246	RowBox[{
8247	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8248	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "\[CapitalLambda]"], "+",
8249	FractionBox[
8250	RowBox[{"\[ImaginaryI]", " ",
8251	SubsuperscriptBox["g", "s", "2"], " ",
8252	SubscriptBox["\[Kappa]", "g"], " ",
8253	SubscriptBox["f",
8254	RowBox[{
8255	SubscriptBox["\<\"a\"\>", "1"], ",",
8256	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8257	SubscriptBox["f",
8258	RowBox[{
8259	SubscriptBox["\<\"a\"\>", "2"], ",",
8260	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8261	SubscriptBox["\[Eta]",
8262	RowBox[{
8263	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8264	SubscriptBox["\<\"\[Mu]\"\>",
8265	RowBox[{"5", ",", "1"}]]}]], " ",
8266	SubscriptBox["\[Eta]",
8267	RowBox[{
8268	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8269	SubscriptBox["\<\"\[Mu]\"\>",
8270	RowBox[{"5", ",", "2"}]]}]], " ",
8271	SubscriptBox["\[Eta]",
8272	RowBox[{
8273	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8274	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "\[CapitalLambda]"], "-",
8275	FractionBox[
8276	RowBox[{"\[ImaginaryI]", " ",
8277	SubsuperscriptBox["g", "s", "2"], " ",
8278	SubscriptBox["\[Kappa]", "g"], " ",
8279	SubscriptBox["f",
8280	RowBox[{
8281	SubscriptBox["\<\"a\"\>", "1"], ",",
8282	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8283	SubscriptBox["f",
8284	RowBox[{
8285	SubscriptBox["\<\"a\"\>", "2"], ",",
8286	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8287	SubscriptBox["\[Eta]",
8288	RowBox[{
8289	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8290	SubscriptBox["\<\"\[Mu]\"\>",
8291	RowBox[{"5", ",", "2"}]]}]], " ",
8292	SubscriptBox["\[Eta]",
8293	RowBox[{
8294	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8295	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8296	SubscriptBox["\[Eta]",
8297	RowBox[{
8298	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8299	SubscriptBox["\<\"\[Mu]\"\>",
8300	RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
8301	FractionBox[
8302	RowBox[{"\[ImaginaryI]", " ",
8303	SubsuperscriptBox["g", "s", "2"], " ",
8304	SubscriptBox["\[Kappa]", "g"], " ",
8305	SubscriptBox["f",
8306	RowBox[{
8307	SubscriptBox["\<\"a\"\>", "1"], ",",
8308	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
8309	SubscriptBox["f",
8310	RowBox[{
8311	SubscriptBox["\<\"a\"\>", "3"], ",",
8312	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8313	SubscriptBox["\[Eta]",
8314	RowBox[{
8315	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8316	SubscriptBox["\<\"\[Mu]\"\>",
8317	RowBox[{"5", ",", "2"}]]}]], " ",
8318	SubscriptBox["\[Eta]",
8319	RowBox[{
8320	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8321	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8322	SubscriptBox["\[Eta]",
8323	RowBox[{
8324	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8325	SubscriptBox["\<\"\[Mu]\"\>",
8326	RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
8327	FractionBox[
8328	RowBox[{"\[ImaginaryI]", " ",
8329	SubsuperscriptBox["g", "s", "2"], " ",
8330	SubscriptBox["\[Kappa]", "g"], " ",
8331	SubscriptBox["f",
8332	RowBox[{
8333	SubscriptBox["\<\"a\"\>", "1"], ",",
8334	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8335	SubscriptBox["f",
8336	RowBox[{
8337	SubscriptBox["\<\"a\"\>", "2"], ",",
8338	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8339	SubscriptBox["\[Eta]",
8340	RowBox[{
8341	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8342	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8343	SubscriptBox["\[Eta]",
8344	RowBox[{
8345	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8346	SubscriptBox["\<\"\[Mu]\"\>",
8347	RowBox[{"5", ",", "2"}]]}]], " ",
8348	SubscriptBox["\[Eta]",
8349	RowBox[{
8350	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8351	SubscriptBox["\<\"\[Mu]\"\>",
8352	RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
8353	FractionBox[
8354	RowBox[{"\[ImaginaryI]", " ",
8355	SubsuperscriptBox["g", "s", "2"], " ",
8356	SubscriptBox["\[Kappa]", "g"], " ",
8357	SubscriptBox["f",
8358	RowBox[{
8359	SubscriptBox["\<\"a\"\>", "1"], ",",
8360	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
8361	SubscriptBox["f",
8362	RowBox[{
8363	SubscriptBox["\<\"a\"\>", "3"], ",",
8364	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8365	SubscriptBox["\[Eta]",
8366	RowBox[{
8367	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8368	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8369	SubscriptBox["\[Eta]",
8370	RowBox[{
8371	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8372	SubscriptBox["\<\"\[Mu]\"\>",
8373	RowBox[{"5", ",", "2"}]]}]], " ",
8374	SubscriptBox["\[Eta]",
8375	RowBox[{
8376	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8377	SubscriptBox["\<\"\[Mu]\"\>",
8378	RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
8379	FractionBox[
8380	RowBox[{"\[ImaginaryI]", " ",
8381	SubsuperscriptBox["g", "s", "2"], " ",
8382	SubscriptBox["\[Kappa]", "g"], " ",
8383	SubscriptBox["f",
8384	RowBox[{
8385	SubscriptBox["\<\"a\"\>", "1"], ",",
8386	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8387	SubscriptBox["f",
8388	RowBox[{
8389	SubscriptBox["\<\"a\"\>", "2"], ",",
8390	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8391	SubscriptBox["\[Eta]",
8392	RowBox[{
8393	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8394	SubscriptBox["\<\"\[Mu]\"\>",
8395	RowBox[{"5", ",", "1"}]]}]], " ",
8396	SubscriptBox["\[Eta]",
8397	RowBox[{
8398	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8399	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8400	SubscriptBox["\[Eta]",
8401	RowBox[{
8402	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8403	SubscriptBox["\<\"\[Mu]\"\>",
8404	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
8405	FractionBox[
8406	RowBox[{"\[ImaginaryI]", " ",
8407	SubsuperscriptBox["g", "s", "2"], " ",
8408	SubscriptBox["\[Kappa]", "g"], " ",
8409	SubscriptBox["f",
8410	RowBox[{
8411	SubscriptBox["\<\"a\"\>", "1"], ",",
8412	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
8413	SubscriptBox["f",
8414	RowBox[{
8415	SubscriptBox["\<\"a\"\>", "3"], ",",
8416	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8417	SubscriptBox["\[Eta]",
8418	RowBox[{
8419	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8420	SubscriptBox["\<\"\[Mu]\"\>",
8421	RowBox[{"5", ",", "1"}]]}]], " ",
8422	SubscriptBox["\[Eta]",
8423	RowBox[{
8424	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8425	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8426	SubscriptBox["\[Eta]",
8427	RowBox[{
8428	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8429	SubscriptBox["\<\"\[Mu]\"\>",
8430	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
8431	FractionBox[
8432	RowBox[{"\[ImaginaryI]", " ",
8433	SubsuperscriptBox["g", "s", "2"], " ",
8434	SubscriptBox["\[Kappa]", "g"], " ",
8435	SubscriptBox["f",
8436	RowBox[{
8437	SubscriptBox["\<\"a\"\>", "1"], ",",
8438	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8439	SubscriptBox["f",
8440	RowBox[{
8441	SubscriptBox["\<\"a\"\>", "2"], ",",
8442	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8443	SubscriptBox["\[Eta]",
8444	RowBox[{
8445	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8446	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8447	SubscriptBox["\[Eta]",
8448	RowBox[{
8449	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8450	SubscriptBox["\<\"\[Mu]\"\>",
8451	RowBox[{"5", ",", "1"}]]}]], " ",
8452	SubscriptBox["\[Eta]",
8453	RowBox[{
8454	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8455	SubscriptBox["\<\"\[Mu]\"\>",
8456	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
8457	FractionBox[
8458	RowBox[{"\[ImaginaryI]", " ",
8459	SubsuperscriptBox["g", "s", "2"], " ",
8460	SubscriptBox["\[Kappa]", "g"], " ",
8461	SubscriptBox["f",
8462	RowBox[{
8463	SubscriptBox["\<\"a\"\>", "1"], ",",
8464	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
8465	SubscriptBox["f",
8466	RowBox[{
8467	SubscriptBox["\<\"a\"\>", "3"], ",",
8468	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8469	SubscriptBox["\[Eta]",
8470	RowBox[{
8471	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8472	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8473	SubscriptBox["\[Eta]",
8474	RowBox[{
8475	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8476	SubscriptBox["\<\"\[Mu]\"\>",
8477	RowBox[{"5", ",", "1"}]]}]], " ",
8478	SubscriptBox["\[Eta]",
8479	RowBox[{
8480	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8481	SubscriptBox["\<\"\[Mu]\"\>",
8482	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
8483	FractionBox[
8484	RowBox[{"\[ImaginaryI]", " ",
8485	SubsuperscriptBox["g", "s", "2"], " ",
8486	SubscriptBox["\[Kappa]", "g"], " ",
8487	SubscriptBox["f",
8488	RowBox[{
8489	SubscriptBox["\<\"a\"\>", "1"], ",",
8490	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8491	SubscriptBox["f",
8492	RowBox[{
8493	SubscriptBox["\<\"a\"\>", "2"], ",",
8494	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8495	SubscriptBox["\[Eta]",
8496	RowBox[{
8497	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8498	SubscriptBox["\<\"\[Mu]\"\>",
8499	RowBox[{"5", ",", "2"}]]}]], " ",
8500	SubscriptBox["\[Eta]",
8501	RowBox[{
8502	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8503	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8504	SubscriptBox["\[Eta]",
8505	RowBox[{
8506	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
8507	SubscriptBox["\<\"\[Mu]\"\>",
8508	RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
8509	FractionBox[
8510	RowBox[{"\[ImaginaryI]", " ",
8511	SubsuperscriptBox["g", "s", "2"], " ",
8512	SubscriptBox["\[Kappa]", "g"], " ",
8513	SubscriptBox["f",
8514	RowBox[{
8515	SubscriptBox["\<\"a\"\>", "1"], ",",
8516	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
8517	SubscriptBox["f",
8518	RowBox[{
8519	SubscriptBox["\<\"a\"\>", "3"], ",",
8520	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8521	SubscriptBox["\[Eta]",
8522	RowBox[{
8523	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8524	SubscriptBox["\<\"\[Mu]\"\>",
8525	RowBox[{"5", ",", "2"}]]}]], " ",
8526	SubscriptBox["\[Eta]",
8527	RowBox[{
8528	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8529	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8530	SubscriptBox["\[Eta]",
8531	RowBox[{
8532	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
8533	SubscriptBox["\<\"\[Mu]\"\>",
8534	RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
8535	FractionBox[
8536	RowBox[{"\[ImaginaryI]", " ",
8537	SubsuperscriptBox["g", "s", "2"], " ",
8538	SubscriptBox["\[Kappa]", "g"], " ",
8539	SubscriptBox["f",
8540	RowBox[{
8541	SubscriptBox["\<\"a\"\>", "1"], ",",
8542	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8543	SubscriptBox["f",
8544	RowBox[{
8545	SubscriptBox["\<\"a\"\>", "2"], ",",
8546	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8547	SubscriptBox["\[Eta]",
8548	RowBox[{
8549	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8550	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8551	SubscriptBox["\[Eta]",
8552	RowBox[{
8553	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8554	SubscriptBox["\<\"\[Mu]\"\>",
8555	RowBox[{"5", ",", "2"}]]}]], " ",
8556	SubscriptBox["\[Eta]",
8557	RowBox[{
8558	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
8559	SubscriptBox["\<\"\[Mu]\"\>",
8560	RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
8561	FractionBox[
8562	RowBox[{"\[ImaginaryI]", " ",
8563	SubsuperscriptBox["g", "s", "2"], " ",
8564	SubscriptBox["\[Kappa]", "g"], " ",
8565	SubscriptBox["f",
8566	RowBox[{
8567	SubscriptBox["\<\"a\"\>", "1"], ",",
8568	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
8569	SubscriptBox["f",
8570	RowBox[{
8571	SubscriptBox["\<\"a\"\>", "3"], ",",
8572	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8573	SubscriptBox["\[Eta]",
8574	RowBox[{
8575	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8576	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8577	SubscriptBox["\[Eta]",
8578	RowBox[{
8579	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8580	SubscriptBox["\<\"\[Mu]\"\>",
8581	RowBox[{"5", ",", "2"}]]}]], " ",
8582	SubscriptBox["\[Eta]",
8583	RowBox[{
8584	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
8585	SubscriptBox["\<\"\[Mu]\"\>",
8586	RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
8587	FractionBox[
8588	RowBox[{"\[ImaginaryI]", " ",
8589	SubsuperscriptBox["g", "s", "2"], " ",
8590	SubscriptBox["\[Kappa]", "g"], " ",
8591	SubscriptBox["f",
8592	RowBox[{
8593	SubscriptBox["\<\"a\"\>", "1"], ",",
8594	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8595	SubscriptBox["f",
8596	RowBox[{
8597	SubscriptBox["\<\"a\"\>", "2"], ",",
8598	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8599	SubscriptBox["\[Eta]",
8600	RowBox[{
8601	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8602	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
8603	SubscriptBox["\[Eta]",
8604	RowBox[{
8605	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8606	SubscriptBox["\<\"\[Mu]\"\>",
8607	RowBox[{"5", ",", "2"}]]}]], " ",
8608	SubscriptBox["\[Eta]",
8609	RowBox[{
8610	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
8611	SubscriptBox["\<\"\[Mu]\"\>",
8612	RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
8613	FractionBox[
8614	RowBox[{"\[ImaginaryI]", " ",
8615	SubsuperscriptBox["g", "s", "2"], " ",
8616	SubscriptBox["\[Kappa]", "g"], " ",
8617	SubscriptBox["f",
8618	RowBox[{
8619	SubscriptBox["\<\"a\"\>", "1"], ",",
8620	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8621	SubscriptBox["f",
8622	RowBox[{
8623	SubscriptBox["\<\"a\"\>", "2"], ",",
8624	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8625	SubscriptBox["\[Eta]",
8626	RowBox[{
8627	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8628	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
8629	SubscriptBox["\[Eta]",
8630	RowBox[{
8631	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8632	SubscriptBox["\<\"\[Mu]\"\>",
8633	RowBox[{"5", ",", "2"}]]}]], " ",
8634	SubscriptBox["\[Eta]",
8635	RowBox[{
8636	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
8637	SubscriptBox["\<\"\[Mu]\"\>",
8638	RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
8639	FractionBox[
8640	RowBox[{"\[ImaginaryI]", " ",
8641	SubsuperscriptBox["g", "s", "2"], " ",
8642	SubscriptBox["\[Kappa]", "g"], " ",
8643	SubscriptBox["f",
8644	RowBox[{
8645	SubscriptBox["\<\"a\"\>", "1"], ",",
8646	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8647	SubscriptBox["f",
8648	RowBox[{
8649	SubscriptBox["\<\"a\"\>", "2"], ",",
8650	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8651	SubscriptBox["\[Eta]",
8652	RowBox[{
8653	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8654	SubscriptBox["\<\"\[Mu]\"\>",
8655	RowBox[{"5", ",", "1"}]]}]], " ",
8656	SubscriptBox["\[Eta]",
8657	RowBox[{
8658	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8659	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8660	SubscriptBox["\[Eta]",
8661	RowBox[{
8662	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
8663	SubscriptBox["\<\"\[Mu]\"\>",
8664	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
8665	FractionBox[
8666	RowBox[{"\[ImaginaryI]", " ",
8667	SubsuperscriptBox["g", "s", "2"], " ",
8668	SubscriptBox["\[Kappa]", "g"], " ",
8669	SubscriptBox["f",
8670	RowBox[{
8671	SubscriptBox["\<\"a\"\>", "1"], ",",
8672	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
8673	SubscriptBox["f",
8674	RowBox[{
8675	SubscriptBox["\<\"a\"\>", "3"], ",",
8676	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8677	SubscriptBox["\[Eta]",
8678	RowBox[{
8679	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8680	SubscriptBox["\<\"\[Mu]\"\>",
8681	RowBox[{"5", ",", "1"}]]}]], " ",
8682	SubscriptBox["\[Eta]",
8683	RowBox[{
8684	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8685	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8686	SubscriptBox["\[Eta]",
8687	RowBox[{
8688	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
8689	SubscriptBox["\<\"\[Mu]\"\>",
8690	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
8691	FractionBox[
8692	RowBox[{"\[ImaginaryI]", " ",
8693	SubsuperscriptBox["g", "s", "2"], " ",
8694	SubscriptBox["\[Kappa]", "g"], " ",
8695	SubscriptBox["f",
8696	RowBox[{
8697	SubscriptBox["\<\"a\"\>", "1"], ",",
8698	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8699	SubscriptBox["f",
8700	RowBox[{
8701	SubscriptBox["\<\"a\"\>", "2"], ",",
8702	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8703	SubscriptBox["\[Eta]",
8704	RowBox[{
8705	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8706	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8707	SubscriptBox["\[Eta]",
8708	RowBox[{
8709	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8710	SubscriptBox["\<\"\[Mu]\"\>",
8711	RowBox[{"5", ",", "1"}]]}]], " ",
8712	SubscriptBox["\[Eta]",
8713	RowBox[{
8714	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
8715	SubscriptBox["\<\"\[Mu]\"\>",
8716	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
8717	FractionBox[
8718	RowBox[{"\[ImaginaryI]", " ",
8719	SubsuperscriptBox["g", "s", "2"], " ",
8720	SubscriptBox["\[Kappa]", "g"], " ",
8721	SubscriptBox["f",
8722	RowBox[{
8723	SubscriptBox["\<\"a\"\>", "1"], ",",
8724	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
8725	SubscriptBox["f",
8726	RowBox[{
8727	SubscriptBox["\<\"a\"\>", "3"], ",",
8728	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8729	SubscriptBox["\[Eta]",
8730	RowBox[{
8731	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8732	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8733	SubscriptBox["\[Eta]",
8734	RowBox[{
8735	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8736	SubscriptBox["\<\"\[Mu]\"\>",
8737	RowBox[{"5", ",", "1"}]]}]], " ",
8738	SubscriptBox["\[Eta]",
8739	RowBox[{
8740	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
8741	SubscriptBox["\<\"\[Mu]\"\>",
8742	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
8743	FractionBox[
8744	RowBox[{"\[ImaginaryI]", " ",
8745	SubsuperscriptBox["g", "s", "2"], " ",
8746	SubscriptBox["\[Kappa]", "g"], " ",
8747	SubscriptBox["f",
8748	RowBox[{
8749	SubscriptBox["\<\"a\"\>", "1"], ",",
8750	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8751	SubscriptBox["f",
8752	RowBox[{
8753	SubscriptBox["\<\"a\"\>", "2"], ",",
8754	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8755	SubscriptBox["\[Eta]",
8756	RowBox[{
8757	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8758	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
8759	SubscriptBox["\[Eta]",
8760	RowBox[{
8761	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8762	SubscriptBox["\<\"\[Mu]\"\>",
8763	RowBox[{"5", ",", "1"}]]}]], " ",
8764	SubscriptBox["\[Eta]",
8765	RowBox[{
8766	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
8767	SubscriptBox["\<\"\[Mu]\"\>",
8768	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
8769	FractionBox[
8770	RowBox[{"\[ImaginaryI]", " ",
8771	SubsuperscriptBox["g", "s", "2"], " ",
8772	SubscriptBox["\[Kappa]", "g"], " ",
8773	SubscriptBox["f",
8774	RowBox[{
8775	SubscriptBox["\<\"a\"\>", "1"], ",",
8776	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8777	SubscriptBox["f",
8778	RowBox[{
8779	SubscriptBox["\<\"a\"\>", "2"], ",",
8780	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8781	SubscriptBox["\[Eta]",
8782	RowBox[{
8783	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8784	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
8785	SubscriptBox["\[Eta]",
8786	RowBox[{
8787	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8788	SubscriptBox["\<\"\[Mu]\"\>",
8789	RowBox[{"5", ",", "1"}]]}]], " ",
8790	SubscriptBox["\[Eta]",
8791	RowBox[{
8792	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
8793	SubscriptBox["\<\"\[Mu]\"\>",
8794	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
8795	FractionBox[
8796	RowBox[{"\[ImaginaryI]", " ",
8797	SubsuperscriptBox["g", "s", "2"], " ",
8798	SubscriptBox["\[Kappa]", "g"], " ",
8799	SubscriptBox["f",
8800	RowBox[{
8801	SubscriptBox["\<\"a\"\>", "1"], ",",
8802	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8803	SubscriptBox["f",
8804	RowBox[{
8805	SubscriptBox["\<\"a\"\>", "2"], ",",
8806	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8807	SubscriptBox["\[Eta]",
8808	RowBox[{
8809	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8810	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8811	SubscriptBox["\[Eta]",
8812	RowBox[{
8813	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8814	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8815	SubscriptBox["\[Eta]",
8816	RowBox[{
8817	SubscriptBox["\<\"\[Mu]\"\>",
8818	RowBox[{"5", ",", "1"}]], ",",
8819	SubscriptBox["\<\"\[Mu]\"\>",
8820	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
8821	FractionBox[
8822	RowBox[{"\[ImaginaryI]", " ",
8823	SubsuperscriptBox["g", "s", "2"], " ",
8824	SubscriptBox["\[Kappa]", "g"], " ",
8825	SubscriptBox["f",
8826	RowBox[{
8827	SubscriptBox["\<\"a\"\>", "1"], ",",
8828	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
8829	SubscriptBox["f",
8830	RowBox[{
8831	SubscriptBox["\<\"a\"\>", "3"], ",",
8832	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8833	SubscriptBox["\[Eta]",
8834	RowBox[{
8835	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8836	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8837	SubscriptBox["\[Eta]",
8838	RowBox[{
8839	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8840	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8841	SubscriptBox["\[Eta]",
8842	RowBox[{
8843	SubscriptBox["\<\"\[Mu]\"\>",
8844	RowBox[{"5", ",", "1"}]], ",",
8845	SubscriptBox["\<\"\[Mu]\"\>",
8846	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
8847	FractionBox[
8848	RowBox[{"\[ImaginaryI]", " ",
8849	SubsuperscriptBox["g", "s", "2"], " ",
8850	SubscriptBox["\[Kappa]", "g"], " ",
8851	SubscriptBox["f",
8852	RowBox[{
8853	SubscriptBox["\<\"a\"\>", "1"], ",",
8854	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8855	SubscriptBox["f",
8856	RowBox[{
8857	SubscriptBox["\<\"a\"\>", "2"], ",",
8858	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8859	SubscriptBox["\[Eta]",
8860	RowBox[{
8861	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8862	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8863	SubscriptBox["\[Eta]",
8864	RowBox[{
8865	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8866	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8867	SubscriptBox["\[Eta]",
8868	RowBox[{
8869	SubscriptBox["\<\"\[Mu]\"\>",
8870	RowBox[{"5", ",", "1"}]], ",",
8871	SubscriptBox["\<\"\[Mu]\"\>",
8872	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
8873	FractionBox[
8874	RowBox[{"\[ImaginaryI]", " ",
8875	SubsuperscriptBox["g", "s", "2"], " ",
8876	SubscriptBox["\[Kappa]", "g"], " ",
8877	SubscriptBox["f",
8878	RowBox[{
8879	SubscriptBox["\<\"a\"\>", "1"], ",",
8880	SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
8881	SubscriptBox["f",
8882	RowBox[{
8883	SubscriptBox["\<\"a\"\>", "3"], ",",
8884	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8885	SubscriptBox["\[Eta]",
8886	RowBox[{
8887	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8888	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
8889	SubscriptBox["\[Eta]",
8890	RowBox[{
8891	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
8892	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8893	SubscriptBox["\[Eta]",
8894	RowBox[{
8895	SubscriptBox["\<\"\[Mu]\"\>",
8896	RowBox[{"5", ",", "1"}]], ",",
8897	SubscriptBox["\<\"\[Mu]\"\>",
8898	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
8899	FractionBox[
8900	RowBox[{"\[ImaginaryI]", " ",
8901	SubsuperscriptBox["g", "s", "2"], " ",
8902	SubscriptBox["\[Kappa]", "g"], " ",
8903	SubscriptBox["f",
8904	RowBox[{
8905	SubscriptBox["\<\"a\"\>", "1"], ",",
8906	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8907	SubscriptBox["f",
8908	RowBox[{
8909	SubscriptBox["\<\"a\"\>", "2"], ",",
8910	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8911	SubscriptBox["\[Eta]",
8912	RowBox[{
8913	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8914	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
8915	SubscriptBox["\[Eta]",
8916	RowBox[{
8917	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8918	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8919	SubscriptBox["\[Eta]",
8920	RowBox[{
8921	SubscriptBox["\<\"\[Mu]\"\>",
8922	RowBox[{"5", ",", "1"}]], ",",
8923	SubscriptBox["\<\"\[Mu]\"\>",
8924	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
8925	FractionBox[
8926	RowBox[{"\[ImaginaryI]", " ",
8927	SubsuperscriptBox["g", "s", "2"], " ",
8928	SubscriptBox["\[Kappa]", "g"], " ",
8929	SubscriptBox["f",
8930	RowBox[{
8931	SubscriptBox["\<\"a\"\>", "1"], ",",
8932	SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
8933	SubscriptBox["f",
8934	RowBox[{
8935	SubscriptBox["\<\"a\"\>", "2"], ",",
8936	SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
8937	SubscriptBox["\[Eta]",
8938	RowBox[{
8939	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
8940	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
8941	SubscriptBox["\[Eta]",
8942	RowBox[{
8943	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
8944	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
8945	SubscriptBox["\[Eta]",
8946	RowBox[{
8947	SubscriptBox["\<\"\[Mu]\"\>",
8948	RowBox[{"5", ",", "1"}]], ",",
8949	SubscriptBox["\<\"\[Mu]\"\>",
8950	RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"]}]], "Print",
8951	CellChangeTimes->{
8952	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8953	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8954	3.5811597486458473`*^9}],
8955
8956	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
8957	* * * * * *)\"\>"], "Print",
8958	CellChangeTimes->{
8959	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8960	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8961	3.581159748688223*^9}],
8962
8963	Cell[BoxData[
8964	InterpretationBox[
8965	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "44"}],
8966	SequenceForm["Vertex ", 44],
8967	Editable->False]], "Print",
8968	CellChangeTimes->{
8969	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8970	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8971	3.581159748694454*^9}],
8972
8973	Cell[BoxData[
8974	InterpretationBox[
8975	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
8976	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8977	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
8978	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
8979	Editable->False]], "Print",
8980	CellChangeTimes->{
8981	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8982	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8983	3.581159748699162*^9}],
8984
8985	Cell[BoxData[
8986	InterpretationBox[
8987	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
8988	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8989	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
8990	OverscriptBox["b", "\<\"-\"\>"]}],
8991	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
8992	Editable->False]], "Print",
8993	CellChangeTimes->{
8994	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
8995	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
8996	3.581159748705668*^9}],
8997
8998	Cell[BoxData[
8999	InterpretationBox[
9000	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
9001	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
9002	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
9003	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
9004	Editable->False]], "Print",
9005	CellChangeTimes->{
9006	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9007	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9008	3.581159748710792*^9}],
9009
9010	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
9011	CellChangeTimes->{
9012	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9013	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9014	3.581159748724504*^9}],
9015
9016	Cell[BoxData[
9017	RowBox[{
9018	RowBox[{"-",
9019	FractionBox[
9020	RowBox[{"\[ImaginaryI]", " ",
9021	SubscriptBox["\[Kappa]", "q"], " ",
9022	SubsuperscriptBox["\<\"p\"\>", "1",
9023	SubscriptBox["\<\"\[Mu]\"\>",
9024	RowBox[{"3", ",", "2"}]]], " ",
9025	SubsuperscriptBox["\[Gamma]",
9026	RowBox[{
9027	SubscriptBox["\<\"s\"\>", "2"], ",",
9028	SubscriptBox["\<\"s\"\>", "1"]}],
9029	SubscriptBox["\<\"\[Mu]\"\>",
9030	RowBox[{"3", ",", "1"}]]], " ",
9031	SubscriptBox["\[Delta]",
9032	RowBox[{
9033	SubscriptBox["\<\"m\"\>", "1"], ",",
9034	SubscriptBox["\<\"m\"\>", "2"]}]]}],
9035	RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
9036	FractionBox[
9037	RowBox[{"\[ImaginaryI]", " ",
9038	SubscriptBox["\[Kappa]", "q"], " ",
9039	SubsuperscriptBox["\<\"p\"\>", "2",
9040	SubscriptBox["\<\"\[Mu]\"\>",
9041	RowBox[{"3", ",", "2"}]]], " ",
9042	SubsuperscriptBox["\[Gamma]",
9043	RowBox[{
9044	SubscriptBox["\<\"s\"\>", "2"], ",",
9045	SubscriptBox["\<\"s\"\>", "1"]}],
9046	SubscriptBox["\<\"\[Mu]\"\>",
9047	RowBox[{"3", ",", "1"}]]], " ",
9048	SubscriptBox["\[Delta]",
9049	RowBox[{
9050	SubscriptBox["\<\"m\"\>", "1"], ",",
9051	SubscriptBox["\<\"m\"\>", "2"]}]]}],
9052	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
9053	FractionBox[
9054	RowBox[{"\[ImaginaryI]", " ",
9055	SubscriptBox["\[Kappa]", "q"], " ",
9056	SubsuperscriptBox["\<\"p\"\>", "1",
9057	SubscriptBox["\<\"\[Mu]\"\>",
9058	RowBox[{"3", ",", "1"}]]], " ",
9059	SubsuperscriptBox["\[Gamma]",
9060	RowBox[{
9061	SubscriptBox["\<\"s\"\>", "2"], ",",
9062	SubscriptBox["\<\"s\"\>", "1"]}],
9063	SubscriptBox["\<\"\[Mu]\"\>",
9064	RowBox[{"3", ",", "2"}]]], " ",
9065	SubscriptBox["\[Delta]",
9066	RowBox[{
9067	SubscriptBox["\<\"m\"\>", "1"], ",",
9068	SubscriptBox["\<\"m\"\>", "2"]}]]}],
9069	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
9070	FractionBox[
9071	RowBox[{"\[ImaginaryI]", " ",
9072	SubscriptBox["\[Kappa]", "q"], " ",
9073	SubsuperscriptBox["\<\"p\"\>", "2",
9074	SubscriptBox["\<\"\[Mu]\"\>",
9075	RowBox[{"3", ",", "1"}]]], " ",
9076	SubsuperscriptBox["\[Gamma]",
9077	RowBox[{
9078	SubscriptBox["\<\"s\"\>", "2"], ",",
9079	SubscriptBox["\<\"s\"\>", "1"]}],
9080	SubscriptBox["\<\"\[Mu]\"\>",
9081	RowBox[{"3", ",", "2"}]]], " ",
9082	SubscriptBox["\[Delta]",
9083	RowBox[{
9084	SubscriptBox["\<\"m\"\>", "1"], ",",
9085	SubscriptBox["\<\"m\"\>", "2"]}]]}],
9086	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
9087	FractionBox[
9088	RowBox[{"\[ImaginaryI]", " ",
9089	SubscriptBox["\[Kappa]", "q"], " ", "MB", " ",
9090	SubscriptBox["\[Delta]",
9091	RowBox[{
9092	SubscriptBox["\<\"m\"\>", "1"], ",",
9093	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
9094	SubscriptBox["\[Delta]",
9095	RowBox[{
9096	SubscriptBox["\<\"s\"\>", "2"], ",",
9097	SubscriptBox["\<\"s\"\>", "1"]}]], " ",
9098	SubscriptBox["\[Eta]",
9099	RowBox[{
9100	SubscriptBox["\<\"\[Mu]\"\>",
9101	RowBox[{"3", ",", "1"}]], ",",
9102	SubscriptBox["\<\"\[Mu]\"\>",
9103	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
9104	FractionBox[
9105	RowBox[{"\[ImaginaryI]", " ",
9106	SubscriptBox["\[Kappa]", "q"], " ",
9107	SubscriptBox["\[Delta]",
9108	RowBox[{
9109	SubscriptBox["\<\"m\"\>", "1"], ",",
9110	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
9111	SubscriptBox["\[Eta]",
9112	RowBox[{
9113	SubscriptBox["\<\"\[Mu]\"\>",
9114	RowBox[{"3", ",", "1"}]], ",",
9115	SubscriptBox["\<\"\[Mu]\"\>",
9116	RowBox[{"3", ",", "2"}]]}]], " ",
9117	SubscriptBox[
9118	RowBox[{"\[Gamma]", ".",
9119	SubscriptBox["\<\"p\"\>", "1"]}],
9120	RowBox[{
9121	SubscriptBox["\<\"s\"\>", "2"], ",",
9122	SubscriptBox["\<\"s\"\>", "1"]}]]}],
9123	RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
9124	FractionBox[
9125	RowBox[{"\[ImaginaryI]", " ",
9126	SubscriptBox["\[Kappa]", "q"], " ",
9127	SubscriptBox["\[Delta]",
9128	RowBox[{
9129	SubscriptBox["\<\"m\"\>", "1"], ",",
9130	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
9131	SubscriptBox["\[Eta]",
9132	RowBox[{
9133	SubscriptBox["\<\"\[Mu]\"\>",
9134	RowBox[{"3", ",", "1"}]], ",",
9135	SubscriptBox["\<\"\[Mu]\"\>",
9136	RowBox[{"3", ",", "2"}]]}]], " ",
9137	SubscriptBox[
9138	RowBox[{"\[Gamma]", ".",
9139	SubscriptBox["\<\"p\"\>", "2"]}],
9140	RowBox[{
9141	SubscriptBox["\<\"s\"\>", "2"], ",",
9142	SubscriptBox["\<\"s\"\>", "1"]}]]}],
9143	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
9144	CellChangeTimes->{
9145	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9146	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9147	3.581159748730384*^9}],
9148
9149	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
9150	* * * * * *)\"\>"], "Print",
9151	CellChangeTimes->{
9152	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9153	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9154	3.581159748737555*^9}],
9155
9156	Cell[BoxData[
9157	InterpretationBox[
9158	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "45"}],
9159	SequenceForm["Vertex ", 45],
9160	Editable->False]], "Print",
9161	CellChangeTimes->{
9162	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9163	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9164	3.581159748742529*^9}],
9165
9166	Cell[BoxData[
9167	InterpretationBox[
9168	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
9169	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9170	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
9171	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
9172	Editable->False]], "Print",
9173	CellChangeTimes->{
9174	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9175	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9176	3.581159748747438*^9}],
9177
9178	Cell[BoxData[
9179	InterpretationBox[
9180	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
9181	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9182	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
9183	OverscriptBox["d", "\<\"-\"\>"]}],
9184	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
9185	Editable->False]], "Print",
9186	CellChangeTimes->{
9187	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9188	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9189	3.581159748752425*^9}],
9190
9191	Cell[BoxData[
9192	InterpretationBox[
9193	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
9194	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
9195	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
9196	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
9197	Editable->False]], "Print",
9198	CellChangeTimes->{
9199	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9200	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9201	3.5811597487574453`*^9}],
9202
9203	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
9204	CellChangeTimes->{
9205	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9206	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9207	3.581159748762434*^9}],
9208
9209	Cell[BoxData[
9210	RowBox[{
9211	RowBox[{"-",
9212	FractionBox[
9213	RowBox[{"\[ImaginaryI]", " ",
9214	SubscriptBox["\[Kappa]", "q"], " ",
9215	SubsuperscriptBox["\<\"p\"\>", "1",
9216	SubscriptBox["\<\"\[Mu]\"\>",
9217	RowBox[{"3", ",", "2"}]]], " ",
9218	SubsuperscriptBox["\[Gamma]",
9219	RowBox[{
9220	SubscriptBox["\<\"s\"\>", "2"], ",",
9221	SubscriptBox["\<\"s\"\>", "1"]}],
9222	SubscriptBox["\<\"\[Mu]\"\>",
9223	RowBox[{"3", ",", "1"}]]], " ",
9224	SubscriptBox["\[Delta]",
9225	RowBox[{
9226	SubscriptBox["\<\"m\"\>", "1"], ",",
9227	SubscriptBox["\<\"m\"\>", "2"]}]]}],
9228	RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
9229	FractionBox[
9230	RowBox[{"\[ImaginaryI]", " ",
9231	SubscriptBox["\[Kappa]", "q"], " ",
9232	SubsuperscriptBox["\<\"p\"\>", "2",
9233	SubscriptBox["\<\"\[Mu]\"\>",
9234	RowBox[{"3", ",", "2"}]]], " ",
9235	SubsuperscriptBox["\[Gamma]",
9236	RowBox[{
9237	SubscriptBox["\<\"s\"\>", "2"], ",",
9238	SubscriptBox["\<\"s\"\>", "1"]}],
9239	SubscriptBox["\<\"\[Mu]\"\>",
9240	RowBox[{"3", ",", "1"}]]], " ",
9241	SubscriptBox["\[Delta]",
9242	RowBox[{
9243	SubscriptBox["\<\"m\"\>", "1"], ",",
9244	SubscriptBox["\<\"m\"\>", "2"]}]]}],
9245	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
9246	FractionBox[
9247	RowBox[{"\[ImaginaryI]", " ",
9248	SubscriptBox["\[Kappa]", "q"], " ",
9249	SubsuperscriptBox["\<\"p\"\>", "1",
9250	SubscriptBox["\<\"\[Mu]\"\>",
9251	RowBox[{"3", ",", "1"}]]], " ",
9252	SubsuperscriptBox["\[Gamma]",
9253	RowBox[{
9254	SubscriptBox["\<\"s\"\>", "2"], ",",
9255	SubscriptBox["\<\"s\"\>", "1"]}],
9256	SubscriptBox["\<\"\[Mu]\"\>",
9257	RowBox[{"3", ",", "2"}]]], " ",
9258	SubscriptBox["\[Delta]",
9259	RowBox[{
9260	SubscriptBox["\<\"m\"\>", "1"], ",",
9261	SubscriptBox["\<\"m\"\>", "2"]}]]}],
9262	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
9263	FractionBox[
9264	RowBox[{"\[ImaginaryI]", " ",
9265	SubscriptBox["\[Kappa]", "q"], " ",
9266	SubsuperscriptBox["\<\"p\"\>", "2",
9267	SubscriptBox["\<\"\[Mu]\"\>",
9268	RowBox[{"3", ",", "1"}]]], " ",
9269	SubsuperscriptBox["\[Gamma]",
9270	RowBox[{
9271	SubscriptBox["\<\"s\"\>", "2"], ",",
9272	SubscriptBox["\<\"s\"\>", "1"]}],
9273	SubscriptBox["\<\"\[Mu]\"\>",
9274	RowBox[{"3", ",", "2"}]]], " ",
9275	SubscriptBox["\[Delta]",
9276	RowBox[{
9277	SubscriptBox["\<\"m\"\>", "1"], ",",
9278	SubscriptBox["\<\"m\"\>", "2"]}]]}],
9279	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
9280	FractionBox[
9281	RowBox[{"\[ImaginaryI]", " ",
9282	SubscriptBox["\[Kappa]", "q"], " ",
9283	SubscriptBox["\[Delta]",
9284	RowBox[{
9285	SubscriptBox["\<\"m\"\>", "1"], ",",
9286	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
9287	SubscriptBox["\[Eta]",
9288	RowBox[{
9289	SubscriptBox["\<\"\[Mu]\"\>",
9290	RowBox[{"3", ",", "1"}]], ",",
9291	SubscriptBox["\<\"\[Mu]\"\>",
9292	RowBox[{"3", ",", "2"}]]}]], " ",
9293	SubscriptBox[
9294	RowBox[{"\[Gamma]", ".",
9295	SubscriptBox["\<\"p\"\>", "1"]}],
9296	RowBox[{
9297	SubscriptBox["\<\"s\"\>", "2"], ",",
9298	SubscriptBox["\<\"s\"\>", "1"]}]]}],
9299	RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
9300	FractionBox[
9301	RowBox[{"\[ImaginaryI]", " ",
9302	SubscriptBox["\[Kappa]", "q"], " ",
9303	SubscriptBox["\[Delta]",
9304	RowBox[{
9305	SubscriptBox["\<\"m\"\>", "1"], ",",
9306	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
9307	SubscriptBox["\[Eta]",
9308	RowBox[{
9309	SubscriptBox["\<\"\[Mu]\"\>",
9310	RowBox[{"3", ",", "1"}]], ",",
9311	SubscriptBox["\<\"\[Mu]\"\>",
9312	RowBox[{"3", ",", "2"}]]}]], " ",
9313	SubscriptBox[
9314	RowBox[{"\[Gamma]", ".",
9315	SubscriptBox["\<\"p\"\>", "2"]}],
9316	RowBox[{
9317	SubscriptBox["\<\"s\"\>", "2"], ",",
9318	SubscriptBox["\<\"s\"\>", "1"]}]]}],
9319	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
9320	CellChangeTimes->{
9321	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9322	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9323	3.5811597487681303`*^9}],
9324
9325	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
9326	* * * * * *)\"\>"], "Print",
9327	CellChangeTimes->{
9328	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9329	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9330	3.581159748775063*^9}],
9331
9332	Cell[BoxData[
9333	InterpretationBox[
9334	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "46"}],
9335	SequenceForm["Vertex ", 46],
9336	Editable->False]], "Print",
9337	CellChangeTimes->{
9338	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9339	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9340	3.581159748780126*^9}],
9341
9342	Cell[BoxData[
9343	InterpretationBox[
9344	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
9345	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9346	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
9347	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
9348	Editable->False]], "Print",
9349	CellChangeTimes->{
9350	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9351	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9352	3.581159748785063*^9}],
9353
9354	Cell[BoxData[
9355	InterpretationBox[
9356	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
9357	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9358	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
9359	OverscriptBox["s", "\<\"-\"\>"]}],
9360	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
9361	Editable->False]], "Print",
9362	CellChangeTimes->{
9363	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9364	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9365	3.581159748790512*^9}],
9366
9367	Cell[BoxData[
9368	InterpretationBox[
9369	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
9370	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
9371	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
9372	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
9373	Editable->False]], "Print",
9374	CellChangeTimes->{
9375	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9376	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9377	3.581159748795686*^9}],
9378
9379	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
9380	CellChangeTimes->{
9381	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9382	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9383	3.5811597488022003`*^9}],
9384
9385	Cell[BoxData[
9386	RowBox[{
9387	RowBox[{"-",
9388	FractionBox[
9389	RowBox[{"\[ImaginaryI]", " ",
9390	SubscriptBox["\[Kappa]", "q"], " ",
9391	SubsuperscriptBox["\<\"p\"\>", "1",
9392	SubscriptBox["\<\"\[Mu]\"\>",
9393	RowBox[{"3", ",", "2"}]]], " ",
9394	SubsuperscriptBox["\[Gamma]",
9395	RowBox[{
9396	SubscriptBox["\<\"s\"\>", "2"], ",",
9397	SubscriptBox["\<\"s\"\>", "1"]}],
9398	SubscriptBox["\<\"\[Mu]\"\>",
9399	RowBox[{"3", ",", "1"}]]], " ",
9400	SubscriptBox["\[Delta]",
9401	RowBox[{
9402	SubscriptBox["\<\"m\"\>", "1"], ",",
9403	SubscriptBox["\<\"m\"\>", "2"]}]]}],
9404	RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
9405	FractionBox[
9406	RowBox[{"\[ImaginaryI]", " ",
9407	SubscriptBox["\[Kappa]", "q"], " ",
9408	SubsuperscriptBox["\<\"p\"\>", "2",
9409	SubscriptBox["\<\"\[Mu]\"\>",
9410	RowBox[{"3", ",", "2"}]]], " ",
9411	SubsuperscriptBox["\[Gamma]",
9412	RowBox[{
9413	SubscriptBox["\<\"s\"\>", "2"], ",",
9414	SubscriptBox["\<\"s\"\>", "1"]}],
9415	SubscriptBox["\<\"\[Mu]\"\>",
9416	RowBox[{"3", ",", "1"}]]], " ",
9417	SubscriptBox["\[Delta]",
9418	RowBox[{
9419	SubscriptBox["\<\"m\"\>", "1"], ",",
9420	SubscriptBox["\<\"m\"\>", "2"]}]]}],
9421	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
9422	FractionBox[
9423	RowBox[{"\[ImaginaryI]", " ",
9424	SubscriptBox["\[Kappa]", "q"], " ",
9425	SubsuperscriptBox["\<\"p\"\>", "1",
9426	SubscriptBox["\<\"\[Mu]\"\>",
9427	RowBox[{"3", ",", "1"}]]], " ",
9428	SubsuperscriptBox["\[Gamma]",
9429	RowBox[{
9430	SubscriptBox["\<\"s\"\>", "2"], ",",
9431	SubscriptBox["\<\"s\"\>", "1"]}],
9432	SubscriptBox["\<\"\[Mu]\"\>",
9433	RowBox[{"3", ",", "2"}]]], " ",
9434	SubscriptBox["\[Delta]",
9435	RowBox[{
9436	SubscriptBox["\<\"m\"\>", "1"], ",",
9437	SubscriptBox["\<\"m\"\>", "2"]}]]}],
9438	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
9439	FractionBox[
9440	RowBox[{"\[ImaginaryI]", " ",
9441	SubscriptBox["\[Kappa]", "q"], " ",
9442	SubsuperscriptBox["\<\"p\"\>", "2",
9443	SubscriptBox["\<\"\[Mu]\"\>",
9444	RowBox[{"3", ",", "1"}]]], " ",
9445	SubsuperscriptBox["\[Gamma]",
9446	RowBox[{
9447	SubscriptBox["\<\"s\"\>", "2"], ",",
9448	SubscriptBox["\<\"s\"\>", "1"]}],
9449	SubscriptBox["\<\"\[Mu]\"\>",
9450	RowBox[{"3", ",", "2"}]]], " ",
9451	SubscriptBox["\[Delta]",
9452	RowBox[{
9453	SubscriptBox["\<\"m\"\>", "1"], ",",
9454	SubscriptBox["\<\"m\"\>", "2"]}]]}],
9455	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
9456	FractionBox[
9457	RowBox[{"\[ImaginaryI]", " ",
9458	SubscriptBox["\[Kappa]", "q"], " ",
9459	SubscriptBox["\[Delta]",
9460	RowBox[{
9461	SubscriptBox["\<\"m\"\>", "1"], ",",
9462	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
9463	SubscriptBox["\[Eta]",
9464	RowBox[{
9465	SubscriptBox["\<\"\[Mu]\"\>",
9466	RowBox[{"3", ",", "1"}]], ",",
9467	SubscriptBox["\<\"\[Mu]\"\>",
9468	RowBox[{"3", ",", "2"}]]}]], " ",
9469	SubscriptBox[
9470	RowBox[{"\[Gamma]", ".",
9471	SubscriptBox["\<\"p\"\>", "1"]}],
9472	RowBox[{
9473	SubscriptBox["\<\"s\"\>", "2"], ",",
9474	SubscriptBox["\<\"s\"\>", "1"]}]]}],
9475	RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
9476	FractionBox[
9477	RowBox[{"\[ImaginaryI]", " ",
9478	SubscriptBox["\[Kappa]", "q"], " ",
9479	SubscriptBox["\[Delta]",
9480	RowBox[{
9481	SubscriptBox["\<\"m\"\>", "1"], ",",
9482	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
9483	SubscriptBox["\[Eta]",
9484	RowBox[{
9485	SubscriptBox["\<\"\[Mu]\"\>",
9486	RowBox[{"3", ",", "1"}]], ",",
9487	SubscriptBox["\<\"\[Mu]\"\>",
9488	RowBox[{"3", ",", "2"}]]}]], " ",
9489	SubscriptBox[
9490	RowBox[{"\[Gamma]", ".",
9491	SubscriptBox["\<\"p\"\>", "2"]}],
9492	RowBox[{
9493	SubscriptBox["\<\"s\"\>", "2"], ",",
9494	SubscriptBox["\<\"s\"\>", "1"]}]]}],
9495	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
9496	CellChangeTimes->{
9497	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9498	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9499	3.581159748808201*^9}],
9500
9501	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
9502	* * * * * *)\"\>"], "Print",
9503	CellChangeTimes->{
9504	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9505	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9506	3.581159748815176*^9}],
9507
9508	Cell[BoxData[
9509	InterpretationBox[
9510	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "47"}],
9511	SequenceForm["Vertex ", 47],
9512	Editable->False]], "Print",
9513	CellChangeTimes->{
9514	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9515	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9516	3.581159748820221*^9}],
9517
9518	Cell[BoxData[
9519	InterpretationBox[
9520	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
9521	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9522	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
9523	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
9524	Editable->False]], "Print",
9525	CellChangeTimes->{
9526	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9527	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9528	3.581159748825178*^9}],
9529
9530	Cell[BoxData[
9531	InterpretationBox[
9532	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
9533	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9534	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
9535	OverscriptBox["e", "\<\"-\"\>"]}],
9536	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ebar],
9537	Editable->False]], "Print",
9538	CellChangeTimes->{
9539	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9540	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9541	3.581159748830227*^9}],
9542
9543	Cell[BoxData[
9544	InterpretationBox[
9545	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
9546	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
9547	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
9548	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
9549	Editable->False]], "Print",
9550	CellChangeTimes->{
9551	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9552	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9553	3.581159748835208*^9}],
9554
9555	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
9556	CellChangeTimes->{
9557	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9558	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9559	3.581159748840168*^9}],
9560
9561	Cell[BoxData[
9562	RowBox[{
9563	RowBox[{"-",
9564	FractionBox[
9565	RowBox[{"\[ImaginaryI]", " ",
9566	SubscriptBox["\[Kappa]", "l"], " ",
9567	SubsuperscriptBox["\<\"p\"\>", "1",
9568	SubscriptBox["\<\"\[Mu]\"\>",
9569	RowBox[{"3", ",", "2"}]]], " ",
9570	SubsuperscriptBox["\[Gamma]",
9571	RowBox[{
9572	SubscriptBox["\<\"s\"\>", "2"], ",",
9573	SubscriptBox["\<\"s\"\>", "1"]}],
9574	SubscriptBox["\<\"\[Mu]\"\>",
9575	RowBox[{"3", ",", "1"}]]]}],
9576	RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
9577	FractionBox[
9578	RowBox[{"\[ImaginaryI]", " ",
9579	SubscriptBox["\[Kappa]", "l"], " ",
9580	SubsuperscriptBox["\<\"p\"\>", "2",
9581	SubscriptBox["\<\"\[Mu]\"\>",
9582	RowBox[{"3", ",", "2"}]]], " ",
9583	SubsuperscriptBox["\[Gamma]",
9584	RowBox[{
9585	SubscriptBox["\<\"s\"\>", "2"], ",",
9586	SubscriptBox["\<\"s\"\>", "1"]}],
9587	SubscriptBox["\<\"\[Mu]\"\>",
9588	RowBox[{"3", ",", "1"}]]]}],
9589	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
9590	FractionBox[
9591	RowBox[{"\[ImaginaryI]", " ",
9592	SubscriptBox["\[Kappa]", "l"], " ",
9593	SubsuperscriptBox["\<\"p\"\>", "1",
9594	SubscriptBox["\<\"\[Mu]\"\>",
9595	RowBox[{"3", ",", "1"}]]], " ",
9596	SubsuperscriptBox["\[Gamma]",
9597	RowBox[{
9598	SubscriptBox["\<\"s\"\>", "2"], ",",
9599	SubscriptBox["\<\"s\"\>", "1"]}],
9600	SubscriptBox["\<\"\[Mu]\"\>",
9601	RowBox[{"3", ",", "2"}]]]}],
9602	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
9603	FractionBox[
9604	RowBox[{"\[ImaginaryI]", " ",
9605	SubscriptBox["\[Kappa]", "l"], " ",
9606	SubsuperscriptBox["\<\"p\"\>", "2",
9607	SubscriptBox["\<\"\[Mu]\"\>",
9608	RowBox[{"3", ",", "1"}]]], " ",
9609	SubsuperscriptBox["\[Gamma]",
9610	RowBox[{
9611	SubscriptBox["\<\"s\"\>", "2"], ",",
9612	SubscriptBox["\<\"s\"\>", "1"]}],
9613	SubscriptBox["\<\"\[Mu]\"\>",
9614	RowBox[{"3", ",", "2"}]]]}],
9615	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
9616	FractionBox[
9617	RowBox[{"\[ImaginaryI]", " ",
9618	SubscriptBox["\[Kappa]", "l"], " ",
9619	SubscriptBox["\[Eta]",
9620	RowBox[{
9621	SubscriptBox["\<\"\[Mu]\"\>",
9622	RowBox[{"3", ",", "1"}]], ",",
9623	SubscriptBox["\<\"\[Mu]\"\>",
9624	RowBox[{"3", ",", "2"}]]}]], " ",
9625	SubscriptBox[
9626	RowBox[{"\[Gamma]", ".",
9627	SubscriptBox["\<\"p\"\>", "1"]}],
9628	RowBox[{
9629	SubscriptBox["\<\"s\"\>", "2"], ",",
9630	SubscriptBox["\<\"s\"\>", "1"]}]]}],
9631	RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
9632	FractionBox[
9633	RowBox[{"\[ImaginaryI]", " ",
9634	SubscriptBox["\[Kappa]", "l"], " ",
9635	SubscriptBox["\[Eta]",
9636	RowBox[{
9637	SubscriptBox["\<\"\[Mu]\"\>",
9638	RowBox[{"3", ",", "1"}]], ",",
9639	SubscriptBox["\<\"\[Mu]\"\>",
9640	RowBox[{"3", ",", "2"}]]}]], " ",
9641	SubscriptBox[
9642	RowBox[{"\[Gamma]", ".",
9643	SubscriptBox["\<\"p\"\>", "2"]}],
9644	RowBox[{
9645	SubscriptBox["\<\"s\"\>", "2"], ",",
9646	SubscriptBox["\<\"s\"\>", "1"]}]]}],
9647	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
9648	CellChangeTimes->{
9649	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9650	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9651	3.581159748846011*^9}],
9652
9653	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
9654	* * * * * *)\"\>"], "Print",
9655	CellChangeTimes->{
9656	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9657	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9658	3.581159748852489*^9}],
9659
9660	Cell[BoxData[
9661	InterpretationBox[
9662	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "48"}],
9663	SequenceForm["Vertex ", 48],
9664	Editable->False]], "Print",
9665	CellChangeTimes->{
9666	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9667	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9668	3.581159748857664*^9}],
9669
9670	Cell[BoxData[
9671	InterpretationBox[
9672	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
9673	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9674	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
9675	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
9676	Editable->False]], "Print",
9677	CellChangeTimes->{
9678	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9679	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9680	3.58115974886259*^9}],
9681
9682	Cell[BoxData[
9683	InterpretationBox[
9684	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
9685	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9686	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
9687	OverscriptBox["mu", "\<\"-\"\>"]}],
9688	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`mubar],
9689	Editable->False]], "Print",
9690	CellChangeTimes->{
9691	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9692	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9693	3.581159748892434*^9}],
9694
9695	Cell[BoxData[
9696	InterpretationBox[
9697	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
9698	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
9699	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
9700	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
9701	Editable->False]], "Print",
9702	CellChangeTimes->{
9703	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9704	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9705	3.581159748897635*^9}],
9706
9707	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
9708	CellChangeTimes->{
9709	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9710	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9711	3.581159748903089*^9}],
9712
9713	Cell[BoxData[
9714	RowBox[{
9715	RowBox[{"-",
9716	FractionBox[
9717	RowBox[{"\[ImaginaryI]", " ",
9718	SubscriptBox["\[Kappa]", "l"], " ",
9719	SubsuperscriptBox["\<\"p\"\>", "1",
9720	SubscriptBox["\<\"\[Mu]\"\>",
9721	RowBox[{"3", ",", "2"}]]], " ",
9722	SubsuperscriptBox["\[Gamma]",
9723	RowBox[{
9724	SubscriptBox["\<\"s\"\>", "2"], ",",
9725	SubscriptBox["\<\"s\"\>", "1"]}],
9726	SubscriptBox["\<\"\[Mu]\"\>",
9727	RowBox[{"3", ",", "1"}]]]}],
9728	RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
9729	FractionBox[
9730	RowBox[{"\[ImaginaryI]", " ",
9731	SubscriptBox["\[Kappa]", "l"], " ",
9732	SubsuperscriptBox["\<\"p\"\>", "2",
9733	SubscriptBox["\<\"\[Mu]\"\>",
9734	RowBox[{"3", ",", "2"}]]], " ",
9735	SubsuperscriptBox["\[Gamma]",
9736	RowBox[{
9737	SubscriptBox["\<\"s\"\>", "2"], ",",
9738	SubscriptBox["\<\"s\"\>", "1"]}],
9739	SubscriptBox["\<\"\[Mu]\"\>",
9740	RowBox[{"3", ",", "1"}]]]}],
9741	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
9742	FractionBox[
9743	RowBox[{"\[ImaginaryI]", " ",
9744	SubscriptBox["\[Kappa]", "l"], " ",
9745	SubsuperscriptBox["\<\"p\"\>", "1",
9746	SubscriptBox["\<\"\[Mu]\"\>",
9747	RowBox[{"3", ",", "1"}]]], " ",
9748	SubsuperscriptBox["\[Gamma]",
9749	RowBox[{
9750	SubscriptBox["\<\"s\"\>", "2"], ",",
9751	SubscriptBox["\<\"s\"\>", "1"]}],
9752	SubscriptBox["\<\"\[Mu]\"\>",
9753	RowBox[{"3", ",", "2"}]]]}],
9754	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
9755	FractionBox[
9756	RowBox[{"\[ImaginaryI]", " ",
9757	SubscriptBox["\[Kappa]", "l"], " ",
9758	SubsuperscriptBox["\<\"p\"\>", "2",
9759	SubscriptBox["\<\"\[Mu]\"\>",
9760	RowBox[{"3", ",", "1"}]]], " ",
9761	SubsuperscriptBox["\[Gamma]",
9762	RowBox[{
9763	SubscriptBox["\<\"s\"\>", "2"], ",",
9764	SubscriptBox["\<\"s\"\>", "1"]}],
9765	SubscriptBox["\<\"\[Mu]\"\>",
9766	RowBox[{"3", ",", "2"}]]]}],
9767	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
9768	FractionBox[
9769	RowBox[{"\[ImaginaryI]", " ",
9770	SubscriptBox["\[Kappa]", "l"], " ",
9771	SubscriptBox["\[Eta]",
9772	RowBox[{
9773	SubscriptBox["\<\"\[Mu]\"\>",
9774	RowBox[{"3", ",", "1"}]], ",",
9775	SubscriptBox["\<\"\[Mu]\"\>",
9776	RowBox[{"3", ",", "2"}]]}]], " ",
9777	SubscriptBox[
9778	RowBox[{"\[Gamma]", ".",
9779	SubscriptBox["\<\"p\"\>", "1"]}],
9780	RowBox[{
9781	SubscriptBox["\<\"s\"\>", "2"], ",",
9782	SubscriptBox["\<\"s\"\>", "1"]}]]}],
9783	RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
9784	FractionBox[
9785	RowBox[{"\[ImaginaryI]", " ",
9786	SubscriptBox["\[Kappa]", "l"], " ",
9787	SubscriptBox["\[Eta]",
9788	RowBox[{
9789	SubscriptBox["\<\"\[Mu]\"\>",
9790	RowBox[{"3", ",", "1"}]], ",",
9791	SubscriptBox["\<\"\[Mu]\"\>",
9792	RowBox[{"3", ",", "2"}]]}]], " ",
9793	SubscriptBox[
9794	RowBox[{"\[Gamma]", ".",
9795	SubscriptBox["\<\"p\"\>", "2"]}],
9796	RowBox[{
9797	SubscriptBox["\<\"s\"\>", "2"], ",",
9798	SubscriptBox["\<\"s\"\>", "1"]}]]}],
9799	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
9800	CellChangeTimes->{
9801	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9802	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9803	3.581159748909431*^9}],
9804
9805	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
9806	* * * * * *)\"\>"], "Print",
9807	CellChangeTimes->{
9808	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9809	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9810	3.58115974891601*^9}],
9811
9812	Cell[BoxData[
9813	InterpretationBox[
9814	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "49"}],
9815	SequenceForm["Vertex ", 49],
9816	Editable->False]], "Print",
9817	CellChangeTimes->{
9818	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9819	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9820	3.5811597489212523`*^9}],
9821
9822	Cell[BoxData[
9823	InterpretationBox[
9824	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
9825	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9826	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
9827	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
9828	Editable->False]], "Print",
9829	CellChangeTimes->{
9830	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9831	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9832	3.5811597489267063`*^9}],
9833
9834	Cell[BoxData[
9835	InterpretationBox[
9836	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
9837	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9838	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
9839	OverscriptBox["ta", "\<\"-\"\>"]}],
9840	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
9841	Editable->False]], "Print",
9842	CellChangeTimes->{
9843	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9844	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9845	3.5811597489315147`*^9}],
9846
9847	Cell[BoxData[
9848	InterpretationBox[
9849	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
9850	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
9851	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
9852	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
9853	Editable->False]], "Print",
9854	CellChangeTimes->{
9855	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9856	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9857	3.581159748936702*^9}],
9858
9859	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
9860	CellChangeTimes->{
9861	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9862	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9863	3.581159748941957*^9}],
9864
9865	Cell[BoxData[
9866	RowBox[{
9867	RowBox[{"-",
9868	FractionBox[
9869	RowBox[{"\[ImaginaryI]", " ",
9870	SubscriptBox["\[Kappa]", "l"], " ",
9871	SubsuperscriptBox["\<\"p\"\>", "1",
9872	SubscriptBox["\<\"\[Mu]\"\>",
9873	RowBox[{"3", ",", "2"}]]], " ",
9874	SubsuperscriptBox["\[Gamma]",
9875	RowBox[{
9876	SubscriptBox["\<\"s\"\>", "2"], ",",
9877	SubscriptBox["\<\"s\"\>", "1"]}],
9878	SubscriptBox["\<\"\[Mu]\"\>",
9879	RowBox[{"3", ",", "1"}]]]}],
9880	RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
9881	FractionBox[
9882	RowBox[{"\[ImaginaryI]", " ",
9883	SubscriptBox["\[Kappa]", "l"], " ",
9884	SubsuperscriptBox["\<\"p\"\>", "2",
9885	SubscriptBox["\<\"\[Mu]\"\>",
9886	RowBox[{"3", ",", "2"}]]], " ",
9887	SubsuperscriptBox["\[Gamma]",
9888	RowBox[{
9889	SubscriptBox["\<\"s\"\>", "2"], ",",
9890	SubscriptBox["\<\"s\"\>", "1"]}],
9891	SubscriptBox["\<\"\[Mu]\"\>",
9892	RowBox[{"3", ",", "1"}]]]}],
9893	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
9894	FractionBox[
9895	RowBox[{"\[ImaginaryI]", " ",
9896	SubscriptBox["\[Kappa]", "l"], " ",
9897	SubsuperscriptBox["\<\"p\"\>", "1",
9898	SubscriptBox["\<\"\[Mu]\"\>",
9899	RowBox[{"3", ",", "1"}]]], " ",
9900	SubsuperscriptBox["\[Gamma]",
9901	RowBox[{
9902	SubscriptBox["\<\"s\"\>", "2"], ",",
9903	SubscriptBox["\<\"s\"\>", "1"]}],
9904	SubscriptBox["\<\"\[Mu]\"\>",
9905	RowBox[{"3", ",", "2"}]]]}],
9906	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
9907	FractionBox[
9908	RowBox[{"\[ImaginaryI]", " ",
9909	SubscriptBox["\[Kappa]", "l"], " ",
9910	SubsuperscriptBox["\<\"p\"\>", "2",
9911	SubscriptBox["\<\"\[Mu]\"\>",
9912	RowBox[{"3", ",", "1"}]]], " ",
9913	SubsuperscriptBox["\[Gamma]",
9914	RowBox[{
9915	SubscriptBox["\<\"s\"\>", "2"], ",",
9916	SubscriptBox["\<\"s\"\>", "1"]}],
9917	SubscriptBox["\<\"\[Mu]\"\>",
9918	RowBox[{"3", ",", "2"}]]]}],
9919	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
9920	FractionBox[
9921	RowBox[{"\[ImaginaryI]", " ",
9922	SubscriptBox["\[Kappa]", "l"], " ", "MTA", " ",
9923	SubscriptBox["\[Delta]",
9924	RowBox[{
9925	SubscriptBox["\<\"s\"\>", "2"], ",",
9926	SubscriptBox["\<\"s\"\>", "1"]}]], " ",
9927	SubscriptBox["\[Eta]",
9928	RowBox[{
9929	SubscriptBox["\<\"\[Mu]\"\>",
9930	RowBox[{"3", ",", "1"}]], ",",
9931	SubscriptBox["\<\"\[Mu]\"\>",
9932	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
9933	FractionBox[
9934	RowBox[{"\[ImaginaryI]", " ",
9935	SubscriptBox["\[Kappa]", "l"], " ",
9936	SubscriptBox["\[Eta]",
9937	RowBox[{
9938	SubscriptBox["\<\"\[Mu]\"\>",
9939	RowBox[{"3", ",", "1"}]], ",",
9940	SubscriptBox["\<\"\[Mu]\"\>",
9941	RowBox[{"3", ",", "2"}]]}]], " ",
9942	SubscriptBox[
9943	RowBox[{"\[Gamma]", ".",
9944	SubscriptBox["\<\"p\"\>", "1"]}],
9945	RowBox[{
9946	SubscriptBox["\<\"s\"\>", "2"], ",",
9947	SubscriptBox["\<\"s\"\>", "1"]}]]}],
9948	RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
9949	FractionBox[
9950	RowBox[{"\[ImaginaryI]", " ",
9951	SubscriptBox["\[Kappa]", "l"], " ",
9952	SubscriptBox["\[Eta]",
9953	RowBox[{
9954	SubscriptBox["\<\"\[Mu]\"\>",
9955	RowBox[{"3", ",", "1"}]], ",",
9956	SubscriptBox["\<\"\[Mu]\"\>",
9957	RowBox[{"3", ",", "2"}]]}]], " ",
9958	SubscriptBox[
9959	RowBox[{"\[Gamma]", ".",
9960	SubscriptBox["\<\"p\"\>", "2"]}],
9961	RowBox[{
9962	SubscriptBox["\<\"s\"\>", "2"], ",",
9963	SubscriptBox["\<\"s\"\>", "1"]}]]}],
9964	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
9965	CellChangeTimes->{
9966	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9967	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9968	3.581159748947865*^9}],
9969
9970	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
9971	* * * * * *)\"\>"], "Print",
9972	CellChangeTimes->{
9973	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9974	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9975	3.581159748954466*^9}],
9976
9977	Cell[BoxData[
9978	InterpretationBox[
9979	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "50"}],
9980	SequenceForm["Vertex ", 50],
9981	Editable->False]], "Print",
9982	CellChangeTimes->{
9983	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9984	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9985	3.5811597489585857`*^9}],
9986
9987	Cell[BoxData[
9988	InterpretationBox[
9989	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
9990	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9991	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
9992	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
9993	Editable->False]], "Print",
9994	CellChangeTimes->{
9995	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
9996	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
9997	3.581159748962462*^9}],
9998
9999	Cell[BoxData[
10000	InterpretationBox[
10001	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
10002	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
10003	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
10004	OverscriptBox["c", "\<\"-\"\>"]}],
10005	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
10006	Editable->False]], "Print",
10007	CellChangeTimes->{
10008	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10009	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10010	3.581159748966446*^9}],
10011
10012	Cell[BoxData[
10013	InterpretationBox[
10014	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
10015	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
10016	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
10017	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
10018	Editable->False]], "Print",
10019	CellChangeTimes->{
10020	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10021	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10022	3.58115974897044*^9}],
10023
10024	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
10025	CellChangeTimes->{
10026	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10027	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10028	3.581159748974353*^9}],
10029
10030	Cell[BoxData[
10031	RowBox[{
10032	RowBox[{"-",
10033	FractionBox[
10034	RowBox[{"\[ImaginaryI]", " ",
10035	SubscriptBox["\[Kappa]", "q"], " ",
10036	SubsuperscriptBox["\<\"p\"\>", "1",
10037	SubscriptBox["\<\"\[Mu]\"\>",
10038	RowBox[{"3", ",", "2"}]]], " ",
10039	SubsuperscriptBox["\[Gamma]",
10040	RowBox[{
10041	SubscriptBox["\<\"s\"\>", "2"], ",",
10042	SubscriptBox["\<\"s\"\>", "1"]}],
10043	SubscriptBox["\<\"\[Mu]\"\>",
10044	RowBox[{"3", ",", "1"}]]], " ",
10045	SubscriptBox["\[Delta]",
10046	RowBox[{
10047	SubscriptBox["\<\"m\"\>", "1"], ",",
10048	SubscriptBox["\<\"m\"\>", "2"]}]]}],
10049	RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
10050	FractionBox[
10051	RowBox[{"\[ImaginaryI]", " ",
10052	SubscriptBox["\[Kappa]", "q"], " ",
10053	SubsuperscriptBox["\<\"p\"\>", "2",
10054	SubscriptBox["\<\"\[Mu]\"\>",
10055	RowBox[{"3", ",", "2"}]]], " ",
10056	SubsuperscriptBox["\[Gamma]",
10057	RowBox[{
10058	SubscriptBox["\<\"s\"\>", "2"], ",",
10059	SubscriptBox["\<\"s\"\>", "1"]}],
10060	SubscriptBox["\<\"\[Mu]\"\>",
10061	RowBox[{"3", ",", "1"}]]], " ",
10062	SubscriptBox["\[Delta]",
10063	RowBox[{
10064	SubscriptBox["\<\"m\"\>", "1"], ",",
10065	SubscriptBox["\<\"m\"\>", "2"]}]]}],
10066	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
10067	FractionBox[
10068	RowBox[{"\[ImaginaryI]", " ",
10069	SubscriptBox["\[Kappa]", "q"], " ",
10070	SubsuperscriptBox["\<\"p\"\>", "1",
10071	SubscriptBox["\<\"\[Mu]\"\>",
10072	RowBox[{"3", ",", "1"}]]], " ",
10073	SubsuperscriptBox["\[Gamma]",
10074	RowBox[{
10075	SubscriptBox["\<\"s\"\>", "2"], ",",
10076	SubscriptBox["\<\"s\"\>", "1"]}],
10077	SubscriptBox["\<\"\[Mu]\"\>",
10078	RowBox[{"3", ",", "2"}]]], " ",
10079	SubscriptBox["\[Delta]",
10080	RowBox[{
10081	SubscriptBox["\<\"m\"\>", "1"], ",",
10082	SubscriptBox["\<\"m\"\>", "2"]}]]}],
10083	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
10084	FractionBox[
10085	RowBox[{"\[ImaginaryI]", " ",
10086	SubscriptBox["\[Kappa]", "q"], " ",
10087	SubsuperscriptBox["\<\"p\"\>", "2",
10088	SubscriptBox["\<\"\[Mu]\"\>",
10089	RowBox[{"3", ",", "1"}]]], " ",
10090	SubsuperscriptBox["\[Gamma]",
10091	RowBox[{
10092	SubscriptBox["\<\"s\"\>", "2"], ",",
10093	SubscriptBox["\<\"s\"\>", "1"]}],
10094	SubscriptBox["\<\"\[Mu]\"\>",
10095	RowBox[{"3", ",", "2"}]]], " ",
10096	SubscriptBox["\[Delta]",
10097	RowBox[{
10098	SubscriptBox["\<\"m\"\>", "1"], ",",
10099	SubscriptBox["\<\"m\"\>", "2"]}]]}],
10100	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
10101	FractionBox[
10102	RowBox[{"\[ImaginaryI]", " ",
10103	SubscriptBox["\[Kappa]", "q"], " ",
10104	SubscriptBox["\[Delta]",
10105	RowBox[{
10106	SubscriptBox["\<\"m\"\>", "1"], ",",
10107	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
10108	SubscriptBox["\[Eta]",
10109	RowBox[{
10110	SubscriptBox["\<\"\[Mu]\"\>",
10111	RowBox[{"3", ",", "1"}]], ",",
10112	SubscriptBox["\<\"\[Mu]\"\>",
10113	RowBox[{"3", ",", "2"}]]}]], " ",
10114	SubscriptBox[
10115	RowBox[{"\[Gamma]", ".",
10116	SubscriptBox["\<\"p\"\>", "1"]}],
10117	RowBox[{
10118	SubscriptBox["\<\"s\"\>", "2"], ",",
10119	SubscriptBox["\<\"s\"\>", "1"]}]]}],
10120	RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
10121	FractionBox[
10122	RowBox[{"\[ImaginaryI]", " ",
10123	SubscriptBox["\[Kappa]", "q"], " ",
10124	SubscriptBox["\[Delta]",
10125	RowBox[{
10126	SubscriptBox["\<\"m\"\>", "1"], ",",
10127	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
10128	SubscriptBox["\[Eta]",
10129	RowBox[{
10130	SubscriptBox["\<\"\[Mu]\"\>",
10131	RowBox[{"3", ",", "1"}]], ",",
10132	SubscriptBox["\<\"\[Mu]\"\>",
10133	RowBox[{"3", ",", "2"}]]}]], " ",
10134	SubscriptBox[
10135	RowBox[{"\[Gamma]", ".",
10136	SubscriptBox["\<\"p\"\>", "2"]}],
10137	RowBox[{
10138	SubscriptBox["\<\"s\"\>", "2"], ",",
10139	SubscriptBox["\<\"s\"\>", "1"]}]]}],
10140	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
10141	CellChangeTimes->{
10142	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10143	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10144	3.581159748979004*^9}],
10145
10146	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
10147	* * * * * *)\"\>"], "Print",
10148	CellChangeTimes->{
10149	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10150	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10151	3.581159748984864*^9}],
10152
10153	Cell[BoxData[
10154	InterpretationBox[
10155	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "51"}],
10156	SequenceForm["Vertex ", 51],
10157	Editable->False]], "Print",
10158	CellChangeTimes->{
10159	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10160	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10161	3.581159748988859*^9}],
10162
10163	Cell[BoxData[
10164	InterpretationBox[
10165	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
10166	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
10167	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
10168	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
10169	Editable->False]], "Print",
10170	CellChangeTimes->{
10171	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10172	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10173	3.5811597489928417`*^9}],
10174
10175	Cell[BoxData[
10176	InterpretationBox[
10177	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
10178	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
10179	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
10180	OverscriptBox["t", "\<\"-\"\>"]}],
10181	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
10182	Editable->False]], "Print",
10183	CellChangeTimes->{
10184	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10185	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10186	3.581159748996829*^9}],
10187
10188	Cell[BoxData[
10189	InterpretationBox[
10190	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
10191	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
10192	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
10193	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
10194	Editable->False]], "Print",
10195	CellChangeTimes->{
10196	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10197	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10198	3.581159749000778*^9}],
10199
10200	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
10201	CellChangeTimes->{
10202	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10203	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10204	3.581159749004755*^9}],
10205
10206	Cell[BoxData[
10207	RowBox[{
10208	RowBox[{"-",
10209	FractionBox[
10210	RowBox[{"\[ImaginaryI]", " ",
10211	SubscriptBox["\[Kappa]", "q"], " ",
10212	SubsuperscriptBox["\<\"p\"\>", "1",
10213	SubscriptBox["\<\"\[Mu]\"\>",
10214	RowBox[{"3", ",", "2"}]]], " ",
10215	SubsuperscriptBox["\[Gamma]",
10216	RowBox[{
10217	SubscriptBox["\<\"s\"\>", "2"], ",",
10218	SubscriptBox["\<\"s\"\>", "1"]}],
10219	SubscriptBox["\<\"\[Mu]\"\>",
10220	RowBox[{"3", ",", "1"}]]], " ",
10221	SubscriptBox["\[Delta]",
10222	RowBox[{
10223	SubscriptBox["\<\"m\"\>", "1"], ",",
10224	SubscriptBox["\<\"m\"\>", "2"]}]]}],
10225	RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
10226	FractionBox[
10227	RowBox[{"\[ImaginaryI]", " ",
10228	SubscriptBox["\[Kappa]", "q"], " ",
10229	SubsuperscriptBox["\<\"p\"\>", "2",
10230	SubscriptBox["\<\"\[Mu]\"\>",
10231	RowBox[{"3", ",", "2"}]]], " ",
10232	SubsuperscriptBox["\[Gamma]",
10233	RowBox[{
10234	SubscriptBox["\<\"s\"\>", "2"], ",",
10235	SubscriptBox["\<\"s\"\>", "1"]}],
10236	SubscriptBox["\<\"\[Mu]\"\>",
10237	RowBox[{"3", ",", "1"}]]], " ",
10238	SubscriptBox["\[Delta]",
10239	RowBox[{
10240	SubscriptBox["\<\"m\"\>", "1"], ",",
10241	SubscriptBox["\<\"m\"\>", "2"]}]]}],
10242	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
10243	FractionBox[
10244	RowBox[{"\[ImaginaryI]", " ",
10245	SubscriptBox["\[Kappa]", "q"], " ",
10246	SubsuperscriptBox["\<\"p\"\>", "1",
10247	SubscriptBox["\<\"\[Mu]\"\>",
10248	RowBox[{"3", ",", "1"}]]], " ",
10249	SubsuperscriptBox["\[Gamma]",
10250	RowBox[{
10251	SubscriptBox["\<\"s\"\>", "2"], ",",
10252	SubscriptBox["\<\"s\"\>", "1"]}],
10253	SubscriptBox["\<\"\[Mu]\"\>",
10254	RowBox[{"3", ",", "2"}]]], " ",
10255	SubscriptBox["\[Delta]",
10256	RowBox[{
10257	SubscriptBox["\<\"m\"\>", "1"], ",",
10258	SubscriptBox["\<\"m\"\>", "2"]}]]}],
10259	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
10260	FractionBox[
10261	RowBox[{"\[ImaginaryI]", " ",
10262	SubscriptBox["\[Kappa]", "q"], " ",
10263	SubsuperscriptBox["\<\"p\"\>", "2",
10264	SubscriptBox["\<\"\[Mu]\"\>",
10265	RowBox[{"3", ",", "1"}]]], " ",
10266	SubsuperscriptBox["\[Gamma]",
10267	RowBox[{
10268	SubscriptBox["\<\"s\"\>", "2"], ",",
10269	SubscriptBox["\<\"s\"\>", "1"]}],
10270	SubscriptBox["\<\"\[Mu]\"\>",
10271	RowBox[{"3", ",", "2"}]]], " ",
10272	SubscriptBox["\[Delta]",
10273	RowBox[{
10274	SubscriptBox["\<\"m\"\>", "1"], ",",
10275	SubscriptBox["\<\"m\"\>", "2"]}]]}],
10276	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
10277	FractionBox[
10278	RowBox[{"\[ImaginaryI]", " ",
10279	SubscriptBox["\[Kappa]", "q"], " ", "MT", " ",
10280	SubscriptBox["\[Delta]",
10281	RowBox[{
10282	SubscriptBox["\<\"m\"\>", "1"], ",",
10283	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
10284	SubscriptBox["\[Delta]",
10285	RowBox[{
10286	SubscriptBox["\<\"s\"\>", "2"], ",",
10287	SubscriptBox["\<\"s\"\>", "1"]}]], " ",
10288	SubscriptBox["\[Eta]",
10289	RowBox[{
10290	SubscriptBox["\<\"\[Mu]\"\>",
10291	RowBox[{"3", ",", "1"}]], ",",
10292	SubscriptBox["\<\"\[Mu]\"\>",
10293	RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
10294	FractionBox[
10295	RowBox[{"\[ImaginaryI]", " ",
10296	SubscriptBox["\[Kappa]", "q"], " ",
10297	SubscriptBox["\[Delta]",
10298	RowBox[{
10299	SubscriptBox["\<\"m\"\>", "1"], ",",
10300	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
10301	SubscriptBox["\[Eta]",
10302	RowBox[{
10303	SubscriptBox["\<\"\[Mu]\"\>",
10304	RowBox[{"3", ",", "1"}]], ",",
10305	SubscriptBox["\<\"\[Mu]\"\>",
10306	RowBox[{"3", ",", "2"}]]}]], " ",
10307	SubscriptBox[
10308	RowBox[{"\[Gamma]", ".",
10309	SubscriptBox["\<\"p\"\>", "1"]}],
10310	RowBox[{
10311	SubscriptBox["\<\"s\"\>", "2"], ",",
10312	SubscriptBox["\<\"s\"\>", "1"]}]]}],
10313	RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
10314	FractionBox[
10315	RowBox[{"\[ImaginaryI]", " ",
10316	SubscriptBox["\[Kappa]", "q"], " ",
10317	SubscriptBox["\[Delta]",
10318	RowBox[{
10319	SubscriptBox["\<\"m\"\>", "1"], ",",
10320	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
10321	SubscriptBox["\[Eta]",
10322	RowBox[{
10323	SubscriptBox["\<\"\[Mu]\"\>",
10324	RowBox[{"3", ",", "1"}]], ",",
10325	SubscriptBox["\<\"\[Mu]\"\>",
10326	RowBox[{"3", ",", "2"}]]}]], " ",
10327	SubscriptBox[
10328	RowBox[{"\[Gamma]", ".",
10329	SubscriptBox["\<\"p\"\>", "2"]}],
10330	RowBox[{
10331	SubscriptBox["\<\"s\"\>", "2"], ",",
10332	SubscriptBox["\<\"s\"\>", "1"]}]]}],
10333	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
10334	CellChangeTimes->{
10335	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10336	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10337	3.581159749009512*^9}],
10338
10339	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
10340	* * * * * *)\"\>"], "Print",
10341	CellChangeTimes->{
10342	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10343	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10344	3.581159749015613*^9}],
10345
10346	Cell[BoxData[
10347	InterpretationBox[
10348	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "52"}],
10349	SequenceForm["Vertex ", 52],
10350	Editable->False]], "Print",
10351	CellChangeTimes->{
10352	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10353	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10354	3.581159749019598*^9}],
10355
10356	Cell[BoxData[
10357	InterpretationBox[
10358	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
10359	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
10360	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
10361	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
10362	Editable->False]], "Print",
10363	CellChangeTimes->{
10364	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10365	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10366	3.581159749023573*^9}],
10367
10368	Cell[BoxData[
10369	InterpretationBox[
10370	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
10371	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
10372	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
10373	OverscriptBox["u", "\<\"-\"\>"]}],
10374	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
10375	Editable->False]], "Print",
10376	CellChangeTimes->{
10377	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10378	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10379	3.581159749027534*^9}],
10380
10381	Cell[BoxData[
10382	InterpretationBox[
10383	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
10384	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
10385	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
10386	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
10387	Editable->False]], "Print",
10388	CellChangeTimes->{
10389	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10390	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10391	3.581159749031636*^9}],
10392
10393	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
10394	CellChangeTimes->{
10395	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10396	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10397	3.581159749035553*^9}],
10398
10399	Cell[BoxData[
10400	RowBox[{
10401	RowBox[{"-",
10402	FractionBox[
10403	RowBox[{"\[ImaginaryI]", " ",
10404	SubscriptBox["\[Kappa]", "q"], " ",
10405	SubsuperscriptBox["\<\"p\"\>", "1",
10406	SubscriptBox["\<\"\[Mu]\"\>",
10407	RowBox[{"3", ",", "2"}]]], " ",
10408	SubsuperscriptBox["\[Gamma]",
10409	RowBox[{
10410	SubscriptBox["\<\"s\"\>", "2"], ",",
10411	SubscriptBox["\<\"s\"\>", "1"]}],
10412	SubscriptBox["\<\"\[Mu]\"\>",
10413	RowBox[{"3", ",", "1"}]]], " ",
10414	SubscriptBox["\[Delta]",
10415	RowBox[{
10416	SubscriptBox["\<\"m\"\>", "1"], ",",
10417	SubscriptBox["\<\"m\"\>", "2"]}]]}],
10418	RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
10419	FractionBox[
10420	RowBox[{"\[ImaginaryI]", " ",
10421	SubscriptBox["\[Kappa]", "q"], " ",
10422	SubsuperscriptBox["\<\"p\"\>", "2",
10423	SubscriptBox["\<\"\[Mu]\"\>",
10424	RowBox[{"3", ",", "2"}]]], " ",
10425	SubsuperscriptBox["\[Gamma]",
10426	RowBox[{
10427	SubscriptBox["\<\"s\"\>", "2"], ",",
10428	SubscriptBox["\<\"s\"\>", "1"]}],
10429	SubscriptBox["\<\"\[Mu]\"\>",
10430	RowBox[{"3", ",", "1"}]]], " ",
10431	SubscriptBox["\[Delta]",
10432	RowBox[{
10433	SubscriptBox["\<\"m\"\>", "1"], ",",
10434	SubscriptBox["\<\"m\"\>", "2"]}]]}],
10435	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
10436	FractionBox[
10437	RowBox[{"\[ImaginaryI]", " ",
10438	SubscriptBox["\[Kappa]", "q"], " ",
10439	SubsuperscriptBox["\<\"p\"\>", "1",
10440	SubscriptBox["\<\"\[Mu]\"\>",
10441	RowBox[{"3", ",", "1"}]]], " ",
10442	SubsuperscriptBox["\[Gamma]",
10443	RowBox[{
10444	SubscriptBox["\<\"s\"\>", "2"], ",",
10445	SubscriptBox["\<\"s\"\>", "1"]}],
10446	SubscriptBox["\<\"\[Mu]\"\>",
10447	RowBox[{"3", ",", "2"}]]], " ",
10448	SubscriptBox["\[Delta]",
10449	RowBox[{
10450	SubscriptBox["\<\"m\"\>", "1"], ",",
10451	SubscriptBox["\<\"m\"\>", "2"]}]]}],
10452	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
10453	FractionBox[
10454	RowBox[{"\[ImaginaryI]", " ",
10455	SubscriptBox["\[Kappa]", "q"], " ",
10456	SubsuperscriptBox["\<\"p\"\>", "2",
10457	SubscriptBox["\<\"\[Mu]\"\>",
10458	RowBox[{"3", ",", "1"}]]], " ",
10459	SubsuperscriptBox["\[Gamma]",
10460	RowBox[{
10461	SubscriptBox["\<\"s\"\>", "2"], ",",
10462	SubscriptBox["\<\"s\"\>", "1"]}],
10463	SubscriptBox["\<\"\[Mu]\"\>",
10464	RowBox[{"3", ",", "2"}]]], " ",
10465	SubscriptBox["\[Delta]",
10466	RowBox[{
10467	SubscriptBox["\<\"m\"\>", "1"], ",",
10468	SubscriptBox["\<\"m\"\>", "2"]}]]}],
10469	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
10470	FractionBox[
10471	RowBox[{"\[ImaginaryI]", " ",
10472	SubscriptBox["\[Kappa]", "q"], " ",
10473	SubscriptBox["\[Delta]",
10474	RowBox[{
10475	SubscriptBox["\<\"m\"\>", "1"], ",",
10476	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
10477	SubscriptBox["\[Eta]",
10478	RowBox[{
10479	SubscriptBox["\<\"\[Mu]\"\>",
10480	RowBox[{"3", ",", "1"}]], ",",
10481	SubscriptBox["\<\"\[Mu]\"\>",
10482	RowBox[{"3", ",", "2"}]]}]], " ",
10483	SubscriptBox[
10484	RowBox[{"\[Gamma]", ".",
10485	SubscriptBox["\<\"p\"\>", "1"]}],
10486	RowBox[{
10487	SubscriptBox["\<\"s\"\>", "2"], ",",
10488	SubscriptBox["\<\"s\"\>", "1"]}]]}],
10489	RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
10490	FractionBox[
10491	RowBox[{"\[ImaginaryI]", " ",
10492	SubscriptBox["\[Kappa]", "q"], " ",
10493	SubscriptBox["\[Delta]",
10494	RowBox[{
10495	SubscriptBox["\<\"m\"\>", "1"], ",",
10496	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
10497	SubscriptBox["\[Eta]",
10498	RowBox[{
10499	SubscriptBox["\<\"\[Mu]\"\>",
10500	RowBox[{"3", ",", "1"}]], ",",
10501	SubscriptBox["\<\"\[Mu]\"\>",
10502	RowBox[{"3", ",", "2"}]]}]], " ",
10503	SubscriptBox[
10504	RowBox[{"\[Gamma]", ".",
10505	SubscriptBox["\<\"p\"\>", "2"]}],
10506	RowBox[{
10507	SubscriptBox["\<\"s\"\>", "2"], ",",
10508	SubscriptBox["\<\"s\"\>", "1"]}]]}],
10509	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
10510	CellChangeTimes->{
10511	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10512	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10513	3.5811597490401773`*^9}],
10514
10515	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
10516	* * * * * *)\"\>"], "Print",
10517	CellChangeTimes->{
10518	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10519	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10520	3.58115974904597*^9}],
10521
10522	Cell[BoxData[
10523	InterpretationBox[
10524	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "53"}],
10525	SequenceForm["Vertex ", 53],
10526	Editable->False]], "Print",
10527	CellChangeTimes->{
10528	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10529	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10530	3.581159749050153*^9}],
10531
10532	Cell[BoxData[
10533	InterpretationBox[
10534	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
10535	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
10536	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
10537	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ve],
10538	Editable->False]], "Print",
10539	CellChangeTimes->{
10540	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10541	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10542	3.581159749054553*^9}],
10543
10544	Cell[BoxData[
10545	InterpretationBox[
10546	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
10547	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
10548	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
10549	OverscriptBox["ve", "\<\"-\"\>"]}],
10550	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
10551	Editable->False]], "Print",
10552	CellChangeTimes->{
10553	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10554	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10555	3.581159749058736*^9}],
10556
10557	Cell[BoxData[
10558	InterpretationBox[
10559	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
10560	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
10561	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
10562	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
10563	Editable->False]], "Print",
10564	CellChangeTimes->{
10565	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10566	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10567	3.581159749062809*^9}],
10568
10569	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
10570	CellChangeTimes->{
10571	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10572	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10573	3.5811597490672407`*^9}],
10574
10575	Cell[BoxData[
10576	RowBox[{
10577	RowBox[{"-",
10578	FractionBox[
10579	RowBox[{"\[ImaginaryI]", " ",
10580	SubscriptBox["\[Kappa]", "l"], " ",
10581	SubsuperscriptBox["\<\"p\"\>", "1",
10582	SubscriptBox["\<\"\[Mu]\"\>",
10583	RowBox[{"3", ",", "2"}]]], " ",
10584	SubsuperscriptBox["\[Gamma]",
10585	RowBox[{
10586	SubscriptBox["\<\"s\"\>", "2"], ",",
10587	SubscriptBox["\<\"s\"\>", "1"]}],
10588	SubscriptBox["\<\"\[Mu]\"\>",
10589	RowBox[{"3", ",", "1"}]]]}],
10590	RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
10591	FractionBox[
10592	RowBox[{"\[ImaginaryI]", " ",
10593	SubscriptBox["\[Kappa]", "l"], " ",
10594	SubsuperscriptBox["\<\"p\"\>", "2",
10595	SubscriptBox["\<\"\[Mu]\"\>",
10596	RowBox[{"3", ",", "2"}]]], " ",
10597	SubsuperscriptBox["\[Gamma]",
10598	RowBox[{
10599	SubscriptBox["\<\"s\"\>", "2"], ",",
10600	SubscriptBox["\<\"s\"\>", "1"]}],
10601	SubscriptBox["\<\"\[Mu]\"\>",
10602	RowBox[{"3", ",", "1"}]]]}],
10603	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
10604	FractionBox[
10605	RowBox[{"\[ImaginaryI]", " ",
10606	SubscriptBox["\[Kappa]", "l"], " ",
10607	SubsuperscriptBox["\<\"p\"\>", "1",
10608	SubscriptBox["\<\"\[Mu]\"\>",
10609	RowBox[{"3", ",", "1"}]]], " ",
10610	SubsuperscriptBox["\[Gamma]",
10611	RowBox[{
10612	SubscriptBox["\<\"s\"\>", "2"], ",",
10613	SubscriptBox["\<\"s\"\>", "1"]}],
10614	SubscriptBox["\<\"\[Mu]\"\>",
10615	RowBox[{"3", ",", "2"}]]]}],
10616	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
10617	FractionBox[
10618	RowBox[{"\[ImaginaryI]", " ",
10619	SubscriptBox["\[Kappa]", "l"], " ",
10620	SubsuperscriptBox["\<\"p\"\>", "2",
10621	SubscriptBox["\<\"\[Mu]\"\>",
10622	RowBox[{"3", ",", "1"}]]], " ",
10623	SubsuperscriptBox["\[Gamma]",
10624	RowBox[{
10625	SubscriptBox["\<\"s\"\>", "2"], ",",
10626	SubscriptBox["\<\"s\"\>", "1"]}],
10627	SubscriptBox["\<\"\[Mu]\"\>",
10628	RowBox[{"3", ",", "2"}]]]}],
10629	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
10630	FractionBox[
10631	RowBox[{"\[ImaginaryI]", " ",
10632	SubscriptBox["\[Kappa]", "l"], " ",
10633	SubscriptBox["\[Eta]",
10634	RowBox[{
10635	SubscriptBox["\<\"\[Mu]\"\>",
10636	RowBox[{"3", ",", "1"}]], ",",
10637	SubscriptBox["\<\"\[Mu]\"\>",
10638	RowBox[{"3", ",", "2"}]]}]], " ",
10639	SubscriptBox[
10640	RowBox[{"\[Gamma]", ".",
10641	SubscriptBox["\<\"p\"\>", "1"]}],
10642	RowBox[{
10643	SubscriptBox["\<\"s\"\>", "2"], ",",
10644	SubscriptBox["\<\"s\"\>", "1"]}]]}],
10645	RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
10646	FractionBox[
10647	RowBox[{"\[ImaginaryI]", " ",
10648	SubscriptBox["\[Kappa]", "l"], " ",
10649	SubscriptBox["\[Eta]",
10650	RowBox[{
10651	SubscriptBox["\<\"\[Mu]\"\>",
10652	RowBox[{"3", ",", "1"}]], ",",
10653	SubscriptBox["\<\"\[Mu]\"\>",
10654	RowBox[{"3", ",", "2"}]]}]], " ",
10655	SubscriptBox[
10656	RowBox[{"\[Gamma]", ".",
10657	SubscriptBox["\<\"p\"\>", "2"]}],
10658	RowBox[{
10659	SubscriptBox["\<\"s\"\>", "2"], ",",
10660	SubscriptBox["\<\"s\"\>", "1"]}]]}],
10661	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
10662	CellChangeTimes->{
10663	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10664	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10665	3.58115974907207*^9}],
10666
10667	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
10668	* * * * * *)\"\>"], "Print",
10669	CellChangeTimes->{
10670	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10671	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10672	3.581159749079256*^9}],
10673
10674	Cell[BoxData[
10675	InterpretationBox[
10676	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "54"}],
10677	SequenceForm["Vertex ", 54],
10678	Editable->False]], "Print",
10679	CellChangeTimes->{
10680	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10681	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10682	3.581159749084635*^9}],
10683
10684	Cell[BoxData[
10685	InterpretationBox[
10686	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
10687	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
10688	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
10689	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vm],
10690	Editable->False]], "Print",
10691	CellChangeTimes->{
10692	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10693	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10694	3.581159749089931*^9}],
10695
10696	Cell[BoxData[
10697	InterpretationBox[
10698	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
10699	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
10700	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
10701	OverscriptBox["vm", "\<\"-\"\>"]}],
10702	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
10703	Editable->False]], "Print",
10704	CellChangeTimes->{
10705	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10706	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10707	3.5811597490943623`*^9}],
10708
10709	Cell[BoxData[
10710	InterpretationBox[
10711	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
10712	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
10713	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
10714	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
10715	Editable->False]], "Print",
10716	CellChangeTimes->{
10717	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10718	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10719	3.581159749098942*^9}],
10720
10721	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
10722	CellChangeTimes->{
10723	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10724	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10725	3.581159749102995*^9}],
10726
10727	Cell[BoxData[
10728	RowBox[{
10729	RowBox[{"-",
10730	FractionBox[
10731	RowBox[{"\[ImaginaryI]", " ",
10732	SubscriptBox["\[Kappa]", "l"], " ",
10733	SubsuperscriptBox["\<\"p\"\>", "1",
10734	SubscriptBox["\<\"\[Mu]\"\>",
10735	RowBox[{"3", ",", "2"}]]], " ",
10736	SubsuperscriptBox["\[Gamma]",
10737	RowBox[{
10738	SubscriptBox["\<\"s\"\>", "2"], ",",
10739	SubscriptBox["\<\"s\"\>", "1"]}],
10740	SubscriptBox["\<\"\[Mu]\"\>",
10741	RowBox[{"3", ",", "1"}]]]}],
10742	RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
10743	FractionBox[
10744	RowBox[{"\[ImaginaryI]", " ",
10745	SubscriptBox["\[Kappa]", "l"], " ",
10746	SubsuperscriptBox["\<\"p\"\>", "2",
10747	SubscriptBox["\<\"\[Mu]\"\>",
10748	RowBox[{"3", ",", "2"}]]], " ",
10749	SubsuperscriptBox["\[Gamma]",
10750	RowBox[{
10751	SubscriptBox["\<\"s\"\>", "2"], ",",
10752	SubscriptBox["\<\"s\"\>", "1"]}],
10753	SubscriptBox["\<\"\[Mu]\"\>",
10754	RowBox[{"3", ",", "1"}]]]}],
10755	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
10756	FractionBox[
10757	RowBox[{"\[ImaginaryI]", " ",
10758	SubscriptBox["\[Kappa]", "l"], " ",
10759	SubsuperscriptBox["\<\"p\"\>", "1",
10760	SubscriptBox["\<\"\[Mu]\"\>",
10761	RowBox[{"3", ",", "1"}]]], " ",
10762	SubsuperscriptBox["\[Gamma]",
10763	RowBox[{
10764	SubscriptBox["\<\"s\"\>", "2"], ",",
10765	SubscriptBox["\<\"s\"\>", "1"]}],
10766	SubscriptBox["\<\"\[Mu]\"\>",
10767	RowBox[{"3", ",", "2"}]]]}],
10768	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
10769	FractionBox[
10770	RowBox[{"\[ImaginaryI]", " ",
10771	SubscriptBox["\[Kappa]", "l"], " ",
10772	SubsuperscriptBox["\<\"p\"\>", "2",
10773	SubscriptBox["\<\"\[Mu]\"\>",
10774	RowBox[{"3", ",", "1"}]]], " ",
10775	SubsuperscriptBox["\[Gamma]",
10776	RowBox[{
10777	SubscriptBox["\<\"s\"\>", "2"], ",",
10778	SubscriptBox["\<\"s\"\>", "1"]}],
10779	SubscriptBox["\<\"\[Mu]\"\>",
10780	RowBox[{"3", ",", "2"}]]]}],
10781	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
10782	FractionBox[
10783	RowBox[{"\[ImaginaryI]", " ",
10784	SubscriptBox["\[Kappa]", "l"], " ",
10785	SubscriptBox["\[Eta]",
10786	RowBox[{
10787	SubscriptBox["\<\"\[Mu]\"\>",
10788	RowBox[{"3", ",", "1"}]], ",",
10789	SubscriptBox["\<\"\[Mu]\"\>",
10790	RowBox[{"3", ",", "2"}]]}]], " ",
10791	SubscriptBox[
10792	RowBox[{"\[Gamma]", ".",
10793	SubscriptBox["\<\"p\"\>", "1"]}],
10794	RowBox[{
10795	SubscriptBox["\<\"s\"\>", "2"], ",",
10796	SubscriptBox["\<\"s\"\>", "1"]}]]}],
10797	RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
10798	FractionBox[
10799	RowBox[{"\[ImaginaryI]", " ",
10800	SubscriptBox["\[Kappa]", "l"], " ",
10801	SubscriptBox["\[Eta]",
10802	RowBox[{
10803	SubscriptBox["\<\"\[Mu]\"\>",
10804	RowBox[{"3", ",", "1"}]], ",",
10805	SubscriptBox["\<\"\[Mu]\"\>",
10806	RowBox[{"3", ",", "2"}]]}]], " ",
10807	SubscriptBox[
10808	RowBox[{"\[Gamma]", ".",
10809	SubscriptBox["\<\"p\"\>", "2"]}],
10810	RowBox[{
10811	SubscriptBox["\<\"s\"\>", "2"], ",",
10812	SubscriptBox["\<\"s\"\>", "1"]}]]}],
10813	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
10814	CellChangeTimes->{
10815	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10816	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10817	3.581159749107958*^9}],
10818
10819	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
10820	* * * * * *)\"\>"], "Print",
10821	CellChangeTimes->{
10822	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10823	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10824	3.5811597491135387`*^9}],
10825
10826	Cell[BoxData[
10827	InterpretationBox[
10828	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "55"}],
10829	SequenceForm["Vertex ", 55],
10830	Editable->False]], "Print",
10831	CellChangeTimes->{
10832	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10833	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10834	3.5811597491177807`*^9}],
10835
10836	Cell[BoxData[
10837	InterpretationBox[
10838	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
10839	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
10840	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
10841	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vt],
10842	Editable->False]], "Print",
10843	CellChangeTimes->{
10844	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10845	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10846	3.581159749121889*^9}],
10847
10848	Cell[BoxData[
10849	InterpretationBox[
10850	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
10851	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
10852	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
10853	OverscriptBox["vt", "\<\"-\"\>"]}],
10854	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
10855	Editable->False]], "Print",
10856	CellChangeTimes->{
10857	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10858	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10859	3.581159749125967*^9}],
10860
10861	Cell[BoxData[
10862	InterpretationBox[
10863	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
10864	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
10865	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
10866	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
10867	Editable->False]], "Print",
10868	CellChangeTimes->{
10869	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10870	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10871	3.581159749130176*^9}],
10872
10873	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
10874	CellChangeTimes->{
10875	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10876	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10877	3.581159749134182*^9}],
10878
10879	Cell[BoxData[
10880	RowBox[{
10881	RowBox[{"-",
10882	FractionBox[
10883	RowBox[{"\[ImaginaryI]", " ",
10884	SubscriptBox["\[Kappa]", "l"], " ",
10885	SubsuperscriptBox["\<\"p\"\>", "1",
10886	SubscriptBox["\<\"\[Mu]\"\>",
10887	RowBox[{"3", ",", "2"}]]], " ",
10888	SubsuperscriptBox["\[Gamma]",
10889	RowBox[{
10890	SubscriptBox["\<\"s\"\>", "2"], ",",
10891	SubscriptBox["\<\"s\"\>", "1"]}],
10892	SubscriptBox["\<\"\[Mu]\"\>",
10893	RowBox[{"3", ",", "1"}]]]}],
10894	RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
10895	FractionBox[
10896	RowBox[{"\[ImaginaryI]", " ",
10897	SubscriptBox["\[Kappa]", "l"], " ",
10898	SubsuperscriptBox["\<\"p\"\>", "2",
10899	SubscriptBox["\<\"\[Mu]\"\>",
10900	RowBox[{"3", ",", "2"}]]], " ",
10901	SubsuperscriptBox["\[Gamma]",
10902	RowBox[{
10903	SubscriptBox["\<\"s\"\>", "2"], ",",
10904	SubscriptBox["\<\"s\"\>", "1"]}],
10905	SubscriptBox["\<\"\[Mu]\"\>",
10906	RowBox[{"3", ",", "1"}]]]}],
10907	RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
10908	FractionBox[
10909	RowBox[{"\[ImaginaryI]", " ",
10910	SubscriptBox["\[Kappa]", "l"], " ",
10911	SubsuperscriptBox["\<\"p\"\>", "1",
10912	SubscriptBox["\<\"\[Mu]\"\>",
10913	RowBox[{"3", ",", "1"}]]], " ",
10914	SubsuperscriptBox["\[Gamma]",
10915	RowBox[{
10916	SubscriptBox["\<\"s\"\>", "2"], ",",
10917	SubscriptBox["\<\"s\"\>", "1"]}],
10918	SubscriptBox["\<\"\[Mu]\"\>",
10919	RowBox[{"3", ",", "2"}]]]}],
10920	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
10921	FractionBox[
10922	RowBox[{"\[ImaginaryI]", " ",
10923	SubscriptBox["\[Kappa]", "l"], " ",
10924	SubsuperscriptBox["\<\"p\"\>", "2",
10925	SubscriptBox["\<\"\[Mu]\"\>",
10926	RowBox[{"3", ",", "1"}]]], " ",
10927	SubsuperscriptBox["\[Gamma]",
10928	RowBox[{
10929	SubscriptBox["\<\"s\"\>", "2"], ",",
10930	SubscriptBox["\<\"s\"\>", "1"]}],
10931	SubscriptBox["\<\"\[Mu]\"\>",
10932	RowBox[{"3", ",", "2"}]]]}],
10933	RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
10934	FractionBox[
10935	RowBox[{"\[ImaginaryI]", " ",
10936	SubscriptBox["\[Kappa]", "l"], " ",
10937	SubscriptBox["\[Eta]",
10938	RowBox[{
10939	SubscriptBox["\<\"\[Mu]\"\>",
10940	RowBox[{"3", ",", "1"}]], ",",
10941	SubscriptBox["\<\"\[Mu]\"\>",
10942	RowBox[{"3", ",", "2"}]]}]], " ",
10943	SubscriptBox[
10944	RowBox[{"\[Gamma]", ".",
10945	SubscriptBox["\<\"p\"\>", "1"]}],
10946	RowBox[{
10947	SubscriptBox["\<\"s\"\>", "2"], ",",
10948	SubscriptBox["\<\"s\"\>", "1"]}]]}],
10949	RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
10950	FractionBox[
10951	RowBox[{"\[ImaginaryI]", " ",
10952	SubscriptBox["\[Kappa]", "l"], " ",
10953	SubscriptBox["\[Eta]",
10954	RowBox[{
10955	SubscriptBox["\<\"\[Mu]\"\>",
10956	RowBox[{"3", ",", "1"}]], ",",
10957	SubscriptBox["\<\"\[Mu]\"\>",
10958	RowBox[{"3", ",", "2"}]]}]], " ",
10959	SubscriptBox[
10960	RowBox[{"\[Gamma]", ".",
10961	SubscriptBox["\<\"p\"\>", "2"]}],
10962	RowBox[{
10963	SubscriptBox["\<\"s\"\>", "2"], ",",
10964	SubscriptBox["\<\"s\"\>", "1"]}]]}],
10965	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
10966	CellChangeTimes->{
10967	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10968	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10969	3.5811597491387177`*^9}],
10970
10971	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
10972	* * * * * *)\"\>"], "Print",
10973	CellChangeTimes->{
10974	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10975	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10976	3.581159749144433*^9}],
10977
10978	Cell[BoxData[
10979	InterpretationBox[
10980	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "56"}],
10981	SequenceForm["Vertex ", 56],
10982	Editable->False]], "Print",
10983	CellChangeTimes->{
10984	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10985	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10986	3.581159749148744*^9}],
10987
10988	Cell[BoxData[
10989	InterpretationBox[
10990	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
10991	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
10992	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
10993	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
10994	Editable->False]], "Print",
10995	CellChangeTimes->{
10996	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
10997	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
10998	3.58115974915285*^9}],
10999
11000	Cell[BoxData[
11001	InterpretationBox[
11002	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
11003	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
11004	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
11005	OverscriptBox["c", "\<\"-\"\>"]}],
11006	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
11007	Editable->False]], "Print",
11008	CellChangeTimes->{
11009	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11010	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11011	3.581159749157444*^9}],
11012
11013	Cell[BoxData[
11014	InterpretationBox[
11015	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
11016	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
11017	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
11018	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
11019	Editable->False]], "Print",
11020	CellChangeTimes->{
11021	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11022	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11023	3.581159749161512*^9}],
11024
11025	Cell[BoxData[
11026	InterpretationBox[
11027	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
11028	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
11029	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
11030	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
11031	Editable->False]], "Print",
11032	CellChangeTimes->{
11033	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11034	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11035	3.581159749165744*^9}],
11036
11037	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
11038	CellChangeTimes->{
11039	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11040	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11041	3.581159749169764*^9}],
11042
11043	Cell[BoxData[
11044	RowBox[{
11045	RowBox[{"-",
11046	FractionBox[
11047	RowBox[{"\[ImaginaryI]", " ",
11048	SubscriptBox["g", "s"], " ",
11049	SubscriptBox["\[Kappa]", "q"], " ",
11050	SubsuperscriptBox["\[Gamma]",
11051	RowBox[{
11052	SubscriptBox["\<\"s\"\>", "2"], ",",
11053	SubscriptBox["\<\"s\"\>", "1"]}],
11054	SubscriptBox["\<\"\[Mu]\"\>",
11055	RowBox[{"4", ",", "2"}]]], " ",
11056	SubscriptBox["\[Eta]",
11057	RowBox[{
11058	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
11059	SubscriptBox["\<\"\[Mu]\"\>",
11060	RowBox[{"4", ",", "1"}]]}]], " ",
11061	SubsuperscriptBox["T",
11062	RowBox[{
11063	SubscriptBox["\<\"m\"\>", "2"], ",",
11064	SubscriptBox["\<\"m\"\>", "1"]}],
11065	SubscriptBox["\<\"a\"\>", "3"]]}],
11066	RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-",
11067	FractionBox[
11068	RowBox[{"\[ImaginaryI]", " ",
11069	SubscriptBox["g", "s"], " ",
11070	SubscriptBox["\[Kappa]", "q"], " ",
11071	SubsuperscriptBox["\[Gamma]",
11072	RowBox[{
11073	SubscriptBox["\<\"s\"\>", "2"], ",",
11074	SubscriptBox["\<\"s\"\>", "1"]}],
11075	SubscriptBox["\<\"\[Mu]\"\>",
11076	RowBox[{"4", ",", "1"}]]], " ",
11077	SubscriptBox["\[Eta]",
11078	RowBox[{
11079	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
11080	SubscriptBox["\<\"\[Mu]\"\>",
11081	RowBox[{"4", ",", "2"}]]}]], " ",
11082	SubsuperscriptBox["T",
11083	RowBox[{
11084	SubscriptBox["\<\"m\"\>", "2"], ",",
11085	SubscriptBox["\<\"m\"\>", "1"]}],
11086	SubscriptBox["\<\"a\"\>", "3"]]}],
11087	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
11088	FractionBox[
11089	RowBox[{"\[ImaginaryI]", " ",
11090	SubscriptBox["g", "s"], " ",
11091	SubscriptBox["\[Kappa]", "q"], " ",
11092	SubsuperscriptBox["\[Gamma]",
11093	RowBox[{
11094	SubscriptBox["\<\"s\"\>", "2"], ",",
11095	SubscriptBox["\<\"s\"\>", "1"]}],
11096	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
11097	SubscriptBox["\[Eta]",
11098	RowBox[{
11099	SubscriptBox["\<\"\[Mu]\"\>",
11100	RowBox[{"4", ",", "1"}]], ",",
11101	SubscriptBox["\<\"\[Mu]\"\>",
11102	RowBox[{"4", ",", "2"}]]}]], " ",
11103	SubsuperscriptBox["T",
11104	RowBox[{
11105	SubscriptBox["\<\"m\"\>", "2"], ",",
11106	SubscriptBox["\<\"m\"\>", "1"]}],
11107	SubscriptBox["\<\"a\"\>", "3"]]}], "\[CapitalLambda]"]}]], "Print",
11108	CellChangeTimes->{
11109	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11110	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11111	3.581159749174347*^9}],
11112
11113	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
11114	* * * * * *)\"\>"], "Print",
11115	CellChangeTimes->{
11116	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11117	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11118	3.58115974917983*^9}],
11119
11120	Cell[BoxData[
11121	InterpretationBox[
11122	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "57"}],
11123	SequenceForm["Vertex ", 57],
11124	Editable->False]], "Print",
11125	CellChangeTimes->{
11126	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11127	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11128	3.5811597491859426`*^9}],
11129
11130	Cell[BoxData[
11131	InterpretationBox[
11132	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
11133	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
11134	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
11135	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
11136	Editable->False]], "Print",
11137	CellChangeTimes->{
11138	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11139	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11140	3.581159749191979*^9}],
11141
11142	Cell[BoxData[
11143	InterpretationBox[
11144	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
11145	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
11146	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
11147	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
11148	Editable->False]], "Print",
11149	CellChangeTimes->{
11150	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11151	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11152	3.581159749197556*^9}],
11153
11154	Cell[BoxData[
11155	InterpretationBox[
11156	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
11157	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
11158	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
11159	OverscriptBox["t", "\<\"-\"\>"]}],
11160	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tbar],
11161	Editable->False]], "Print",
11162	CellChangeTimes->{
11163	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11164	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11165	3.581159749203784*^9}],
11166
11167	Cell[BoxData[
11168	InterpretationBox[
11169	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
11170	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
11171	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
11172	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
11173	Editable->False]], "Print",
11174	CellChangeTimes->{
11175	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11176	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11177	3.5811597492092857`*^9}],
11178
11179	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
11180	CellChangeTimes->{
11181	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11182	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11183	3.5811597492147503`*^9}],
11184
11185	Cell[BoxData[
11186	RowBox[{
11187	RowBox[{"-",
11188	FractionBox[
11189	RowBox[{"\[ImaginaryI]", " ",
11190	SubscriptBox["g", "s"], " ",
11191	SubscriptBox["\[Kappa]", "q"], " ",
11192	SubsuperscriptBox["\[Gamma]",
11193	RowBox[{
11194	SubscriptBox["\<\"s\"\>", "3"], ",",
11195	SubscriptBox["\<\"s\"\>", "2"]}],
11196	SubscriptBox["\<\"\[Mu]\"\>",
11197	RowBox[{"4", ",", "2"}]]], " ",
11198	SubscriptBox["\[Eta]",
11199	RowBox[{
11200	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
11201	SubscriptBox["\<\"\[Mu]\"\>",
11202	RowBox[{"4", ",", "1"}]]}]], " ",
11203	SubsuperscriptBox["T",
11204	RowBox[{
11205	SubscriptBox["\<\"m\"\>", "3"], ",",
11206	SubscriptBox["\<\"m\"\>", "2"]}],
11207	SubscriptBox["\<\"a\"\>", "1"]]}],
11208	RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-",
11209	FractionBox[
11210	RowBox[{"\[ImaginaryI]", " ",
11211	SubscriptBox["g", "s"], " ",
11212	SubscriptBox["\[Kappa]", "q"], " ",
11213	SubsuperscriptBox["\[Gamma]",
11214	RowBox[{
11215	SubscriptBox["\<\"s\"\>", "3"], ",",
11216	SubscriptBox["\<\"s\"\>", "2"]}],
11217	SubscriptBox["\<\"\[Mu]\"\>",
11218	RowBox[{"4", ",", "1"}]]], " ",
11219	SubscriptBox["\[Eta]",
11220	RowBox[{
11221	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
11222	SubscriptBox["\<\"\[Mu]\"\>",
11223	RowBox[{"4", ",", "2"}]]}]], " ",
11224	SubsuperscriptBox["T",
11225	RowBox[{
11226	SubscriptBox["\<\"m\"\>", "3"], ",",
11227	SubscriptBox["\<\"m\"\>", "2"]}],
11228	SubscriptBox["\<\"a\"\>", "1"]]}],
11229	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
11230	FractionBox[
11231	RowBox[{"\[ImaginaryI]", " ",
11232	SubscriptBox["g", "s"], " ",
11233	SubscriptBox["\[Kappa]", "q"], " ",
11234	SubsuperscriptBox["\[Gamma]",
11235	RowBox[{
11236	SubscriptBox["\<\"s\"\>", "3"], ",",
11237	SubscriptBox["\<\"s\"\>", "2"]}],
11238	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
11239	SubscriptBox["\[Eta]",
11240	RowBox[{
11241	SubscriptBox["\<\"\[Mu]\"\>",
11242	RowBox[{"4", ",", "1"}]], ",",
11243	SubscriptBox["\<\"\[Mu]\"\>",
11244	RowBox[{"4", ",", "2"}]]}]], " ",
11245	SubsuperscriptBox["T",
11246	RowBox[{
11247	SubscriptBox["\<\"m\"\>", "3"], ",",
11248	SubscriptBox["\<\"m\"\>", "2"]}],
11249	SubscriptBox["\<\"a\"\>", "1"]]}], "\[CapitalLambda]"]}]], "Print",
11250	CellChangeTimes->{
11251	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11252	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11253	3.5811597492202187`*^9}],
11254
11255	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
11256	* * * * * *)\"\>"], "Print",
11257	CellChangeTimes->{
11258	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11259	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11260	3.581159749229089*^9}],
11261
11262	Cell[BoxData[
11263	InterpretationBox[
11264	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "58"}],
11265	SequenceForm["Vertex ", 58],
11266	Editable->False]], "Print",
11267	CellChangeTimes->{
11268	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11269	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11270	3.581159749234344*^9}],
11271
11272	Cell[BoxData[
11273	InterpretationBox[
11274	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
11275	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
11276	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
11277	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
11278	Editable->False]], "Print",
11279	CellChangeTimes->{
11280	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11281	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11282	3.5811597492399597`*^9}],
11283
11284	Cell[BoxData[
11285	InterpretationBox[
11286	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
11287	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
11288	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
11289	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
11290	Editable->False]], "Print",
11291	CellChangeTimes->{
11292	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11293	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11294	3.581159749246365*^9}],
11295
11296	Cell[BoxData[
11297	InterpretationBox[
11298	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
11299	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
11300	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
11301	OverscriptBox["u", "\<\"-\"\>"]}],
11302	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
11303	Editable->False]], "Print",
11304	CellChangeTimes->{
11305	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11306	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11307	3.581159749284761*^9}],
11308
11309	Cell[BoxData[
11310	InterpretationBox[
11311	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
11312	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
11313	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
11314	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
11315	Editable->False]], "Print",
11316	CellChangeTimes->{
11317	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11318	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11319	3.581159749289731*^9}],
11320
11321	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
11322	CellChangeTimes->{
11323	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11324	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11325	3.58115974929602*^9}],
11326
11327	Cell[BoxData[
11328	RowBox[{
11329	RowBox[{"-",
11330	FractionBox[
11331	RowBox[{"\[ImaginaryI]", " ",
11332	SubscriptBox["g", "s"], " ",
11333	SubscriptBox["\[Kappa]", "q"], " ",
11334	SubsuperscriptBox["\[Gamma]",
11335	RowBox[{
11336	SubscriptBox["\<\"s\"\>", "3"], ",",
11337	SubscriptBox["\<\"s\"\>", "2"]}],
11338	SubscriptBox["\<\"\[Mu]\"\>",
11339	RowBox[{"4", ",", "2"}]]], " ",
11340	SubscriptBox["\[Eta]",
11341	RowBox[{
11342	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
11343	SubscriptBox["\<\"\[Mu]\"\>",
11344	RowBox[{"4", ",", "1"}]]}]], " ",
11345	SubsuperscriptBox["T",
11346	RowBox[{
11347	SubscriptBox["\<\"m\"\>", "3"], ",",
11348	SubscriptBox["\<\"m\"\>", "2"]}],
11349	SubscriptBox["\<\"a\"\>", "1"]]}],
11350	RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-",
11351	FractionBox[
11352	RowBox[{"\[ImaginaryI]", " ",
11353	SubscriptBox["g", "s"], " ",
11354	SubscriptBox["\[Kappa]", "q"], " ",
11355	SubsuperscriptBox["\[Gamma]",
11356	RowBox[{
11357	SubscriptBox["\<\"s\"\>", "3"], ",",
11358	SubscriptBox["\<\"s\"\>", "2"]}],
11359	SubscriptBox["\<\"\[Mu]\"\>",
11360	RowBox[{"4", ",", "1"}]]], " ",
11361	SubscriptBox["\[Eta]",
11362	RowBox[{
11363	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
11364	SubscriptBox["\<\"\[Mu]\"\>",
11365	RowBox[{"4", ",", "2"}]]}]], " ",
11366	SubsuperscriptBox["T",
11367	RowBox[{
11368	SubscriptBox["\<\"m\"\>", "3"], ",",
11369	SubscriptBox["\<\"m\"\>", "2"]}],
11370	SubscriptBox["\<\"a\"\>", "1"]]}],
11371	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
11372	FractionBox[
11373	RowBox[{"\[ImaginaryI]", " ",
11374	SubscriptBox["g", "s"], " ",
11375	SubscriptBox["\[Kappa]", "q"], " ",
11376	SubsuperscriptBox["\[Gamma]",
11377	RowBox[{
11378	SubscriptBox["\<\"s\"\>", "3"], ",",
11379	SubscriptBox["\<\"s\"\>", "2"]}],
11380	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
11381	SubscriptBox["\[Eta]",
11382	RowBox[{
11383	SubscriptBox["\<\"\[Mu]\"\>",
11384	RowBox[{"4", ",", "1"}]], ",",
11385	SubscriptBox["\<\"\[Mu]\"\>",
11386	RowBox[{"4", ",", "2"}]]}]], " ",
11387	SubsuperscriptBox["T",
11388	RowBox[{
11389	SubscriptBox["\<\"m\"\>", "3"], ",",
11390	SubscriptBox["\<\"m\"\>", "2"]}],
11391	SubscriptBox["\<\"a\"\>", "1"]]}], "\[CapitalLambda]"]}]], "Print",
11392	CellChangeTimes->{
11393	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11394	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11395	3.581159749302363*^9}],
11396
11397	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
11398	* * * * * *)\"\>"], "Print",
11399	CellChangeTimes->{
11400	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11401	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11402	3.58115974931157*^9}],
11403
11404	Cell[BoxData[
11405	InterpretationBox[
11406	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "59"}],
11407	SequenceForm["Vertex ", 59],
11408	Editable->False]], "Print",
11409	CellChangeTimes->{
11410	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11411	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11412	3.5811597493177023`*^9}],
11413
11414	Cell[BoxData[
11415	InterpretationBox[
11416	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
11417	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
11418	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
11419	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
11420	Editable->False]], "Print",
11421	CellChangeTimes->{
11422	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11423	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11424	3.581159749322588*^9}],
11425
11426	Cell[BoxData[
11427	InterpretationBox[
11428	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
11429	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
11430	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
11431	OverscriptBox["b", "\<\"-\"\>"]}],
11432	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
11433	Editable->False]], "Print",
11434	CellChangeTimes->{
11435	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11436	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11437	3.581159749328846*^9}],
11438
11439	Cell[BoxData[
11440	InterpretationBox[
11441	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
11442	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
11443	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
11444	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
11445	Editable->False]], "Print",
11446	CellChangeTimes->{
11447	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11448	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11449	3.581159749336534*^9}],
11450
11451	Cell[BoxData[
11452	InterpretationBox[
11453	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
11454	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
11455	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
11456	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
11457	Editable->False]], "Print",
11458	CellChangeTimes->{
11459	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11460	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11461	3.581159749342958*^9}],
11462
11463	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
11464	CellChangeTimes->{
11465	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11466	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11467	3.5811597493486767`*^9}],
11468
11469	Cell[BoxData[
11470	RowBox[{
11471	RowBox[{"-",
11472	FractionBox[
11473	RowBox[{"\[ImaginaryI]", " ",
11474	SubscriptBox["g", "s"], " ",
11475	SubscriptBox["\[Kappa]", "q"], " ",
11476	SubsuperscriptBox["\[Gamma]",
11477	RowBox[{
11478	SubscriptBox["\<\"s\"\>", "2"], ",",
11479	SubscriptBox["\<\"s\"\>", "1"]}],
11480	SubscriptBox["\<\"\[Mu]\"\>",
11481	RowBox[{"4", ",", "2"}]]], " ",
11482	SubscriptBox["\[Eta]",
11483	RowBox[{
11484	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
11485	SubscriptBox["\<\"\[Mu]\"\>",
11486	RowBox[{"4", ",", "1"}]]}]], " ",
11487	SubsuperscriptBox["T",
11488	RowBox[{
11489	SubscriptBox["\<\"m\"\>", "2"], ",",
11490	SubscriptBox["\<\"m\"\>", "1"]}],
11491	SubscriptBox["\<\"a\"\>", "3"]]}],
11492	RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-",
11493	FractionBox[
11494	RowBox[{"\[ImaginaryI]", " ",
11495	SubscriptBox["g", "s"], " ",
11496	SubscriptBox["\[Kappa]", "q"], " ",
11497	SubsuperscriptBox["\[Gamma]",
11498	RowBox[{
11499	SubscriptBox["\<\"s\"\>", "2"], ",",
11500	SubscriptBox["\<\"s\"\>", "1"]}],
11501	SubscriptBox["\<\"\[Mu]\"\>",
11502	RowBox[{"4", ",", "1"}]]], " ",
11503	SubscriptBox["\[Eta]",
11504	RowBox[{
11505	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
11506	SubscriptBox["\<\"\[Mu]\"\>",
11507	RowBox[{"4", ",", "2"}]]}]], " ",
11508	SubsuperscriptBox["T",
11509	RowBox[{
11510	SubscriptBox["\<\"m\"\>", "2"], ",",
11511	SubscriptBox["\<\"m\"\>", "1"]}],
11512	SubscriptBox["\<\"a\"\>", "3"]]}],
11513	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
11514	FractionBox[
11515	RowBox[{"\[ImaginaryI]", " ",
11516	SubscriptBox["g", "s"], " ",
11517	SubscriptBox["\[Kappa]", "q"], " ",
11518	SubsuperscriptBox["\[Gamma]",
11519	RowBox[{
11520	SubscriptBox["\<\"s\"\>", "2"], ",",
11521	SubscriptBox["\<\"s\"\>", "1"]}],
11522	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
11523	SubscriptBox["\[Eta]",
11524	RowBox[{
11525	SubscriptBox["\<\"\[Mu]\"\>",
11526	RowBox[{"4", ",", "1"}]], ",",
11527	SubscriptBox["\<\"\[Mu]\"\>",
11528	RowBox[{"4", ",", "2"}]]}]], " ",
11529	SubsuperscriptBox["T",
11530	RowBox[{
11531	SubscriptBox["\<\"m\"\>", "2"], ",",
11532	SubscriptBox["\<\"m\"\>", "1"]}],
11533	SubscriptBox["\<\"a\"\>", "3"]]}], "\[CapitalLambda]"]}]], "Print",
11534	CellChangeTimes->{
11535	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11536	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11537	3.581159749354307*^9}],
11538
11539	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
11540	* * * * * *)\"\>"], "Print",
11541	CellChangeTimes->{
11542	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11543	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11544	3.5811597493633127`*^9}],
11545
11546	Cell[BoxData[
11547	InterpretationBox[
11548	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "60"}],
11549	SequenceForm["Vertex ", 60],
11550	Editable->False]], "Print",
11551	CellChangeTimes->{
11552	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11553	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11554	3.5811597493691483`*^9}],
11555
11556	Cell[BoxData[
11557	InterpretationBox[
11558	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
11559	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
11560	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
11561	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
11562	Editable->False]], "Print",
11563	CellChangeTimes->{
11564	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11565	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11566	3.581159749374257*^9}],
11567
11568	Cell[BoxData[
11569	InterpretationBox[
11570	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
11571	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
11572	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
11573	OverscriptBox["d", "\<\"-\"\>"]}],
11574	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
11575	Editable->False]], "Print",
11576	CellChangeTimes->{
11577	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11578	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11579	3.581159749380012*^9}],
11580
11581	Cell[BoxData[
11582	InterpretationBox[
11583	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
11584	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
11585	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
11586	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
11587	Editable->False]], "Print",
11588	CellChangeTimes->{
11589	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11590	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11591	3.5811597493861427`*^9}],
11592
11593	Cell[BoxData[
11594	InterpretationBox[
11595	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
11596	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
11597	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
11598	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
11599	Editable->False]], "Print",
11600	CellChangeTimes->{
11601	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11602	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11603	3.5811597493926687`*^9}],
11604
11605	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
11606	CellChangeTimes->{
11607	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11608	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11609	3.581159749398018*^9}],
11610
11611	Cell[BoxData[
11612	RowBox[{
11613	RowBox[{"-",
11614	FractionBox[
11615	RowBox[{"\[ImaginaryI]", " ",
11616	SubscriptBox["g", "s"], " ",
11617	SubscriptBox["\[Kappa]", "q"], " ",
11618	SubsuperscriptBox["\[Gamma]",
11619	RowBox[{
11620	SubscriptBox["\<\"s\"\>", "2"], ",",
11621	SubscriptBox["\<\"s\"\>", "1"]}],
11622	SubscriptBox["\<\"\[Mu]\"\>",
11623	RowBox[{"4", ",", "2"}]]], " ",
11624	SubscriptBox["\[Eta]",
11625	RowBox[{
11626	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
11627	SubscriptBox["\<\"\[Mu]\"\>",
11628	RowBox[{"4", ",", "1"}]]}]], " ",
11629	SubsuperscriptBox["T",
11630	RowBox[{
11631	SubscriptBox["\<\"m\"\>", "2"], ",",
11632	SubscriptBox["\<\"m\"\>", "1"]}],
11633	SubscriptBox["\<\"a\"\>", "3"]]}],
11634	RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-",
11635	FractionBox[
11636	RowBox[{"\[ImaginaryI]", " ",
11637	SubscriptBox["g", "s"], " ",
11638	SubscriptBox["\[Kappa]", "q"], " ",
11639	SubsuperscriptBox["\[Gamma]",
11640	RowBox[{
11641	SubscriptBox["\<\"s\"\>", "2"], ",",
11642	SubscriptBox["\<\"s\"\>", "1"]}],
11643	SubscriptBox["\<\"\[Mu]\"\>",
11644	RowBox[{"4", ",", "1"}]]], " ",
11645	SubscriptBox["\[Eta]",
11646	RowBox[{
11647	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
11648	SubscriptBox["\<\"\[Mu]\"\>",
11649	RowBox[{"4", ",", "2"}]]}]], " ",
11650	SubsuperscriptBox["T",
11651	RowBox[{
11652	SubscriptBox["\<\"m\"\>", "2"], ",",
11653	SubscriptBox["\<\"m\"\>", "1"]}],
11654	SubscriptBox["\<\"a\"\>", "3"]]}],
11655	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
11656	FractionBox[
11657	RowBox[{"\[ImaginaryI]", " ",
11658	SubscriptBox["g", "s"], " ",
11659	SubscriptBox["\[Kappa]", "q"], " ",
11660	SubsuperscriptBox["\[Gamma]",
11661	RowBox[{
11662	SubscriptBox["\<\"s\"\>", "2"], ",",
11663	SubscriptBox["\<\"s\"\>", "1"]}],
11664	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
11665	SubscriptBox["\[Eta]",
11666	RowBox[{
11667	SubscriptBox["\<\"\[Mu]\"\>",
11668	RowBox[{"4", ",", "1"}]], ",",
11669	SubscriptBox["\<\"\[Mu]\"\>",
11670	RowBox[{"4", ",", "2"}]]}]], " ",
11671	SubsuperscriptBox["T",
11672	RowBox[{
11673	SubscriptBox["\<\"m\"\>", "2"], ",",
11674	SubscriptBox["\<\"m\"\>", "1"]}],
11675	SubscriptBox["\<\"a\"\>", "3"]]}], "\[CapitalLambda]"]}]], "Print",
11676	CellChangeTimes->{
11677	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11678	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11679	3.58115974940347*^9}],
11680
11681	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
11682	* * * * * *)\"\>"], "Print",
11683	CellChangeTimes->{
11684	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11685	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11686	3.581159749409466*^9}],
11687
11688	Cell[BoxData[
11689	InterpretationBox[
11690	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "61"}],
11691	SequenceForm["Vertex ", 61],
11692	Editable->False]], "Print",
11693	CellChangeTimes->{
11694	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11695	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11696	3.58115974941367*^9}],
11697
11698	Cell[BoxData[
11699	InterpretationBox[
11700	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
11701	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
11702	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
11703	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
11704	Editable->False]], "Print",
11705	CellChangeTimes->{
11706	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11707	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11708	3.581159749418545*^9}],
11709
11710	Cell[BoxData[
11711	InterpretationBox[
11712	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
11713	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
11714	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
11715	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
11716	Editable->False]], "Print",
11717	CellChangeTimes->{
11718	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11719	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11720	3.581159749423143*^9}],
11721
11722	Cell[BoxData[
11723	InterpretationBox[
11724	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
11725	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
11726	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
11727	OverscriptBox["s", "\<\"-\"\>"]}],
11728	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
11729	Editable->False]], "Print",
11730	CellChangeTimes->{
11731	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11732	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11733	3.5811597494274883`*^9}],
11734
11735	Cell[BoxData[
11736	InterpretationBox[
11737	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
11738	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
11739	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
11740	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
11741	Editable->False]], "Print",
11742	CellChangeTimes->{
11743	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11744	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11745	3.5811597494318447`*^9}],
11746
11747	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
11748	CellChangeTimes->{
11749	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11750	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11751	3.581159749436059*^9}],
11752
11753	Cell[BoxData[
11754	RowBox[{
11755	RowBox[{"-",
11756	FractionBox[
11757	RowBox[{"\[ImaginaryI]", " ",
11758	SubscriptBox["g", "s"], " ",
11759	SubscriptBox["\[Kappa]", "q"], " ",
11760	SubsuperscriptBox["\[Gamma]",
11761	RowBox[{
11762	SubscriptBox["\<\"s\"\>", "3"], ",",
11763	SubscriptBox["\<\"s\"\>", "2"]}],
11764	SubscriptBox["\<\"\[Mu]\"\>",
11765	RowBox[{"4", ",", "2"}]]], " ",
11766	SubscriptBox["\[Eta]",
11767	RowBox[{
11768	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
11769	SubscriptBox["\<\"\[Mu]\"\>",
11770	RowBox[{"4", ",", "1"}]]}]], " ",
11771	SubsuperscriptBox["T",
11772	RowBox[{
11773	SubscriptBox["\<\"m\"\>", "3"], ",",
11774	SubscriptBox["\<\"m\"\>", "2"]}],
11775	SubscriptBox["\<\"a\"\>", "1"]]}],
11776	RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-",
11777	FractionBox[
11778	RowBox[{"\[ImaginaryI]", " ",
11779	SubscriptBox["g", "s"], " ",
11780	SubscriptBox["\[Kappa]", "q"], " ",
11781	SubsuperscriptBox["\[Gamma]",
11782	RowBox[{
11783	SubscriptBox["\<\"s\"\>", "3"], ",",
11784	SubscriptBox["\<\"s\"\>", "2"]}],
11785	SubscriptBox["\<\"\[Mu]\"\>",
11786	RowBox[{"4", ",", "1"}]]], " ",
11787	SubscriptBox["\[Eta]",
11788	RowBox[{
11789	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
11790	SubscriptBox["\<\"\[Mu]\"\>",
11791	RowBox[{"4", ",", "2"}]]}]], " ",
11792	SubsuperscriptBox["T",
11793	RowBox[{
11794	SubscriptBox["\<\"m\"\>", "3"], ",",
11795	SubscriptBox["\<\"m\"\>", "2"]}],
11796	SubscriptBox["\<\"a\"\>", "1"]]}],
11797	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
11798	FractionBox[
11799	RowBox[{"\[ImaginaryI]", " ",
11800	SubscriptBox["g", "s"], " ",
11801	SubscriptBox["\[Kappa]", "q"], " ",
11802	SubsuperscriptBox["\[Gamma]",
11803	RowBox[{
11804	SubscriptBox["\<\"s\"\>", "3"], ",",
11805	SubscriptBox["\<\"s\"\>", "2"]}],
11806	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
11807	SubscriptBox["\[Eta]",
11808	RowBox[{
11809	SubscriptBox["\<\"\[Mu]\"\>",
11810	RowBox[{"4", ",", "1"}]], ",",
11811	SubscriptBox["\<\"\[Mu]\"\>",
11812	RowBox[{"4", ",", "2"}]]}]], " ",
11813	SubsuperscriptBox["T",
11814	RowBox[{
11815	SubscriptBox["\<\"m\"\>", "3"], ",",
11816	SubscriptBox["\<\"m\"\>", "2"]}],
11817	SubscriptBox["\<\"a\"\>", "1"]]}], "\[CapitalLambda]"]}]], "Print",
11818	CellChangeTimes->{
11819	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11820	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11821	3.581159749440455*^9}],
11822
11823	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
11824	* * * * * *)\"\>"], "Print",
11825	CellChangeTimes->{
11826	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11827	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11828	3.581159749445622*^9}],
11829
11830	Cell[BoxData[
11831	InterpretationBox[
11832	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "62"}],
11833	SequenceForm["Vertex ", 62],
11834	Editable->False]], "Print",
11835	CellChangeTimes->{
11836	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11837	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11838	3.58115974945019*^9}],
11839
11840	Cell[BoxData[
11841	InterpretationBox[
11842	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
11843	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
11844	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
11845	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
11846	Editable->False]], "Print",
11847	CellChangeTimes->{
11848	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11849	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11850	3.581159749454708*^9}],
11851
11852	Cell[BoxData[
11853	InterpretationBox[
11854	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
11855	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
11856	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
11857	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
11858	Editable->False]], "Print",
11859	CellChangeTimes->{
11860	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11861	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11862	3.581159749459753*^9}],
11863
11864	Cell[BoxData[
11865	InterpretationBox[
11866	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
11867	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
11868	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
11869	SuperscriptBox["W", "\[Dagger]"]}],
11870	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
11871	Editable->False]], "Print",
11872	CellChangeTimes->{
11873	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11874	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11875	3.581159749464264*^9}],
11876
11877	Cell[BoxData[
11878	InterpretationBox[
11879	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
11880	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
11881	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
11882	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
11883	Editable->False]], "Print",
11884	CellChangeTimes->{
11885	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11886	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11887	3.5811597494690638`*^9}],
11888
11889	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
11890	CellChangeTimes->{
11891	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11892	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11893	3.581159749473524*^9}],
11894
11895	Cell[BoxData[
11896	RowBox[{
11897	RowBox[{"-",
11898	FractionBox[
11899	RowBox[{"2", " ", "\[ImaginaryI]", " ",
11900	SubscriptBox["c", "w"], " ",
11901	SuperscriptBox["e", "2"], " ",
11902	SubscriptBox["\[Eta]",
11903	RowBox[{
11904	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
11905	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
11906	SubscriptBox["\[Eta]",
11907	RowBox[{
11908	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
11909	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
11910	SubscriptBox["s", "w"]]}], "+",
11911	FractionBox[
11912	RowBox[{"\[ImaginaryI]", " ",
11913	SubscriptBox["c", "w"], " ",
11914	SuperscriptBox["e", "2"], " ",
11915	SubscriptBox["\[Eta]",
11916	RowBox[{
11917	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
11918	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
11919	SubscriptBox["\[Eta]",
11920	RowBox[{
11921	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
11922	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
11923	SubscriptBox["s", "w"]], "+",
11924	FractionBox[
11925	RowBox[{"\[ImaginaryI]", " ",
11926	SubscriptBox["c", "w"], " ",
11927	SuperscriptBox["e", "2"], " ",
11928	SubscriptBox["\[Eta]",
11929	RowBox[{
11930	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
11931	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
11932	SubscriptBox["\[Eta]",
11933	RowBox[{
11934	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
11935	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
11936	SubscriptBox["s", "w"]]}]], "Print",
11937	CellChangeTimes->{
11938	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11939	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11940	3.581159749479088*^9}],
11941
11942	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
11943	* * * * * *)\"\>"], "Print",
11944	CellChangeTimes->{
11945	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11946	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11947	3.581159749484932*^9}],
11948
11949	Cell[BoxData[
11950	InterpretationBox[
11951	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "63"}],
11952	SequenceForm["Vertex ", 63],
11953	Editable->False]], "Print",
11954	CellChangeTimes->{
11955	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11956	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11957	3.581159749489547*^9}],
11958
11959	Cell[BoxData[
11960	InterpretationBox[
11961	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
11962	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
11963	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
11964	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`X1],
11965	Editable->False]], "Print",
11966	CellChangeTimes->{
11967	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11968	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11969	3.581159749494001*^9}],
11970
11971	Cell[BoxData[
11972	InterpretationBox[
11973	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
11974	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
11975	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
11976	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Z],
11977	Editable->False]], "Print",
11978	CellChangeTimes->{
11979	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11980	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11981	3.581159749499135*^9}],
11982
11983	Cell[BoxData[
11984	InterpretationBox[
11985	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
11986	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
11987	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
11988	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
11989	Editable->False]], "Print",
11990	CellChangeTimes->{
11991	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11992	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11993	3.581159749503717*^9}],
11994
11995	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
11996	CellChangeTimes->{
11997	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
11998	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
11999	3.581159749508576*^9}],
12000
12001	Cell[BoxData[
12002	RowBox[{
12003	RowBox[{
12004	SubscriptBox["\[Kappa]", "z5"], " ",
12005	SubscriptBox["\[Epsilon]",
12006	RowBox[{
12007	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
12008	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
12009	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ",
12010	SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "-",
12011	RowBox[{
12012	SubscriptBox["\[Kappa]", "z5"], " ",
12013	SubscriptBox["\[Epsilon]",
12014	RowBox[{
12015	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
12016	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
12017	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ",
12018	SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}], "-",
12019	RowBox[{
12020	SubscriptBox["\[Kappa]", "z1"], " ",
12021	SubsuperscriptBox["\<\"p\"\>", "2",
12022	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
12023	SubscriptBox["\[Eta]",
12024	RowBox[{
12025	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
12026	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
12027	RowBox[{
12028	SubscriptBox["\[Kappa]", "z3"], " ",
12029	SubsuperscriptBox["\<\"p\"\>", "2",
12030	SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
12031	SubscriptBox["\[Eta]",
12032	RowBox[{
12033	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
12034	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
12035	RowBox[{
12036	SubscriptBox["\[Kappa]", "z1"], " ",
12037	SubsuperscriptBox["\<\"p\"\>", "3",
12038	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
12039	SubscriptBox["\[Eta]",
12040	RowBox[{
12041	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
12042	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
12043	RowBox[{
12044	SubscriptBox["\[Kappa]", "z3"], " ",
12045	SubsuperscriptBox["\<\"p\"\>", "3",
12046	SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
12047	SubscriptBox["\[Eta]",
12048	RowBox[{
12049	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
12050	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
12051	RowBox[{
12052	SubscriptBox["\[Kappa]", "z1"], " ",
12053	SubsuperscriptBox["\<\"p\"\>", "2",
12054	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
12055	SubscriptBox["\[Eta]",
12056	RowBox[{
12057	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
12058	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
12059	RowBox[{
12060	SubscriptBox["\[Kappa]", "z1"], " ",
12061	SubsuperscriptBox["\<\"p\"\>", "3",
12062	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
12063	SubscriptBox["\[Eta]",
12064	RowBox[{
12065	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
12066	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
12067	CellChangeTimes->{
12068	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12069	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12070	3.5811597495132427`*^9}],
12071
12072	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
12073	* * * * * *)\"\>"], "Print",
12074	CellChangeTimes->{
12075	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12076	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12077	3.5811597495185633`*^9}],
12078
12079	Cell[BoxData[
12080	InterpretationBox[
12081	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "64"}],
12082	SequenceForm["Vertex ", 64],
12083	Editable->False]], "Print",
12084	CellChangeTimes->{
12085	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12086	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12087	3.581159749522718*^9}],
12088
12089	Cell[BoxData[
12090	InterpretationBox[
12091	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
12092	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
12093	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
12094	SequenceForm["Particle ", 1, " : ", "Scalar", " , ", $CellContext`X0],
12095	Editable->False]], "Print",
12096	CellChangeTimes->{
12097	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12098	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12099	3.581159749526729*^9}],
12100
12101	Cell[BoxData[
12102	InterpretationBox[
12103	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
12104	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
12105	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
12106	SequenceForm["Particle ", 2, " : ", "Scalar", " , ", $CellContext`X0],
12107	Editable->False]], "Print",
12108	CellChangeTimes->{
12109	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12110	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12111	3.581159749531082*^9}],
12112
12113	Cell[BoxData[
12114	InterpretationBox[
12115	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
12116	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12117	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
12118	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
12119	Editable->False]], "Print",
12120	CellChangeTimes->{
12121	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12122	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12123	3.581159749535388*^9}],
12124
12125	Cell[BoxData[
12126	InterpretationBox[
12127	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
12128	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12129	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
12130	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
12131	Editable->False]], "Print",
12132	CellChangeTimes->{
12133	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12134	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12135	3.581159749539523*^9}],
12136
12137	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
12138	CellChangeTimes->{
12139	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12140	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12141	3.581159749543545*^9}],
12142
12143	Cell[BoxData[
12144	RowBox[{
12145	RowBox[{"\[ImaginaryI]", " ",
12146	SubsuperscriptBox["c", "a", "2"], " ",
12147	SuperscriptBox["e", "2"], " ",
12148	SubscriptBox["\[Kappa]", "SM"], " ",
12149	SubscriptBox["\[Eta]",
12150	RowBox[{
12151	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
12152	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "+",
12153	FractionBox[
12154	RowBox[{"\[ImaginaryI]", " ",
12155	SubsuperscriptBox["c", "a", "2"], " ",
12156	SubsuperscriptBox["c", "w", "2"], " ",
12157	SuperscriptBox["e", "2"], " ",
12158	SubscriptBox["\[Kappa]", "SM"], " ",
12159	SubscriptBox["\[Eta]",
12160	RowBox[{
12161	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
12162	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
12163	RowBox[{"2", " ",
12164	SubsuperscriptBox["s", "w", "2"]}]], "+",
12165	FractionBox[
12166	RowBox[{"\[ImaginaryI]", " ",
12167	SubsuperscriptBox["c", "a", "2"], " ",
12168	SuperscriptBox["e", "2"], " ",
12169	SubscriptBox["\[Kappa]", "SM"], " ",
12170	SubsuperscriptBox["s", "w", "2"], " ",
12171	SubscriptBox["\[Eta]",
12172	RowBox[{
12173	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
12174	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
12175	RowBox[{"2", " ",
12176	SubsuperscriptBox["c", "w", "2"]}]]}]], "Print",
12177	CellChangeTimes->{
12178	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12179	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12180	3.581159749547854*^9}],
12181
12182	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
12183	* * * * * *)\"\>"], "Print",
12184	CellChangeTimes->{
12185	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12186	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12187	3.581159749552376*^9}],
12188
12189	Cell[BoxData[
12190	InterpretationBox[
12191	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "65"}],
12192	SequenceForm["Vertex ", 65],
12193	Editable->False]], "Print",
12194	CellChangeTimes->{
12195	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12196	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12197	3.5811597495566883`*^9}],
12198
12199	Cell[BoxData[
12200	InterpretationBox[
12201	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
12202	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12203	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
12204	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
12205	Editable->False]], "Print",
12206	CellChangeTimes->{
12207	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12208	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12209	3.581159749560791*^9}],
12210
12211	Cell[BoxData[
12212	InterpretationBox[
12213	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
12214	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12215	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
12216	SuperscriptBox["W", "\[Dagger]"]}],
12217	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
12218	Editable->False]], "Print",
12219	CellChangeTimes->{
12220	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12221	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12222	3.581159749564972*^9}],
12223
12224	Cell[BoxData[
12225	InterpretationBox[
12226	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
12227	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12228	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
12229	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
12230	Editable->False]], "Print",
12231	CellChangeTimes->{
12232	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12233	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12234	3.5811597495690527`*^9}],
12235
12236	Cell[BoxData[
12237	InterpretationBox[
12238	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
12239	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12240	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
12241	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
12242	Editable->False]], "Print",
12243	CellChangeTimes->{
12244	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12245	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12246	3.581159749573173*^9}],
12247
12248	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
12249	CellChangeTimes->{
12250	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12251	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12252	3.581159749577325*^9}],
12253
12254	Cell[BoxData[
12255	RowBox[{
12256	FractionBox[
12257	RowBox[{"\[ImaginaryI]", " ",
12258	SubsuperscriptBox["c", "w", "2"], " ",
12259	SuperscriptBox["e", "2"], " ",
12260	SubscriptBox["\[Eta]",
12261	RowBox[{
12262	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
12263	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
12264	SubscriptBox["\[Eta]",
12265	RowBox[{
12266	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
12267	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
12268	SubsuperscriptBox["s", "w", "2"]], "+",
12269	FractionBox[
12270	RowBox[{"\[ImaginaryI]", " ",
12271	SubsuperscriptBox["c", "w", "2"], " ",
12272	SuperscriptBox["e", "2"], " ",
12273	SubscriptBox["\[Eta]",
12274	RowBox[{
12275	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
12276	SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
12277	SubscriptBox["\[Eta]",
12278	RowBox[{
12279	SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
12280	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
12281	SubsuperscriptBox["s", "w", "2"]], "-",
12282	FractionBox[
12283	RowBox[{"2", " ", "\[ImaginaryI]", " ",
12284	SubsuperscriptBox["c", "w", "2"], " ",
12285	SuperscriptBox["e", "2"], " ",
12286	SubscriptBox["\[Eta]",
12287	RowBox[{
12288	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
12289	SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
12290	SubscriptBox["\[Eta]",
12291	RowBox[{
12292	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
12293	SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
12294	SubsuperscriptBox["s", "w", "2"]]}]], "Print",
12295	CellChangeTimes->{
12296	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12297	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12298	3.5811597495817223`*^9}],
12299
12300	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
12301	* * * * * *)\"\>"], "Print",
12302	CellChangeTimes->{
12303	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12304	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12305	3.5811597495865793`*^9}],
12306
12307	Cell[BoxData[
12308	InterpretationBox[
12309	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "66"}],
12310	SequenceForm["Vertex ", 66],
12311	Editable->False]], "Print",
12312	CellChangeTimes->{
12313	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12314	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12315	3.581159749590707*^9}],
12316
12317	Cell[BoxData[
12318	InterpretationBox[
12319	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
12320	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12321	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
12322	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
12323	Editable->False]], "Print",
12324	CellChangeTimes->{
12325	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12326	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12327	3.581159749594844*^9}],
12328
12329	Cell[BoxData[
12330	InterpretationBox[
12331	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
12332	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12333	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
12334	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`b],
12335	Editable->False]], "Print",
12336	CellChangeTimes->{
12337	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12338	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12339	3.581159749599*^9}],
12340
12341	Cell[BoxData[
12342	InterpretationBox[
12343	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
12344	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12345	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
12346	OverscriptBox["b", "\<\"-\"\>"]}],
12347	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`bbar],
12348	Editable->False]], "Print",
12349	CellChangeTimes->{
12350	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12351	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12352	3.581159749603071*^9}],
12353
12354	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
12355	CellChangeTimes->{
12356	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12357	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12358	3.581159749607307*^9}],
12359
12360	Cell[BoxData[
12361	RowBox[{
12362	RowBox[{"-",
12363	FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ", "e", " ",
12364	SubsuperscriptBox["\[Gamma]",
12365	RowBox[{
12366	SubscriptBox["\<\"s\"\>", "3"], ",",
12367	SubscriptBox["\<\"s\"\>", "2"]}],
12368	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
12369	SubscriptBox["\[Delta]",
12370	RowBox[{
12371	SubscriptBox["\<\"m\"\>", "2"], ",",
12372	SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
12373	CellChangeTimes->{
12374	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12375	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12376	3.581159749611396*^9}],
12377
12378	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
12379	* * * * * *)\"\>"], "Print",
12380	CellChangeTimes->{
12381	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12382	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12383	3.581159749615759*^9}],
12384
12385	Cell[BoxData[
12386	InterpretationBox[
12387	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "67"}],
12388	SequenceForm["Vertex ", 67],
12389	Editable->False]], "Print",
12390	CellChangeTimes->{
12391	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12392	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12393	3.5811597496198673`*^9}],
12394
12395	Cell[BoxData[
12396	InterpretationBox[
12397	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
12398	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12399	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
12400	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
12401	Editable->False]], "Print",
12402	CellChangeTimes->{
12403	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12404	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12405	3.5811597496239557`*^9}],
12406
12407	Cell[BoxData[
12408	InterpretationBox[
12409	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
12410	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12411	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
12412	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
12413	Editable->False]], "Print",
12414	CellChangeTimes->{
12415	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12416	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12417	3.58115974962807*^9}],
12418
12419	Cell[BoxData[
12420	InterpretationBox[
12421	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
12422	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12423	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
12424	OverscriptBox["d", "\<\"-\"\>"]}],
12425	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`dbar],
12426	Editable->False]], "Print",
12427	CellChangeTimes->{
12428	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12429	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12430	3.581159749632379*^9}],
12431
12432	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
12433	CellChangeTimes->{
12434	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12435	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12436	3.581159749636598*^9}],
12437
12438	Cell[BoxData[
12439	RowBox[{
12440	RowBox[{"-",
12441	FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ", "e", " ",
12442	SubsuperscriptBox["\[Gamma]",
12443	RowBox[{
12444	SubscriptBox["\<\"s\"\>", "3"], ",",
12445	SubscriptBox["\<\"s\"\>", "2"]}],
12446	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
12447	SubscriptBox["\[Delta]",
12448	RowBox[{
12449	SubscriptBox["\<\"m\"\>", "2"], ",",
12450	SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
12451	CellChangeTimes->{
12452	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12453	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12454	3.581159749640788*^9}],
12455
12456	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
12457	* * * * * *)\"\>"], "Print",
12458	CellChangeTimes->{
12459	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12460	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12461	3.581159749645069*^9}],
12462
12463	Cell[BoxData[
12464	InterpretationBox[
12465	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "68"}],
12466	SequenceForm["Vertex ", 68],
12467	Editable->False]], "Print",
12468	CellChangeTimes->{
12469	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12470	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12471	3.5811597496493263`*^9}],
12472
12473	Cell[BoxData[
12474	InterpretationBox[
12475	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
12476	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12477	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
12478	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
12479	Editable->False]], "Print",
12480	CellChangeTimes->{
12481	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12482	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12483	3.5811597496765337`*^9}],
12484
12485	Cell[BoxData[
12486	InterpretationBox[
12487	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
12488	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12489	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
12490	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
12491	Editable->False]], "Print",
12492	CellChangeTimes->{
12493	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12494	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12495	3.58115974968089*^9}],
12496
12497	Cell[BoxData[
12498	InterpretationBox[
12499	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
12500	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12501	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
12502	OverscriptBox["s", "\<\"-\"\>"]}],
12503	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
12504	Editable->False]], "Print",
12505	CellChangeTimes->{
12506	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12507	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12508	3.581159749685234*^9}],
12509
12510	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
12511	CellChangeTimes->{
12512	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12513	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12514	3.581159749689323*^9}],
12515
12516	Cell[BoxData[
12517	RowBox[{
12518	RowBox[{"-",
12519	FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ", "e", " ",
12520	SubsuperscriptBox["\[Gamma]",
12521	RowBox[{
12522	SubscriptBox["\<\"s\"\>", "3"], ",",
12523	SubscriptBox["\<\"s\"\>", "2"]}],
12524	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
12525	SubscriptBox["\[Delta]",
12526	RowBox[{
12527	SubscriptBox["\<\"m\"\>", "2"], ",",
12528	SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
12529	CellChangeTimes->{
12530	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12531	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12532	3.581159749693384*^9}],
12533
12534	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
12535	* * * * * *)\"\>"], "Print",
12536	CellChangeTimes->{
12537	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12538	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12539	3.581159749697752*^9}],
12540
12541	Cell[BoxData[
12542	InterpretationBox[
12543	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "69"}],
12544	SequenceForm["Vertex ", 69],
12545	Editable->False]], "Print",
12546	CellChangeTimes->{
12547	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12548	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12549	3.5811597497019577`*^9}],
12550
12551	Cell[BoxData[
12552	InterpretationBox[
12553	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
12554	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12555	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
12556	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
12557	Editable->False]], "Print",
12558	CellChangeTimes->{
12559	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12560	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12561	3.5811597497060966`*^9}],
12562
12563	Cell[BoxData[
12564	InterpretationBox[
12565	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
12566	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12567	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
12568	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`e],
12569	Editable->False]], "Print",
12570	CellChangeTimes->{
12571	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12572	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12573	3.5811597497103558`*^9}],
12574
12575	Cell[BoxData[
12576	InterpretationBox[
12577	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
12578	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12579	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
12580	OverscriptBox["e", "\<\"-\"\>"]}],
12581	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ebar],
12582	Editable->False]], "Print",
12583	CellChangeTimes->{
12584	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12585	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12586	3.581159749714554*^9}],
12587
12588	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
12589	CellChangeTimes->{
12590	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12591	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12592	3.5811597497187347`*^9}],
12593
12594	Cell[BoxData[
12595	RowBox[{
12596	RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
12597	SubsuperscriptBox["\[Gamma]",
12598	RowBox[{
12599	SubscriptBox["\<\"s\"\>", "3"], ",",
12600	SubscriptBox["\<\"s\"\>", "2"]}],
12601	SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]], "Print",
12602	CellChangeTimes->{
12603	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12604	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12605	3.58115974972281*^9}],
12606
12607	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
12608	* * * * * *)\"\>"], "Print",
12609	CellChangeTimes->{
12610	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12611	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12612	3.581159749726983*^9}],
12613
12614	Cell[BoxData[
12615	InterpretationBox[
12616	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "70"}],
12617	SequenceForm["Vertex ", 70],
12618	Editable->False]], "Print",
12619	CellChangeTimes->{
12620	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12621	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12622	3.581159749731263*^9}],
12623
12624	Cell[BoxData[
12625	InterpretationBox[
12626	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
12627	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12628	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
12629	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
12630	Editable->False]], "Print",
12631	CellChangeTimes->{
12632	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12633	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12634	3.581159749735463*^9}],
12635
12636	Cell[BoxData[
12637	InterpretationBox[
12638	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
12639	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12640	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
12641	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`mu],
12642	Editable->False]], "Print",
12643	CellChangeTimes->{
12644	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12645	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12646	3.5811597497395897`*^9}],
12647
12648	Cell[BoxData[
12649	InterpretationBox[
12650	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
12651	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12652	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
12653	OverscriptBox["mu", "\<\"-\"\>"]}],
12654	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`mubar],
12655	Editable->False]], "Print",
12656	CellChangeTimes->{
12657	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12658	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12659	3.581159749743737*^9}],
12660
12661	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
12662	CellChangeTimes->{
12663	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12664	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12665	3.581159749747867*^9}],
12666
12667	Cell[BoxData[
12668	RowBox[{
12669	RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
12670	SubsuperscriptBox["\[Gamma]",
12671	RowBox[{
12672	SubscriptBox["\<\"s\"\>", "3"], ",",
12673	SubscriptBox["\<\"s\"\>", "2"]}],
12674	SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]], "Print",
12675	CellChangeTimes->{
12676	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12677	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12678	3.581159749751861*^9}],
12679
12680	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
12681	* * * * * *)\"\>"], "Print",
12682	CellChangeTimes->{
12683	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12684	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12685	3.581159749756385*^9}],
12686
12687	Cell[BoxData[
12688	InterpretationBox[
12689	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "71"}],
12690	SequenceForm["Vertex ", 71],
12691	Editable->False]], "Print",
12692	CellChangeTimes->{
12693	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12694	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12695	3.5811597497616796`*^9}],
12696
12697	Cell[BoxData[
12698	InterpretationBox[
12699	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
12700	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12701	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
12702	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
12703	Editable->False]], "Print",
12704	CellChangeTimes->{
12705	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12706	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12707	3.581159749766398*^9}],
12708
12709	Cell[BoxData[
12710	InterpretationBox[
12711	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
12712	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12713	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
12714	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ta],
12715	Editable->False]], "Print",
12716	CellChangeTimes->{
12717	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12718	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12719	3.581159749771188*^9}],
12720
12721	Cell[BoxData[
12722	InterpretationBox[
12723	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
12724	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12725	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
12726	OverscriptBox["ta", "\<\"-\"\>"]}],
12727	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tabar],
12728	Editable->False]], "Print",
12729	CellChangeTimes->{
12730	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12731	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12732	3.581159749775742*^9}],
12733
12734	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
12735	CellChangeTimes->{
12736	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12737	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12738	3.5811597497812643`*^9}],
12739
12740	Cell[BoxData[
12741	RowBox[{
12742	RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
12743	SubsuperscriptBox["\[Gamma]",
12744	RowBox[{
12745	SubscriptBox["\<\"s\"\>", "3"], ",",
12746	SubscriptBox["\<\"s\"\>", "2"]}],
12747	SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]], "Print",
12748	CellChangeTimes->{
12749	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12750	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12751	3.581159749786356*^9}],
12752
12753	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
12754	* * * * * *)\"\>"], "Print",
12755	CellChangeTimes->{
12756	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12757	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12758	3.581159749791419*^9}],
12759
12760	Cell[BoxData[
12761	InterpretationBox[
12762	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "72"}],
12763	SequenceForm["Vertex ", 72],
12764	Editable->False]], "Print",
12765	CellChangeTimes->{
12766	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12767	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12768	3.581159749796747*^9}],
12769
12770	Cell[BoxData[
12771	InterpretationBox[
12772	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
12773	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12774	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
12775	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
12776	Editable->False]], "Print",
12777	CellChangeTimes->{
12778	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12779	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12780	3.5811597498017673`*^9}],
12781
12782	Cell[BoxData[
12783	InterpretationBox[
12784	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
12785	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12786	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
12787	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`c],
12788	Editable->False]], "Print",
12789	CellChangeTimes->{
12790	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12791	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12792	3.5811597498065968`*^9}],
12793
12794	Cell[BoxData[
12795	InterpretationBox[
12796	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
12797	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12798	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
12799	OverscriptBox["c", "\<\"-\"\>"]}],
12800	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`cbar],
12801	Editable->False]], "Print",
12802	CellChangeTimes->{
12803	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12804	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12805	3.5811597498124447`*^9}],
12806
12807	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
12808	CellChangeTimes->{
12809	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12810	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12811	3.581159749816957*^9}],
12812
12813	Cell[BoxData[
12814	RowBox[{
12815	FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "e", " ",
12816	SubsuperscriptBox["\[Gamma]",
12817	RowBox[{
12818	SubscriptBox["\<\"s\"\>", "3"], ",",
12819	SubscriptBox["\<\"s\"\>", "2"]}],
12820	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
12821	SubscriptBox["\[Delta]",
12822	RowBox[{
12823	SubscriptBox["\<\"m\"\>", "2"], ",",
12824	SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
12825	CellChangeTimes->{
12826	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12827	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12828	3.581159749822379*^9}],
12829
12830	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
12831	* * * * * *)\"\>"], "Print",
12832	CellChangeTimes->{
12833	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12834	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12835	3.581159749829584*^9}],
12836
12837	Cell[BoxData[
12838	InterpretationBox[
12839	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "73"}],
12840	SequenceForm["Vertex ", 73],
12841	Editable->False]], "Print",
12842	CellChangeTimes->{
12843	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12844	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12845	3.581159749835251*^9}],
12846
12847	Cell[BoxData[
12848	InterpretationBox[
12849	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
12850	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12851	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
12852	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
12853	Editable->False]], "Print",
12854	CellChangeTimes->{
12855	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12856	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12857	3.581159749841764*^9}],
12858
12859	Cell[BoxData[
12860	InterpretationBox[
12861	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
12862	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12863	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
12864	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
12865	Editable->False]], "Print",
12866	CellChangeTimes->{
12867	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12868	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12869	3.581159749846349*^9}],
12870
12871	Cell[BoxData[
12872	InterpretationBox[
12873	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
12874	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12875	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
12876	OverscriptBox["t", "\<\"-\"\>"]}],
12877	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tbar],
12878	Editable->False]], "Print",
12879	CellChangeTimes->{
12880	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12881	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12882	3.58115974985076*^9}],
12883
12884	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
12885	CellChangeTimes->{
12886	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12887	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12888	3.581159749854989*^9}],
12889
12890	Cell[BoxData[
12891	RowBox[{
12892	FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "e", " ",
12893	SubsuperscriptBox["\[Gamma]",
12894	RowBox[{
12895	SubscriptBox["\<\"s\"\>", "3"], ",",
12896	SubscriptBox["\<\"s\"\>", "2"]}],
12897	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
12898	SubscriptBox["\[Delta]",
12899	RowBox[{
12900	SubscriptBox["\<\"m\"\>", "2"], ",",
12901	SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
12902	CellChangeTimes->{
12903	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12904	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12905	3.581159749859404*^9}],
12906
12907	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
12908	* * * * * *)\"\>"], "Print",
12909	CellChangeTimes->{
12910	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12911	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12912	3.581159749863825*^9}],
12913
12914	Cell[BoxData[
12915	InterpretationBox[
12916	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "74"}],
12917	SequenceForm["Vertex ", 74],
12918	Editable->False]], "Print",
12919	CellChangeTimes->{
12920	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12921	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12922	3.581159749868062*^9}],
12923
12924	Cell[BoxData[
12925	InterpretationBox[
12926	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
12927	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
12928	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
12929	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
12930	Editable->False]], "Print",
12931	CellChangeTimes->{
12932	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12933	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12934	3.581159749872451*^9}],
12935
12936	Cell[BoxData[
12937	InterpretationBox[
12938	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
12939	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12940	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
12941	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
12942	Editable->False]], "Print",
12943	CellChangeTimes->{
12944	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12945	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12946	3.5811597498769197`*^9}],
12947
12948	Cell[BoxData[
12949	InterpretationBox[
12950	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
12951	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
12952	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
12953	OverscriptBox["u", "\<\"-\"\>"]}],
12954	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
12955	Editable->False]], "Print",
12956	CellChangeTimes->{
12957	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12958	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12959	3.5811597498813753`*^9}],
12960
12961	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
12962	CellChangeTimes->{
12963	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12964	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12965	3.581159749885841*^9}],
12966
12967	Cell[BoxData[
12968	RowBox[{
12969	FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "e", " ",
12970	SubsuperscriptBox["\[Gamma]",
12971	RowBox[{
12972	SubscriptBox["\<\"s\"\>", "3"], ",",
12973	SubscriptBox["\<\"s\"\>", "2"]}],
12974	SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
12975	SubscriptBox["\[Delta]",
12976	RowBox[{
12977	SubscriptBox["\<\"m\"\>", "2"], ",",
12978	SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
12979	CellChangeTimes->{
12980	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12981	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12982	3.581159749890098*^9}],
12983
12984	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
12985	* * * * * *)\"\>"], "Print",
12986	CellChangeTimes->{
12987	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12988	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12989	3.58115974989454*^9}],
12990
12991	Cell[BoxData[
12992	InterpretationBox[
12993	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "75"}],
12994	SequenceForm["Vertex ", 75],
12995	Editable->False]], "Print",
12996	CellChangeTimes->{
12997	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
12998	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
12999	3.581159749898851*^9}],
13000
13001	Cell[BoxData[
13002	InterpretationBox[
13003	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
13004	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13005	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13006	OverscriptBox["c", "\<\"-\"\>"]}],
13007	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
13008	Editable->False]], "Print",
13009	CellChangeTimes->{
13010	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13011	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13012	3.581159749903048*^9}],
13013
13014	Cell[BoxData[
13015	InterpretationBox[
13016	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
13017	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13018	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
13019	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
13020	Editable->False]], "Print",
13021	CellChangeTimes->{
13022	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13023	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13024	3.5811597499073677`*^9}],
13025
13026	Cell[BoxData[
13027	InterpretationBox[
13028	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
13029	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
13030	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
13031	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
13032	Editable->False]], "Print",
13033	CellChangeTimes->{
13034	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13035	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13036	3.5811597499116983`*^9}],
13037
13038	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
13039	CellChangeTimes->{
13040	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13041	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13042	3.581159749915832*^9}],
13043
13044	Cell[BoxData[
13045	FractionBox[
13046	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13047	SubscriptBox[
13048	TemplateBox[{"V","CKM"},
13049	"Superscript"],
13050	RowBox[{"2", ",", "1"}]], " ",
13051	SubscriptBox["\[Delta]",
13052	RowBox[{
13053	SubscriptBox["\<\"m\"\>", "1"], ",",
13054	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
13055	SubscriptBox[
13056	RowBox[{
13057	SuperscriptBox["\[Gamma]",
13058	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
13059	SubscriptBox["P", "\<\"-\"\>"]}],
13060	RowBox[{
13061	SubscriptBox["\<\"s\"\>", "1"], ",",
13062	SubscriptBox["\<\"s\"\>", "2"]}]]}],
13063	RowBox[{
13064	SqrtBox["2"], " ",
13065	SubscriptBox["s", "w"]}]]], "Print",
13066	CellChangeTimes->{
13067	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13068	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13069	3.5811597499201393`*^9}],
13070
13071	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
13072	* * * * * *)\"\>"], "Print",
13073	CellChangeTimes->{
13074	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13075	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13076	3.58115974992479*^9}],
13077
13078	Cell[BoxData[
13079	InterpretationBox[
13080	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "76"}],
13081	SequenceForm["Vertex ", 76],
13082	Editable->False]], "Print",
13083	CellChangeTimes->{
13084	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13085	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13086	3.5811597499291477`*^9}],
13087
13088	Cell[BoxData[
13089	InterpretationBox[
13090	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
13091	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13092	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13093	OverscriptBox["c", "\<\"-\"\>"]}],
13094	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
13095	Editable->False]], "Print",
13096	CellChangeTimes->{
13097	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13098	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13099	3.581159749933468*^9}],
13100
13101	Cell[BoxData[
13102	InterpretationBox[
13103	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
13104	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13105	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
13106	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
13107	Editable->False]], "Print",
13108	CellChangeTimes->{
13109	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13110	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13111	3.5811597499379053`*^9}],
13112
13113	Cell[BoxData[
13114	InterpretationBox[
13115	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
13116	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
13117	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
13118	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
13119	Editable->False]], "Print",
13120	CellChangeTimes->{
13121	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13122	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13123	3.581159749943172*^9}],
13124
13125	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
13126	CellChangeTimes->{
13127	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13128	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13129	3.581159749947497*^9}],
13130
13131	Cell[BoxData[
13132	FractionBox[
13133	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13134	SubscriptBox[
13135	TemplateBox[{"V","CKM"},
13136	"Superscript"],
13137	RowBox[{"2", ",", "2"}]], " ",
13138	SubscriptBox["\[Delta]",
13139	RowBox[{
13140	SubscriptBox["\<\"m\"\>", "1"], ",",
13141	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
13142	SubscriptBox[
13143	RowBox[{
13144	SuperscriptBox["\[Gamma]",
13145	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
13146	SubscriptBox["P", "\<\"-\"\>"]}],
13147	RowBox[{
13148	SubscriptBox["\<\"s\"\>", "1"], ",",
13149	SubscriptBox["\<\"s\"\>", "2"]}]]}],
13150	RowBox[{
13151	SqrtBox["2"], " ",
13152	SubscriptBox["s", "w"]}]]], "Print",
13153	CellChangeTimes->{
13154	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13155	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13156	3.5811597499518213`*^9}],
13157
13158	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
13159	* * * * * *)\"\>"], "Print",
13160	CellChangeTimes->{
13161	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13162	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13163	3.581159749956505*^9}],
13164
13165	Cell[BoxData[
13166	InterpretationBox[
13167	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "77"}],
13168	SequenceForm["Vertex ", 77],
13169	Editable->False]], "Print",
13170	CellChangeTimes->{
13171	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13172	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13173	3.5811597499610453`*^9}],
13174
13175	Cell[BoxData[
13176	InterpretationBox[
13177	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
13178	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13179	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
13180	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
13181	Editable->False]], "Print",
13182	CellChangeTimes->{
13183	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13184	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13185	3.581159749965356*^9}],
13186
13187	Cell[BoxData[
13188	InterpretationBox[
13189	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
13190	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13191	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13192	OverscriptBox["t", "\<\"-\"\>"]}],
13193	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
13194	Editable->False]], "Print",
13195	CellChangeTimes->{
13196	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13197	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13198	3.5811597499696283`*^9}],
13199
13200	Cell[BoxData[
13201	InterpretationBox[
13202	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
13203	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
13204	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
13205	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
13206	Editable->False]], "Print",
13207	CellChangeTimes->{
13208	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13209	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13210	3.581159749973976*^9}],
13211
13212	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
13213	CellChangeTimes->{
13214	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13215	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13216	3.581159749979101*^9}],
13217
13218	Cell[BoxData[
13219	FractionBox[
13220	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13221	SubscriptBox["\[Delta]",
13222	RowBox[{
13223	SubscriptBox["\<\"m\"\>", "1"], ",",
13224	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
13225	SubscriptBox[
13226	RowBox[{
13227	SuperscriptBox["\[Gamma]",
13228	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
13229	SubscriptBox["P", "\<\"-\"\>"]}],
13230	RowBox[{
13231	SubscriptBox["\<\"s\"\>", "2"], ",",
13232	SubscriptBox["\<\"s\"\>", "1"]}]]}],
13233	RowBox[{
13234	SqrtBox["2"], " ",
13235	SubscriptBox["s", "w"]}]]], "Print",
13236	CellChangeTimes->{
13237	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13238	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13239	3.581159749984333*^9}],
13240
13241	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
13242	* * * * * *)\"\>"], "Print",
13243	CellChangeTimes->{
13244	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13245	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13246	3.581159749990053*^9}],
13247
13248	Cell[BoxData[
13249	InterpretationBox[
13250	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "78"}],
13251	SequenceForm["Vertex ", 78],
13252	Editable->False]], "Print",
13253	CellChangeTimes->{
13254	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13255	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13256	3.5811597499955606`*^9}],
13257
13258	Cell[BoxData[
13259	InterpretationBox[
13260	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
13261	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13262	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
13263	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
13264	Editable->False]], "Print",
13265	CellChangeTimes->{
13266	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13267	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13268	3.5811597499999104`*^9}],
13269
13270	Cell[BoxData[
13271	InterpretationBox[
13272	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
13273	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13274	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13275	OverscriptBox["u", "\<\"-\"\>"]}],
13276	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
13277	Editable->False]], "Print",
13278	CellChangeTimes->{
13279	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13280	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13281	3.581159750004272*^9}],
13282
13283	Cell[BoxData[
13284	InterpretationBox[
13285	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
13286	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
13287	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
13288	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
13289	Editable->False]], "Print",
13290	CellChangeTimes->{
13291	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13292	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13293	3.581159750008762*^9}],
13294
13295	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
13296	CellChangeTimes->{
13297	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13298	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13299	3.581159750013061*^9}],
13300
13301	Cell[BoxData[
13302	FractionBox[
13303	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13304	SubscriptBox[
13305	TemplateBox[{"V","CKM"},
13306	"Superscript"],
13307	RowBox[{"1", ",", "1"}]], " ",
13308	SubscriptBox["\[Delta]",
13309	RowBox[{
13310	SubscriptBox["\<\"m\"\>", "1"], ",",
13311	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
13312	SubscriptBox[
13313	RowBox[{
13314	SuperscriptBox["\[Gamma]",
13315	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
13316	SubscriptBox["P", "\<\"-\"\>"]}],
13317	RowBox[{
13318	SubscriptBox["\<\"s\"\>", "2"], ",",
13319	SubscriptBox["\<\"s\"\>", "1"]}]]}],
13320	RowBox[{
13321	SqrtBox["2"], " ",
13322	SubscriptBox["s", "w"]}]]], "Print",
13323	CellChangeTimes->{
13324	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13325	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13326	3.5811597500173883`*^9}],
13327
13328	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
13329	* * * * * *)\"\>"], "Print",
13330	CellChangeTimes->{
13331	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13332	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13333	3.5811597500220222`*^9}],
13334
13335	Cell[BoxData[
13336	InterpretationBox[
13337	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "79"}],
13338	SequenceForm["Vertex ", 79],
13339	Editable->False]], "Print",
13340	CellChangeTimes->{
13341	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13342	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13343	3.5811597500263023`*^9}],
13344
13345	Cell[BoxData[
13346	InterpretationBox[
13347	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
13348	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13349	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
13350	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
13351	Editable->False]], "Print",
13352	CellChangeTimes->{
13353	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13354	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13355	3.5811597500306787`*^9}],
13356
13357	Cell[BoxData[
13358	InterpretationBox[
13359	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
13360	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13361	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13362	OverscriptBox["u", "\<\"-\"\>"]}],
13363	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
13364	Editable->False]], "Print",
13365	CellChangeTimes->{
13366	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13367	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13368	3.581159750058373*^9}],
13369
13370	Cell[BoxData[
13371	InterpretationBox[
13372	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
13373	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
13374	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
13375	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
13376	Editable->False]], "Print",
13377	CellChangeTimes->{
13378	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13379	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13380	3.581159750062883*^9}],
13381
13382	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
13383	CellChangeTimes->{
13384	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13385	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13386	3.581159750067244*^9}],
13387
13388	Cell[BoxData[
13389	FractionBox[
13390	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13391	SubscriptBox[
13392	TemplateBox[{"V","CKM"},
13393	"Superscript"],
13394	RowBox[{"1", ",", "2"}]], " ",
13395	SubscriptBox["\[Delta]",
13396	RowBox[{
13397	SubscriptBox["\<\"m\"\>", "1"], ",",
13398	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
13399	SubscriptBox[
13400	RowBox[{
13401	SuperscriptBox["\[Gamma]",
13402	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
13403	SubscriptBox["P", "\<\"-\"\>"]}],
13404	RowBox[{
13405	SubscriptBox["\<\"s\"\>", "2"], ",",
13406	SubscriptBox["\<\"s\"\>", "1"]}]]}],
13407	RowBox[{
13408	SqrtBox["2"], " ",
13409	SubscriptBox["s", "w"]}]]], "Print",
13410	CellChangeTimes->{
13411	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13412	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13413	3.5811597500719223`*^9}],
13414
13415	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
13416	* * * * * *)\"\>"], "Print",
13417	CellChangeTimes->{
13418	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13419	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13420	3.5811597500771637`*^9}],
13421
13422	Cell[BoxData[
13423	InterpretationBox[
13424	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "80"}],
13425	SequenceForm["Vertex ", 80],
13426	Editable->False]], "Print",
13427	CellChangeTimes->{
13428	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13429	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13430	3.5811597500815496`*^9}],
13431
13432	Cell[BoxData[
13433	InterpretationBox[
13434	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
13435	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13436	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
13437	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
13438	Editable->False]], "Print",
13439	CellChangeTimes->{
13440	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13441	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13442	3.581159750085987*^9}],
13443
13444	Cell[BoxData[
13445	InterpretationBox[
13446	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
13447	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13448	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13449	OverscriptBox["ve", "\<\"-\"\>"]}],
13450	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
13451	Editable->False]], "Print",
13452	CellChangeTimes->{
13453	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13454	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13455	3.581159750090282*^9}],
13456
13457	Cell[BoxData[
13458	InterpretationBox[
13459	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
13460	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
13461	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
13462	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
13463	Editable->False]], "Print",
13464	CellChangeTimes->{
13465	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13466	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13467	3.581159750094572*^9}],
13468
13469	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
13470	CellChangeTimes->{
13471	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13472	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13473	3.581159750098749*^9}],
13474
13475	Cell[BoxData[
13476	FractionBox[
13477	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13478	SubscriptBox[
13479	RowBox[{
13480	SuperscriptBox["\[Gamma]",
13481	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
13482	SubscriptBox["P", "\<\"-\"\>"]}],
13483	RowBox[{
13484	SubscriptBox["\<\"s\"\>", "2"], ",",
13485	SubscriptBox["\<\"s\"\>", "1"]}]]}],
13486	RowBox[{
13487	SqrtBox["2"], " ",
13488	SubscriptBox["s", "w"]}]]], "Print",
13489	CellChangeTimes->{
13490	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13491	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13492	3.581159750102907*^9}],
13493
13494	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
13495	* * * * * *)\"\>"], "Print",
13496	CellChangeTimes->{
13497	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13498	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13499	3.581159750107655*^9}],
13500
13501	Cell[BoxData[
13502	InterpretationBox[
13503	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "81"}],
13504	SequenceForm["Vertex ", 81],
13505	Editable->False]], "Print",
13506	CellChangeTimes->{
13507	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13508	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13509	3.581159750112425*^9}],
13510
13511	Cell[BoxData[
13512	InterpretationBox[
13513	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
13514	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13515	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
13516	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
13517	Editable->False]], "Print",
13518	CellChangeTimes->{
13519	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13520	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13521	3.581159750116955*^9}],
13522
13523	Cell[BoxData[
13524	InterpretationBox[
13525	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
13526	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13527	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13528	OverscriptBox["vm", "\<\"-\"\>"]}],
13529	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
13530	Editable->False]], "Print",
13531	CellChangeTimes->{
13532	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13533	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13534	3.581159750121294*^9}],
13535
13536	Cell[BoxData[
13537	InterpretationBox[
13538	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
13539	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
13540	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
13541	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
13542	Editable->False]], "Print",
13543	CellChangeTimes->{
13544	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13545	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13546	3.5811597501262302`*^9}],
13547
13548	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
13549	CellChangeTimes->{
13550	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13551	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13552	3.58115975013093*^9}],
13553
13554	Cell[BoxData[
13555	FractionBox[
13556	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13557	SubscriptBox[
13558	RowBox[{
13559	SuperscriptBox["\[Gamma]",
13560	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
13561	SubscriptBox["P", "\<\"-\"\>"]}],
13562	RowBox[{
13563	SubscriptBox["\<\"s\"\>", "2"], ",",
13564	SubscriptBox["\<\"s\"\>", "1"]}]]}],
13565	RowBox[{
13566	SqrtBox["2"], " ",
13567	SubscriptBox["s", "w"]}]]], "Print",
13568	CellChangeTimes->{
13569	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13570	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13571	3.581159750135737*^9}],
13572
13573	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
13574	* * * * * *)\"\>"], "Print",
13575	CellChangeTimes->{
13576	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13577	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13578	3.581159750140381*^9}],
13579
13580	Cell[BoxData[
13581	InterpretationBox[
13582	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "82"}],
13583	SequenceForm["Vertex ", 82],
13584	Editable->False]], "Print",
13585	CellChangeTimes->{
13586	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13587	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13588	3.5811597501448107`*^9}],
13589
13590	Cell[BoxData[
13591	InterpretationBox[
13592	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
13593	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13594	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
13595	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
13596	Editable->False]], "Print",
13597	CellChangeTimes->{
13598	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13599	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13600	3.581159750149132*^9}],
13601
13602	Cell[BoxData[
13603	InterpretationBox[
13604	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
13605	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13606	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13607	OverscriptBox["vt", "\<\"-\"\>"]}],
13608	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
13609	Editable->False]], "Print",
13610	CellChangeTimes->{
13611	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13612	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13613	3.581159750153616*^9}],
13614
13615	Cell[BoxData[
13616	InterpretationBox[
13617	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
13618	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
13619	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
13620	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
13621	Editable->False]], "Print",
13622	CellChangeTimes->{
13623	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13624	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13625	3.581159750158181*^9}],
13626
13627	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
13628	CellChangeTimes->{
13629	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13630	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13631	3.581159750162484*^9}],
13632
13633	Cell[BoxData[
13634	FractionBox[
13635	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13636	SubscriptBox[
13637	RowBox[{
13638	SuperscriptBox["\[Gamma]",
13639	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
13640	SubscriptBox["P", "\<\"-\"\>"]}],
13641	RowBox[{
13642	SubscriptBox["\<\"s\"\>", "2"], ",",
13643	SubscriptBox["\<\"s\"\>", "1"]}]]}],
13644	RowBox[{
13645	SqrtBox["2"], " ",
13646	SubscriptBox["s", "w"]}]]], "Print",
13647	CellChangeTimes->{
13648	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13649	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13650	3.581159750166739*^9}],
13651
13652	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
13653	* * * * * *)\"\>"], "Print",
13654	CellChangeTimes->{
13655	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13656	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13657	3.581159750171206*^9}],
13658
13659	Cell[BoxData[
13660	InterpretationBox[
13661	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "83"}],
13662	SequenceForm["Vertex ", 83],
13663	Editable->False]], "Print",
13664	CellChangeTimes->{
13665	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13666	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13667	3.58115975017549*^9}],
13668
13669	Cell[BoxData[
13670	InterpretationBox[
13671	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
13672	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13673	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13674	OverscriptBox["e", "\<\"-\"\>"]}],
13675	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ebar],
13676	Editable->False]], "Print",
13677	CellChangeTimes->{
13678	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13679	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13680	3.581159750179791*^9}],
13681
13682	Cell[BoxData[
13683	InterpretationBox[
13684	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
13685	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13686	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
13687	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ve],
13688	Editable->False]], "Print",
13689	CellChangeTimes->{
13690	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13691	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13692	3.581159750184346*^9}],
13693
13694	Cell[BoxData[
13695	InterpretationBox[
13696	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
13697	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
13698	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13699	SuperscriptBox["W", "\[Dagger]"]}],
13700	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
13701	Editable->False]], "Print",
13702	CellChangeTimes->{
13703	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13704	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13705	3.581159750188902*^9}],
13706
13707	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
13708	CellChangeTimes->{
13709	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13710	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13711	3.581159750193244*^9}],
13712
13713	Cell[BoxData[
13714	FractionBox[
13715	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13716	SubscriptBox[
13717	RowBox[{
13718	SuperscriptBox["\[Gamma]",
13719	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
13720	SubscriptBox["P", "\<\"-\"\>"]}],
13721	RowBox[{
13722	SubscriptBox["\<\"s\"\>", "1"], ",",
13723	SubscriptBox["\<\"s\"\>", "2"]}]]}],
13724	RowBox[{
13725	SqrtBox["2"], " ",
13726	SubscriptBox["s", "w"]}]]], "Print",
13727	CellChangeTimes->{
13728	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13729	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13730	3.581159750197605*^9}],
13731
13732	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
13733	* * * * * *)\"\>"], "Print",
13734	CellChangeTimes->{
13735	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13736	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13737	3.58115975020205*^9}],
13738
13739	Cell[BoxData[
13740	InterpretationBox[
13741	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "84"}],
13742	SequenceForm["Vertex ", 84],
13743	Editable->False]], "Print",
13744	CellChangeTimes->{
13745	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13746	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13747	3.5811597502063923`*^9}],
13748
13749	Cell[BoxData[
13750	InterpretationBox[
13751	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
13752	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13753	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13754	OverscriptBox["mu", "\<\"-\"\>"]}],
13755	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`mubar],
13756	Editable->False]], "Print",
13757	CellChangeTimes->{
13758	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13759	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13760	3.58115975021087*^9}],
13761
13762	Cell[BoxData[
13763	InterpretationBox[
13764	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
13765	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13766	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
13767	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vm],
13768	Editable->False]], "Print",
13769	CellChangeTimes->{
13770	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13771	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13772	3.5811597502152843`*^9}],
13773
13774	Cell[BoxData[
13775	InterpretationBox[
13776	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
13777	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
13778	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13779	SuperscriptBox["W", "\[Dagger]"]}],
13780	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
13781	Editable->False]], "Print",
13782	CellChangeTimes->{
13783	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13784	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13785	3.581159750219615*^9}],
13786
13787	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
13788	CellChangeTimes->{
13789	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13790	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13791	3.581159750223919*^9}],
13792
13793	Cell[BoxData[
13794	FractionBox[
13795	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13796	SubscriptBox[
13797	RowBox[{
13798	SuperscriptBox["\[Gamma]",
13799	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
13800	SubscriptBox["P", "\<\"-\"\>"]}],
13801	RowBox[{
13802	SubscriptBox["\<\"s\"\>", "1"], ",",
13803	SubscriptBox["\<\"s\"\>", "2"]}]]}],
13804	RowBox[{
13805	SqrtBox["2"], " ",
13806	SubscriptBox["s", "w"]}]]], "Print",
13807	CellChangeTimes->{
13808	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13809	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13810	3.5811597502281427`*^9}],
13811
13812	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
13813	* * * * * *)\"\>"], "Print",
13814	CellChangeTimes->{
13815	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13816	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13817	3.581159750232525*^9}],
13818
13819	Cell[BoxData[
13820	InterpretationBox[
13821	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "85"}],
13822	SequenceForm["Vertex ", 85],
13823	Editable->False]], "Print",
13824	CellChangeTimes->{
13825	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13826	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13827	3.5811597502372026`*^9}],
13828
13829	Cell[BoxData[
13830	InterpretationBox[
13831	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
13832	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13833	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13834	OverscriptBox["ta", "\<\"-\"\>"]}],
13835	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tabar],
13836	Editable->False]], "Print",
13837	CellChangeTimes->{
13838	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13839	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13840	3.58115975024154*^9}],
13841
13842	Cell[BoxData[
13843	InterpretationBox[
13844	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
13845	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13846	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
13847	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vt],
13848	Editable->False]], "Print",
13849	CellChangeTimes->{
13850	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13851	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13852	3.5811597502458973`*^9}],
13853
13854	Cell[BoxData[
13855	InterpretationBox[
13856	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
13857	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
13858	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13859	SuperscriptBox["W", "\[Dagger]"]}],
13860	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
13861	Editable->False]], "Print",
13862	CellChangeTimes->{
13863	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13864	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13865	3.581159750250309*^9}],
13866
13867	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
13868	CellChangeTimes->{
13869	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13870	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13871	3.581159750254648*^9}],
13872
13873	Cell[BoxData[
13874	FractionBox[
13875	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13876	SubscriptBox[
13877	RowBox[{
13878	SuperscriptBox["\[Gamma]",
13879	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
13880	SubscriptBox["P", "\<\"-\"\>"]}],
13881	RowBox[{
13882	SubscriptBox["\<\"s\"\>", "1"], ",",
13883	SubscriptBox["\<\"s\"\>", "2"]}]]}],
13884	RowBox[{
13885	SqrtBox["2"], " ",
13886	SubscriptBox["s", "w"]}]]], "Print",
13887	CellChangeTimes->{
13888	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13889	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13890	3.58115975025902*^9}],
13891
13892	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
13893	* * * * * *)\"\>"], "Print",
13894	CellChangeTimes->{
13895	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13896	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13897	3.581159750263503*^9}],
13898
13899	Cell[BoxData[
13900	InterpretationBox[
13901	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "86"}],
13902	SequenceForm["Vertex ", 86],
13903	Editable->False]], "Print",
13904	CellChangeTimes->{
13905	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13906	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13907	3.581159750267941*^9}],
13908
13909	Cell[BoxData[
13910	InterpretationBox[
13911	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
13912	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13913	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13914	OverscriptBox["b", "\<\"-\"\>"]}],
13915	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
13916	Editable->False]], "Print",
13917	CellChangeTimes->{
13918	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13919	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13920	3.581159750272429*^9}],
13921
13922	Cell[BoxData[
13923	InterpretationBox[
13924	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
13925	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13926	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
13927	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
13928	Editable->False]], "Print",
13929	CellChangeTimes->{
13930	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13931	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13932	3.5811597502768097`*^9}],
13933
13934	Cell[BoxData[
13935	InterpretationBox[
13936	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
13937	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
13938	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
13939	SuperscriptBox["W", "\[Dagger]"]}],
13940	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
13941	Editable->False]], "Print",
13942	CellChangeTimes->{
13943	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13944	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13945	3.581159750281142*^9}],
13946
13947	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
13948	CellChangeTimes->{
13949	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13950	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13951	3.5811597502856703`*^9}],
13952
13953	Cell[BoxData[
13954	FractionBox[
13955	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13956	SubscriptBox["\[Delta]",
13957	RowBox[{
13958	SubscriptBox["\<\"m\"\>", "1"], ",",
13959	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
13960	SubscriptBox[
13961	RowBox[{
13962	SuperscriptBox["\[Gamma]",
13963	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
13964	SubscriptBox["P", "\<\"-\"\>"]}],
13965	RowBox[{
13966	SubscriptBox["\<\"s\"\>", "1"], ",",
13967	SubscriptBox["\<\"s\"\>", "2"]}]]}],
13968	RowBox[{
13969	SqrtBox["2"], " ",
13970	SubscriptBox["s", "w"]}]]], "Print",
13971	CellChangeTimes->{
13972	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13973	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13974	3.58115975029016*^9}],
13975
13976	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
13977	* * * * * *)\"\>"], "Print",
13978	CellChangeTimes->{
13979	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13980	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13981	3.581159750294776*^9}],
13982
13983	Cell[BoxData[
13984	InterpretationBox[
13985	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "87"}],
13986	SequenceForm["Vertex ", 87],
13987	Editable->False]], "Print",
13988	CellChangeTimes->{
13989	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
13990	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
13991	3.581159750299302*^9}],
13992
13993	Cell[BoxData[
13994	InterpretationBox[
13995	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
13996	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
13997	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
13998	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
13999	Editable->False]], "Print",
14000	CellChangeTimes->{
14001	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14002	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14003	3.581159750303705*^9}],
14004
14005	Cell[BoxData[
14006	InterpretationBox[
14007	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
14008	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
14009	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
14010	OverscriptBox["d", "\<\"-\"\>"]}],
14011	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
14012	Editable->False]], "Print",
14013	CellChangeTimes->{
14014	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14015	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14016	3.58115975030816*^9}],
14017
14018	Cell[BoxData[
14019	InterpretationBox[
14020	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
14021	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
14022	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
14023	SuperscriptBox["W", "\[Dagger]"]}],
14024	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
14025	Editable->False]], "Print",
14026	CellChangeTimes->{
14027	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14028	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14029	3.581159750312701*^9}],
14030
14031	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
14032	CellChangeTimes->{
14033	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14034	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14035	3.581159750316985*^9}],
14036
14037	Cell[BoxData[
14038	FractionBox[
14039	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14040	SubsuperscriptBox[
14041	RowBox[{"(",
14042	TemplateBox[{"V","CKM"},
14043	"Superscript"], ")"}],
14044	RowBox[{"2", ",", "1"}], "\<\"*\"\>"], " ",
14045	SubscriptBox["\[Delta]",
14046	RowBox[{
14047	SubscriptBox["\<\"m\"\>", "1"], ",",
14048	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
14049	SubscriptBox[
14050	RowBox[{
14051	SuperscriptBox["\[Gamma]",
14052	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
14053	SubscriptBox["P", "\<\"-\"\>"]}],
14054	RowBox[{
14055	SubscriptBox["\<\"s\"\>", "2"], ",",
14056	SubscriptBox["\<\"s\"\>", "1"]}]]}],
14057	RowBox[{
14058	SqrtBox["2"], " ",
14059	SubscriptBox["s", "w"]}]]], "Print",
14060	CellChangeTimes->{
14061	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14062	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14063	3.581159750321453*^9}],
14064
14065	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
14066	* * * * * *)\"\>"], "Print",
14067	CellChangeTimes->{
14068	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14069	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14070	3.58115975032627*^9}],
14071
14072	Cell[BoxData[
14073	InterpretationBox[
14074	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "88"}],
14075	SequenceForm["Vertex ", 88],
14076	Editable->False]], "Print",
14077	CellChangeTimes->{
14078	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14079	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14080	3.581159750330873*^9}],
14081
14082	Cell[BoxData[
14083	InterpretationBox[
14084	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
14085	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
14086	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
14087	OverscriptBox["d", "\<\"-\"\>"]}],
14088	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`dbar],
14089	Editable->False]], "Print",
14090	CellChangeTimes->{
14091	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14092	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14093	3.581159750336061*^9}],
14094
14095	Cell[BoxData[
14096	InterpretationBox[
14097	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
14098	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
14099	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
14100	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
14101	Editable->False]], "Print",
14102	CellChangeTimes->{
14103	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14104	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14105	3.581159750341847*^9}],
14106
14107	Cell[BoxData[
14108	InterpretationBox[
14109	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
14110	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
14111	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
14112	SuperscriptBox["W", "\[Dagger]"]}],
14113	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
14114	Editable->False]], "Print",
14115	CellChangeTimes->{
14116	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14117	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14118	3.581159750346573*^9}],
14119
14120	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
14121	CellChangeTimes->{
14122	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14123	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14124	3.5811597503509207`*^9}],
14125
14126	Cell[BoxData[
14127	FractionBox[
14128	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14129	SubsuperscriptBox[
14130	RowBox[{"(",
14131	TemplateBox[{"V","CKM"},
14132	"Superscript"], ")"}],
14133	RowBox[{"1", ",", "1"}], "\<\"*\"\>"], " ",
14134	SubscriptBox["\[Delta]",
14135	RowBox[{
14136	SubscriptBox["\<\"m\"\>", "1"], ",",
14137	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
14138	SubscriptBox[
14139	RowBox[{
14140	SuperscriptBox["\[Gamma]",
14141	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
14142	SubscriptBox["P", "\<\"-\"\>"]}],
14143	RowBox[{
14144	SubscriptBox["\<\"s\"\>", "1"], ",",
14145	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14146	RowBox[{
14147	SqrtBox["2"], " ",
14148	SubscriptBox["s", "w"]}]]], "Print",
14149	CellChangeTimes->{
14150	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14151	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14152	3.5811597503554163`*^9}],
14153
14154	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
14155	* * * * * *)\"\>"], "Print",
14156	CellChangeTimes->{
14157	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14158	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14159	3.581159750361328*^9}],
14160
14161	Cell[BoxData[
14162	InterpretationBox[
14163	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "89"}],
14164	SequenceForm["Vertex ", 89],
14165	Editable->False]], "Print",
14166	CellChangeTimes->{
14167	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14168	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14169	3.581159750366247*^9}],
14170
14171	Cell[BoxData[
14172	InterpretationBox[
14173	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
14174	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
14175	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
14176	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
14177	Editable->False]], "Print",
14178	CellChangeTimes->{
14179	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14180	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14181	3.581159750370865*^9}],
14182
14183	Cell[BoxData[
14184	InterpretationBox[
14185	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
14186	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
14187	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
14188	OverscriptBox["s", "\<\"-\"\>"]}],
14189	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
14190	Editable->False]], "Print",
14191	CellChangeTimes->{
14192	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14193	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14194	3.581159750375567*^9}],
14195
14196	Cell[BoxData[
14197	InterpretationBox[
14198	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
14199	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
14200	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
14201	SuperscriptBox["W", "\[Dagger]"]}],
14202	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
14203	Editable->False]], "Print",
14204	CellChangeTimes->{
14205	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14206	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14207	3.5811597503811607`*^9}],
14208
14209	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
14210	CellChangeTimes->{
14211	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14212	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14213	3.581159750385934*^9}],
14214
14215	Cell[BoxData[
14216	FractionBox[
14217	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14218	SubsuperscriptBox[
14219	RowBox[{"(",
14220	TemplateBox[{"V","CKM"},
14221	"Superscript"], ")"}],
14222	RowBox[{"2", ",", "2"}], "\<\"*\"\>"], " ",
14223	SubscriptBox["\[Delta]",
14224	RowBox[{
14225	SubscriptBox["\<\"m\"\>", "1"], ",",
14226	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
14227	SubscriptBox[
14228	RowBox[{
14229	SuperscriptBox["\[Gamma]",
14230	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
14231	SubscriptBox["P", "\<\"-\"\>"]}],
14232	RowBox[{
14233	SubscriptBox["\<\"s\"\>", "2"], ",",
14234	SubscriptBox["\<\"s\"\>", "1"]}]]}],
14235	RowBox[{
14236	SqrtBox["2"], " ",
14237	SubscriptBox["s", "w"]}]]], "Print",
14238	CellChangeTimes->{
14239	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14240	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14241	3.581159750390564*^9}],
14242
14243	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
14244	* * * * * *)\"\>"], "Print",
14245	CellChangeTimes->{
14246	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14247	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14248	3.581159750395534*^9}],
14249
14250	Cell[BoxData[
14251	InterpretationBox[
14252	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "90"}],
14253	SequenceForm["Vertex ", 90],
14254	Editable->False]], "Print",
14255	CellChangeTimes->{
14256	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14257	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14258	3.5811597504001017`*^9}],
14259
14260	Cell[BoxData[
14261	InterpretationBox[
14262	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
14263	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
14264	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
14265	OverscriptBox["s", "\<\"-\"\>"]}],
14266	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`sbar],
14267	Editable->False]], "Print",
14268	CellChangeTimes->{
14269	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14270	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14271	3.581159750404489*^9}],
14272
14273	Cell[BoxData[
14274	InterpretationBox[
14275	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
14276	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
14277	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
14278	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
14279	Editable->False]], "Print",
14280	CellChangeTimes->{
14281	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14282	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14283	3.581159750409308*^9}],
14284
14285	Cell[BoxData[
14286	InterpretationBox[
14287	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
14288	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
14289	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
14290	SuperscriptBox["W", "\[Dagger]"]}],
14291	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
14292	Editable->False]], "Print",
14293	CellChangeTimes->{
14294	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14295	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14296	3.581159750414115*^9}],
14297
14298	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
14299	CellChangeTimes->{
14300	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14301	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14302	3.58115975044188*^9}],
14303
14304	Cell[BoxData[
14305	FractionBox[
14306	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14307	SubsuperscriptBox[
14308	RowBox[{"(",
14309	TemplateBox[{"V","CKM"},
14310	"Superscript"], ")"}],
14311	RowBox[{"1", ",", "2"}], "\<\"*\"\>"], " ",
14312	SubscriptBox["\[Delta]",
14313	RowBox[{
14314	SubscriptBox["\<\"m\"\>", "1"], ",",
14315	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
14316	SubscriptBox[
14317	RowBox[{
14318	SuperscriptBox["\[Gamma]",
14319	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
14320	SubscriptBox["P", "\<\"-\"\>"]}],
14321	RowBox[{
14322	SubscriptBox["\<\"s\"\>", "1"], ",",
14323	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14324	RowBox[{
14325	SqrtBox["2"], " ",
14326	SubscriptBox["s", "w"]}]]], "Print",
14327	CellChangeTimes->{
14328	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14329	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14330	3.581159750446529*^9}],
14331
14332	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
14333	* * * * * *)\"\>"], "Print",
14334	CellChangeTimes->{
14335	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14336	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14337	3.581159750451516*^9}],
14338
14339	Cell[BoxData[
14340	InterpretationBox[
14341	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "91"}],
14342	SequenceForm["Vertex ", 91],
14343	Editable->False]], "Print",
14344	CellChangeTimes->{
14345	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14346	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14347	3.581159750455988*^9}],
14348
14349	Cell[BoxData[
14350	InterpretationBox[
14351	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
14352	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
14353	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
14354	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
14355	Editable->False]], "Print",
14356	CellChangeTimes->{
14357	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14358	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14359	3.5811597504604053`*^9}],
14360
14361	Cell[BoxData[
14362	InterpretationBox[
14363	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
14364	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
14365	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
14366	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`b],
14367	Editable->False]], "Print",
14368	CellChangeTimes->{
14369	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14370	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14371	3.581159750464796*^9}],
14372
14373	Cell[BoxData[
14374	InterpretationBox[
14375	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
14376	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
14377	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
14378	OverscriptBox["b", "\<\"-\"\>"]}],
14379	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`bbar],
14380	Editable->False]], "Print",
14381	CellChangeTimes->{
14382	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14383	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14384	3.581159750469158*^9}],
14385
14386	Cell[BoxData[
14387	InterpretationBox[
14388	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
14389	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
14390	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
14391	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
14392	Editable->False]], "Print",
14393	CellChangeTimes->{
14394	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14395	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14396	3.581159750473502*^9}],
14397
14398	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
14399	CellChangeTimes->{
14400	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14401	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14402	3.58115975047775*^9}],
14403
14404	Cell[BoxData[
14405	RowBox[{
14406	RowBox[{"-",
14407	FractionBox[
14408	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14409	SubscriptBox["\[Kappa]", "q"], " ",
14410	SubscriptBox["\[Delta]",
14411	RowBox[{
14412	SubscriptBox["\<\"m\"\>", "2"], ",",
14413	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14414	SubscriptBox["\[Eta]",
14415	RowBox[{
14416	SubscriptBox["\<\"\[Mu]\"\>",
14417	RowBox[{"4", ",", "1"}]], ",",
14418	SubscriptBox["\<\"\[Mu]\"\>",
14419	RowBox[{"4", ",", "2"}]]}]], " ",
14420	SubscriptBox[
14421	RowBox[{
14422	SuperscriptBox["\[Gamma]",
14423	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
14424	SubscriptBox["P", "\<\"-\"\>"]}],
14425	RowBox[{
14426	SubscriptBox["\<\"s\"\>", "3"], ",",
14427	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14428	RowBox[{"3", " ", "\[CapitalLambda]"}]]}], "-",
14429	FractionBox[
14430	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14431	SubscriptBox["\[Kappa]", "q"], " ",
14432	SubscriptBox["\[Delta]",
14433	RowBox[{
14434	SubscriptBox["\<\"m\"\>", "2"], ",",
14435	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14436	SubscriptBox["\[Eta]",
14437	RowBox[{
14438	SubscriptBox["\<\"\[Mu]\"\>",
14439	RowBox[{"4", ",", "1"}]], ",",
14440	SubscriptBox["\<\"\[Mu]\"\>",
14441	RowBox[{"4", ",", "2"}]]}]], " ",
14442	SubscriptBox[
14443	RowBox[{
14444	SuperscriptBox["\[Gamma]",
14445	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
14446	SubscriptBox["P", "\<\"+\"\>"]}],
14447	RowBox[{
14448	SubscriptBox["\<\"s\"\>", "3"], ",",
14449	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14450	RowBox[{"3", " ", "\[CapitalLambda]"}]], "+",
14451	FractionBox[
14452	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14453	SubscriptBox["\[Kappa]", "q"], " ",
14454	SubscriptBox["\[Delta]",
14455	RowBox[{
14456	SubscriptBox["\<\"m\"\>", "2"], ",",
14457	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14458	SubscriptBox["\[Eta]",
14459	RowBox[{
14460	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
14461	SubscriptBox["\<\"\[Mu]\"\>",
14462	RowBox[{"4", ",", "2"}]]}]], " ",
14463	SubscriptBox[
14464	RowBox[{
14465	SuperscriptBox["\[Gamma]",
14466	SubscriptBox["\<\"\[Mu]\"\>",
14467	RowBox[{"4", ",", "1"}]]], ".",
14468	SubscriptBox["P", "\<\"-\"\>"]}],
14469	RowBox[{
14470	SubscriptBox["\<\"s\"\>", "3"], ",",
14471	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14472	RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
14473	FractionBox[
14474	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14475	SubscriptBox["\[Kappa]", "q"], " ",
14476	SubscriptBox["\[Delta]",
14477	RowBox[{
14478	SubscriptBox["\<\"m\"\>", "2"], ",",
14479	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14480	SubscriptBox["\[Eta]",
14481	RowBox[{
14482	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
14483	SubscriptBox["\<\"\[Mu]\"\>",
14484	RowBox[{"4", ",", "2"}]]}]], " ",
14485	SubscriptBox[
14486	RowBox[{
14487	SuperscriptBox["\[Gamma]",
14488	SubscriptBox["\<\"\[Mu]\"\>",
14489	RowBox[{"4", ",", "1"}]]], ".",
14490	SubscriptBox["P", "\<\"+\"\>"]}],
14491	RowBox[{
14492	SubscriptBox["\<\"s\"\>", "3"], ",",
14493	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14494	RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
14495	FractionBox[
14496	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14497	SubscriptBox["\[Kappa]", "q"], " ",
14498	SubscriptBox["\[Delta]",
14499	RowBox[{
14500	SubscriptBox["\<\"m\"\>", "2"], ",",
14501	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14502	SubscriptBox["\[Eta]",
14503	RowBox[{
14504	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
14505	SubscriptBox["\<\"\[Mu]\"\>",
14506	RowBox[{"4", ",", "1"}]]}]], " ",
14507	SubscriptBox[
14508	RowBox[{
14509	SuperscriptBox["\[Gamma]",
14510	SubscriptBox["\<\"\[Mu]\"\>",
14511	RowBox[{"4", ",", "2"}]]], ".",
14512	SubscriptBox["P", "\<\"-\"\>"]}],
14513	RowBox[{
14514	SubscriptBox["\<\"s\"\>", "3"], ",",
14515	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14516	RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
14517	FractionBox[
14518	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14519	SubscriptBox["\[Kappa]", "q"], " ",
14520	SubscriptBox["\[Delta]",
14521	RowBox[{
14522	SubscriptBox["\<\"m\"\>", "2"], ",",
14523	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14524	SubscriptBox["\[Eta]",
14525	RowBox[{
14526	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
14527	SubscriptBox["\<\"\[Mu]\"\>",
14528	RowBox[{"4", ",", "1"}]]}]], " ",
14529	SubscriptBox[
14530	RowBox[{
14531	SuperscriptBox["\[Gamma]",
14532	SubscriptBox["\<\"\[Mu]\"\>",
14533	RowBox[{"4", ",", "2"}]]], ".",
14534	SubscriptBox["P", "\<\"+\"\>"]}],
14535	RowBox[{
14536	SubscriptBox["\<\"s\"\>", "3"], ",",
14537	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14538	RowBox[{"6", " ", "\[CapitalLambda]"}]]}]], "Print",
14539	CellChangeTimes->{
14540	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14541	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14542	3.5811597504828873`*^9}],
14543
14544	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
14545	* * * * * *)\"\>"], "Print",
14546	CellChangeTimes->{
14547	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14548	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14549	3.581159750489628*^9}],
14550
14551	Cell[BoxData[
14552	InterpretationBox[
14553	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "92"}],
14554	SequenceForm["Vertex ", 92],
14555	Editable->False]], "Print",
14556	CellChangeTimes->{
14557	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14558	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14559	3.581159750494062*^9}],
14560
14561	Cell[BoxData[
14562	InterpretationBox[
14563	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
14564	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
14565	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
14566	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
14567	Editable->False]], "Print",
14568	CellChangeTimes->{
14569	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14570	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14571	3.581159750498438*^9}],
14572
14573	Cell[BoxData[
14574	InterpretationBox[
14575	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
14576	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
14577	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
14578	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
14579	Editable->False]], "Print",
14580	CellChangeTimes->{
14581	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14582	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14583	3.581159750502887*^9}],
14584
14585	Cell[BoxData[
14586	InterpretationBox[
14587	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
14588	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
14589	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
14590	OverscriptBox["d", "\<\"-\"\>"]}],
14591	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`dbar],
14592	Editable->False]], "Print",
14593	CellChangeTimes->{
14594	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14595	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14596	3.581159750507255*^9}],
14597
14598	Cell[BoxData[
14599	InterpretationBox[
14600	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
14601	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
14602	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
14603	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
14604	Editable->False]], "Print",
14605	CellChangeTimes->{
14606	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14607	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14608	3.581159750511888*^9}],
14609
14610	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
14611	CellChangeTimes->{
14612	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14613	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14614	3.581159750516334*^9}],
14615
14616	Cell[BoxData[
14617	RowBox[{
14618	RowBox[{"-",
14619	FractionBox[
14620	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14621	SubscriptBox["\[Kappa]", "q"], " ",
14622	SubscriptBox["\[Delta]",
14623	RowBox[{
14624	SubscriptBox["\<\"m\"\>", "2"], ",",
14625	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14626	SubscriptBox["\[Eta]",
14627	RowBox[{
14628	SubscriptBox["\<\"\[Mu]\"\>",
14629	RowBox[{"4", ",", "1"}]], ",",
14630	SubscriptBox["\<\"\[Mu]\"\>",
14631	RowBox[{"4", ",", "2"}]]}]], " ",
14632	SubscriptBox[
14633	RowBox[{
14634	SuperscriptBox["\[Gamma]",
14635	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
14636	SubscriptBox["P", "\<\"-\"\>"]}],
14637	RowBox[{
14638	SubscriptBox["\<\"s\"\>", "3"], ",",
14639	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14640	RowBox[{"3", " ", "\[CapitalLambda]"}]]}], "-",
14641	FractionBox[
14642	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14643	SubscriptBox["\[Kappa]", "q"], " ",
14644	SubscriptBox["\[Delta]",
14645	RowBox[{
14646	SubscriptBox["\<\"m\"\>", "2"], ",",
14647	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14648	SubscriptBox["\[Eta]",
14649	RowBox[{
14650	SubscriptBox["\<\"\[Mu]\"\>",
14651	RowBox[{"4", ",", "1"}]], ",",
14652	SubscriptBox["\<\"\[Mu]\"\>",
14653	RowBox[{"4", ",", "2"}]]}]], " ",
14654	SubscriptBox[
14655	RowBox[{
14656	SuperscriptBox["\[Gamma]",
14657	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
14658	SubscriptBox["P", "\<\"+\"\>"]}],
14659	RowBox[{
14660	SubscriptBox["\<\"s\"\>", "3"], ",",
14661	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14662	RowBox[{"3", " ", "\[CapitalLambda]"}]], "+",
14663	FractionBox[
14664	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14665	SubscriptBox["\[Kappa]", "q"], " ",
14666	SubscriptBox["\[Delta]",
14667	RowBox[{
14668	SubscriptBox["\<\"m\"\>", "2"], ",",
14669	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14670	SubscriptBox["\[Eta]",
14671	RowBox[{
14672	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
14673	SubscriptBox["\<\"\[Mu]\"\>",
14674	RowBox[{"4", ",", "2"}]]}]], " ",
14675	SubscriptBox[
14676	RowBox[{
14677	SuperscriptBox["\[Gamma]",
14678	SubscriptBox["\<\"\[Mu]\"\>",
14679	RowBox[{"4", ",", "1"}]]], ".",
14680	SubscriptBox["P", "\<\"-\"\>"]}],
14681	RowBox[{
14682	SubscriptBox["\<\"s\"\>", "3"], ",",
14683	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14684	RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
14685	FractionBox[
14686	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14687	SubscriptBox["\[Kappa]", "q"], " ",
14688	SubscriptBox["\[Delta]",
14689	RowBox[{
14690	SubscriptBox["\<\"m\"\>", "2"], ",",
14691	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14692	SubscriptBox["\[Eta]",
14693	RowBox[{
14694	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
14695	SubscriptBox["\<\"\[Mu]\"\>",
14696	RowBox[{"4", ",", "2"}]]}]], " ",
14697	SubscriptBox[
14698	RowBox[{
14699	SuperscriptBox["\[Gamma]",
14700	SubscriptBox["\<\"\[Mu]\"\>",
14701	RowBox[{"4", ",", "1"}]]], ".",
14702	SubscriptBox["P", "\<\"+\"\>"]}],
14703	RowBox[{
14704	SubscriptBox["\<\"s\"\>", "3"], ",",
14705	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14706	RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
14707	FractionBox[
14708	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14709	SubscriptBox["\[Kappa]", "q"], " ",
14710	SubscriptBox["\[Delta]",
14711	RowBox[{
14712	SubscriptBox["\<\"m\"\>", "2"], ",",
14713	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14714	SubscriptBox["\[Eta]",
14715	RowBox[{
14716	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
14717	SubscriptBox["\<\"\[Mu]\"\>",
14718	RowBox[{"4", ",", "1"}]]}]], " ",
14719	SubscriptBox[
14720	RowBox[{
14721	SuperscriptBox["\[Gamma]",
14722	SubscriptBox["\<\"\[Mu]\"\>",
14723	RowBox[{"4", ",", "2"}]]], ".",
14724	SubscriptBox["P", "\<\"-\"\>"]}],
14725	RowBox[{
14726	SubscriptBox["\<\"s\"\>", "3"], ",",
14727	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14728	RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
14729	FractionBox[
14730	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14731	SubscriptBox["\[Kappa]", "q"], " ",
14732	SubscriptBox["\[Delta]",
14733	RowBox[{
14734	SubscriptBox["\<\"m\"\>", "2"], ",",
14735	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14736	SubscriptBox["\[Eta]",
14737	RowBox[{
14738	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
14739	SubscriptBox["\<\"\[Mu]\"\>",
14740	RowBox[{"4", ",", "1"}]]}]], " ",
14741	SubscriptBox[
14742	RowBox[{
14743	SuperscriptBox["\[Gamma]",
14744	SubscriptBox["\<\"\[Mu]\"\>",
14745	RowBox[{"4", ",", "2"}]]], ".",
14746	SubscriptBox["P", "\<\"+\"\>"]}],
14747	RowBox[{
14748	SubscriptBox["\<\"s\"\>", "3"], ",",
14749	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14750	RowBox[{"6", " ", "\[CapitalLambda]"}]]}]], "Print",
14751	CellChangeTimes->{
14752	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14753	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14754	3.581159750521618*^9}],
14755
14756	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
14757	* * * * * *)\"\>"], "Print",
14758	CellChangeTimes->{
14759	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14760	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14761	3.581159750528141*^9}],
14762
14763	Cell[BoxData[
14764	InterpretationBox[
14765	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "93"}],
14766	SequenceForm["Vertex ", 93],
14767	Editable->False]], "Print",
14768	CellChangeTimes->{
14769	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14770	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14771	3.5811597505326347`*^9}],
14772
14773	Cell[BoxData[
14774	InterpretationBox[
14775	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
14776	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
14777	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
14778	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
14779	Editable->False]], "Print",
14780	CellChangeTimes->{
14781	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14782	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14783	3.58115975053717*^9}],
14784
14785	Cell[BoxData[
14786	InterpretationBox[
14787	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
14788	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
14789	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
14790	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
14791	Editable->False]], "Print",
14792	CellChangeTimes->{
14793	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14794	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14795	3.581159750541603*^9}],
14796
14797	Cell[BoxData[
14798	InterpretationBox[
14799	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
14800	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
14801	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
14802	OverscriptBox["s", "\<\"-\"\>"]}],
14803	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
14804	Editable->False]], "Print",
14805	CellChangeTimes->{
14806	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14807	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14808	3.5811597505461273`*^9}],
14809
14810	Cell[BoxData[
14811	InterpretationBox[
14812	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
14813	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
14814	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
14815	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
14816	Editable->False]], "Print",
14817	CellChangeTimes->{
14818	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14819	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14820	3.581159750550605*^9}],
14821
14822	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
14823	CellChangeTimes->{
14824	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14825	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14826	3.5811597505548983`*^9}],
14827
14828	Cell[BoxData[
14829	RowBox[{
14830	RowBox[{"-",
14831	FractionBox[
14832	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14833	SubscriptBox["\[Kappa]", "q"], " ",
14834	SubscriptBox["\[Delta]",
14835	RowBox[{
14836	SubscriptBox["\<\"m\"\>", "2"], ",",
14837	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14838	SubscriptBox["\[Eta]",
14839	RowBox[{
14840	SubscriptBox["\<\"\[Mu]\"\>",
14841	RowBox[{"4", ",", "1"}]], ",",
14842	SubscriptBox["\<\"\[Mu]\"\>",
14843	RowBox[{"4", ",", "2"}]]}]], " ",
14844	SubscriptBox[
14845	RowBox[{
14846	SuperscriptBox["\[Gamma]",
14847	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
14848	SubscriptBox["P", "\<\"-\"\>"]}],
14849	RowBox[{
14850	SubscriptBox["\<\"s\"\>", "3"], ",",
14851	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14852	RowBox[{"3", " ", "\[CapitalLambda]"}]]}], "-",
14853	FractionBox[
14854	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14855	SubscriptBox["\[Kappa]", "q"], " ",
14856	SubscriptBox["\[Delta]",
14857	RowBox[{
14858	SubscriptBox["\<\"m\"\>", "2"], ",",
14859	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14860	SubscriptBox["\[Eta]",
14861	RowBox[{
14862	SubscriptBox["\<\"\[Mu]\"\>",
14863	RowBox[{"4", ",", "1"}]], ",",
14864	SubscriptBox["\<\"\[Mu]\"\>",
14865	RowBox[{"4", ",", "2"}]]}]], " ",
14866	SubscriptBox[
14867	RowBox[{
14868	SuperscriptBox["\[Gamma]",
14869	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
14870	SubscriptBox["P", "\<\"+\"\>"]}],
14871	RowBox[{
14872	SubscriptBox["\<\"s\"\>", "3"], ",",
14873	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14874	RowBox[{"3", " ", "\[CapitalLambda]"}]], "+",
14875	FractionBox[
14876	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14877	SubscriptBox["\[Kappa]", "q"], " ",
14878	SubscriptBox["\[Delta]",
14879	RowBox[{
14880	SubscriptBox["\<\"m\"\>", "2"], ",",
14881	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14882	SubscriptBox["\[Eta]",
14883	RowBox[{
14884	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
14885	SubscriptBox["\<\"\[Mu]\"\>",
14886	RowBox[{"4", ",", "2"}]]}]], " ",
14887	SubscriptBox[
14888	RowBox[{
14889	SuperscriptBox["\[Gamma]",
14890	SubscriptBox["\<\"\[Mu]\"\>",
14891	RowBox[{"4", ",", "1"}]]], ".",
14892	SubscriptBox["P", "\<\"-\"\>"]}],
14893	RowBox[{
14894	SubscriptBox["\<\"s\"\>", "3"], ",",
14895	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14896	RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
14897	FractionBox[
14898	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14899	SubscriptBox["\[Kappa]", "q"], " ",
14900	SubscriptBox["\[Delta]",
14901	RowBox[{
14902	SubscriptBox["\<\"m\"\>", "2"], ",",
14903	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14904	SubscriptBox["\[Eta]",
14905	RowBox[{
14906	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
14907	SubscriptBox["\<\"\[Mu]\"\>",
14908	RowBox[{"4", ",", "2"}]]}]], " ",
14909	SubscriptBox[
14910	RowBox[{
14911	SuperscriptBox["\[Gamma]",
14912	SubscriptBox["\<\"\[Mu]\"\>",
14913	RowBox[{"4", ",", "1"}]]], ".",
14914	SubscriptBox["P", "\<\"+\"\>"]}],
14915	RowBox[{
14916	SubscriptBox["\<\"s\"\>", "3"], ",",
14917	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14918	RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
14919	FractionBox[
14920	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14921	SubscriptBox["\[Kappa]", "q"], " ",
14922	SubscriptBox["\[Delta]",
14923	RowBox[{
14924	SubscriptBox["\<\"m\"\>", "2"], ",",
14925	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14926	SubscriptBox["\[Eta]",
14927	RowBox[{
14928	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
14929	SubscriptBox["\<\"\[Mu]\"\>",
14930	RowBox[{"4", ",", "1"}]]}]], " ",
14931	SubscriptBox[
14932	RowBox[{
14933	SuperscriptBox["\[Gamma]",
14934	SubscriptBox["\<\"\[Mu]\"\>",
14935	RowBox[{"4", ",", "2"}]]], ".",
14936	SubscriptBox["P", "\<\"-\"\>"]}],
14937	RowBox[{
14938	SubscriptBox["\<\"s\"\>", "3"], ",",
14939	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14940	RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
14941	FractionBox[
14942	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14943	SubscriptBox["\[Kappa]", "q"], " ",
14944	SubscriptBox["\[Delta]",
14945	RowBox[{
14946	SubscriptBox["\<\"m\"\>", "2"], ",",
14947	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
14948	SubscriptBox["\[Eta]",
14949	RowBox[{
14950	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
14951	SubscriptBox["\<\"\[Mu]\"\>",
14952	RowBox[{"4", ",", "1"}]]}]], " ",
14953	SubscriptBox[
14954	RowBox[{
14955	SuperscriptBox["\[Gamma]",
14956	SubscriptBox["\<\"\[Mu]\"\>",
14957	RowBox[{"4", ",", "2"}]]], ".",
14958	SubscriptBox["P", "\<\"+\"\>"]}],
14959	RowBox[{
14960	SubscriptBox["\<\"s\"\>", "3"], ",",
14961	SubscriptBox["\<\"s\"\>", "2"]}]]}],
14962	RowBox[{"6", " ", "\[CapitalLambda]"}]]}]], "Print",
14963	CellChangeTimes->{
14964	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14965	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14966	3.581159750560237*^9}],
14967
14968	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
14969	* * * * * *)\"\>"], "Print",
14970	CellChangeTimes->{
14971	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14972	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14973	3.581159750566926*^9}],
14974
14975	Cell[BoxData[
14976	InterpretationBox[
14977	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "94"}],
14978	SequenceForm["Vertex ", 94],
14979	Editable->False]], "Print",
14980	CellChangeTimes->{
14981	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14982	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14983	3.581159750571389*^9}],
14984
14985	Cell[BoxData[
14986	InterpretationBox[
14987	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
14988	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
14989	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
14990	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
14991	Editable->False]], "Print",
14992	CellChangeTimes->{
14993	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
14994	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
14995	3.581159750575742*^9}],
14996
14997	Cell[BoxData[
14998	InterpretationBox[
14999	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
15000	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15001	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
15002	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`e],
15003	Editable->False]], "Print",
15004	CellChangeTimes->{
15005	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15006	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15007	3.581159750580297*^9}],
15008
15009	Cell[BoxData[
15010	InterpretationBox[
15011	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
15012	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15013	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
15014	OverscriptBox["e", "\<\"-\"\>"]}],
15015	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ebar],
15016	Editable->False]], "Print",
15017	CellChangeTimes->{
15018	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15019	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15020	3.581159750584914*^9}],
15021
15022	Cell[BoxData[
15023	InterpretationBox[
15024	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
15025	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
15026	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
15027	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
15028	Editable->False]], "Print",
15029	CellChangeTimes->{
15030	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15031	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15032	3.581159750589559*^9}],
15033
15034	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
15035	CellChangeTimes->{
15036	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15037	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15038	3.5811597505940313`*^9}],
15039
15040	Cell[BoxData[
15041	RowBox[{
15042	RowBox[{"-",
15043	FractionBox[
15044	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15045	SubscriptBox["\[Kappa]", "l"], " ",
15046	SubscriptBox["\[Eta]",
15047	RowBox[{
15048	SubscriptBox["\<\"\[Mu]\"\>",
15049	RowBox[{"4", ",", "1"}]], ",",
15050	SubscriptBox["\<\"\[Mu]\"\>",
15051	RowBox[{"4", ",", "2"}]]}]], " ",
15052	SubscriptBox[
15053	RowBox[{
15054	SuperscriptBox["\[Gamma]",
15055	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
15056	SubscriptBox["P", "\<\"-\"\>"]}],
15057	RowBox[{
15058	SubscriptBox["\<\"s\"\>", "3"], ",",
15059	SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-",
15060	FractionBox[
15061	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15062	SubscriptBox["\[Kappa]", "l"], " ",
15063	SubscriptBox["\[Eta]",
15064	RowBox[{
15065	SubscriptBox["\<\"\[Mu]\"\>",
15066	RowBox[{"4", ",", "1"}]], ",",
15067	SubscriptBox["\<\"\[Mu]\"\>",
15068	RowBox[{"4", ",", "2"}]]}]], " ",
15069	SubscriptBox[
15070	RowBox[{
15071	SuperscriptBox["\[Gamma]",
15072	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
15073	SubscriptBox["P", "\<\"+\"\>"]}],
15074	RowBox[{
15075	SubscriptBox["\<\"s\"\>", "3"], ",",
15076	SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"], "+",
15077	FractionBox[
15078	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15079	SubscriptBox["\[Kappa]", "l"], " ",
15080	SubscriptBox["\[Eta]",
15081	RowBox[{
15082	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15083	SubscriptBox["\<\"\[Mu]\"\>",
15084	RowBox[{"4", ",", "2"}]]}]], " ",
15085	SubscriptBox[
15086	RowBox[{
15087	SuperscriptBox["\[Gamma]",
15088	SubscriptBox["\<\"\[Mu]\"\>",
15089	RowBox[{"4", ",", "1"}]]], ".",
15090	SubscriptBox["P", "\<\"-\"\>"]}],
15091	RowBox[{
15092	SubscriptBox["\<\"s\"\>", "3"], ",",
15093	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15094	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
15095	FractionBox[
15096	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15097	SubscriptBox["\[Kappa]", "l"], " ",
15098	SubscriptBox["\[Eta]",
15099	RowBox[{
15100	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15101	SubscriptBox["\<\"\[Mu]\"\>",
15102	RowBox[{"4", ",", "2"}]]}]], " ",
15103	SubscriptBox[
15104	RowBox[{
15105	SuperscriptBox["\[Gamma]",
15106	SubscriptBox["\<\"\[Mu]\"\>",
15107	RowBox[{"4", ",", "1"}]]], ".",
15108	SubscriptBox["P", "\<\"+\"\>"]}],
15109	RowBox[{
15110	SubscriptBox["\<\"s\"\>", "3"], ",",
15111	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15112	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
15113	FractionBox[
15114	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15115	SubscriptBox["\[Kappa]", "l"], " ",
15116	SubscriptBox["\[Eta]",
15117	RowBox[{
15118	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15119	SubscriptBox["\<\"\[Mu]\"\>",
15120	RowBox[{"4", ",", "1"}]]}]], " ",
15121	SubscriptBox[
15122	RowBox[{
15123	SuperscriptBox["\[Gamma]",
15124	SubscriptBox["\<\"\[Mu]\"\>",
15125	RowBox[{"4", ",", "2"}]]], ".",
15126	SubscriptBox["P", "\<\"-\"\>"]}],
15127	RowBox[{
15128	SubscriptBox["\<\"s\"\>", "3"], ",",
15129	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15130	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
15131	FractionBox[
15132	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15133	SubscriptBox["\[Kappa]", "l"], " ",
15134	SubscriptBox["\[Eta]",
15135	RowBox[{
15136	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15137	SubscriptBox["\<\"\[Mu]\"\>",
15138	RowBox[{"4", ",", "1"}]]}]], " ",
15139	SubscriptBox[
15140	RowBox[{
15141	SuperscriptBox["\[Gamma]",
15142	SubscriptBox["\<\"\[Mu]\"\>",
15143	RowBox[{"4", ",", "2"}]]], ".",
15144	SubscriptBox["P", "\<\"+\"\>"]}],
15145	RowBox[{
15146	SubscriptBox["\<\"s\"\>", "3"], ",",
15147	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15148	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
15149	CellChangeTimes->{
15150	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15151	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15152	3.581159750599382*^9}],
15153
15154	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
15155	* * * * * *)\"\>"], "Print",
15156	CellChangeTimes->{
15157	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15158	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15159	3.581159750605576*^9}],
15160
15161	Cell[BoxData[
15162	InterpretationBox[
15163	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "95"}],
15164	SequenceForm["Vertex ", 95],
15165	Editable->False]], "Print",
15166	CellChangeTimes->{
15167	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15168	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15169	3.581159750610371*^9}],
15170
15171	Cell[BoxData[
15172	InterpretationBox[
15173	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
15174	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
15175	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
15176	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
15177	Editable->False]], "Print",
15178	CellChangeTimes->{
15179	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15180	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15181	3.5811597506149054`*^9}],
15182
15183	Cell[BoxData[
15184	InterpretationBox[
15185	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
15186	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15187	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
15188	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`mu],
15189	Editable->False]], "Print",
15190	CellChangeTimes->{
15191	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15192	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15193	3.5811597506195583`*^9}],
15194
15195	Cell[BoxData[
15196	InterpretationBox[
15197	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
15198	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15199	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
15200	OverscriptBox["mu", "\<\"-\"\>"]}],
15201	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`mubar],
15202	Editable->False]], "Print",
15203	CellChangeTimes->{
15204	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15205	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15206	3.5811597506240673`*^9}],
15207
15208	Cell[BoxData[
15209	InterpretationBox[
15210	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
15211	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
15212	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
15213	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
15214	Editable->False]], "Print",
15215	CellChangeTimes->{
15216	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15217	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15218	3.581159750629636*^9}],
15219
15220	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
15221	CellChangeTimes->{
15222	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15223	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15224	3.581159750635553*^9}],
15225
15226	Cell[BoxData[
15227	RowBox[{
15228	RowBox[{"-",
15229	FractionBox[
15230	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15231	SubscriptBox["\[Kappa]", "l"], " ",
15232	SubscriptBox["\[Eta]",
15233	RowBox[{
15234	SubscriptBox["\<\"\[Mu]\"\>",
15235	RowBox[{"4", ",", "1"}]], ",",
15236	SubscriptBox["\<\"\[Mu]\"\>",
15237	RowBox[{"4", ",", "2"}]]}]], " ",
15238	SubscriptBox[
15239	RowBox[{
15240	SuperscriptBox["\[Gamma]",
15241	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
15242	SubscriptBox["P", "\<\"-\"\>"]}],
15243	RowBox[{
15244	SubscriptBox["\<\"s\"\>", "3"], ",",
15245	SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-",
15246	FractionBox[
15247	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15248	SubscriptBox["\[Kappa]", "l"], " ",
15249	SubscriptBox["\[Eta]",
15250	RowBox[{
15251	SubscriptBox["\<\"\[Mu]\"\>",
15252	RowBox[{"4", ",", "1"}]], ",",
15253	SubscriptBox["\<\"\[Mu]\"\>",
15254	RowBox[{"4", ",", "2"}]]}]], " ",
15255	SubscriptBox[
15256	RowBox[{
15257	SuperscriptBox["\[Gamma]",
15258	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
15259	SubscriptBox["P", "\<\"+\"\>"]}],
15260	RowBox[{
15261	SubscriptBox["\<\"s\"\>", "3"], ",",
15262	SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"], "+",
15263	FractionBox[
15264	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15265	SubscriptBox["\[Kappa]", "l"], " ",
15266	SubscriptBox["\[Eta]",
15267	RowBox[{
15268	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15269	SubscriptBox["\<\"\[Mu]\"\>",
15270	RowBox[{"4", ",", "2"}]]}]], " ",
15271	SubscriptBox[
15272	RowBox[{
15273	SuperscriptBox["\[Gamma]",
15274	SubscriptBox["\<\"\[Mu]\"\>",
15275	RowBox[{"4", ",", "1"}]]], ".",
15276	SubscriptBox["P", "\<\"-\"\>"]}],
15277	RowBox[{
15278	SubscriptBox["\<\"s\"\>", "3"], ",",
15279	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15280	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
15281	FractionBox[
15282	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15283	SubscriptBox["\[Kappa]", "l"], " ",
15284	SubscriptBox["\[Eta]",
15285	RowBox[{
15286	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15287	SubscriptBox["\<\"\[Mu]\"\>",
15288	RowBox[{"4", ",", "2"}]]}]], " ",
15289	SubscriptBox[
15290	RowBox[{
15291	SuperscriptBox["\[Gamma]",
15292	SubscriptBox["\<\"\[Mu]\"\>",
15293	RowBox[{"4", ",", "1"}]]], ".",
15294	SubscriptBox["P", "\<\"+\"\>"]}],
15295	RowBox[{
15296	SubscriptBox["\<\"s\"\>", "3"], ",",
15297	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15298	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
15299	FractionBox[
15300	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15301	SubscriptBox["\[Kappa]", "l"], " ",
15302	SubscriptBox["\[Eta]",
15303	RowBox[{
15304	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15305	SubscriptBox["\<\"\[Mu]\"\>",
15306	RowBox[{"4", ",", "1"}]]}]], " ",
15307	SubscriptBox[
15308	RowBox[{
15309	SuperscriptBox["\[Gamma]",
15310	SubscriptBox["\<\"\[Mu]\"\>",
15311	RowBox[{"4", ",", "2"}]]], ".",
15312	SubscriptBox["P", "\<\"-\"\>"]}],
15313	RowBox[{
15314	SubscriptBox["\<\"s\"\>", "3"], ",",
15315	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15316	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
15317	FractionBox[
15318	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15319	SubscriptBox["\[Kappa]", "l"], " ",
15320	SubscriptBox["\[Eta]",
15321	RowBox[{
15322	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15323	SubscriptBox["\<\"\[Mu]\"\>",
15324	RowBox[{"4", ",", "1"}]]}]], " ",
15325	SubscriptBox[
15326	RowBox[{
15327	SuperscriptBox["\[Gamma]",
15328	SubscriptBox["\<\"\[Mu]\"\>",
15329	RowBox[{"4", ",", "2"}]]], ".",
15330	SubscriptBox["P", "\<\"+\"\>"]}],
15331	RowBox[{
15332	SubscriptBox["\<\"s\"\>", "3"], ",",
15333	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15334	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
15335	CellChangeTimes->{
15336	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15337	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15338	3.581159750641789*^9}],
15339
15340	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
15341	* * * * * *)\"\>"], "Print",
15342	CellChangeTimes->{
15343	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15344	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15345	3.581159750648637*^9}],
15346
15347	Cell[BoxData[
15348	InterpretationBox[
15349	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "96"}],
15350	SequenceForm["Vertex ", 96],
15351	Editable->False]], "Print",
15352	CellChangeTimes->{
15353	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15354	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15355	3.5811597506537046`*^9}],
15356
15357	Cell[BoxData[
15358	InterpretationBox[
15359	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
15360	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
15361	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
15362	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
15363	Editable->False]], "Print",
15364	CellChangeTimes->{
15365	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15366	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15367	3.5811597506587687`*^9}],
15368
15369	Cell[BoxData[
15370	InterpretationBox[
15371	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
15372	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15373	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
15374	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ta],
15375	Editable->False]], "Print",
15376	CellChangeTimes->{
15377	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15378	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15379	3.5811597506641207`*^9}],
15380
15381	Cell[BoxData[
15382	InterpretationBox[
15383	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
15384	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15385	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
15386	OverscriptBox["ta", "\<\"-\"\>"]}],
15387	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tabar],
15388	Editable->False]], "Print",
15389	CellChangeTimes->{
15390	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15391	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15392	3.581159750669868*^9}],
15393
15394	Cell[BoxData[
15395	InterpretationBox[
15396	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
15397	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
15398	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
15399	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
15400	Editable->False]], "Print",
15401	CellChangeTimes->{
15402	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15403	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15404	3.581159750674848*^9}],
15405
15406	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
15407	CellChangeTimes->{
15408	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15409	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15410	3.581159750679619*^9}],
15411
15412	Cell[BoxData[
15413	RowBox[{
15414	RowBox[{"-",
15415	FractionBox[
15416	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15417	SubscriptBox["\[Kappa]", "l"], " ",
15418	SubscriptBox["\[Eta]",
15419	RowBox[{
15420	SubscriptBox["\<\"\[Mu]\"\>",
15421	RowBox[{"4", ",", "1"}]], ",",
15422	SubscriptBox["\<\"\[Mu]\"\>",
15423	RowBox[{"4", ",", "2"}]]}]], " ",
15424	SubscriptBox[
15425	RowBox[{
15426	SuperscriptBox["\[Gamma]",
15427	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
15428	SubscriptBox["P", "\<\"-\"\>"]}],
15429	RowBox[{
15430	SubscriptBox["\<\"s\"\>", "3"], ",",
15431	SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-",
15432	FractionBox[
15433	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15434	SubscriptBox["\[Kappa]", "l"], " ",
15435	SubscriptBox["\[Eta]",
15436	RowBox[{
15437	SubscriptBox["\<\"\[Mu]\"\>",
15438	RowBox[{"4", ",", "1"}]], ",",
15439	SubscriptBox["\<\"\[Mu]\"\>",
15440	RowBox[{"4", ",", "2"}]]}]], " ",
15441	SubscriptBox[
15442	RowBox[{
15443	SuperscriptBox["\[Gamma]",
15444	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
15445	SubscriptBox["P", "\<\"+\"\>"]}],
15446	RowBox[{
15447	SubscriptBox["\<\"s\"\>", "3"], ",",
15448	SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"], "+",
15449	FractionBox[
15450	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15451	SubscriptBox["\[Kappa]", "l"], " ",
15452	SubscriptBox["\[Eta]",
15453	RowBox[{
15454	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15455	SubscriptBox["\<\"\[Mu]\"\>",
15456	RowBox[{"4", ",", "2"}]]}]], " ",
15457	SubscriptBox[
15458	RowBox[{
15459	SuperscriptBox["\[Gamma]",
15460	SubscriptBox["\<\"\[Mu]\"\>",
15461	RowBox[{"4", ",", "1"}]]], ".",
15462	SubscriptBox["P", "\<\"-\"\>"]}],
15463	RowBox[{
15464	SubscriptBox["\<\"s\"\>", "3"], ",",
15465	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15466	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
15467	FractionBox[
15468	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15469	SubscriptBox["\[Kappa]", "l"], " ",
15470	SubscriptBox["\[Eta]",
15471	RowBox[{
15472	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15473	SubscriptBox["\<\"\[Mu]\"\>",
15474	RowBox[{"4", ",", "2"}]]}]], " ",
15475	SubscriptBox[
15476	RowBox[{
15477	SuperscriptBox["\[Gamma]",
15478	SubscriptBox["\<\"\[Mu]\"\>",
15479	RowBox[{"4", ",", "1"}]]], ".",
15480	SubscriptBox["P", "\<\"+\"\>"]}],
15481	RowBox[{
15482	SubscriptBox["\<\"s\"\>", "3"], ",",
15483	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15484	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
15485	FractionBox[
15486	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15487	SubscriptBox["\[Kappa]", "l"], " ",
15488	SubscriptBox["\[Eta]",
15489	RowBox[{
15490	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15491	SubscriptBox["\<\"\[Mu]\"\>",
15492	RowBox[{"4", ",", "1"}]]}]], " ",
15493	SubscriptBox[
15494	RowBox[{
15495	SuperscriptBox["\[Gamma]",
15496	SubscriptBox["\<\"\[Mu]\"\>",
15497	RowBox[{"4", ",", "2"}]]], ".",
15498	SubscriptBox["P", "\<\"-\"\>"]}],
15499	RowBox[{
15500	SubscriptBox["\<\"s\"\>", "3"], ",",
15501	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15502	RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
15503	FractionBox[
15504	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15505	SubscriptBox["\[Kappa]", "l"], " ",
15506	SubscriptBox["\[Eta]",
15507	RowBox[{
15508	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15509	SubscriptBox["\<\"\[Mu]\"\>",
15510	RowBox[{"4", ",", "1"}]]}]], " ",
15511	SubscriptBox[
15512	RowBox[{
15513	SuperscriptBox["\[Gamma]",
15514	SubscriptBox["\<\"\[Mu]\"\>",
15515	RowBox[{"4", ",", "2"}]]], ".",
15516	SubscriptBox["P", "\<\"+\"\>"]}],
15517	RowBox[{
15518	SubscriptBox["\<\"s\"\>", "3"], ",",
15519	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15520	RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
15521	CellChangeTimes->{
15522	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15523	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15524	3.5811597506851273`*^9}],
15525
15526	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
15527	* * * * * *)\"\>"], "Print",
15528	CellChangeTimes->{
15529	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15530	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15531	3.581159750691732*^9}],
15532
15533	Cell[BoxData[
15534	InterpretationBox[
15535	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "97"}],
15536	SequenceForm["Vertex ", 97],
15537	Editable->False]], "Print",
15538	CellChangeTimes->{
15539	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15540	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15541	3.58115975069652*^9}],
15542
15543	Cell[BoxData[
15544	InterpretationBox[
15545	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
15546	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
15547	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
15548	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
15549	Editable->False]], "Print",
15550	CellChangeTimes->{
15551	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15552	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15553	3.581159750701331*^9}],
15554
15555	Cell[BoxData[
15556	InterpretationBox[
15557	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
15558	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15559	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
15560	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`c],
15561	Editable->False]], "Print",
15562	CellChangeTimes->{
15563	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15564	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15565	3.581159750706107*^9}],
15566
15567	Cell[BoxData[
15568	InterpretationBox[
15569	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
15570	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15571	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
15572	OverscriptBox["c", "\<\"-\"\>"]}],
15573	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`cbar],
15574	Editable->False]], "Print",
15575	CellChangeTimes->{
15576	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15577	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15578	3.581159750711006*^9}],
15579
15580	Cell[BoxData[
15581	InterpretationBox[
15582	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
15583	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
15584	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
15585	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
15586	Editable->False]], "Print",
15587	CellChangeTimes->{
15588	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15589	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15590	3.581159750716055*^9}],
15591
15592	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
15593	CellChangeTimes->{
15594	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15595	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15596	3.581159750720743*^9}],
15597
15598	Cell[BoxData[
15599	RowBox[{
15600	FractionBox[
15601	RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
15602	SubscriptBox["\[Kappa]", "q"], " ",
15603	SubscriptBox["\[Delta]",
15604	RowBox[{
15605	SubscriptBox["\<\"m\"\>", "2"], ",",
15606	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
15607	SubscriptBox["\[Eta]",
15608	RowBox[{
15609	SubscriptBox["\<\"\[Mu]\"\>",
15610	RowBox[{"4", ",", "1"}]], ",",
15611	SubscriptBox["\<\"\[Mu]\"\>",
15612	RowBox[{"4", ",", "2"}]]}]], " ",
15613	SubscriptBox[
15614	RowBox[{
15615	SuperscriptBox["\[Gamma]",
15616	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
15617	SubscriptBox["P", "\<\"-\"\>"]}],
15618	RowBox[{
15619	SubscriptBox["\<\"s\"\>", "3"], ",",
15620	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15621	RowBox[{"3", " ", "\[CapitalLambda]"}]], "+",
15622	FractionBox[
15623	RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
15624	SubscriptBox["\[Kappa]", "q"], " ",
15625	SubscriptBox["\[Delta]",
15626	RowBox[{
15627	SubscriptBox["\<\"m\"\>", "2"], ",",
15628	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
15629	SubscriptBox["\[Eta]",
15630	RowBox[{
15631	SubscriptBox["\<\"\[Mu]\"\>",
15632	RowBox[{"4", ",", "1"}]], ",",
15633	SubscriptBox["\<\"\[Mu]\"\>",
15634	RowBox[{"4", ",", "2"}]]}]], " ",
15635	SubscriptBox[
15636	RowBox[{
15637	SuperscriptBox["\[Gamma]",
15638	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
15639	SubscriptBox["P", "\<\"+\"\>"]}],
15640	RowBox[{
15641	SubscriptBox["\<\"s\"\>", "3"], ",",
15642	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15643	RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
15644	FractionBox[
15645	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15646	SubscriptBox["\[Kappa]", "q"], " ",
15647	SubscriptBox["\[Delta]",
15648	RowBox[{
15649	SubscriptBox["\<\"m\"\>", "2"], ",",
15650	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
15651	SubscriptBox["\[Eta]",
15652	RowBox[{
15653	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15654	SubscriptBox["\<\"\[Mu]\"\>",
15655	RowBox[{"4", ",", "2"}]]}]], " ",
15656	SubscriptBox[
15657	RowBox[{
15658	SuperscriptBox["\[Gamma]",
15659	SubscriptBox["\<\"\[Mu]\"\>",
15660	RowBox[{"4", ",", "1"}]]], ".",
15661	SubscriptBox["P", "\<\"-\"\>"]}],
15662	RowBox[{
15663	SubscriptBox["\<\"s\"\>", "3"], ",",
15664	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15665	RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
15666	FractionBox[
15667	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15668	SubscriptBox["\[Kappa]", "q"], " ",
15669	SubscriptBox["\[Delta]",
15670	RowBox[{
15671	SubscriptBox["\<\"m\"\>", "2"], ",",
15672	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
15673	SubscriptBox["\[Eta]",
15674	RowBox[{
15675	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15676	SubscriptBox["\<\"\[Mu]\"\>",
15677	RowBox[{"4", ",", "2"}]]}]], " ",
15678	SubscriptBox[
15679	RowBox[{
15680	SuperscriptBox["\[Gamma]",
15681	SubscriptBox["\<\"\[Mu]\"\>",
15682	RowBox[{"4", ",", "1"}]]], ".",
15683	SubscriptBox["P", "\<\"+\"\>"]}],
15684	RowBox[{
15685	SubscriptBox["\<\"s\"\>", "3"], ",",
15686	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15687	RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
15688	FractionBox[
15689	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15690	SubscriptBox["\[Kappa]", "q"], " ",
15691	SubscriptBox["\[Delta]",
15692	RowBox[{
15693	SubscriptBox["\<\"m\"\>", "2"], ",",
15694	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
15695	SubscriptBox["\[Eta]",
15696	RowBox[{
15697	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15698	SubscriptBox["\<\"\[Mu]\"\>",
15699	RowBox[{"4", ",", "1"}]]}]], " ",
15700	SubscriptBox[
15701	RowBox[{
15702	SuperscriptBox["\[Gamma]",
15703	SubscriptBox["\<\"\[Mu]\"\>",
15704	RowBox[{"4", ",", "2"}]]], ".",
15705	SubscriptBox["P", "\<\"-\"\>"]}],
15706	RowBox[{
15707	SubscriptBox["\<\"s\"\>", "3"], ",",
15708	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15709	RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
15710	FractionBox[
15711	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15712	SubscriptBox["\[Kappa]", "q"], " ",
15713	SubscriptBox["\[Delta]",
15714	RowBox[{
15715	SubscriptBox["\<\"m\"\>", "2"], ",",
15716	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
15717	SubscriptBox["\[Eta]",
15718	RowBox[{
15719	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15720	SubscriptBox["\<\"\[Mu]\"\>",
15721	RowBox[{"4", ",", "1"}]]}]], " ",
15722	SubscriptBox[
15723	RowBox[{
15724	SuperscriptBox["\[Gamma]",
15725	SubscriptBox["\<\"\[Mu]\"\>",
15726	RowBox[{"4", ",", "2"}]]], ".",
15727	SubscriptBox["P", "\<\"+\"\>"]}],
15728	RowBox[{
15729	SubscriptBox["\<\"s\"\>", "3"], ",",
15730	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15731	RowBox[{"3", " ", "\[CapitalLambda]"}]]}]], "Print",
15732	CellChangeTimes->{
15733	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15734	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15735	3.5811597507265253`*^9}],
15736
15737	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
15738	* * * * * *)\"\>"], "Print",
15739	CellChangeTimes->{
15740	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15741	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15742	3.581159750733665*^9}],
15743
15744	Cell[BoxData[
15745	InterpretationBox[
15746	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "98"}],
15747	SequenceForm["Vertex ", 98],
15748	Editable->False]], "Print",
15749	CellChangeTimes->{
15750	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15751	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15752	3.581159750738873*^9}],
15753
15754	Cell[BoxData[
15755	InterpretationBox[
15756	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
15757	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
15758	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
15759	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
15760	Editable->False]], "Print",
15761	CellChangeTimes->{
15762	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15763	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15764	3.5811597507436247`*^9}],
15765
15766	Cell[BoxData[
15767	InterpretationBox[
15768	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
15769	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15770	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
15771	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
15772	Editable->False]], "Print",
15773	CellChangeTimes->{
15774	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15775	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15776	3.5811597507487373`*^9}],
15777
15778	Cell[BoxData[
15779	InterpretationBox[
15780	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
15781	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15782	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
15783	OverscriptBox["t", "\<\"-\"\>"]}],
15784	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tbar],
15785	Editable->False]], "Print",
15786	CellChangeTimes->{
15787	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15788	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15789	3.5811597507538023`*^9}],
15790
15791	Cell[BoxData[
15792	InterpretationBox[
15793	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
15794	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
15795	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
15796	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
15797	Editable->False]], "Print",
15798	CellChangeTimes->{
15799	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15800	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15801	3.581159750758645*^9}],
15802
15803	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
15804	CellChangeTimes->{
15805	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15806	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15807	3.581159750763712*^9}],
15808
15809	Cell[BoxData[
15810	RowBox[{
15811	FractionBox[
15812	RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
15813	SubscriptBox["\[Kappa]", "q"], " ",
15814	SubscriptBox["\[Delta]",
15815	RowBox[{
15816	SubscriptBox["\<\"m\"\>", "2"], ",",
15817	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
15818	SubscriptBox["\[Eta]",
15819	RowBox[{
15820	SubscriptBox["\<\"\[Mu]\"\>",
15821	RowBox[{"4", ",", "1"}]], ",",
15822	SubscriptBox["\<\"\[Mu]\"\>",
15823	RowBox[{"4", ",", "2"}]]}]], " ",
15824	SubscriptBox[
15825	RowBox[{
15826	SuperscriptBox["\[Gamma]",
15827	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
15828	SubscriptBox["P", "\<\"-\"\>"]}],
15829	RowBox[{
15830	SubscriptBox["\<\"s\"\>", "3"], ",",
15831	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15832	RowBox[{"3", " ", "\[CapitalLambda]"}]], "+",
15833	FractionBox[
15834	RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
15835	SubscriptBox["\[Kappa]", "q"], " ",
15836	SubscriptBox["\[Delta]",
15837	RowBox[{
15838	SubscriptBox["\<\"m\"\>", "2"], ",",
15839	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
15840	SubscriptBox["\[Eta]",
15841	RowBox[{
15842	SubscriptBox["\<\"\[Mu]\"\>",
15843	RowBox[{"4", ",", "1"}]], ",",
15844	SubscriptBox["\<\"\[Mu]\"\>",
15845	RowBox[{"4", ",", "2"}]]}]], " ",
15846	SubscriptBox[
15847	RowBox[{
15848	SuperscriptBox["\[Gamma]",
15849	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
15850	SubscriptBox["P", "\<\"+\"\>"]}],
15851	RowBox[{
15852	SubscriptBox["\<\"s\"\>", "3"], ",",
15853	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15854	RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
15855	FractionBox[
15856	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15857	SubscriptBox["\[Kappa]", "q"], " ",
15858	SubscriptBox["\[Delta]",
15859	RowBox[{
15860	SubscriptBox["\<\"m\"\>", "2"], ",",
15861	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
15862	SubscriptBox["\[Eta]",
15863	RowBox[{
15864	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15865	SubscriptBox["\<\"\[Mu]\"\>",
15866	RowBox[{"4", ",", "2"}]]}]], " ",
15867	SubscriptBox[
15868	RowBox[{
15869	SuperscriptBox["\[Gamma]",
15870	SubscriptBox["\<\"\[Mu]\"\>",
15871	RowBox[{"4", ",", "1"}]]], ".",
15872	SubscriptBox["P", "\<\"-\"\>"]}],
15873	RowBox[{
15874	SubscriptBox["\<\"s\"\>", "3"], ",",
15875	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15876	RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
15877	FractionBox[
15878	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15879	SubscriptBox["\[Kappa]", "q"], " ",
15880	SubscriptBox["\[Delta]",
15881	RowBox[{
15882	SubscriptBox["\<\"m\"\>", "2"], ",",
15883	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
15884	SubscriptBox["\[Eta]",
15885	RowBox[{
15886	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15887	SubscriptBox["\<\"\[Mu]\"\>",
15888	RowBox[{"4", ",", "2"}]]}]], " ",
15889	SubscriptBox[
15890	RowBox[{
15891	SuperscriptBox["\[Gamma]",
15892	SubscriptBox["\<\"\[Mu]\"\>",
15893	RowBox[{"4", ",", "1"}]]], ".",
15894	SubscriptBox["P", "\<\"+\"\>"]}],
15895	RowBox[{
15896	SubscriptBox["\<\"s\"\>", "3"], ",",
15897	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15898	RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
15899	FractionBox[
15900	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15901	SubscriptBox["\[Kappa]", "q"], " ",
15902	SubscriptBox["\[Delta]",
15903	RowBox[{
15904	SubscriptBox["\<\"m\"\>", "2"], ",",
15905	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
15906	SubscriptBox["\[Eta]",
15907	RowBox[{
15908	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15909	SubscriptBox["\<\"\[Mu]\"\>",
15910	RowBox[{"4", ",", "1"}]]}]], " ",
15911	SubscriptBox[
15912	RowBox[{
15913	SuperscriptBox["\[Gamma]",
15914	SubscriptBox["\<\"\[Mu]\"\>",
15915	RowBox[{"4", ",", "2"}]]], ".",
15916	SubscriptBox["P", "\<\"-\"\>"]}],
15917	RowBox[{
15918	SubscriptBox["\<\"s\"\>", "3"], ",",
15919	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15920	RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
15921	FractionBox[
15922	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15923	SubscriptBox["\[Kappa]", "q"], " ",
15924	SubscriptBox["\[Delta]",
15925	RowBox[{
15926	SubscriptBox["\<\"m\"\>", "2"], ",",
15927	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
15928	SubscriptBox["\[Eta]",
15929	RowBox[{
15930	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
15931	SubscriptBox["\<\"\[Mu]\"\>",
15932	RowBox[{"4", ",", "1"}]]}]], " ",
15933	SubscriptBox[
15934	RowBox[{
15935	SuperscriptBox["\[Gamma]",
15936	SubscriptBox["\<\"\[Mu]\"\>",
15937	RowBox[{"4", ",", "2"}]]], ".",
15938	SubscriptBox["P", "\<\"+\"\>"]}],
15939	RowBox[{
15940	SubscriptBox["\<\"s\"\>", "3"], ",",
15941	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15942	RowBox[{"3", " ", "\[CapitalLambda]"}]]}]], "Print",
15943	CellChangeTimes->{
15944	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15945	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15946	3.581159750769335*^9}],
15947
15948	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
15949	* * * * * *)\"\>"], "Print",
15950	CellChangeTimes->{
15951	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15952	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15953	3.5811597507764072`*^9}],
15954
15955	Cell[BoxData[
15956	InterpretationBox[
15957	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "99"}],
15958	SequenceForm["Vertex ", 99],
15959	Editable->False]], "Print",
15960	CellChangeTimes->{
15961	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15962	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15963	3.581159750781233*^9}],
15964
15965	Cell[BoxData[
15966	InterpretationBox[
15967	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
15968	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
15969	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
15970	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
15971	Editable->False]], "Print",
15972	CellChangeTimes->{
15973	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15974	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15975	3.581159750786201*^9}],
15976
15977	Cell[BoxData[
15978	InterpretationBox[
15979	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
15980	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15981	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
15982	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
15983	Editable->False]], "Print",
15984	CellChangeTimes->{
15985	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15986	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
15987	3.581159750791093*^9}],
15988
15989	Cell[BoxData[
15990	InterpretationBox[
15991	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
15992	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15993	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
15994	OverscriptBox["u", "\<\"-\"\>"]}],
15995	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
15996	Editable->False]], "Print",
15997	CellChangeTimes->{
15998	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
15999	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16000	3.581159750796041*^9}],
16001
16002	Cell[BoxData[
16003	InterpretationBox[
16004	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
16005	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
16006	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
16007	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
16008	Editable->False]], "Print",
16009	CellChangeTimes->{
16010	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16011	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16012	3.5811597508249407`*^9}],
16013
16014	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
16015	CellChangeTimes->{
16016	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16017	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16018	3.581159750829933*^9}],
16019
16020	Cell[BoxData[
16021	RowBox[{
16022	FractionBox[
16023	RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
16024	SubscriptBox["\[Kappa]", "q"], " ",
16025	SubscriptBox["\[Delta]",
16026	RowBox[{
16027	SubscriptBox["\<\"m\"\>", "2"], ",",
16028	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
16029	SubscriptBox["\[Eta]",
16030	RowBox[{
16031	SubscriptBox["\<\"\[Mu]\"\>",
16032	RowBox[{"4", ",", "1"}]], ",",
16033	SubscriptBox["\<\"\[Mu]\"\>",
16034	RowBox[{"4", ",", "2"}]]}]], " ",
16035	SubscriptBox[
16036	RowBox[{
16037	SuperscriptBox["\[Gamma]",
16038	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
16039	SubscriptBox["P", "\<\"-\"\>"]}],
16040	RowBox[{
16041	SubscriptBox["\<\"s\"\>", "3"], ",",
16042	SubscriptBox["\<\"s\"\>", "2"]}]]}],
16043	RowBox[{"3", " ", "\[CapitalLambda]"}]], "+",
16044	FractionBox[
16045	RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
16046	SubscriptBox["\[Kappa]", "q"], " ",
16047	SubscriptBox["\[Delta]",
16048	RowBox[{
16049	SubscriptBox["\<\"m\"\>", "2"], ",",
16050	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
16051	SubscriptBox["\[Eta]",
16052	RowBox[{
16053	SubscriptBox["\<\"\[Mu]\"\>",
16054	RowBox[{"4", ",", "1"}]], ",",
16055	SubscriptBox["\<\"\[Mu]\"\>",
16056	RowBox[{"4", ",", "2"}]]}]], " ",
16057	SubscriptBox[
16058	RowBox[{
16059	SuperscriptBox["\[Gamma]",
16060	SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
16061	SubscriptBox["P", "\<\"+\"\>"]}],
16062	RowBox[{
16063	SubscriptBox["\<\"s\"\>", "3"], ",",
16064	SubscriptBox["\<\"s\"\>", "2"]}]]}],
16065	RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
16066	FractionBox[
16067	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16068	SubscriptBox["\[Kappa]", "q"], " ",
16069	SubscriptBox["\[Delta]",
16070	RowBox[{
16071	SubscriptBox["\<\"m\"\>", "2"], ",",
16072	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
16073	SubscriptBox["\[Eta]",
16074	RowBox[{
16075	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
16076	SubscriptBox["\<\"\[Mu]\"\>",
16077	RowBox[{"4", ",", "2"}]]}]], " ",
16078	SubscriptBox[
16079	RowBox[{
16080	SuperscriptBox["\[Gamma]",
16081	SubscriptBox["\<\"\[Mu]\"\>",
16082	RowBox[{"4", ",", "1"}]]], ".",
16083	SubscriptBox["P", "\<\"-\"\>"]}],
16084	RowBox[{
16085	SubscriptBox["\<\"s\"\>", "3"], ",",
16086	SubscriptBox["\<\"s\"\>", "2"]}]]}],
16087	RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
16088	FractionBox[
16089	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16090	SubscriptBox["\[Kappa]", "q"], " ",
16091	SubscriptBox["\[Delta]",
16092	RowBox[{
16093	SubscriptBox["\<\"m\"\>", "2"], ",",
16094	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
16095	SubscriptBox["\[Eta]",
16096	RowBox[{
16097	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
16098	SubscriptBox["\<\"\[Mu]\"\>",
16099	RowBox[{"4", ",", "2"}]]}]], " ",
16100	SubscriptBox[
16101	RowBox[{
16102	SuperscriptBox["\[Gamma]",
16103	SubscriptBox["\<\"\[Mu]\"\>",
16104	RowBox[{"4", ",", "1"}]]], ".",
16105	SubscriptBox["P", "\<\"+\"\>"]}],
16106	RowBox[{
16107	SubscriptBox["\<\"s\"\>", "3"], ",",
16108	SubscriptBox["\<\"s\"\>", "2"]}]]}],
16109	RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
16110	FractionBox[
16111	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16112	SubscriptBox["\[Kappa]", "q"], " ",
16113	SubscriptBox["\[Delta]",
16114	RowBox[{
16115	SubscriptBox["\<\"m\"\>", "2"], ",",
16116	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
16117	SubscriptBox["\[Eta]",
16118	RowBox[{
16119	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
16120	SubscriptBox["\<\"\[Mu]\"\>",
16121	RowBox[{"4", ",", "1"}]]}]], " ",
16122	SubscriptBox[
16123	RowBox[{
16124	SuperscriptBox["\[Gamma]",
16125	SubscriptBox["\<\"\[Mu]\"\>",
16126	RowBox[{"4", ",", "2"}]]], ".",
16127	SubscriptBox["P", "\<\"-\"\>"]}],
16128	RowBox[{
16129	SubscriptBox["\<\"s\"\>", "3"], ",",
16130	SubscriptBox["\<\"s\"\>", "2"]}]]}],
16131	RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
16132	FractionBox[
16133	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16134	SubscriptBox["\[Kappa]", "q"], " ",
16135	SubscriptBox["\[Delta]",
16136	RowBox[{
16137	SubscriptBox["\<\"m\"\>", "2"], ",",
16138	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
16139	SubscriptBox["\[Eta]",
16140	RowBox[{
16141	SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
16142	SubscriptBox["\<\"\[Mu]\"\>",
16143	RowBox[{"4", ",", "1"}]]}]], " ",
16144	SubscriptBox[
16145	RowBox[{
16146	SuperscriptBox["\[Gamma]",
16147	SubscriptBox["\<\"\[Mu]\"\>",
16148	RowBox[{"4", ",", "2"}]]], ".",
16149	SubscriptBox["P", "\<\"+\"\>"]}],
16150	RowBox[{
16151	SubscriptBox["\<\"s\"\>", "3"], ",",
16152	SubscriptBox["\<\"s\"\>", "2"]}]]}],
16153	RowBox[{"3", " ", "\[CapitalLambda]"}]]}]], "Print",
16154	CellChangeTimes->{
16155	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16156	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16157	3.58115975083565*^9}],
16158
16159	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16160	* * * * * *)\"\>"], "Print",
16161	CellChangeTimes->{
16162	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16163	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16164	3.5811597508430243`*^9}],
16165
16166	Cell[BoxData[
16167	InterpretationBox[
16168	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "100"}],
16169	SequenceForm["Vertex ", 100],
16170	Editable->False]], "Print",
16171	CellChangeTimes->{
16172	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16173	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16174	3.581159750848928*^9}],
16175
16176	Cell[BoxData[
16177	InterpretationBox[
16178	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16179	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16180	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
16181	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
16182	Editable->False]], "Print",
16183	CellChangeTimes->{
16184	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16185	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16186	3.581159750854855*^9}],
16187
16188	Cell[BoxData[
16189	InterpretationBox[
16190	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16191	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16192	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16193	OverscriptBox["ve", "\<\"-\"\>"]}],
16194	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
16195	Editable->False]], "Print",
16196	CellChangeTimes->{
16197	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16198	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16199	3.5811597508602324`*^9}],
16200
16201	Cell[BoxData[
16202	InterpretationBox[
16203	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16204	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
16205	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
16206	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
16207	Editable->False]], "Print",
16208	CellChangeTimes->{
16209	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16210	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16211	3.581159750865341*^9}],
16212
16213	Cell[BoxData[
16214	InterpretationBox[
16215	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
16216	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
16217	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
16218	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
16219	Editable->False]], "Print",
16220	CellChangeTimes->{
16221	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16222	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16223	3.581159750870594*^9}],
16224
16225	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
16226	CellChangeTimes->{
16227	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16228	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16229	3.581159750875499*^9}],
16230
16231	Cell[BoxData[
16232	RowBox[{
16233	FractionBox[
16234	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16235	SubscriptBox["\[Kappa]", "l"], " ",
16236	SubscriptBox["\[Eta]",
16237	RowBox[{
16238	SubscriptBox["\<\"\[Mu]\"\>",
16239	RowBox[{"4", ",", "1"}]], ",",
16240	SubscriptBox["\<\"\[Mu]\"\>",
16241	RowBox[{"4", ",", "2"}]]}]], " ",
16242	SubscriptBox[
16243	RowBox[{
16244	SuperscriptBox["\[Gamma]",
16245	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
16246	SubscriptBox["P", "\<\"-\"\>"]}],
16247	RowBox[{
16248	SubscriptBox["\<\"s\"\>", "2"], ",",
16249	SubscriptBox["\<\"s\"\>", "1"]}]]}],
16250	RowBox[{
16251	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16252	SubscriptBox["s", "w"]}]], "-",
16253	FractionBox[
16254	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16255	SubscriptBox["\[Kappa]", "l"], " ",
16256	SubscriptBox["\[Eta]",
16257	RowBox[{
16258	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
16259	SubscriptBox["\<\"\[Mu]\"\>",
16260	RowBox[{"4", ",", "2"}]]}]], " ",
16261	SubscriptBox[
16262	RowBox[{
16263	SuperscriptBox["\[Gamma]",
16264	SubscriptBox["\<\"\[Mu]\"\>",
16265	RowBox[{"4", ",", "1"}]]], ".",
16266	SubscriptBox["P", "\<\"-\"\>"]}],
16267	RowBox[{
16268	SubscriptBox["\<\"s\"\>", "2"], ",",
16269	SubscriptBox["\<\"s\"\>", "1"]}]]}],
16270	RowBox[{"2", " ",
16271	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16272	SubscriptBox["s", "w"]}]], "-",
16273	FractionBox[
16274	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16275	SubscriptBox["\[Kappa]", "l"], " ",
16276	SubscriptBox["\[Eta]",
16277	RowBox[{
16278	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
16279	SubscriptBox["\<\"\[Mu]\"\>",
16280	RowBox[{"4", ",", "1"}]]}]], " ",
16281	SubscriptBox[
16282	RowBox[{
16283	SuperscriptBox["\[Gamma]",
16284	SubscriptBox["\<\"\[Mu]\"\>",
16285	RowBox[{"4", ",", "2"}]]], ".",
16286	SubscriptBox["P", "\<\"-\"\>"]}],
16287	RowBox[{
16288	SubscriptBox["\<\"s\"\>", "2"], ",",
16289	SubscriptBox["\<\"s\"\>", "1"]}]]}],
16290	RowBox[{"2", " ",
16291	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16292	SubscriptBox["s", "w"]}]]}]], "Print",
16293	CellChangeTimes->{
16294	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16295	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16296	3.581159750880908*^9}],
16297
16298	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16299	* * * * * *)\"\>"], "Print",
16300	CellChangeTimes->{
16301	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16302	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16303	3.581159750887109*^9}],
16304
16305	Cell[BoxData[
16306	InterpretationBox[
16307	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "101"}],
16308	SequenceForm["Vertex ", 101],
16309	Editable->False]], "Print",
16310	CellChangeTimes->{
16311	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16312	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16313	3.5811597508924103`*^9}],
16314
16315	Cell[BoxData[
16316	InterpretationBox[
16317	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16318	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16319	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
16320	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
16321	Editable->False]], "Print",
16322	CellChangeTimes->{
16323	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16324	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16325	3.581159750897233*^9}],
16326
16327	Cell[BoxData[
16328	InterpretationBox[
16329	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16330	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16331	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16332	OverscriptBox["vm", "\<\"-\"\>"]}],
16333	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
16334	Editable->False]], "Print",
16335	CellChangeTimes->{
16336	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16337	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16338	3.581159750902163*^9}],
16339
16340	Cell[BoxData[
16341	InterpretationBox[
16342	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16343	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
16344	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
16345	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
16346	Editable->False]], "Print",
16347	CellChangeTimes->{
16348	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16349	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16350	3.581159750907178*^9}],
16351
16352	Cell[BoxData[
16353	InterpretationBox[
16354	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
16355	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
16356	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
16357	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
16358	Editable->False]], "Print",
16359	CellChangeTimes->{
16360	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16361	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16362	3.581159750912505*^9}],
16363
16364	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
16365	CellChangeTimes->{
16366	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16367	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16368	3.5811597509187183`*^9}],
16369
16370	Cell[BoxData[
16371	RowBox[{
16372	FractionBox[
16373	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16374	SubscriptBox["\[Kappa]", "l"], " ",
16375	SubscriptBox["\[Eta]",
16376	RowBox[{
16377	SubscriptBox["\<\"\[Mu]\"\>",
16378	RowBox[{"4", ",", "1"}]], ",",
16379	SubscriptBox["\<\"\[Mu]\"\>",
16380	RowBox[{"4", ",", "2"}]]}]], " ",
16381	SubscriptBox[
16382	RowBox[{
16383	SuperscriptBox["\[Gamma]",
16384	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
16385	SubscriptBox["P", "\<\"-\"\>"]}],
16386	RowBox[{
16387	SubscriptBox["\<\"s\"\>", "2"], ",",
16388	SubscriptBox["\<\"s\"\>", "1"]}]]}],
16389	RowBox[{
16390	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16391	SubscriptBox["s", "w"]}]], "-",
16392	FractionBox[
16393	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16394	SubscriptBox["\[Kappa]", "l"], " ",
16395	SubscriptBox["\[Eta]",
16396	RowBox[{
16397	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
16398	SubscriptBox["\<\"\[Mu]\"\>",
16399	RowBox[{"4", ",", "2"}]]}]], " ",
16400	SubscriptBox[
16401	RowBox[{
16402	SuperscriptBox["\[Gamma]",
16403	SubscriptBox["\<\"\[Mu]\"\>",
16404	RowBox[{"4", ",", "1"}]]], ".",
16405	SubscriptBox["P", "\<\"-\"\>"]}],
16406	RowBox[{
16407	SubscriptBox["\<\"s\"\>", "2"], ",",
16408	SubscriptBox["\<\"s\"\>", "1"]}]]}],
16409	RowBox[{"2", " ",
16410	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16411	SubscriptBox["s", "w"]}]], "-",
16412	FractionBox[
16413	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16414	SubscriptBox["\[Kappa]", "l"], " ",
16415	SubscriptBox["\[Eta]",
16416	RowBox[{
16417	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
16418	SubscriptBox["\<\"\[Mu]\"\>",
16419	RowBox[{"4", ",", "1"}]]}]], " ",
16420	SubscriptBox[
16421	RowBox[{
16422	SuperscriptBox["\[Gamma]",
16423	SubscriptBox["\<\"\[Mu]\"\>",
16424	RowBox[{"4", ",", "2"}]]], ".",
16425	SubscriptBox["P", "\<\"-\"\>"]}],
16426	RowBox[{
16427	SubscriptBox["\<\"s\"\>", "2"], ",",
16428	SubscriptBox["\<\"s\"\>", "1"]}]]}],
16429	RowBox[{"2", " ",
16430	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16431	SubscriptBox["s", "w"]}]]}]], "Print",
16432	CellChangeTimes->{
16433	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16434	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16435	3.581159750925975*^9}],
16436
16437	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16438	* * * * * *)\"\>"], "Print",
16439	CellChangeTimes->{
16440	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16441	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16442	3.581159750932148*^9}],
16443
16444	Cell[BoxData[
16445	InterpretationBox[
16446	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "102"}],
16447	SequenceForm["Vertex ", 102],
16448	Editable->False]], "Print",
16449	CellChangeTimes->{
16450	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16451	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16452	3.581159750937517*^9}],
16453
16454	Cell[BoxData[
16455	InterpretationBox[
16456	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16457	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16458	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
16459	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
16460	Editable->False]], "Print",
16461	CellChangeTimes->{
16462	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16463	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16464	3.581159750942732*^9}],
16465
16466	Cell[BoxData[
16467	InterpretationBox[
16468	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16469	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16470	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16471	OverscriptBox["vt", "\<\"-\"\>"]}],
16472	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
16473	Editable->False]], "Print",
16474	CellChangeTimes->{
16475	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16476	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16477	3.581159750948492*^9}],
16478
16479	Cell[BoxData[
16480	InterpretationBox[
16481	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16482	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
16483	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
16484	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
16485	Editable->False]], "Print",
16486	CellChangeTimes->{
16487	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16488	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16489	3.581159750953829*^9}],
16490
16491	Cell[BoxData[
16492	InterpretationBox[
16493	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
16494	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
16495	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
16496	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
16497	Editable->False]], "Print",
16498	CellChangeTimes->{
16499	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16500	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16501	3.581159750959221*^9}],
16502
16503	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
16504	CellChangeTimes->{
16505	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16506	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16507	3.581159750964243*^9}],
16508
16509	Cell[BoxData[
16510	RowBox[{
16511	FractionBox[
16512	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16513	SubscriptBox["\[Kappa]", "l"], " ",
16514	SubscriptBox["\[Eta]",
16515	RowBox[{
16516	SubscriptBox["\<\"\[Mu]\"\>",
16517	RowBox[{"4", ",", "1"}]], ",",
16518	SubscriptBox["\<\"\[Mu]\"\>",
16519	RowBox[{"4", ",", "2"}]]}]], " ",
16520	SubscriptBox[
16521	RowBox[{
16522	SuperscriptBox["\[Gamma]",
16523	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
16524	SubscriptBox["P", "\<\"-\"\>"]}],
16525	RowBox[{
16526	SubscriptBox["\<\"s\"\>", "2"], ",",
16527	SubscriptBox["\<\"s\"\>", "1"]}]]}],
16528	RowBox[{
16529	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16530	SubscriptBox["s", "w"]}]], "-",
16531	FractionBox[
16532	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16533	SubscriptBox["\[Kappa]", "l"], " ",
16534	SubscriptBox["\[Eta]",
16535	RowBox[{
16536	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
16537	SubscriptBox["\<\"\[Mu]\"\>",
16538	RowBox[{"4", ",", "2"}]]}]], " ",
16539	SubscriptBox[
16540	RowBox[{
16541	SuperscriptBox["\[Gamma]",
16542	SubscriptBox["\<\"\[Mu]\"\>",
16543	RowBox[{"4", ",", "1"}]]], ".",
16544	SubscriptBox["P", "\<\"-\"\>"]}],
16545	RowBox[{
16546	SubscriptBox["\<\"s\"\>", "2"], ",",
16547	SubscriptBox["\<\"s\"\>", "1"]}]]}],
16548	RowBox[{"2", " ",
16549	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16550	SubscriptBox["s", "w"]}]], "-",
16551	FractionBox[
16552	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16553	SubscriptBox["\[Kappa]", "l"], " ",
16554	SubscriptBox["\[Eta]",
16555	RowBox[{
16556	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
16557	SubscriptBox["\<\"\[Mu]\"\>",
16558	RowBox[{"4", ",", "1"}]]}]], " ",
16559	SubscriptBox[
16560	RowBox[{
16561	SuperscriptBox["\[Gamma]",
16562	SubscriptBox["\<\"\[Mu]\"\>",
16563	RowBox[{"4", ",", "2"}]]], ".",
16564	SubscriptBox["P", "\<\"-\"\>"]}],
16565	RowBox[{
16566	SubscriptBox["\<\"s\"\>", "2"], ",",
16567	SubscriptBox["\<\"s\"\>", "1"]}]]}],
16568	RowBox[{"2", " ",
16569	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16570	SubscriptBox["s", "w"]}]]}]], "Print",
16571	CellChangeTimes->{
16572	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16573	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16574	3.581159750969573*^9}],
16575
16576	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16577	* * * * * *)\"\>"], "Print",
16578	CellChangeTimes->{
16579	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16580	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16581	3.581159750975477*^9}],
16582
16583	Cell[BoxData[
16584	InterpretationBox[
16585	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "103"}],
16586	SequenceForm["Vertex ", 103],
16587	Editable->False]], "Print",
16588	CellChangeTimes->{
16589	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16590	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16591	3.581159750983247*^9}],
16592
16593	Cell[BoxData[
16594	InterpretationBox[
16595	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16596	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16597	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16598	OverscriptBox["c", "\<\"-\"\>"]}],
16599	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
16600	Editable->False]], "Print",
16601	CellChangeTimes->{
16602	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16603	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16604	3.581159750990361*^9}],
16605
16606	Cell[BoxData[
16607	InterpretationBox[
16608	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16609	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16610	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
16611	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
16612	Editable->False]], "Print",
16613	CellChangeTimes->{
16614	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16615	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16616	3.5811597510145807`*^9}],
16617
16618	Cell[BoxData[
16619	InterpretationBox[
16620	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16621	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
16622	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
16623	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
16624	Editable->False]], "Print",
16625	CellChangeTimes->{
16626	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16627	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16628	3.581159751030657*^9}],
16629
16630	Cell[BoxData[
16631	InterpretationBox[
16632	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
16633	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
16634	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
16635	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
16636	Editable->False]], "Print",
16637	CellChangeTimes->{
16638	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16639	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16640	3.5811597510379*^9}],
16641
16642	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
16643	CellChangeTimes->{
16644	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16645	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16646	3.581159751056653*^9}],
16647
16648	Cell[BoxData[
16649	RowBox[{
16650	FractionBox[
16651	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16652	SubscriptBox["\[Kappa]", "q"], " ",
16653	SubscriptBox[
16654	TemplateBox[{"V","CKM"},
16655	"Superscript"],
16656	RowBox[{"2", ",", "1"}]], " ",
16657	SubscriptBox["\[Delta]",
16658	RowBox[{
16659	SubscriptBox["\<\"m\"\>", "1"], ",",
16660	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
16661	SubscriptBox["\[Eta]",
16662	RowBox[{
16663	SubscriptBox["\<\"\[Mu]\"\>",
16664	RowBox[{"4", ",", "1"}]], ",",
16665	SubscriptBox["\<\"\[Mu]\"\>",
16666	RowBox[{"4", ",", "2"}]]}]], " ",
16667	SubscriptBox[
16668	RowBox[{
16669	SuperscriptBox["\[Gamma]",
16670	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
16671	SubscriptBox["P", "\<\"-\"\>"]}],
16672	RowBox[{
16673	SubscriptBox["\<\"s\"\>", "1"], ",",
16674	SubscriptBox["\<\"s\"\>", "2"]}]]}],
16675	RowBox[{
16676	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16677	SubscriptBox["s", "w"]}]], "-",
16678	FractionBox[
16679	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16680	SubscriptBox["\[Kappa]", "q"], " ",
16681	SubscriptBox[
16682	TemplateBox[{"V","CKM"},
16683	"Superscript"],
16684	RowBox[{"2", ",", "1"}]], " ",
16685	SubscriptBox["\[Delta]",
16686	RowBox[{
16687	SubscriptBox["\<\"m\"\>", "1"], ",",
16688	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
16689	SubscriptBox["\[Eta]",
16690	RowBox[{
16691	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
16692	SubscriptBox["\<\"\[Mu]\"\>",
16693	RowBox[{"4", ",", "2"}]]}]], " ",
16694	SubscriptBox[
16695	RowBox[{
16696	SuperscriptBox["\[Gamma]",
16697	SubscriptBox["\<\"\[Mu]\"\>",
16698	RowBox[{"4", ",", "1"}]]], ".",
16699	SubscriptBox["P", "\<\"-\"\>"]}],
16700	RowBox[{
16701	SubscriptBox["\<\"s\"\>", "1"], ",",
16702	SubscriptBox["\<\"s\"\>", "2"]}]]}],
16703	RowBox[{"2", " ",
16704	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16705	SubscriptBox["s", "w"]}]], "-",
16706	FractionBox[
16707	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16708	SubscriptBox["\[Kappa]", "q"], " ",
16709	SubscriptBox[
16710	TemplateBox[{"V","CKM"},
16711	"Superscript"],
16712	RowBox[{"2", ",", "1"}]], " ",
16713	SubscriptBox["\[Delta]",
16714	RowBox[{
16715	SubscriptBox["\<\"m\"\>", "1"], ",",
16716	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
16717	SubscriptBox["\[Eta]",
16718	RowBox[{
16719	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
16720	SubscriptBox["\<\"\[Mu]\"\>",
16721	RowBox[{"4", ",", "1"}]]}]], " ",
16722	SubscriptBox[
16723	RowBox[{
16724	SuperscriptBox["\[Gamma]",
16725	SubscriptBox["\<\"\[Mu]\"\>",
16726	RowBox[{"4", ",", "2"}]]], ".",
16727	SubscriptBox["P", "\<\"-\"\>"]}],
16728	RowBox[{
16729	SubscriptBox["\<\"s\"\>", "1"], ",",
16730	SubscriptBox["\<\"s\"\>", "2"]}]]}],
16731	RowBox[{"2", " ",
16732	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16733	SubscriptBox["s", "w"]}]]}]], "Print",
16734	CellChangeTimes->{
16735	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16736	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16737	3.581159751077548*^9}],
16738
16739	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16740	* * * * * *)\"\>"], "Print",
16741	CellChangeTimes->{
16742	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16743	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16744	3.581159751099436*^9}],
16745
16746	Cell[BoxData[
16747	InterpretationBox[
16748	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "104"}],
16749	SequenceForm["Vertex ", 104],
16750	Editable->False]], "Print",
16751	CellChangeTimes->{
16752	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16753	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16754	3.5811597511043453`*^9}],
16755
16756	Cell[BoxData[
16757	InterpretationBox[
16758	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16759	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16760	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16761	OverscriptBox["c", "\<\"-\"\>"]}],
16762	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
16763	Editable->False]], "Print",
16764	CellChangeTimes->{
16765	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16766	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16767	3.5811597511096487`*^9}],
16768
16769	Cell[BoxData[
16770	InterpretationBox[
16771	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16772	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16773	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
16774	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
16775	Editable->False]], "Print",
16776	CellChangeTimes->{
16777	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16778	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16779	3.581159751115182*^9}],
16780
16781	Cell[BoxData[
16782	InterpretationBox[
16783	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16784	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
16785	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
16786	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
16787	Editable->False]], "Print",
16788	CellChangeTimes->{
16789	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16790	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16791	3.58115975112*^9}],
16792
16793	Cell[BoxData[
16794	InterpretationBox[
16795	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
16796	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
16797	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
16798	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
16799	Editable->False]], "Print",
16800	CellChangeTimes->{
16801	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16802	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16803	3.581159751124807*^9}],
16804
16805	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
16806	CellChangeTimes->{
16807	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16808	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16809	3.581159751129573*^9}],
16810
16811	Cell[BoxData[
16812	RowBox[{
16813	FractionBox[
16814	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16815	SubscriptBox["\[Kappa]", "q"], " ",
16816	SubscriptBox[
16817	TemplateBox[{"V","CKM"},
16818	"Superscript"],
16819	RowBox[{"2", ",", "2"}]], " ",
16820	SubscriptBox["\[Delta]",
16821	RowBox[{
16822	SubscriptBox["\<\"m\"\>", "1"], ",",
16823	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
16824	SubscriptBox["\[Eta]",
16825	RowBox[{
16826	SubscriptBox["\<\"\[Mu]\"\>",
16827	RowBox[{"4", ",", "1"}]], ",",
16828	SubscriptBox["\<\"\[Mu]\"\>",
16829	RowBox[{"4", ",", "2"}]]}]], " ",
16830	SubscriptBox[
16831	RowBox[{
16832	SuperscriptBox["\[Gamma]",
16833	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
16834	SubscriptBox["P", "\<\"-\"\>"]}],
16835	RowBox[{
16836	SubscriptBox["\<\"s\"\>", "1"], ",",
16837	SubscriptBox["\<\"s\"\>", "2"]}]]}],
16838	RowBox[{
16839	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16840	SubscriptBox["s", "w"]}]], "-",
16841	FractionBox[
16842	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16843	SubscriptBox["\[Kappa]", "q"], " ",
16844	SubscriptBox[
16845	TemplateBox[{"V","CKM"},
16846	"Superscript"],
16847	RowBox[{"2", ",", "2"}]], " ",
16848	SubscriptBox["\[Delta]",
16849	RowBox[{
16850	SubscriptBox["\<\"m\"\>", "1"], ",",
16851	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
16852	SubscriptBox["\[Eta]",
16853	RowBox[{
16854	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
16855	SubscriptBox["\<\"\[Mu]\"\>",
16856	RowBox[{"4", ",", "2"}]]}]], " ",
16857	SubscriptBox[
16858	RowBox[{
16859	SuperscriptBox["\[Gamma]",
16860	SubscriptBox["\<\"\[Mu]\"\>",
16861	RowBox[{"4", ",", "1"}]]], ".",
16862	SubscriptBox["P", "\<\"-\"\>"]}],
16863	RowBox[{
16864	SubscriptBox["\<\"s\"\>", "1"], ",",
16865	SubscriptBox["\<\"s\"\>", "2"]}]]}],
16866	RowBox[{"2", " ",
16867	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16868	SubscriptBox["s", "w"]}]], "-",
16869	FractionBox[
16870	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16871	SubscriptBox["\[Kappa]", "q"], " ",
16872	SubscriptBox[
16873	TemplateBox[{"V","CKM"},
16874	"Superscript"],
16875	RowBox[{"2", ",", "2"}]], " ",
16876	SubscriptBox["\[Delta]",
16877	RowBox[{
16878	SubscriptBox["\<\"m\"\>", "1"], ",",
16879	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
16880	SubscriptBox["\[Eta]",
16881	RowBox[{
16882	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
16883	SubscriptBox["\<\"\[Mu]\"\>",
16884	RowBox[{"4", ",", "1"}]]}]], " ",
16885	SubscriptBox[
16886	RowBox[{
16887	SuperscriptBox["\[Gamma]",
16888	SubscriptBox["\<\"\[Mu]\"\>",
16889	RowBox[{"4", ",", "2"}]]], ".",
16890	SubscriptBox["P", "\<\"-\"\>"]}],
16891	RowBox[{
16892	SubscriptBox["\<\"s\"\>", "1"], ",",
16893	SubscriptBox["\<\"s\"\>", "2"]}]]}],
16894	RowBox[{"2", " ",
16895	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16896	SubscriptBox["s", "w"]}]]}]], "Print",
16897	CellChangeTimes->{
16898	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16899	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16900	3.581159751134987*^9}],
16901
16902	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16903	* * * * * *)\"\>"], "Print",
16904	CellChangeTimes->{
16905	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16906	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16907	3.581159751143427*^9}],
16908
16909	Cell[BoxData[
16910	InterpretationBox[
16911	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "105"}],
16912	SequenceForm["Vertex ", 105],
16913	Editable->False]], "Print",
16914	CellChangeTimes->{
16915	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16916	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16917	3.581159751150565*^9}],
16918
16919	Cell[BoxData[
16920	InterpretationBox[
16921	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16922	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16923	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
16924	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
16925	Editable->False]], "Print",
16926	CellChangeTimes->{
16927	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16928	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16929	3.581159751157159*^9}],
16930
16931	Cell[BoxData[
16932	InterpretationBox[
16933	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16934	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16935	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16936	OverscriptBox["t", "\<\"-\"\>"]}],
16937	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
16938	Editable->False]], "Print",
16939	CellChangeTimes->{
16940	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16941	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16942	3.581159751165197*^9}],
16943
16944	Cell[BoxData[
16945	InterpretationBox[
16946	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16947	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
16948	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
16949	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
16950	Editable->False]], "Print",
16951	CellChangeTimes->{
16952	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16953	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16954	3.5811597511717587`*^9}],
16955
16956	Cell[BoxData[
16957	InterpretationBox[
16958	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
16959	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
16960	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
16961	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
16962	Editable->False]], "Print",
16963	CellChangeTimes->{
16964	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16965	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16966	3.5811597511835957`*^9}],
16967
16968	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
16969	CellChangeTimes->{
16970	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
16971	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
16972	3.581159751189735*^9}],
16973
16974	Cell[BoxData[
16975	RowBox[{
16976	FractionBox[
16977	RowBox[{"\[ImaginaryI]", " ", "e", " ",
16978	SubscriptBox["\[Kappa]", "q"], " ",
16979	SubscriptBox["\[Delta]",
16980	RowBox[{
16981	SubscriptBox["\<\"m\"\>", "1"], ",",
16982	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
16983	SubscriptBox["\[Eta]",
16984	RowBox[{
16985	SubscriptBox["\<\"\[Mu]\"\>",
16986	RowBox[{"4", ",", "1"}]], ",",
16987	SubscriptBox["\<\"\[Mu]\"\>",
16988	RowBox[{"4", ",", "2"}]]}]], " ",
16989	SubscriptBox[
16990	RowBox[{
16991	SuperscriptBox["\[Gamma]",
16992	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
16993	SubscriptBox["P", "\<\"-\"\>"]}],
16994	RowBox[{
16995	SubscriptBox["\<\"s\"\>", "2"], ",",
16996	SubscriptBox["\<\"s\"\>", "1"]}]]}],
16997	RowBox[{
16998	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
16999	SubscriptBox["s", "w"]}]], "-",
17000	FractionBox[
17001	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17002	SubscriptBox["\[Kappa]", "q"], " ",
17003	SubscriptBox["\[Delta]",
17004	RowBox[{
17005	SubscriptBox["\<\"m\"\>", "1"], ",",
17006	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
17007	SubscriptBox["\[Eta]",
17008	RowBox[{
17009	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17010	SubscriptBox["\<\"\[Mu]\"\>",
17011	RowBox[{"4", ",", "2"}]]}]], " ",
17012	SubscriptBox[
17013	RowBox[{
17014	SuperscriptBox["\[Gamma]",
17015	SubscriptBox["\<\"\[Mu]\"\>",
17016	RowBox[{"4", ",", "1"}]]], ".",
17017	SubscriptBox["P", "\<\"-\"\>"]}],
17018	RowBox[{
17019	SubscriptBox["\<\"s\"\>", "2"], ",",
17020	SubscriptBox["\<\"s\"\>", "1"]}]]}],
17021	RowBox[{"2", " ",
17022	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17023	SubscriptBox["s", "w"]}]], "-",
17024	FractionBox[
17025	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17026	SubscriptBox["\[Kappa]", "q"], " ",
17027	SubscriptBox["\[Delta]",
17028	RowBox[{
17029	SubscriptBox["\<\"m\"\>", "1"], ",",
17030	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
17031	SubscriptBox["\[Eta]",
17032	RowBox[{
17033	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17034	SubscriptBox["\<\"\[Mu]\"\>",
17035	RowBox[{"4", ",", "1"}]]}]], " ",
17036	SubscriptBox[
17037	RowBox[{
17038	SuperscriptBox["\[Gamma]",
17039	SubscriptBox["\<\"\[Mu]\"\>",
17040	RowBox[{"4", ",", "2"}]]], ".",
17041	SubscriptBox["P", "\<\"-\"\>"]}],
17042	RowBox[{
17043	SubscriptBox["\<\"s\"\>", "2"], ",",
17044	SubscriptBox["\<\"s\"\>", "1"]}]]}],
17045	RowBox[{"2", " ",
17046	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17047	SubscriptBox["s", "w"]}]]}]], "Print",
17048	CellChangeTimes->{
17049	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17050	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17051	3.581159751196775*^9}],
17052
17053	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17054	* * * * * *)\"\>"], "Print",
17055	CellChangeTimes->{
17056	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17057	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17058	3.581159751229733*^9}],
17059
17060	Cell[BoxData[
17061	InterpretationBox[
17062	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "106"}],
17063	SequenceForm["Vertex ", 106],
17064	Editable->False]], "Print",
17065	CellChangeTimes->{
17066	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17067	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17068	3.581159751246744*^9}],
17069
17070	Cell[BoxData[
17071	InterpretationBox[
17072	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17073	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17074	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
17075	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
17076	Editable->False]], "Print",
17077	CellChangeTimes->{
17078	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17079	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17080	3.5811597512527037`*^9}],
17081
17082	Cell[BoxData[
17083	InterpretationBox[
17084	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17085	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17086	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17087	OverscriptBox["u", "\<\"-\"\>"]}],
17088	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
17089	Editable->False]], "Print",
17090	CellChangeTimes->{
17091	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17092	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17093	3.581159751269352*^9}],
17094
17095	Cell[BoxData[
17096	InterpretationBox[
17097	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17098	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17099	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
17100	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
17101	Editable->False]], "Print",
17102	CellChangeTimes->{
17103	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17104	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17105	3.581159751285987*^9}],
17106
17107	Cell[BoxData[
17108	InterpretationBox[
17109	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
17110	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
17111	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
17112	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
17113	Editable->False]], "Print",
17114	CellChangeTimes->{
17115	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17116	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17117	3.581159751292186*^9}],
17118
17119	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
17120	CellChangeTimes->{
17121	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17122	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17123	3.581159751308352*^9}],
17124
17125	Cell[BoxData[
17126	RowBox[{
17127	FractionBox[
17128	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17129	SubscriptBox["\[Kappa]", "q"], " ",
17130	SubscriptBox[
17131	TemplateBox[{"V","CKM"},
17132	"Superscript"],
17133	RowBox[{"1", ",", "1"}]], " ",
17134	SubscriptBox["\[Delta]",
17135	RowBox[{
17136	SubscriptBox["\<\"m\"\>", "1"], ",",
17137	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
17138	SubscriptBox["\[Eta]",
17139	RowBox[{
17140	SubscriptBox["\<\"\[Mu]\"\>",
17141	RowBox[{"4", ",", "1"}]], ",",
17142	SubscriptBox["\<\"\[Mu]\"\>",
17143	RowBox[{"4", ",", "2"}]]}]], " ",
17144	SubscriptBox[
17145	RowBox[{
17146	SuperscriptBox["\[Gamma]",
17147	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
17148	SubscriptBox["P", "\<\"-\"\>"]}],
17149	RowBox[{
17150	SubscriptBox["\<\"s\"\>", "2"], ",",
17151	SubscriptBox["\<\"s\"\>", "1"]}]]}],
17152	RowBox[{
17153	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17154	SubscriptBox["s", "w"]}]], "-",
17155	FractionBox[
17156	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17157	SubscriptBox["\[Kappa]", "q"], " ",
17158	SubscriptBox[
17159	TemplateBox[{"V","CKM"},
17160	"Superscript"],
17161	RowBox[{"1", ",", "1"}]], " ",
17162	SubscriptBox["\[Delta]",
17163	RowBox[{
17164	SubscriptBox["\<\"m\"\>", "1"], ",",
17165	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
17166	SubscriptBox["\[Eta]",
17167	RowBox[{
17168	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17169	SubscriptBox["\<\"\[Mu]\"\>",
17170	RowBox[{"4", ",", "2"}]]}]], " ",
17171	SubscriptBox[
17172	RowBox[{
17173	SuperscriptBox["\[Gamma]",
17174	SubscriptBox["\<\"\[Mu]\"\>",
17175	RowBox[{"4", ",", "1"}]]], ".",
17176	SubscriptBox["P", "\<\"-\"\>"]}],
17177	RowBox[{
17178	SubscriptBox["\<\"s\"\>", "2"], ",",
17179	SubscriptBox["\<\"s\"\>", "1"]}]]}],
17180	RowBox[{"2", " ",
17181	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17182	SubscriptBox["s", "w"]}]], "-",
17183	FractionBox[
17184	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17185	SubscriptBox["\[Kappa]", "q"], " ",
17186	SubscriptBox[
17187	TemplateBox[{"V","CKM"},
17188	"Superscript"],
17189	RowBox[{"1", ",", "1"}]], " ",
17190	SubscriptBox["\[Delta]",
17191	RowBox[{
17192	SubscriptBox["\<\"m\"\>", "1"], ",",
17193	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
17194	SubscriptBox["\[Eta]",
17195	RowBox[{
17196	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17197	SubscriptBox["\<\"\[Mu]\"\>",
17198	RowBox[{"4", ",", "1"}]]}]], " ",
17199	SubscriptBox[
17200	RowBox[{
17201	SuperscriptBox["\[Gamma]",
17202	SubscriptBox["\<\"\[Mu]\"\>",
17203	RowBox[{"4", ",", "2"}]]], ".",
17204	SubscriptBox["P", "\<\"-\"\>"]}],
17205	RowBox[{
17206	SubscriptBox["\<\"s\"\>", "2"], ",",
17207	SubscriptBox["\<\"s\"\>", "1"]}]]}],
17208	RowBox[{"2", " ",
17209	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17210	SubscriptBox["s", "w"]}]]}]], "Print",
17211	CellChangeTimes->{
17212	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17213	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17214	3.581159751325671*^9}],
17215
17216	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17217	* * * * * *)\"\>"], "Print",
17218	CellChangeTimes->{
17219	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17220	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17221	3.581159751333612*^9}],
17222
17223	Cell[BoxData[
17224	InterpretationBox[
17225	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "107"}],
17226	SequenceForm["Vertex ", 107],
17227	Editable->False]], "Print",
17228	CellChangeTimes->{
17229	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17230	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17231	3.581159751350206*^9}],
17232
17233	Cell[BoxData[
17234	InterpretationBox[
17235	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17236	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17237	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
17238	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
17239	Editable->False]], "Print",
17240	CellChangeTimes->{
17241	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17242	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17243	3.581159751356124*^9}],
17244
17245	Cell[BoxData[
17246	InterpretationBox[
17247	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17248	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17249	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17250	OverscriptBox["u", "\<\"-\"\>"]}],
17251	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
17252	Editable->False]], "Print",
17253	CellChangeTimes->{
17254	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17255	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17256	3.581159751361368*^9}],
17257
17258	Cell[BoxData[
17259	InterpretationBox[
17260	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17261	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17262	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
17263	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
17264	Editable->False]], "Print",
17265	CellChangeTimes->{
17266	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17267	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17268	3.5811597513669558`*^9}],
17269
17270	Cell[BoxData[
17271	InterpretationBox[
17272	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
17273	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
17274	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
17275	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
17276	Editable->False]], "Print",
17277	CellChangeTimes->{
17278	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17279	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17280	3.58115975137325*^9}],
17281
17282	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
17283	CellChangeTimes->{
17284	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17285	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17286	3.5811597513857403`*^9}],
17287
17288	Cell[BoxData[
17289	RowBox[{
17290	FractionBox[
17291	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17292	SubscriptBox["\[Kappa]", "q"], " ",
17293	SubscriptBox[
17294	TemplateBox[{"V","CKM"},
17295	"Superscript"],
17296	RowBox[{"1", ",", "2"}]], " ",
17297	SubscriptBox["\[Delta]",
17298	RowBox[{
17299	SubscriptBox["\<\"m\"\>", "1"], ",",
17300	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
17301	SubscriptBox["\[Eta]",
17302	RowBox[{
17303	SubscriptBox["\<\"\[Mu]\"\>",
17304	RowBox[{"4", ",", "1"}]], ",",
17305	SubscriptBox["\<\"\[Mu]\"\>",
17306	RowBox[{"4", ",", "2"}]]}]], " ",
17307	SubscriptBox[
17308	RowBox[{
17309	SuperscriptBox["\[Gamma]",
17310	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
17311	SubscriptBox["P", "\<\"-\"\>"]}],
17312	RowBox[{
17313	SubscriptBox["\<\"s\"\>", "2"], ",",
17314	SubscriptBox["\<\"s\"\>", "1"]}]]}],
17315	RowBox[{
17316	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17317	SubscriptBox["s", "w"]}]], "-",
17318	FractionBox[
17319	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17320	SubscriptBox["\[Kappa]", "q"], " ",
17321	SubscriptBox[
17322	TemplateBox[{"V","CKM"},
17323	"Superscript"],
17324	RowBox[{"1", ",", "2"}]], " ",
17325	SubscriptBox["\[Delta]",
17326	RowBox[{
17327	SubscriptBox["\<\"m\"\>", "1"], ",",
17328	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
17329	SubscriptBox["\[Eta]",
17330	RowBox[{
17331	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17332	SubscriptBox["\<\"\[Mu]\"\>",
17333	RowBox[{"4", ",", "2"}]]}]], " ",
17334	SubscriptBox[
17335	RowBox[{
17336	SuperscriptBox["\[Gamma]",
17337	SubscriptBox["\<\"\[Mu]\"\>",
17338	RowBox[{"4", ",", "1"}]]], ".",
17339	SubscriptBox["P", "\<\"-\"\>"]}],
17340	RowBox[{
17341	SubscriptBox["\<\"s\"\>", "2"], ",",
17342	SubscriptBox["\<\"s\"\>", "1"]}]]}],
17343	RowBox[{"2", " ",
17344	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17345	SubscriptBox["s", "w"]}]], "-",
17346	FractionBox[
17347	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17348	SubscriptBox["\[Kappa]", "q"], " ",
17349	SubscriptBox[
17350	TemplateBox[{"V","CKM"},
17351	"Superscript"],
17352	RowBox[{"1", ",", "2"}]], " ",
17353	SubscriptBox["\[Delta]",
17354	RowBox[{
17355	SubscriptBox["\<\"m\"\>", "1"], ",",
17356	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
17357	SubscriptBox["\[Eta]",
17358	RowBox[{
17359	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17360	SubscriptBox["\<\"\[Mu]\"\>",
17361	RowBox[{"4", ",", "1"}]]}]], " ",
17362	SubscriptBox[
17363	RowBox[{
17364	SuperscriptBox["\[Gamma]",
17365	SubscriptBox["\<\"\[Mu]\"\>",
17366	RowBox[{"4", ",", "2"}]]], ".",
17367	SubscriptBox["P", "\<\"-\"\>"]}],
17368	RowBox[{
17369	SubscriptBox["\<\"s\"\>", "2"], ",",
17370	SubscriptBox["\<\"s\"\>", "1"]}]]}],
17371	RowBox[{"2", " ",
17372	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17373	SubscriptBox["s", "w"]}]]}]], "Print",
17374	CellChangeTimes->{
17375	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17376	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17377	3.581159751392658*^9}],
17378
17379	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17380	* * * * * *)\"\>"], "Print",
17381	CellChangeTimes->{
17382	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17383	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17384	3.581159751402533*^9}],
17385
17386	Cell[BoxData[
17387	InterpretationBox[
17388	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "108"}],
17389	SequenceForm["Vertex ", 108],
17390	Editable->False]], "Print",
17391	CellChangeTimes->{
17392	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17393	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17394	3.581159751407576*^9}],
17395
17396	Cell[BoxData[
17397	InterpretationBox[
17398	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17399	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17400	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17401	OverscriptBox["e", "\<\"-\"\>"]}],
17402	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ebar],
17403	Editable->False]], "Print",
17404	CellChangeTimes->{
17405	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17406	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17407	3.581159751414915*^9}],
17408
17409	Cell[BoxData[
17410	InterpretationBox[
17411	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17412	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17413	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
17414	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ve],
17415	Editable->False]], "Print",
17416	CellChangeTimes->{
17417	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17418	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17419	3.581159751421699*^9}],
17420
17421	Cell[BoxData[
17422	InterpretationBox[
17423	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17424	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17425	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17426	SuperscriptBox["W", "\[Dagger]"]}],
17427	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
17428	Editable->False]], "Print",
17429	CellChangeTimes->{
17430	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17431	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17432	3.581159751439002*^9}],
17433
17434	Cell[BoxData[
17435	InterpretationBox[
17436	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
17437	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
17438	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
17439	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
17440	Editable->False]], "Print",
17441	CellChangeTimes->{
17442	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17443	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17444	3.5811597514504147`*^9}],
17445
17446	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
17447	CellChangeTimes->{
17448	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17449	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17450	3.581159751456655*^9}],
17451
17452	Cell[BoxData[
17453	RowBox[{
17454	FractionBox[
17455	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17456	SubscriptBox["\[Kappa]", "l"], " ",
17457	SubscriptBox["\[Eta]",
17458	RowBox[{
17459	SubscriptBox["\<\"\[Mu]\"\>",
17460	RowBox[{"4", ",", "1"}]], ",",
17461	SubscriptBox["\<\"\[Mu]\"\>",
17462	RowBox[{"4", ",", "2"}]]}]], " ",
17463	SubscriptBox[
17464	RowBox[{
17465	SuperscriptBox["\[Gamma]",
17466	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
17467	SubscriptBox["P", "\<\"-\"\>"]}],
17468	RowBox[{
17469	SubscriptBox["\<\"s\"\>", "1"], ",",
17470	SubscriptBox["\<\"s\"\>", "2"]}]]}],
17471	RowBox[{
17472	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17473	SubscriptBox["s", "w"]}]], "-",
17474	FractionBox[
17475	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17476	SubscriptBox["\[Kappa]", "l"], " ",
17477	SubscriptBox["\[Eta]",
17478	RowBox[{
17479	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17480	SubscriptBox["\<\"\[Mu]\"\>",
17481	RowBox[{"4", ",", "2"}]]}]], " ",
17482	SubscriptBox[
17483	RowBox[{
17484	SuperscriptBox["\[Gamma]",
17485	SubscriptBox["\<\"\[Mu]\"\>",
17486	RowBox[{"4", ",", "1"}]]], ".",
17487	SubscriptBox["P", "\<\"-\"\>"]}],
17488	RowBox[{
17489	SubscriptBox["\<\"s\"\>", "1"], ",",
17490	SubscriptBox["\<\"s\"\>", "2"]}]]}],
17491	RowBox[{"2", " ",
17492	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17493	SubscriptBox["s", "w"]}]], "-",
17494	FractionBox[
17495	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17496	SubscriptBox["\[Kappa]", "l"], " ",
17497	SubscriptBox["\[Eta]",
17498	RowBox[{
17499	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17500	SubscriptBox["\<\"\[Mu]\"\>",
17501	RowBox[{"4", ",", "1"}]]}]], " ",
17502	SubscriptBox[
17503	RowBox[{
17504	SuperscriptBox["\[Gamma]",
17505	SubscriptBox["\<\"\[Mu]\"\>",
17506	RowBox[{"4", ",", "2"}]]], ".",
17507	SubscriptBox["P", "\<\"-\"\>"]}],
17508	RowBox[{
17509	SubscriptBox["\<\"s\"\>", "1"], ",",
17510	SubscriptBox["\<\"s\"\>", "2"]}]]}],
17511	RowBox[{"2", " ",
17512	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17513	SubscriptBox["s", "w"]}]]}]], "Print",
17514	CellChangeTimes->{
17515	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17516	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17517	3.581159751466588*^9}],
17518
17519	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17520	* * * * * *)\"\>"], "Print",
17521	CellChangeTimes->{
17522	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17523	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17524	3.5811597514804087`*^9}],
17525
17526	Cell[BoxData[
17527	InterpretationBox[
17528	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "109"}],
17529	SequenceForm["Vertex ", 109],
17530	Editable->False]], "Print",
17531	CellChangeTimes->{
17532	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17533	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17534	3.5811597514865503`*^9}],
17535
17536	Cell[BoxData[
17537	InterpretationBox[
17538	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17539	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17540	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17541	OverscriptBox["mu", "\<\"-\"\>"]}],
17542	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`mubar],
17543	Editable->False]], "Print",
17544	CellChangeTimes->{
17545	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17546	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17547	3.58115975149284*^9}],
17548
17549	Cell[BoxData[
17550	InterpretationBox[
17551	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17552	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17553	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
17554	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vm],
17555	Editable->False]], "Print",
17556	CellChangeTimes->{
17557	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17558	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17559	3.581159751498514*^9}],
17560
17561	Cell[BoxData[
17562	InterpretationBox[
17563	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17564	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17565	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17566	SuperscriptBox["W", "\[Dagger]"]}],
17567	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
17568	Editable->False]], "Print",
17569	CellChangeTimes->{
17570	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17571	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17572	3.581159751504418*^9}],
17573
17574	Cell[BoxData[
17575	InterpretationBox[
17576	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
17577	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
17578	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
17579	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
17580	Editable->False]], "Print",
17581	CellChangeTimes->{
17582	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17583	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17584	3.581159751510831*^9}],
17585
17586	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
17587	CellChangeTimes->{
17588	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17589	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17590	3.58115975151626*^9}],
17591
17592	Cell[BoxData[
17593	RowBox[{
17594	FractionBox[
17595	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17596	SubscriptBox["\[Kappa]", "l"], " ",
17597	SubscriptBox["\[Eta]",
17598	RowBox[{
17599	SubscriptBox["\<\"\[Mu]\"\>",
17600	RowBox[{"4", ",", "1"}]], ",",
17601	SubscriptBox["\<\"\[Mu]\"\>",
17602	RowBox[{"4", ",", "2"}]]}]], " ",
17603	SubscriptBox[
17604	RowBox[{
17605	SuperscriptBox["\[Gamma]",
17606	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
17607	SubscriptBox["P", "\<\"-\"\>"]}],
17608	RowBox[{
17609	SubscriptBox["\<\"s\"\>", "1"], ",",
17610	SubscriptBox["\<\"s\"\>", "2"]}]]}],
17611	RowBox[{
17612	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17613	SubscriptBox["s", "w"]}]], "-",
17614	FractionBox[
17615	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17616	SubscriptBox["\[Kappa]", "l"], " ",
17617	SubscriptBox["\[Eta]",
17618	RowBox[{
17619	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17620	SubscriptBox["\<\"\[Mu]\"\>",
17621	RowBox[{"4", ",", "2"}]]}]], " ",
17622	SubscriptBox[
17623	RowBox[{
17624	SuperscriptBox["\[Gamma]",
17625	SubscriptBox["\<\"\[Mu]\"\>",
17626	RowBox[{"4", ",", "1"}]]], ".",
17627	SubscriptBox["P", "\<\"-\"\>"]}],
17628	RowBox[{
17629	SubscriptBox["\<\"s\"\>", "1"], ",",
17630	SubscriptBox["\<\"s\"\>", "2"]}]]}],
17631	RowBox[{"2", " ",
17632	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17633	SubscriptBox["s", "w"]}]], "-",
17634	FractionBox[
17635	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17636	SubscriptBox["\[Kappa]", "l"], " ",
17637	SubscriptBox["\[Eta]",
17638	RowBox[{
17639	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17640	SubscriptBox["\<\"\[Mu]\"\>",
17641	RowBox[{"4", ",", "1"}]]}]], " ",
17642	SubscriptBox[
17643	RowBox[{
17644	SuperscriptBox["\[Gamma]",
17645	SubscriptBox["\<\"\[Mu]\"\>",
17646	RowBox[{"4", ",", "2"}]]], ".",
17647	SubscriptBox["P", "\<\"-\"\>"]}],
17648	RowBox[{
17649	SubscriptBox["\<\"s\"\>", "1"], ",",
17650	SubscriptBox["\<\"s\"\>", "2"]}]]}],
17651	RowBox[{"2", " ",
17652	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17653	SubscriptBox["s", "w"]}]]}]], "Print",
17654	CellChangeTimes->{
17655	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17656	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17657	3.5811597515216427`*^9}],
17658
17659	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17660	* * * * * *)\"\>"], "Print",
17661	CellChangeTimes->{
17662	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17663	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17664	3.581159751529324*^9}],
17665
17666	Cell[BoxData[
17667	InterpretationBox[
17668	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "110"}],
17669	SequenceForm["Vertex ", 110],
17670	Editable->False]], "Print",
17671	CellChangeTimes->{
17672	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17673	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17674	3.581159751535207*^9}],
17675
17676	Cell[BoxData[
17677	InterpretationBox[
17678	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17679	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17680	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17681	OverscriptBox["ta", "\<\"-\"\>"]}],
17682	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tabar],
17683	Editable->False]], "Print",
17684	CellChangeTimes->{
17685	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17686	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17687	3.581159751540811*^9}],
17688
17689	Cell[BoxData[
17690	InterpretationBox[
17691	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17692	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17693	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
17694	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vt],
17695	Editable->False]], "Print",
17696	CellChangeTimes->{
17697	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17698	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17699	3.581159751550469*^9}],
17700
17701	Cell[BoxData[
17702	InterpretationBox[
17703	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17704	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17705	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17706	SuperscriptBox["W", "\[Dagger]"]}],
17707	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
17708	Editable->False]], "Print",
17709	CellChangeTimes->{
17710	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17711	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17712	3.581159751555825*^9}],
17713
17714	Cell[BoxData[
17715	InterpretationBox[
17716	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
17717	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
17718	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
17719	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
17720	Editable->False]], "Print",
17721	CellChangeTimes->{
17722	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17723	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17724	3.581159751562154*^9}],
17725
17726	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
17727	CellChangeTimes->{
17728	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17729	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17730	3.581159751570097*^9}],
17731
17732	Cell[BoxData[
17733	RowBox[{
17734	FractionBox[
17735	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17736	SubscriptBox["\[Kappa]", "l"], " ",
17737	SubscriptBox["\[Eta]",
17738	RowBox[{
17739	SubscriptBox["\<\"\[Mu]\"\>",
17740	RowBox[{"4", ",", "1"}]], ",",
17741	SubscriptBox["\<\"\[Mu]\"\>",
17742	RowBox[{"4", ",", "2"}]]}]], " ",
17743	SubscriptBox[
17744	RowBox[{
17745	SuperscriptBox["\[Gamma]",
17746	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
17747	SubscriptBox["P", "\<\"-\"\>"]}],
17748	RowBox[{
17749	SubscriptBox["\<\"s\"\>", "1"], ",",
17750	SubscriptBox["\<\"s\"\>", "2"]}]]}],
17751	RowBox[{
17752	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17753	SubscriptBox["s", "w"]}]], "-",
17754	FractionBox[
17755	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17756	SubscriptBox["\[Kappa]", "l"], " ",
17757	SubscriptBox["\[Eta]",
17758	RowBox[{
17759	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17760	SubscriptBox["\<\"\[Mu]\"\>",
17761	RowBox[{"4", ",", "2"}]]}]], " ",
17762	SubscriptBox[
17763	RowBox[{
17764	SuperscriptBox["\[Gamma]",
17765	SubscriptBox["\<\"\[Mu]\"\>",
17766	RowBox[{"4", ",", "1"}]]], ".",
17767	SubscriptBox["P", "\<\"-\"\>"]}],
17768	RowBox[{
17769	SubscriptBox["\<\"s\"\>", "1"], ",",
17770	SubscriptBox["\<\"s\"\>", "2"]}]]}],
17771	RowBox[{"2", " ",
17772	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17773	SubscriptBox["s", "w"]}]], "-",
17774	FractionBox[
17775	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17776	SubscriptBox["\[Kappa]", "l"], " ",
17777	SubscriptBox["\[Eta]",
17778	RowBox[{
17779	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17780	SubscriptBox["\<\"\[Mu]\"\>",
17781	RowBox[{"4", ",", "1"}]]}]], " ",
17782	SubscriptBox[
17783	RowBox[{
17784	SuperscriptBox["\[Gamma]",
17785	SubscriptBox["\<\"\[Mu]\"\>",
17786	RowBox[{"4", ",", "2"}]]], ".",
17787	SubscriptBox["P", "\<\"-\"\>"]}],
17788	RowBox[{
17789	SubscriptBox["\<\"s\"\>", "1"], ",",
17790	SubscriptBox["\<\"s\"\>", "2"]}]]}],
17791	RowBox[{"2", " ",
17792	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17793	SubscriptBox["s", "w"]}]]}]], "Print",
17794	CellChangeTimes->{
17795	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17796	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17797	3.58115975157541*^9}],
17798
17799	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17800	* * * * * *)\"\>"], "Print",
17801	CellChangeTimes->{
17802	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17803	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17804	3.581159751584022*^9}],
17805
17806	Cell[BoxData[
17807	InterpretationBox[
17808	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "111"}],
17809	SequenceForm["Vertex ", 111],
17810	Editable->False]], "Print",
17811	CellChangeTimes->{
17812	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17813	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17814	3.5811597515902777`*^9}],
17815
17816	Cell[BoxData[
17817	InterpretationBox[
17818	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17819	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17820	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17821	OverscriptBox["b", "\<\"-\"\>"]}],
17822	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
17823	Editable->False]], "Print",
17824	CellChangeTimes->{
17825	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17826	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17827	3.5811597515968027`*^9}],
17828
17829	Cell[BoxData[
17830	InterpretationBox[
17831	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17832	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17833	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
17834	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
17835	Editable->False]], "Print",
17836	CellChangeTimes->{
17837	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17838	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17839	3.5811597516345453`*^9}],
17840
17841	Cell[BoxData[
17842	InterpretationBox[
17843	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17844	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17845	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17846	SuperscriptBox["W", "\[Dagger]"]}],
17847	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
17848	Editable->False]], "Print",
17849	CellChangeTimes->{
17850	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17851	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17852	3.581159751639732*^9}],
17853
17854	Cell[BoxData[
17855	InterpretationBox[
17856	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
17857	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
17858	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
17859	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
17860	Editable->False]], "Print",
17861	CellChangeTimes->{
17862	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17863	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17864	3.581159751644875*^9}],
17865
17866	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
17867	CellChangeTimes->{
17868	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17869	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17870	3.581159751653521*^9}],
17871
17872	Cell[BoxData[
17873	RowBox[{
17874	FractionBox[
17875	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17876	SubscriptBox["\[Kappa]", "q"], " ",
17877	SubscriptBox["\[Delta]",
17878	RowBox[{
17879	SubscriptBox["\<\"m\"\>", "1"], ",",
17880	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
17881	SubscriptBox["\[Eta]",
17882	RowBox[{
17883	SubscriptBox["\<\"\[Mu]\"\>",
17884	RowBox[{"4", ",", "1"}]], ",",
17885	SubscriptBox["\<\"\[Mu]\"\>",
17886	RowBox[{"4", ",", "2"}]]}]], " ",
17887	SubscriptBox[
17888	RowBox[{
17889	SuperscriptBox["\[Gamma]",
17890	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
17891	SubscriptBox["P", "\<\"-\"\>"]}],
17892	RowBox[{
17893	SubscriptBox["\<\"s\"\>", "1"], ",",
17894	SubscriptBox["\<\"s\"\>", "2"]}]]}],
17895	RowBox[{
17896	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17897	SubscriptBox["s", "w"]}]], "-",
17898	FractionBox[
17899	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17900	SubscriptBox["\[Kappa]", "q"], " ",
17901	SubscriptBox["\[Delta]",
17902	RowBox[{
17903	SubscriptBox["\<\"m\"\>", "1"], ",",
17904	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
17905	SubscriptBox["\[Eta]",
17906	RowBox[{
17907	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17908	SubscriptBox["\<\"\[Mu]\"\>",
17909	RowBox[{"4", ",", "2"}]]}]], " ",
17910	SubscriptBox[
17911	RowBox[{
17912	SuperscriptBox["\[Gamma]",
17913	SubscriptBox["\<\"\[Mu]\"\>",
17914	RowBox[{"4", ",", "1"}]]], ".",
17915	SubscriptBox["P", "\<\"-\"\>"]}],
17916	RowBox[{
17917	SubscriptBox["\<\"s\"\>", "1"], ",",
17918	SubscriptBox["\<\"s\"\>", "2"]}]]}],
17919	RowBox[{"2", " ",
17920	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17921	SubscriptBox["s", "w"]}]], "-",
17922	FractionBox[
17923	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17924	SubscriptBox["\[Kappa]", "q"], " ",
17925	SubscriptBox["\[Delta]",
17926	RowBox[{
17927	SubscriptBox["\<\"m\"\>", "1"], ",",
17928	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
17929	SubscriptBox["\[Eta]",
17930	RowBox[{
17931	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
17932	SubscriptBox["\<\"\[Mu]\"\>",
17933	RowBox[{"4", ",", "1"}]]}]], " ",
17934	SubscriptBox[
17935	RowBox[{
17936	SuperscriptBox["\[Gamma]",
17937	SubscriptBox["\<\"\[Mu]\"\>",
17938	RowBox[{"4", ",", "2"}]]], ".",
17939	SubscriptBox["P", "\<\"-\"\>"]}],
17940	RowBox[{
17941	SubscriptBox["\<\"s\"\>", "1"], ",",
17942	SubscriptBox["\<\"s\"\>", "2"]}]]}],
17943	RowBox[{"2", " ",
17944	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
17945	SubscriptBox["s", "w"]}]]}]], "Print",
17946	CellChangeTimes->{
17947	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17948	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17949	3.58115975165903*^9}],
17950
17951	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17952	* * * * * *)\"\>"], "Print",
17953	CellChangeTimes->{
17954	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17955	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17956	3.581159751666651*^9}],
17957
17958	Cell[BoxData[
17959	InterpretationBox[
17960	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "112"}],
17961	SequenceForm["Vertex ", 112],
17962	Editable->False]], "Print",
17963	CellChangeTimes->{
17964	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17965	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17966	3.581159751671646*^9}],
17967
17968	Cell[BoxData[
17969	InterpretationBox[
17970	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17971	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17972	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
17973	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
17974	Editable->False]], "Print",
17975	CellChangeTimes->{
17976	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17977	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17978	3.581159751676553*^9}],
17979
17980	Cell[BoxData[
17981	InterpretationBox[
17982	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17983	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17984	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17985	OverscriptBox["d", "\<\"-\"\>"]}],
17986	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
17987	Editable->False]], "Print",
17988	CellChangeTimes->{
17989	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
17990	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
17991	3.581159751684613*^9}],
17992
17993	Cell[BoxData[
17994	InterpretationBox[
17995	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17996	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17997	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17998	SuperscriptBox["W", "\[Dagger]"]}],
17999	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
18000	Editable->False]], "Print",
18001	CellChangeTimes->{
18002	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18003	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18004	3.5811597516936913`*^9}],
18005
18006	Cell[BoxData[
18007	InterpretationBox[
18008	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
18009	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
18010	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
18011	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
18012	Editable->False]], "Print",
18013	CellChangeTimes->{
18014	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18015	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18016	3.581159751699292*^9}],
18017
18018	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
18019	CellChangeTimes->{
18020	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18021	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18022	3.581159751704177*^9}],
18023
18024	Cell[BoxData[
18025	RowBox[{
18026	FractionBox[
18027	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18028	SubscriptBox["\[Kappa]", "q"], " ",
18029	SubsuperscriptBox[
18030	RowBox[{"(",
18031	TemplateBox[{"V","CKM"},
18032	"Superscript"], ")"}],
18033	RowBox[{"2", ",", "1"}], "\<\"*\"\>"], " ",
18034	SubscriptBox["\[Delta]",
18035	RowBox[{
18036	SubscriptBox["\<\"m\"\>", "1"], ",",
18037	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18038	SubscriptBox["\[Eta]",
18039	RowBox[{
18040	SubscriptBox["\<\"\[Mu]\"\>",
18041	RowBox[{"4", ",", "1"}]], ",",
18042	SubscriptBox["\<\"\[Mu]\"\>",
18043	RowBox[{"4", ",", "2"}]]}]], " ",
18044	SubscriptBox[
18045	RowBox[{
18046	SuperscriptBox["\[Gamma]",
18047	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
18048	SubscriptBox["P", "\<\"-\"\>"]}],
18049	RowBox[{
18050	SubscriptBox["\<\"s\"\>", "2"], ",",
18051	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18052	RowBox[{
18053	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
18054	SubscriptBox["s", "w"]}]], "-",
18055	FractionBox[
18056	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18057	SubscriptBox["\[Kappa]", "q"], " ",
18058	SubsuperscriptBox[
18059	RowBox[{"(",
18060	TemplateBox[{"V","CKM"},
18061	"Superscript"], ")"}],
18062	RowBox[{"2", ",", "1"}], "\<\"*\"\>"], " ",
18063	SubscriptBox["\[Delta]",
18064	RowBox[{
18065	SubscriptBox["\<\"m\"\>", "1"], ",",
18066	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18067	SubscriptBox["\[Eta]",
18068	RowBox[{
18069	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
18070	SubscriptBox["\<\"\[Mu]\"\>",
18071	RowBox[{"4", ",", "2"}]]}]], " ",
18072	SubscriptBox[
18073	RowBox[{
18074	SuperscriptBox["\[Gamma]",
18075	SubscriptBox["\<\"\[Mu]\"\>",
18076	RowBox[{"4", ",", "1"}]]], ".",
18077	SubscriptBox["P", "\<\"-\"\>"]}],
18078	RowBox[{
18079	SubscriptBox["\<\"s\"\>", "2"], ",",
18080	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18081	RowBox[{"2", " ",
18082	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
18083	SubscriptBox["s", "w"]}]], "-",
18084	FractionBox[
18085	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18086	SubscriptBox["\[Kappa]", "q"], " ",
18087	SubsuperscriptBox[
18088	RowBox[{"(",
18089	TemplateBox[{"V","CKM"},
18090	"Superscript"], ")"}],
18091	RowBox[{"2", ",", "1"}], "\<\"*\"\>"], " ",
18092	SubscriptBox["\[Delta]",
18093	RowBox[{
18094	SubscriptBox["\<\"m\"\>", "1"], ",",
18095	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18096	SubscriptBox["\[Eta]",
18097	RowBox[{
18098	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
18099	SubscriptBox["\<\"\[Mu]\"\>",
18100	RowBox[{"4", ",", "1"}]]}]], " ",
18101	SubscriptBox[
18102	RowBox[{
18103	SuperscriptBox["\[Gamma]",
18104	SubscriptBox["\<\"\[Mu]\"\>",
18105	RowBox[{"4", ",", "2"}]]], ".",
18106	SubscriptBox["P", "\<\"-\"\>"]}],
18107	RowBox[{
18108	SubscriptBox["\<\"s\"\>", "2"], ",",
18109	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18110	RowBox[{"2", " ",
18111	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
18112	SubscriptBox["s", "w"]}]]}]], "Print",
18113	CellChangeTimes->{
18114	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18115	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18116	3.581159751709708*^9}],
18117
18118	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18119	* * * * * *)\"\>"], "Print",
18120	CellChangeTimes->{
18121	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18122	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18123	3.581159751717691*^9}],
18124
18125	Cell[BoxData[
18126	InterpretationBox[
18127	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "113"}],
18128	SequenceForm["Vertex ", 113],
18129	Editable->False]], "Print",
18130	CellChangeTimes->{
18131	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18132	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18133	3.581159751723255*^9}],
18134
18135	Cell[BoxData[
18136	InterpretationBox[
18137	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18138	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18139	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18140	OverscriptBox["d", "\<\"-\"\>"]}],
18141	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`dbar],
18142	Editable->False]], "Print",
18143	CellChangeTimes->{
18144	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18145	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18146	3.581159751729591*^9}],
18147
18148	Cell[BoxData[
18149	InterpretationBox[
18150	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18151	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18152	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
18153	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
18154	Editable->False]], "Print",
18155	CellChangeTimes->{
18156	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18157	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18158	3.581159751735382*^9}],
18159
18160	Cell[BoxData[
18161	InterpretationBox[
18162	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18163	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18164	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18165	SuperscriptBox["W", "\[Dagger]"]}],
18166	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
18167	Editable->False]], "Print",
18168	CellChangeTimes->{
18169	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18170	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18171	3.581159751741344*^9}],
18172
18173	Cell[BoxData[
18174	InterpretationBox[
18175	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
18176	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
18177	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
18178	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
18179	Editable->False]], "Print",
18180	CellChangeTimes->{
18181	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18182	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18183	3.581159751747066*^9}],
18184
18185	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
18186	CellChangeTimes->{
18187	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18188	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18189	3.581159751752249*^9}],
18190
18191	Cell[BoxData[
18192	RowBox[{
18193	FractionBox[
18194	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18195	SubscriptBox["\[Kappa]", "q"], " ",
18196	SubsuperscriptBox[
18197	RowBox[{"(",
18198	TemplateBox[{"V","CKM"},
18199	"Superscript"], ")"}],
18200	RowBox[{"1", ",", "1"}], "\<\"*\"\>"], " ",
18201	SubscriptBox["\[Delta]",
18202	RowBox[{
18203	SubscriptBox["\<\"m\"\>", "1"], ",",
18204	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18205	SubscriptBox["\[Eta]",
18206	RowBox[{
18207	SubscriptBox["\<\"\[Mu]\"\>",
18208	RowBox[{"4", ",", "1"}]], ",",
18209	SubscriptBox["\<\"\[Mu]\"\>",
18210	RowBox[{"4", ",", "2"}]]}]], " ",
18211	SubscriptBox[
18212	RowBox[{
18213	SuperscriptBox["\[Gamma]",
18214	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
18215	SubscriptBox["P", "\<\"-\"\>"]}],
18216	RowBox[{
18217	SubscriptBox["\<\"s\"\>", "1"], ",",
18218	SubscriptBox["\<\"s\"\>", "2"]}]]}],
18219	RowBox[{
18220	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
18221	SubscriptBox["s", "w"]}]], "-",
18222	FractionBox[
18223	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18224	SubscriptBox["\[Kappa]", "q"], " ",
18225	SubsuperscriptBox[
18226	RowBox[{"(",
18227	TemplateBox[{"V","CKM"},
18228	"Superscript"], ")"}],
18229	RowBox[{"1", ",", "1"}], "\<\"*\"\>"], " ",
18230	SubscriptBox["\[Delta]",
18231	RowBox[{
18232	SubscriptBox["\<\"m\"\>", "1"], ",",
18233	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18234	SubscriptBox["\[Eta]",
18235	RowBox[{
18236	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
18237	SubscriptBox["\<\"\[Mu]\"\>",
18238	RowBox[{"4", ",", "2"}]]}]], " ",
18239	SubscriptBox[
18240	RowBox[{
18241	SuperscriptBox["\[Gamma]",
18242	SubscriptBox["\<\"\[Mu]\"\>",
18243	RowBox[{"4", ",", "1"}]]], ".",
18244	SubscriptBox["P", "\<\"-\"\>"]}],
18245	RowBox[{
18246	SubscriptBox["\<\"s\"\>", "1"], ",",
18247	SubscriptBox["\<\"s\"\>", "2"]}]]}],
18248	RowBox[{"2", " ",
18249	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
18250	SubscriptBox["s", "w"]}]], "-",
18251	FractionBox[
18252	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18253	SubscriptBox["\[Kappa]", "q"], " ",
18254	SubsuperscriptBox[
18255	RowBox[{"(",
18256	TemplateBox[{"V","CKM"},
18257	"Superscript"], ")"}],
18258	RowBox[{"1", ",", "1"}], "\<\"*\"\>"], " ",
18259	SubscriptBox["\[Delta]",
18260	RowBox[{
18261	SubscriptBox["\<\"m\"\>", "1"], ",",
18262	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18263	SubscriptBox["\[Eta]",
18264	RowBox[{
18265	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
18266	SubscriptBox["\<\"\[Mu]\"\>",
18267	RowBox[{"4", ",", "1"}]]}]], " ",
18268	SubscriptBox[
18269	RowBox[{
18270	SuperscriptBox["\[Gamma]",
18271	SubscriptBox["\<\"\[Mu]\"\>",
18272	RowBox[{"4", ",", "2"}]]], ".",
18273	SubscriptBox["P", "\<\"-\"\>"]}],
18274	RowBox[{
18275	SubscriptBox["\<\"s\"\>", "1"], ",",
18276	SubscriptBox["\<\"s\"\>", "2"]}]]}],
18277	RowBox[{"2", " ",
18278	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
18279	SubscriptBox["s", "w"]}]]}]], "Print",
18280	CellChangeTimes->{
18281	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18282	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18283	3.5811597517581463`*^9}],
18284
18285	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18286	* * * * * *)\"\>"], "Print",
18287	CellChangeTimes->{
18288	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18289	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18290	3.581159751765972*^9}],
18291
18292	Cell[BoxData[
18293	InterpretationBox[
18294	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "114"}],
18295	SequenceForm["Vertex ", 114],
18296	Editable->False]], "Print",
18297	CellChangeTimes->{
18298	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18299	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18300	3.581159751771102*^9}],
18301
18302	Cell[BoxData[
18303	InterpretationBox[
18304	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18305	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18306	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
18307	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
18308	Editable->False]], "Print",
18309	CellChangeTimes->{
18310	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18311	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18312	3.581159751776307*^9}],
18313
18314	Cell[BoxData[
18315	InterpretationBox[
18316	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18317	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18318	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18319	OverscriptBox["s", "\<\"-\"\>"]}],
18320	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
18321	Editable->False]], "Print",
18322	CellChangeTimes->{
18323	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18324	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18325	3.581159751781509*^9}],
18326
18327	Cell[BoxData[
18328	InterpretationBox[
18329	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18330	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18331	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18332	SuperscriptBox["W", "\[Dagger]"]}],
18333	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
18334	Editable->False]], "Print",
18335	CellChangeTimes->{
18336	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18337	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18338	3.5811597517872963`*^9}],
18339
18340	Cell[BoxData[
18341	InterpretationBox[
18342	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
18343	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
18344	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
18345	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
18346	Editable->False]], "Print",
18347	CellChangeTimes->{
18348	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18349	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18350	3.581159751794705*^9}],
18351
18352	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
18353	CellChangeTimes->{
18354	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18355	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18356	3.5811597518014317`*^9}],
18357
18358	Cell[BoxData[
18359	RowBox[{
18360	FractionBox[
18361	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18362	SubscriptBox["\[Kappa]", "q"], " ",
18363	SubsuperscriptBox[
18364	RowBox[{"(",
18365	TemplateBox[{"V","CKM"},
18366	"Superscript"], ")"}],
18367	RowBox[{"2", ",", "2"}], "\<\"*\"\>"], " ",
18368	SubscriptBox["\[Delta]",
18369	RowBox[{
18370	SubscriptBox["\<\"m\"\>", "1"], ",",
18371	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18372	SubscriptBox["\[Eta]",
18373	RowBox[{
18374	SubscriptBox["\<\"\[Mu]\"\>",
18375	RowBox[{"4", ",", "1"}]], ",",
18376	SubscriptBox["\<\"\[Mu]\"\>",
18377	RowBox[{"4", ",", "2"}]]}]], " ",
18378	SubscriptBox[
18379	RowBox[{
18380	SuperscriptBox["\[Gamma]",
18381	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
18382	SubscriptBox["P", "\<\"-\"\>"]}],
18383	RowBox[{
18384	SubscriptBox["\<\"s\"\>", "2"], ",",
18385	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18386	RowBox[{
18387	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
18388	SubscriptBox["s", "w"]}]], "-",
18389	FractionBox[
18390	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18391	SubscriptBox["\[Kappa]", "q"], " ",
18392	SubsuperscriptBox[
18393	RowBox[{"(",
18394	TemplateBox[{"V","CKM"},
18395	"Superscript"], ")"}],
18396	RowBox[{"2", ",", "2"}], "\<\"*\"\>"], " ",
18397	SubscriptBox["\[Delta]",
18398	RowBox[{
18399	SubscriptBox["\<\"m\"\>", "1"], ",",
18400	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18401	SubscriptBox["\[Eta]",
18402	RowBox[{
18403	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
18404	SubscriptBox["\<\"\[Mu]\"\>",
18405	RowBox[{"4", ",", "2"}]]}]], " ",
18406	SubscriptBox[
18407	RowBox[{
18408	SuperscriptBox["\[Gamma]",
18409	SubscriptBox["\<\"\[Mu]\"\>",
18410	RowBox[{"4", ",", "1"}]]], ".",
18411	SubscriptBox["P", "\<\"-\"\>"]}],
18412	RowBox[{
18413	SubscriptBox["\<\"s\"\>", "2"], ",",
18414	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18415	RowBox[{"2", " ",
18416	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
18417	SubscriptBox["s", "w"]}]], "-",
18418	FractionBox[
18419	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18420	SubscriptBox["\[Kappa]", "q"], " ",
18421	SubsuperscriptBox[
18422	RowBox[{"(",
18423	TemplateBox[{"V","CKM"},
18424	"Superscript"], ")"}],
18425	RowBox[{"2", ",", "2"}], "\<\"*\"\>"], " ",
18426	SubscriptBox["\[Delta]",
18427	RowBox[{
18428	SubscriptBox["\<\"m\"\>", "1"], ",",
18429	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18430	SubscriptBox["\[Eta]",
18431	RowBox[{
18432	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
18433	SubscriptBox["\<\"\[Mu]\"\>",
18434	RowBox[{"4", ",", "1"}]]}]], " ",
18435	SubscriptBox[
18436	RowBox[{
18437	SuperscriptBox["\[Gamma]",
18438	SubscriptBox["\<\"\[Mu]\"\>",
18439	RowBox[{"4", ",", "2"}]]], ".",
18440	SubscriptBox["P", "\<\"-\"\>"]}],
18441	RowBox[{
18442	SubscriptBox["\<\"s\"\>", "2"], ",",
18443	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18444	RowBox[{"2", " ",
18445	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
18446	SubscriptBox["s", "w"]}]]}]], "Print",
18447	CellChangeTimes->{
18448	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18449	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18450	3.581159751808783*^9}],
18451
18452	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18453	* * * * * *)\"\>"], "Print",
18454	CellChangeTimes->{
18455	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18456	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18457	3.581159751818781*^9}],
18458
18459	Cell[BoxData[
18460	InterpretationBox[
18461	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "115"}],
18462	SequenceForm["Vertex ", 115],
18463	Editable->False]], "Print",
18464	CellChangeTimes->{
18465	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18466	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18467	3.5811597518261623`*^9}],
18468
18469	Cell[BoxData[
18470	InterpretationBox[
18471	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18472	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18473	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18474	OverscriptBox["s", "\<\"-\"\>"]}],
18475	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`sbar],
18476	Editable->False]], "Print",
18477	CellChangeTimes->{
18478	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18479	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18480	3.581159751831061*^9}],
18481
18482	Cell[BoxData[
18483	InterpretationBox[
18484	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18485	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18486	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
18487	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
18488	Editable->False]], "Print",
18489	CellChangeTimes->{
18490	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18491	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18492	3.581159751836133*^9}],
18493
18494	Cell[BoxData[
18495	InterpretationBox[
18496	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18497	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18498	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18499	SuperscriptBox["W", "\[Dagger]"]}],
18500	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
18501	Editable->False]], "Print",
18502	CellChangeTimes->{
18503	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18504	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18505	3.581159751841132*^9}],
18506
18507	Cell[BoxData[
18508	InterpretationBox[
18509	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
18510	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
18511	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
18512	SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
18513	Editable->False]], "Print",
18514	CellChangeTimes->{
18515	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18516	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18517	3.5811597518463163`*^9}],
18518
18519	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
18520	CellChangeTimes->{
18521	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18522	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18523	3.581159751852415*^9}],
18524
18525	Cell[BoxData[
18526	RowBox[{
18527	FractionBox[
18528	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18529	SubscriptBox["\[Kappa]", "q"], " ",
18530	SubsuperscriptBox[
18531	RowBox[{"(",
18532	TemplateBox[{"V","CKM"},
18533	"Superscript"], ")"}],
18534	RowBox[{"1", ",", "2"}], "\<\"*\"\>"], " ",
18535	SubscriptBox["\[Delta]",
18536	RowBox[{
18537	SubscriptBox["\<\"m\"\>", "1"], ",",
18538	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18539	SubscriptBox["\[Eta]",
18540	RowBox[{
18541	SubscriptBox["\<\"\[Mu]\"\>",
18542	RowBox[{"4", ",", "1"}]], ",",
18543	SubscriptBox["\<\"\[Mu]\"\>",
18544	RowBox[{"4", ",", "2"}]]}]], " ",
18545	SubscriptBox[
18546	RowBox[{
18547	SuperscriptBox["\[Gamma]",
18548	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
18549	SubscriptBox["P", "\<\"-\"\>"]}],
18550	RowBox[{
18551	SubscriptBox["\<\"s\"\>", "1"], ",",
18552	SubscriptBox["\<\"s\"\>", "2"]}]]}],
18553	RowBox[{
18554	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
18555	SubscriptBox["s", "w"]}]], "-",
18556	FractionBox[
18557	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18558	SubscriptBox["\[Kappa]", "q"], " ",
18559	SubsuperscriptBox[
18560	RowBox[{"(",
18561	TemplateBox[{"V","CKM"},
18562	"Superscript"], ")"}],
18563	RowBox[{"1", ",", "2"}], "\<\"*\"\>"], " ",
18564	SubscriptBox["\[Delta]",
18565	RowBox[{
18566	SubscriptBox["\<\"m\"\>", "1"], ",",
18567	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18568	SubscriptBox["\[Eta]",
18569	RowBox[{
18570	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
18571	SubscriptBox["\<\"\[Mu]\"\>",
18572	RowBox[{"4", ",", "2"}]]}]], " ",
18573	SubscriptBox[
18574	RowBox[{
18575	SuperscriptBox["\[Gamma]",
18576	SubscriptBox["\<\"\[Mu]\"\>",
18577	RowBox[{"4", ",", "1"}]]], ".",
18578	SubscriptBox["P", "\<\"-\"\>"]}],
18579	RowBox[{
18580	SubscriptBox["\<\"s\"\>", "1"], ",",
18581	SubscriptBox["\<\"s\"\>", "2"]}]]}],
18582	RowBox[{"2", " ",
18583	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
18584	SubscriptBox["s", "w"]}]], "-",
18585	FractionBox[
18586	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18587	SubscriptBox["\[Kappa]", "q"], " ",
18588	SubsuperscriptBox[
18589	RowBox[{"(",
18590	TemplateBox[{"V","CKM"},
18591	"Superscript"], ")"}],
18592	RowBox[{"1", ",", "2"}], "\<\"*\"\>"], " ",
18593	SubscriptBox["\[Delta]",
18594	RowBox[{
18595	SubscriptBox["\<\"m\"\>", "1"], ",",
18596	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18597	SubscriptBox["\[Eta]",
18598	RowBox[{
18599	SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
18600	SubscriptBox["\<\"\[Mu]\"\>",
18601	RowBox[{"4", ",", "1"}]]}]], " ",
18602	SubscriptBox[
18603	RowBox[{
18604	SuperscriptBox["\[Gamma]",
18605	SubscriptBox["\<\"\[Mu]\"\>",
18606	RowBox[{"4", ",", "2"}]]], ".",
18607	SubscriptBox["P", "\<\"-\"\>"]}],
18608	RowBox[{
18609	SubscriptBox["\<\"s\"\>", "1"], ",",
18610	SubscriptBox["\<\"s\"\>", "2"]}]]}],
18611	RowBox[{"2", " ",
18612	SqrtBox["2"], " ", "\[CapitalLambda]", " ",
18613	SubscriptBox["s", "w"]}]]}]], "Print",
18614	CellChangeTimes->{
18615	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18616	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18617	3.5811597518594627`*^9}],
18618
18619	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18620	* * * * * *)\"\>"], "Print",
18621	CellChangeTimes->{
18622	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18623	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18624	3.58115975186791*^9}],
18625
18626	Cell[BoxData[
18627	InterpretationBox[
18628	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "116"}],
18629	SequenceForm["Vertex ", 116],
18630	Editable->False]], "Print",
18631	CellChangeTimes->{
18632	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18633	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18634	3.58115975187389*^9}],
18635
18636	Cell[BoxData[
18637	InterpretationBox[
18638	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18639	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18640	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
18641	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
18642	Editable->False]], "Print",
18643	CellChangeTimes->{
18644	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18645	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18646	3.5811597518800583`*^9}],
18647
18648	Cell[BoxData[
18649	InterpretationBox[
18650	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18651	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18652	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18653	OverscriptBox["b", "\<\"-\"\>"]}],
18654	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
18655	Editable->False]], "Print",
18656	CellChangeTimes->{
18657	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18658	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18659	3.5811597518864*^9}],
18660
18661	Cell[BoxData[
18662	InterpretationBox[
18663	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18664	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18665	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
18666	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
18667	Editable->False]], "Print",
18668	CellChangeTimes->{
18669	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18670	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18671	3.5811597518921022`*^9}],
18672
18673	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
18674	CellChangeTimes->{
18675	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18676	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18677	3.581159751897201*^9}],
18678
18679	Cell[BoxData[
18680	RowBox[{
18681	RowBox[{"-",
18682	FractionBox[
18683	RowBox[{"\[ImaginaryI]", " ",
18684	SubscriptBox["c", "w"], " ", "e", " ",
18685	SubscriptBox["\[Delta]",
18686	RowBox[{
18687	SubscriptBox["\<\"m\"\>", "1"], ",",
18688	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18689	SubscriptBox[
18690	RowBox[{
18691	SuperscriptBox["\[Gamma]",
18692	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
18693	SubscriptBox["P", "\<\"-\"\>"]}],
18694	RowBox[{
18695	SubscriptBox["\<\"s\"\>", "2"], ",",
18696	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18697	RowBox[{"2", " ",
18698	SubscriptBox["s", "w"]}]]}], "-",
18699	FractionBox[
18700	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18701	SubscriptBox["s", "w"], " ",
18702	SubscriptBox["\[Delta]",
18703	RowBox[{
18704	SubscriptBox["\<\"m\"\>", "1"], ",",
18705	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18706	SubscriptBox[
18707	RowBox[{
18708	SuperscriptBox["\[Gamma]",
18709	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
18710	SubscriptBox["P", "\<\"-\"\>"]}],
18711	RowBox[{
18712	SubscriptBox["\<\"s\"\>", "2"], ",",
18713	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18714	RowBox[{"6", " ",
18715	SubscriptBox["c", "w"]}]], "+",
18716	FractionBox[
18717	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18718	SubscriptBox["s", "w"], " ",
18719	SubscriptBox["\[Delta]",
18720	RowBox[{
18721	SubscriptBox["\<\"m\"\>", "1"], ",",
18722	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18723	SubscriptBox[
18724	RowBox[{
18725	SuperscriptBox["\[Gamma]",
18726	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
18727	SubscriptBox["P", "\<\"+\"\>"]}],
18728	RowBox[{
18729	SubscriptBox["\<\"s\"\>", "2"], ",",
18730	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18731	RowBox[{"3", " ",
18732	SubscriptBox["c", "w"]}]]}]], "Print",
18733	CellChangeTimes->{
18734	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18735	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18736	3.5811597519021606`*^9}],
18737
18738	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18739	* * * * * *)\"\>"], "Print",
18740	CellChangeTimes->{
18741	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18742	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18743	3.5811597519076633`*^9}],
18744
18745	Cell[BoxData[
18746	InterpretationBox[
18747	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "117"}],
18748	SequenceForm["Vertex ", 117],
18749	Editable->False]], "Print",
18750	CellChangeTimes->{
18751	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18752	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18753	3.5811597519129877`*^9}],
18754
18755	Cell[BoxData[
18756	InterpretationBox[
18757	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18758	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18759	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
18760	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
18761	Editable->False]], "Print",
18762	CellChangeTimes->{
18763	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18764	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18765	3.5811597519179277`*^9}],
18766
18767	Cell[BoxData[
18768	InterpretationBox[
18769	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18770	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18771	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18772	OverscriptBox["d", "\<\"-\"\>"]}],
18773	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
18774	Editable->False]], "Print",
18775	CellChangeTimes->{
18776	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18777	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18778	3.581159751922723*^9}],
18779
18780	Cell[BoxData[
18781	InterpretationBox[
18782	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18783	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18784	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
18785	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
18786	Editable->False]], "Print",
18787	CellChangeTimes->{
18788	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18789	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18790	3.581159751927472*^9}],
18791
18792	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
18793	CellChangeTimes->{
18794	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18795	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18796	3.581159751932109*^9}],
18797
18798	Cell[BoxData[
18799	RowBox[{
18800	RowBox[{"-",
18801	FractionBox[
18802	RowBox[{"\[ImaginaryI]", " ",
18803	SubscriptBox["c", "w"], " ", "e", " ",
18804	SubscriptBox["\[Delta]",
18805	RowBox[{
18806	SubscriptBox["\<\"m\"\>", "1"], ",",
18807	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18808	SubscriptBox[
18809	RowBox[{
18810	SuperscriptBox["\[Gamma]",
18811	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
18812	SubscriptBox["P", "\<\"-\"\>"]}],
18813	RowBox[{
18814	SubscriptBox["\<\"s\"\>", "2"], ",",
18815	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18816	RowBox[{"2", " ",
18817	SubscriptBox["s", "w"]}]]}], "-",
18818	FractionBox[
18819	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18820	SubscriptBox["s", "w"], " ",
18821	SubscriptBox["\[Delta]",
18822	RowBox[{
18823	SubscriptBox["\<\"m\"\>", "1"], ",",
18824	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18825	SubscriptBox[
18826	RowBox[{
18827	SuperscriptBox["\[Gamma]",
18828	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
18829	SubscriptBox["P", "\<\"-\"\>"]}],
18830	RowBox[{
18831	SubscriptBox["\<\"s\"\>", "2"], ",",
18832	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18833	RowBox[{"6", " ",
18834	SubscriptBox["c", "w"]}]], "+",
18835	FractionBox[
18836	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18837	SubscriptBox["s", "w"], " ",
18838	SubscriptBox["\[Delta]",
18839	RowBox[{
18840	SubscriptBox["\<\"m\"\>", "1"], ",",
18841	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18842	SubscriptBox[
18843	RowBox[{
18844	SuperscriptBox["\[Gamma]",
18845	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
18846	SubscriptBox["P", "\<\"+\"\>"]}],
18847	RowBox[{
18848	SubscriptBox["\<\"s\"\>", "2"], ",",
18849	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18850	RowBox[{"3", " ",
18851	SubscriptBox["c", "w"]}]]}]], "Print",
18852	CellChangeTimes->{
18853	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18854	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18855	3.5811597519372396`*^9}],
18856
18857	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18858	* * * * * *)\"\>"], "Print",
18859	CellChangeTimes->{
18860	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18861	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18862	3.581159751943218*^9}],
18863
18864	Cell[BoxData[
18865	InterpretationBox[
18866	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "118"}],
18867	SequenceForm["Vertex ", 118],
18868	Editable->False]], "Print",
18869	CellChangeTimes->{
18870	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18871	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18872	3.581159751949595*^9}],
18873
18874	Cell[BoxData[
18875	InterpretationBox[
18876	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18877	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18878	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
18879	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
18880	Editable->False]], "Print",
18881	CellChangeTimes->{
18882	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18883	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18884	3.581159751955196*^9}],
18885
18886	Cell[BoxData[
18887	InterpretationBox[
18888	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18889	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18890	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18891	OverscriptBox["s", "\<\"-\"\>"]}],
18892	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
18893	Editable->False]], "Print",
18894	CellChangeTimes->{
18895	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18896	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18897	3.5811597519607267`*^9}],
18898
18899	Cell[BoxData[
18900	InterpretationBox[
18901	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18902	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18903	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
18904	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
18905	Editable->False]], "Print",
18906	CellChangeTimes->{
18907	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18908	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18909	3.581159751965722*^9}],
18910
18911	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
18912	CellChangeTimes->{
18913	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18914	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18915	3.5811597519715147`*^9}],
18916
18917	Cell[BoxData[
18918	RowBox[{
18919	RowBox[{"-",
18920	FractionBox[
18921	RowBox[{"\[ImaginaryI]", " ",
18922	SubscriptBox["c", "w"], " ", "e", " ",
18923	SubscriptBox["\[Delta]",
18924	RowBox[{
18925	SubscriptBox["\<\"m\"\>", "1"], ",",
18926	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18927	SubscriptBox[
18928	RowBox[{
18929	SuperscriptBox["\[Gamma]",
18930	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
18931	SubscriptBox["P", "\<\"-\"\>"]}],
18932	RowBox[{
18933	SubscriptBox["\<\"s\"\>", "2"], ",",
18934	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18935	RowBox[{"2", " ",
18936	SubscriptBox["s", "w"]}]]}], "-",
18937	FractionBox[
18938	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18939	SubscriptBox["s", "w"], " ",
18940	SubscriptBox["\[Delta]",
18941	RowBox[{
18942	SubscriptBox["\<\"m\"\>", "1"], ",",
18943	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18944	SubscriptBox[
18945	RowBox[{
18946	SuperscriptBox["\[Gamma]",
18947	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
18948	SubscriptBox["P", "\<\"-\"\>"]}],
18949	RowBox[{
18950	SubscriptBox["\<\"s\"\>", "2"], ",",
18951	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18952	RowBox[{"6", " ",
18953	SubscriptBox["c", "w"]}]], "+",
18954	FractionBox[
18955	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18956	SubscriptBox["s", "w"], " ",
18957	SubscriptBox["\[Delta]",
18958	RowBox[{
18959	SubscriptBox["\<\"m\"\>", "1"], ",",
18960	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
18961	SubscriptBox[
18962	RowBox[{
18963	SuperscriptBox["\[Gamma]",
18964	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
18965	SubscriptBox["P", "\<\"+\"\>"]}],
18966	RowBox[{
18967	SubscriptBox["\<\"s\"\>", "2"], ",",
18968	SubscriptBox["\<\"s\"\>", "1"]}]]}],
18969	RowBox[{"3", " ",
18970	SubscriptBox["c", "w"]}]]}]], "Print",
18971	CellChangeTimes->{
18972	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18973	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18974	3.581159751978297*^9}],
18975
18976	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18977	* * * * * *)\"\>"], "Print",
18978	CellChangeTimes->{
18979	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18980	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18981	3.581159751985441*^9}],
18982
18983	Cell[BoxData[
18984	InterpretationBox[
18985	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "119"}],
18986	SequenceForm["Vertex ", 119],
18987	Editable->False]], "Print",
18988	CellChangeTimes->{
18989	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
18990	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
18991	3.581159751991794*^9}],
18992
18993	Cell[BoxData[
18994	InterpretationBox[
18995	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18996	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18997	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
18998	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
18999	Editable->False]], "Print",
19000	CellChangeTimes->{
19001	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19002	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19003	3.581159751997836*^9}],
19004
19005	Cell[BoxData[
19006	InterpretationBox[
19007	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19008	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19009	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19010	OverscriptBox["e", "\<\"-\"\>"]}],
19011	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ebar],
19012	Editable->False]], "Print",
19013	CellChangeTimes->{
19014	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19015	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19016	3.581159752029057*^9}],
19017
19018	Cell[BoxData[
19019	InterpretationBox[
19020	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19021	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19022	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
19023	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
19024	Editable->False]], "Print",
19025	CellChangeTimes->{
19026	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19027	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19028	3.5811597520344152`*^9}],
19029
19030	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
19031	CellChangeTimes->{
19032	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19033	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19034	3.581159752039545*^9}],
19035
19036	Cell[BoxData[
19037	RowBox[{
19038	RowBox[{"-",
19039	FractionBox[
19040	RowBox[{"\[ImaginaryI]", " ",
19041	SubscriptBox["c", "w"], " ", "e", " ",
19042	SubscriptBox[
19043	RowBox[{
19044	SuperscriptBox["\[Gamma]",
19045	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19046	SubscriptBox["P", "\<\"-\"\>"]}],
19047	RowBox[{
19048	SubscriptBox["\<\"s\"\>", "2"], ",",
19049	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19050	RowBox[{"2", " ",
19051	SubscriptBox["s", "w"]}]]}], "+",
19052	FractionBox[
19053	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19054	SubscriptBox["s", "w"], " ",
19055	SubscriptBox[
19056	RowBox[{
19057	SuperscriptBox["\[Gamma]",
19058	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19059	SubscriptBox["P", "\<\"-\"\>"]}],
19060	RowBox[{
19061	SubscriptBox["\<\"s\"\>", "2"], ",",
19062	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19063	RowBox[{"2", " ",
19064	SubscriptBox["c", "w"]}]], "+",
19065	FractionBox[
19066	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19067	SubscriptBox["s", "w"], " ",
19068	SubscriptBox[
19069	RowBox[{
19070	SuperscriptBox["\[Gamma]",
19071	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19072	SubscriptBox["P", "\<\"+\"\>"]}],
19073	RowBox[{
19074	SubscriptBox["\<\"s\"\>", "2"], ",",
19075	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19076	SubscriptBox["c", "w"]]}]], "Print",
19077	CellChangeTimes->{
19078	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19079	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19080	3.581159752045684*^9}],
19081
19082	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19083	* * * * * *)\"\>"], "Print",
19084	CellChangeTimes->{
19085	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19086	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19087	3.581159752052314*^9}],
19088
19089	Cell[BoxData[
19090	InterpretationBox[
19091	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "120"}],
19092	SequenceForm["Vertex ", 120],
19093	Editable->False]], "Print",
19094	CellChangeTimes->{
19095	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19096	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19097	3.581159752057788*^9}],
19098
19099	Cell[BoxData[
19100	InterpretationBox[
19101	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19102	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19103	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
19104	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
19105	Editable->False]], "Print",
19106	CellChangeTimes->{
19107	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19108	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19109	3.581159752062625*^9}],
19110
19111	Cell[BoxData[
19112	InterpretationBox[
19113	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19114	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19115	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19116	OverscriptBox["mu", "\<\"-\"\>"]}],
19117	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`mubar],
19118	Editable->False]], "Print",
19119	CellChangeTimes->{
19120	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19121	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19122	3.581159752067543*^9}],
19123
19124	Cell[BoxData[
19125	InterpretationBox[
19126	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19127	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19128	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
19129	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
19130	Editable->False]], "Print",
19131	CellChangeTimes->{
19132	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19133	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19134	3.581159752072631*^9}],
19135
19136	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
19137	CellChangeTimes->{
19138	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19139	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19140	3.581159752077422*^9}],
19141
19142	Cell[BoxData[
19143	RowBox[{
19144	RowBox[{"-",
19145	FractionBox[
19146	RowBox[{"\[ImaginaryI]", " ",
19147	SubscriptBox["c", "w"], " ", "e", " ",
19148	SubscriptBox[
19149	RowBox[{
19150	SuperscriptBox["\[Gamma]",
19151	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19152	SubscriptBox["P", "\<\"-\"\>"]}],
19153	RowBox[{
19154	SubscriptBox["\<\"s\"\>", "2"], ",",
19155	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19156	RowBox[{"2", " ",
19157	SubscriptBox["s", "w"]}]]}], "+",
19158	FractionBox[
19159	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19160	SubscriptBox["s", "w"], " ",
19161	SubscriptBox[
19162	RowBox[{
19163	SuperscriptBox["\[Gamma]",
19164	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19165	SubscriptBox["P", "\<\"-\"\>"]}],
19166	RowBox[{
19167	SubscriptBox["\<\"s\"\>", "2"], ",",
19168	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19169	RowBox[{"2", " ",
19170	SubscriptBox["c", "w"]}]], "+",
19171	FractionBox[
19172	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19173	SubscriptBox["s", "w"], " ",
19174	SubscriptBox[
19175	RowBox[{
19176	SuperscriptBox["\[Gamma]",
19177	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19178	SubscriptBox["P", "\<\"+\"\>"]}],
19179	RowBox[{
19180	SubscriptBox["\<\"s\"\>", "2"], ",",
19181	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19182	SubscriptBox["c", "w"]]}]], "Print",
19183	CellChangeTimes->{
19184	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19185	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19186	3.581159752082458*^9}],
19187
19188	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19189	* * * * * *)\"\>"], "Print",
19190	CellChangeTimes->{
19191	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19192	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19193	3.5811597520877533`*^9}],
19194
19195	Cell[BoxData[
19196	InterpretationBox[
19197	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "121"}],
19198	SequenceForm["Vertex ", 121],
19199	Editable->False]], "Print",
19200	CellChangeTimes->{
19201	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19202	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19203	3.581159752092744*^9}],
19204
19205	Cell[BoxData[
19206	InterpretationBox[
19207	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19208	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19209	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
19210	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
19211	Editable->False]], "Print",
19212	CellChangeTimes->{
19213	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19214	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19215	3.581159752097534*^9}],
19216
19217	Cell[BoxData[
19218	InterpretationBox[
19219	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19220	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19221	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19222	OverscriptBox["ta", "\<\"-\"\>"]}],
19223	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
19224	Editable->False]], "Print",
19225	CellChangeTimes->{
19226	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19227	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19228	3.5811597521034946`*^9}],
19229
19230	Cell[BoxData[
19231	InterpretationBox[
19232	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19233	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19234	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
19235	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
19236	Editable->False]], "Print",
19237	CellChangeTimes->{
19238	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19239	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19240	3.581159752108837*^9}],
19241
19242	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
19243	CellChangeTimes->{
19244	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19245	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19246	3.581159752114106*^9}],
19247
19248	Cell[BoxData[
19249	RowBox[{
19250	RowBox[{"-",
19251	FractionBox[
19252	RowBox[{"\[ImaginaryI]", " ",
19253	SubscriptBox["c", "w"], " ", "e", " ",
19254	SubscriptBox[
19255	RowBox[{
19256	SuperscriptBox["\[Gamma]",
19257	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19258	SubscriptBox["P", "\<\"-\"\>"]}],
19259	RowBox[{
19260	SubscriptBox["\<\"s\"\>", "2"], ",",
19261	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19262	RowBox[{"2", " ",
19263	SubscriptBox["s", "w"]}]]}], "+",
19264	FractionBox[
19265	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19266	SubscriptBox["s", "w"], " ",
19267	SubscriptBox[
19268	RowBox[{
19269	SuperscriptBox["\[Gamma]",
19270	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19271	SubscriptBox["P", "\<\"-\"\>"]}],
19272	RowBox[{
19273	SubscriptBox["\<\"s\"\>", "2"], ",",
19274	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19275	RowBox[{"2", " ",
19276	SubscriptBox["c", "w"]}]], "+",
19277	FractionBox[
19278	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19279	SubscriptBox["s", "w"], " ",
19280	SubscriptBox[
19281	RowBox[{
19282	SuperscriptBox["\[Gamma]",
19283	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19284	SubscriptBox["P", "\<\"+\"\>"]}],
19285	RowBox[{
19286	SubscriptBox["\<\"s\"\>", "2"], ",",
19287	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19288	SubscriptBox["c", "w"]]}]], "Print",
19289	CellChangeTimes->{
19290	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19291	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19292	3.581159752119335*^9}],
19293
19294	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19295	* * * * * *)\"\>"], "Print",
19296	CellChangeTimes->{
19297	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19298	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19299	3.581159752124669*^9}],
19300
19301	Cell[BoxData[
19302	InterpretationBox[
19303	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "122"}],
19304	SequenceForm["Vertex ", 122],
19305	Editable->False]], "Print",
19306	CellChangeTimes->{
19307	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19308	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19309	3.581159752130044*^9}],
19310
19311	Cell[BoxData[
19312	InterpretationBox[
19313	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19314	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19315	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
19316	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
19317	Editable->False]], "Print",
19318	CellChangeTimes->{
19319	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19320	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19321	3.58115975213494*^9}],
19322
19323	Cell[BoxData[
19324	InterpretationBox[
19325	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19326	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19327	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19328	OverscriptBox["c", "\<\"-\"\>"]}],
19329	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
19330	Editable->False]], "Print",
19331	CellChangeTimes->{
19332	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19333	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19334	3.5811597521398907`*^9}],
19335
19336	Cell[BoxData[
19337	InterpretationBox[
19338	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19339	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19340	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
19341	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
19342	Editable->False]], "Print",
19343	CellChangeTimes->{
19344	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19345	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19346	3.581159752145172*^9}],
19347
19348	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
19349	CellChangeTimes->{
19350	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19351	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19352	3.581159752150083*^9}],
19353
19354	Cell[BoxData[
19355	RowBox[{
19356	FractionBox[
19357	RowBox[{"\[ImaginaryI]", " ",
19358	SubscriptBox["c", "w"], " ", "e", " ",
19359	SubscriptBox["\[Delta]",
19360	RowBox[{
19361	SubscriptBox["\<\"m\"\>", "1"], ",",
19362	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
19363	SubscriptBox[
19364	RowBox[{
19365	SuperscriptBox["\[Gamma]",
19366	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19367	SubscriptBox["P", "\<\"-\"\>"]}],
19368	RowBox[{
19369	SubscriptBox["\<\"s\"\>", "2"], ",",
19370	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19371	RowBox[{"2", " ",
19372	SubscriptBox["s", "w"]}]], "-",
19373	FractionBox[
19374	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19375	SubscriptBox["s", "w"], " ",
19376	SubscriptBox["\[Delta]",
19377	RowBox[{
19378	SubscriptBox["\<\"m\"\>", "1"], ",",
19379	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
19380	SubscriptBox[
19381	RowBox[{
19382	SuperscriptBox["\[Gamma]",
19383	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19384	SubscriptBox["P", "\<\"-\"\>"]}],
19385	RowBox[{
19386	SubscriptBox["\<\"s\"\>", "2"], ",",
19387	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19388	RowBox[{"6", " ",
19389	SubscriptBox["c", "w"]}]], "-",
19390	FractionBox[
19391	RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
19392	SubscriptBox["s", "w"], " ",
19393	SubscriptBox["\[Delta]",
19394	RowBox[{
19395	SubscriptBox["\<\"m\"\>", "1"], ",",
19396	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
19397	SubscriptBox[
19398	RowBox[{
19399	SuperscriptBox["\[Gamma]",
19400	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19401	SubscriptBox["P", "\<\"+\"\>"]}],
19402	RowBox[{
19403	SubscriptBox["\<\"s\"\>", "2"], ",",
19404	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19405	RowBox[{"3", " ",
19406	SubscriptBox["c", "w"]}]]}]], "Print",
19407	CellChangeTimes->{
19408	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19409	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19410	3.581159752155547*^9}],
19411
19412	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19413	* * * * * *)\"\>"], "Print",
19414	CellChangeTimes->{
19415	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19416	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19417	3.5811597521611567`*^9}],
19418
19419	Cell[BoxData[
19420	InterpretationBox[
19421	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "123"}],
19422	SequenceForm["Vertex ", 123],
19423	Editable->False]], "Print",
19424	CellChangeTimes->{
19425	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19426	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19427	3.581159752166078*^9}],
19428
19429	Cell[BoxData[
19430	InterpretationBox[
19431	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19432	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19433	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
19434	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
19435	Editable->False]], "Print",
19436	CellChangeTimes->{
19437	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19438	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19439	3.581159752170896*^9}],
19440
19441	Cell[BoxData[
19442	InterpretationBox[
19443	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19444	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19445	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19446	OverscriptBox["t", "\<\"-\"\>"]}],
19447	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
19448	Editable->False]], "Print",
19449	CellChangeTimes->{
19450	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19451	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19452	3.581159752175803*^9}],
19453
19454	Cell[BoxData[
19455	InterpretationBox[
19456	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19457	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19458	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
19459	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
19460	Editable->False]], "Print",
19461	CellChangeTimes->{
19462	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19463	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19464	3.5811597521810617`*^9}],
19465
19466	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
19467	CellChangeTimes->{
19468	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19469	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19470	3.5811597521858377`*^9}],
19471
19472	Cell[BoxData[
19473	RowBox[{
19474	FractionBox[
19475	RowBox[{"\[ImaginaryI]", " ",
19476	SubscriptBox["c", "w"], " ", "e", " ",
19477	SubscriptBox["\[Delta]",
19478	RowBox[{
19479	SubscriptBox["\<\"m\"\>", "1"], ",",
19480	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
19481	SubscriptBox[
19482	RowBox[{
19483	SuperscriptBox["\[Gamma]",
19484	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19485	SubscriptBox["P", "\<\"-\"\>"]}],
19486	RowBox[{
19487	SubscriptBox["\<\"s\"\>", "2"], ",",
19488	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19489	RowBox[{"2", " ",
19490	SubscriptBox["s", "w"]}]], "-",
19491	FractionBox[
19492	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19493	SubscriptBox["s", "w"], " ",
19494	SubscriptBox["\[Delta]",
19495	RowBox[{
19496	SubscriptBox["\<\"m\"\>", "1"], ",",
19497	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
19498	SubscriptBox[
19499	RowBox[{
19500	SuperscriptBox["\[Gamma]",
19501	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19502	SubscriptBox["P", "\<\"-\"\>"]}],
19503	RowBox[{
19504	SubscriptBox["\<\"s\"\>", "2"], ",",
19505	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19506	RowBox[{"6", " ",
19507	SubscriptBox["c", "w"]}]], "-",
19508	FractionBox[
19509	RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
19510	SubscriptBox["s", "w"], " ",
19511	SubscriptBox["\[Delta]",
19512	RowBox[{
19513	SubscriptBox["\<\"m\"\>", "1"], ",",
19514	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
19515	SubscriptBox[
19516	RowBox[{
19517	SuperscriptBox["\[Gamma]",
19518	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19519	SubscriptBox["P", "\<\"+\"\>"]}],
19520	RowBox[{
19521	SubscriptBox["\<\"s\"\>", "2"], ",",
19522	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19523	RowBox[{"3", " ",
19524	SubscriptBox["c", "w"]}]]}]], "Print",
19525	CellChangeTimes->{
19526	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19527	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19528	3.58115975219106*^9}],
19529
19530	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19531	* * * * * *)\"\>"], "Print",
19532	CellChangeTimes->{
19533	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19534	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19535	3.5811597521968517`*^9}],
19536
19537	Cell[BoxData[
19538	InterpretationBox[
19539	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "124"}],
19540	SequenceForm["Vertex ", 124],
19541	Editable->False]], "Print",
19542	CellChangeTimes->{
19543	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19544	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19545	3.58115975220193*^9}],
19546
19547	Cell[BoxData[
19548	InterpretationBox[
19549	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19550	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19551	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
19552	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
19553	Editable->False]], "Print",
19554	CellChangeTimes->{
19555	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19556	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19557	3.581159752206717*^9}],
19558
19559	Cell[BoxData[
19560	InterpretationBox[
19561	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19562	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19563	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19564	OverscriptBox["u", "\<\"-\"\>"]}],
19565	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
19566	Editable->False]], "Print",
19567	CellChangeTimes->{
19568	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19569	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19570	3.5811597522116013`*^9}],
19571
19572	Cell[BoxData[
19573	InterpretationBox[
19574	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19575	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19576	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
19577	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
19578	Editable->False]], "Print",
19579	CellChangeTimes->{
19580	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19581	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19582	3.5811597522166*^9}],
19583
19584	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
19585	CellChangeTimes->{
19586	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19587	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19588	3.581159752221415*^9}],
19589
19590	Cell[BoxData[
19591	RowBox[{
19592	FractionBox[
19593	RowBox[{"\[ImaginaryI]", " ",
19594	SubscriptBox["c", "w"], " ", "e", " ",
19595	SubscriptBox["\[Delta]",
19596	RowBox[{
19597	SubscriptBox["\<\"m\"\>", "1"], ",",
19598	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
19599	SubscriptBox[
19600	RowBox[{
19601	SuperscriptBox["\[Gamma]",
19602	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19603	SubscriptBox["P", "\<\"-\"\>"]}],
19604	RowBox[{
19605	SubscriptBox["\<\"s\"\>", "2"], ",",
19606	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19607	RowBox[{"2", " ",
19608	SubscriptBox["s", "w"]}]], "-",
19609	FractionBox[
19610	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19611	SubscriptBox["s", "w"], " ",
19612	SubscriptBox["\[Delta]",
19613	RowBox[{
19614	SubscriptBox["\<\"m\"\>", "1"], ",",
19615	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
19616	SubscriptBox[
19617	RowBox[{
19618	SuperscriptBox["\[Gamma]",
19619	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19620	SubscriptBox["P", "\<\"-\"\>"]}],
19621	RowBox[{
19622	SubscriptBox["\<\"s\"\>", "2"], ",",
19623	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19624	RowBox[{"6", " ",
19625	SubscriptBox["c", "w"]}]], "-",
19626	FractionBox[
19627	RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
19628	SubscriptBox["s", "w"], " ",
19629	SubscriptBox["\[Delta]",
19630	RowBox[{
19631	SubscriptBox["\<\"m\"\>", "1"], ",",
19632	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
19633	SubscriptBox[
19634	RowBox[{
19635	SuperscriptBox["\[Gamma]",
19636	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19637	SubscriptBox["P", "\<\"+\"\>"]}],
19638	RowBox[{
19639	SubscriptBox["\<\"s\"\>", "2"], ",",
19640	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19641	RowBox[{"3", " ",
19642	SubscriptBox["c", "w"]}]]}]], "Print",
19643	CellChangeTimes->{
19644	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19645	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19646	3.581159752226953*^9}],
19647
19648	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19649	* * * * * *)\"\>"], "Print",
19650	CellChangeTimes->{
19651	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19652	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19653	3.5811597522327023`*^9}],
19654
19655	Cell[BoxData[
19656	InterpretationBox[
19657	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "125"}],
19658	SequenceForm["Vertex ", 125],
19659	Editable->False]], "Print",
19660	CellChangeTimes->{
19661	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19662	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19663	3.581159752237565*^9}],
19664
19665	Cell[BoxData[
19666	InterpretationBox[
19667	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19668	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19669	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
19670	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ve],
19671	Editable->False]], "Print",
19672	CellChangeTimes->{
19673	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19674	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19675	3.581159752242515*^9}],
19676
19677	Cell[BoxData[
19678	InterpretationBox[
19679	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19680	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19681	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19682	OverscriptBox["ve", "\<\"-\"\>"]}],
19683	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
19684	Editable->False]], "Print",
19685	CellChangeTimes->{
19686	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19687	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19688	3.581159752247459*^9}],
19689
19690	Cell[BoxData[
19691	InterpretationBox[
19692	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19693	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19694	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
19695	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
19696	Editable->False]], "Print",
19697	CellChangeTimes->{
19698	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19699	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19700	3.5811597522522783`*^9}],
19701
19702	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
19703	CellChangeTimes->{
19704	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19705	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19706	3.581159752257156*^9}],
19707
19708	Cell[BoxData[
19709	RowBox[{
19710	FractionBox[
19711	RowBox[{"\[ImaginaryI]", " ",
19712	SubscriptBox["c", "w"], " ", "e", " ",
19713	SubscriptBox[
19714	RowBox[{
19715	SuperscriptBox["\[Gamma]",
19716	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19717	SubscriptBox["P", "\<\"-\"\>"]}],
19718	RowBox[{
19719	SubscriptBox["\<\"s\"\>", "2"], ",",
19720	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19721	RowBox[{"2", " ",
19722	SubscriptBox["s", "w"]}]], "+",
19723	FractionBox[
19724	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19725	SubscriptBox["s", "w"], " ",
19726	SubscriptBox[
19727	RowBox[{
19728	SuperscriptBox["\[Gamma]",
19729	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19730	SubscriptBox["P", "\<\"-\"\>"]}],
19731	RowBox[{
19732	SubscriptBox["\<\"s\"\>", "2"], ",",
19733	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19734	RowBox[{"2", " ",
19735	SubscriptBox["c", "w"]}]]}]], "Print",
19736	CellChangeTimes->{
19737	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19738	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19739	3.581159752262142*^9}],
19740
19741	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19742	* * * * * *)\"\>"], "Print",
19743	CellChangeTimes->{
19744	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19745	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19746	3.581159752267516*^9}],
19747
19748	Cell[BoxData[
19749	InterpretationBox[
19750	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "126"}],
19751	SequenceForm["Vertex ", 126],
19752	Editable->False]], "Print",
19753	CellChangeTimes->{
19754	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19755	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19756	3.581159752272387*^9}],
19757
19758	Cell[BoxData[
19759	InterpretationBox[
19760	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19761	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19762	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
19763	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vm],
19764	Editable->False]], "Print",
19765	CellChangeTimes->{
19766	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19767	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19768	3.581159752277276*^9}],
19769
19770	Cell[BoxData[
19771	InterpretationBox[
19772	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19773	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19774	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19775	OverscriptBox["vm", "\<\"-\"\>"]}],
19776	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
19777	Editable->False]], "Print",
19778	CellChangeTimes->{
19779	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19780	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19781	3.581159752282116*^9}],
19782
19783	Cell[BoxData[
19784	InterpretationBox[
19785	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19786	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19787	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
19788	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
19789	Editable->False]], "Print",
19790	CellChangeTimes->{
19791	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19792	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19793	3.581159752286991*^9}],
19794
19795	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
19796	CellChangeTimes->{
19797	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19798	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19799	3.581159752291872*^9}],
19800
19801	Cell[BoxData[
19802	RowBox[{
19803	FractionBox[
19804	RowBox[{"\[ImaginaryI]", " ",
19805	SubscriptBox["c", "w"], " ", "e", " ",
19806	SubscriptBox[
19807	RowBox[{
19808	SuperscriptBox["\[Gamma]",
19809	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19810	SubscriptBox["P", "\<\"-\"\>"]}],
19811	RowBox[{
19812	SubscriptBox["\<\"s\"\>", "2"], ",",
19813	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19814	RowBox[{"2", " ",
19815	SubscriptBox["s", "w"]}]], "+",
19816	FractionBox[
19817	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19818	SubscriptBox["s", "w"], " ",
19819	SubscriptBox[
19820	RowBox[{
19821	SuperscriptBox["\[Gamma]",
19822	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19823	SubscriptBox["P", "\<\"-\"\>"]}],
19824	RowBox[{
19825	SubscriptBox["\<\"s\"\>", "2"], ",",
19826	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19827	RowBox[{"2", " ",
19828	SubscriptBox["c", "w"]}]]}]], "Print",
19829	CellChangeTimes->{
19830	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19831	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19832	3.581159752296867*^9}],
19833
19834	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19835	* * * * * *)\"\>"], "Print",
19836	CellChangeTimes->{
19837	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19838	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19839	3.581159752302032*^9}],
19840
19841	Cell[BoxData[
19842	InterpretationBox[
19843	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "127"}],
19844	SequenceForm["Vertex ", 127],
19845	Editable->False]], "Print",
19846	CellChangeTimes->{
19847	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19848	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19849	3.581159752307136*^9}],
19850
19851	Cell[BoxData[
19852	InterpretationBox[
19853	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19854	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19855	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
19856	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vt],
19857	Editable->False]], "Print",
19858	CellChangeTimes->{
19859	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19860	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19861	3.581159752311952*^9}],
19862
19863	Cell[BoxData[
19864	InterpretationBox[
19865	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19866	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19867	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19868	OverscriptBox["vt", "\<\"-\"\>"]}],
19869	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
19870	Editable->False]], "Print",
19871	CellChangeTimes->{
19872	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19873	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19874	3.581159752316895*^9}],
19875
19876	Cell[BoxData[
19877	InterpretationBox[
19878	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19879	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19880	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
19881	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
19882	Editable->False]], "Print",
19883	CellChangeTimes->{
19884	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19885	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19886	3.581159752321907*^9}],
19887
19888	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
19889	CellChangeTimes->{
19890	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19891	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19892	3.5811597523266478`*^9}],
19893
19894	Cell[BoxData[
19895	RowBox[{
19896	FractionBox[
19897	RowBox[{"\[ImaginaryI]", " ",
19898	SubscriptBox["c", "w"], " ", "e", " ",
19899	SubscriptBox[
19900	RowBox[{
19901	SuperscriptBox["\[Gamma]",
19902	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19903	SubscriptBox["P", "\<\"-\"\>"]}],
19904	RowBox[{
19905	SubscriptBox["\<\"s\"\>", "2"], ",",
19906	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19907	RowBox[{"2", " ",
19908	SubscriptBox["s", "w"]}]], "+",
19909	FractionBox[
19910	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19911	SubscriptBox["s", "w"], " ",
19912	SubscriptBox[
19913	RowBox[{
19914	SuperscriptBox["\[Gamma]",
19915	SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
19916	SubscriptBox["P", "\<\"-\"\>"]}],
19917	RowBox[{
19918	SubscriptBox["\<\"s\"\>", "2"], ",",
19919	SubscriptBox["\<\"s\"\>", "1"]}]]}],
19920	RowBox[{"2", " ",
19921	SubscriptBox["c", "w"]}]]}]], "Print",
19922	CellChangeTimes->{
19923	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19924	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19925	3.581159752331702*^9}],
19926
19927	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19928	* * * * * *)\"\>"], "Print",
19929	CellChangeTimes->{
19930	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19931	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19932	3.58115975233681*^9}],
19933
19934	Cell[BoxData[
19935	InterpretationBox[
19936	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "128"}],
19937	SequenceForm["Vertex ", 128],
19938	Editable->False]], "Print",
19939	CellChangeTimes->{
19940	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19941	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19942	3.581159752341805*^9}],
19943
19944	Cell[BoxData[
19945	InterpretationBox[
19946	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19947	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19948	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
19949	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
19950	Editable->False]], "Print",
19951	CellChangeTimes->{
19952	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19953	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19954	3.581159752346838*^9}],
19955
19956	Cell[BoxData[
19957	InterpretationBox[
19958	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19959	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19960	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19961	OverscriptBox["b", "\<\"-\"\>"]}],
19962	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
19963	Editable->False]], "Print",
19964	CellChangeTimes->{
19965	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19966	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19967	3.581159752351737*^9}],
19968
19969	Cell[BoxData[
19970	InterpretationBox[
19971	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19972	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
19973	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
19974	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
19975	Editable->False]], "Print",
19976	CellChangeTimes->{
19977	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19978	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19979	3.581159752356605*^9}],
19980
19981	Cell[BoxData[
19982	InterpretationBox[
19983	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
19984	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19985	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
19986	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
19987	Editable->False]], "Print",
19988	CellChangeTimes->{
19989	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19990	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19991	3.581159752361535*^9}],
19992
19993	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
19994	CellChangeTimes->{
19995	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
19996	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
19997	3.581159752366321*^9}],
19998
19999	Cell[BoxData[
20000	RowBox[{
20001	RowBox[{"-",
20002	FractionBox[
20003	RowBox[{"\[ImaginaryI]", " ",
20004	SubscriptBox["c", "w"], " ", "e", " ",
20005	SubscriptBox["\[Kappa]", "q"], " ",
20006	SubscriptBox["\[Delta]",
20007	RowBox[{
20008	SubscriptBox["\<\"m\"\>", "1"], ",",
20009	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20010	SubscriptBox["\[Eta]",
20011	RowBox[{
20012	SubscriptBox["\<\"\[Mu]\"\>",
20013	RowBox[{"3", ",", "1"}]], ",",
20014	SubscriptBox["\<\"\[Mu]\"\>",
20015	RowBox[{"3", ",", "2"}]]}]], " ",
20016	SubscriptBox[
20017	RowBox[{
20018	SuperscriptBox["\[Gamma]",
20019	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
20020	SubscriptBox["P", "\<\"-\"\>"]}],
20021	RowBox[{
20022	SubscriptBox["\<\"s\"\>", "2"], ",",
20023	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20024	RowBox[{"2", " ", "\[CapitalLambda]", " ",
20025	SubscriptBox["s", "w"]}]]}], "-",
20026	FractionBox[
20027	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20028	SubscriptBox["\[Kappa]", "q"], " ",
20029	SubscriptBox["s", "w"], " ",
20030	SubscriptBox["\[Delta]",
20031	RowBox[{
20032	SubscriptBox["\<\"m\"\>", "1"], ",",
20033	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20034	SubscriptBox["\[Eta]",
20035	RowBox[{
20036	SubscriptBox["\<\"\[Mu]\"\>",
20037	RowBox[{"3", ",", "1"}]], ",",
20038	SubscriptBox["\<\"\[Mu]\"\>",
20039	RowBox[{"3", ",", "2"}]]}]], " ",
20040	SubscriptBox[
20041	RowBox[{
20042	SuperscriptBox["\[Gamma]",
20043	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
20044	SubscriptBox["P", "\<\"-\"\>"]}],
20045	RowBox[{
20046	SubscriptBox["\<\"s\"\>", "2"], ",",
20047	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20048	RowBox[{"6", " ",
20049	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
20050	FractionBox[
20051	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20052	SubscriptBox["\[Kappa]", "q"], " ",
20053	SubscriptBox["s", "w"], " ",
20054	SubscriptBox["\[Delta]",
20055	RowBox[{
20056	SubscriptBox["\<\"m\"\>", "1"], ",",
20057	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20058	SubscriptBox["\[Eta]",
20059	RowBox[{
20060	SubscriptBox["\<\"\[Mu]\"\>",
20061	RowBox[{"3", ",", "1"}]], ",",
20062	SubscriptBox["\<\"\[Mu]\"\>",
20063	RowBox[{"3", ",", "2"}]]}]], " ",
20064	SubscriptBox[
20065	RowBox[{
20066	SuperscriptBox["\[Gamma]",
20067	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
20068	SubscriptBox["P", "\<\"+\"\>"]}],
20069	RowBox[{
20070	SubscriptBox["\<\"s\"\>", "2"], ",",
20071	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20072	RowBox[{"3", " ",
20073	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
20074	FractionBox[
20075	RowBox[{"\[ImaginaryI]", " ",
20076	SubscriptBox["c", "w"], " ", "e", " ",
20077	SubscriptBox["\[Kappa]", "q"], " ",
20078	SubscriptBox["\[Delta]",
20079	RowBox[{
20080	SubscriptBox["\<\"m\"\>", "1"], ",",
20081	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20082	SubscriptBox["\[Eta]",
20083	RowBox[{
20084	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20085	SubscriptBox["\<\"\[Mu]\"\>",
20086	RowBox[{"3", ",", "2"}]]}]], " ",
20087	SubscriptBox[
20088	RowBox[{
20089	SuperscriptBox["\[Gamma]",
20090	SubscriptBox["\<\"\[Mu]\"\>",
20091	RowBox[{"3", ",", "1"}]]], ".",
20092	SubscriptBox["P", "\<\"-\"\>"]}],
20093	RowBox[{
20094	SubscriptBox["\<\"s\"\>", "2"], ",",
20095	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20096	RowBox[{"4", " ", "\[CapitalLambda]", " ",
20097	SubscriptBox["s", "w"]}]], "+",
20098	FractionBox[
20099	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20100	SubscriptBox["\[Kappa]", "q"], " ",
20101	SubscriptBox["s", "w"], " ",
20102	SubscriptBox["\[Delta]",
20103	RowBox[{
20104	SubscriptBox["\<\"m\"\>", "1"], ",",
20105	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20106	SubscriptBox["\[Eta]",
20107	RowBox[{
20108	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20109	SubscriptBox["\<\"\[Mu]\"\>",
20110	RowBox[{"3", ",", "2"}]]}]], " ",
20111	SubscriptBox[
20112	RowBox[{
20113	SuperscriptBox["\[Gamma]",
20114	SubscriptBox["\<\"\[Mu]\"\>",
20115	RowBox[{"3", ",", "1"}]]], ".",
20116	SubscriptBox["P", "\<\"-\"\>"]}],
20117	RowBox[{
20118	SubscriptBox["\<\"s\"\>", "2"], ",",
20119	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20120	RowBox[{"12", " ",
20121	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
20122	FractionBox[
20123	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20124	SubscriptBox["\[Kappa]", "q"], " ",
20125	SubscriptBox["s", "w"], " ",
20126	SubscriptBox["\[Delta]",
20127	RowBox[{
20128	SubscriptBox["\<\"m\"\>", "1"], ",",
20129	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20130	SubscriptBox["\[Eta]",
20131	RowBox[{
20132	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20133	SubscriptBox["\<\"\[Mu]\"\>",
20134	RowBox[{"3", ",", "2"}]]}]], " ",
20135	SubscriptBox[
20136	RowBox[{
20137	SuperscriptBox["\[Gamma]",
20138	SubscriptBox["\<\"\[Mu]\"\>",
20139	RowBox[{"3", ",", "1"}]]], ".",
20140	SubscriptBox["P", "\<\"+\"\>"]}],
20141	RowBox[{
20142	SubscriptBox["\<\"s\"\>", "2"], ",",
20143	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20144	RowBox[{"6", " ",
20145	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
20146	FractionBox[
20147	RowBox[{"\[ImaginaryI]", " ",
20148	SubscriptBox["c", "w"], " ", "e", " ",
20149	SubscriptBox["\[Kappa]", "q"], " ",
20150	SubscriptBox["\[Delta]",
20151	RowBox[{
20152	SubscriptBox["\<\"m\"\>", "1"], ",",
20153	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20154	SubscriptBox["\[Eta]",
20155	RowBox[{
20156	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20157	SubscriptBox["\<\"\[Mu]\"\>",
20158	RowBox[{"3", ",", "1"}]]}]], " ",
20159	SubscriptBox[
20160	RowBox[{
20161	SuperscriptBox["\[Gamma]",
20162	SubscriptBox["\<\"\[Mu]\"\>",
20163	RowBox[{"3", ",", "2"}]]], ".",
20164	SubscriptBox["P", "\<\"-\"\>"]}],
20165	RowBox[{
20166	SubscriptBox["\<\"s\"\>", "2"], ",",
20167	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20168	RowBox[{"4", " ", "\[CapitalLambda]", " ",
20169	SubscriptBox["s", "w"]}]], "+",
20170	FractionBox[
20171	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20172	SubscriptBox["\[Kappa]", "q"], " ",
20173	SubscriptBox["s", "w"], " ",
20174	SubscriptBox["\[Delta]",
20175	RowBox[{
20176	SubscriptBox["\<\"m\"\>", "1"], ",",
20177	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20178	SubscriptBox["\[Eta]",
20179	RowBox[{
20180	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20181	SubscriptBox["\<\"\[Mu]\"\>",
20182	RowBox[{"3", ",", "1"}]]}]], " ",
20183	SubscriptBox[
20184	RowBox[{
20185	SuperscriptBox["\[Gamma]",
20186	SubscriptBox["\<\"\[Mu]\"\>",
20187	RowBox[{"3", ",", "2"}]]], ".",
20188	SubscriptBox["P", "\<\"-\"\>"]}],
20189	RowBox[{
20190	SubscriptBox["\<\"s\"\>", "2"], ",",
20191	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20192	RowBox[{"12", " ",
20193	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
20194	FractionBox[
20195	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20196	SubscriptBox["\[Kappa]", "q"], " ",
20197	SubscriptBox["s", "w"], " ",
20198	SubscriptBox["\[Delta]",
20199	RowBox[{
20200	SubscriptBox["\<\"m\"\>", "1"], ",",
20201	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20202	SubscriptBox["\[Eta]",
20203	RowBox[{
20204	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20205	SubscriptBox["\<\"\[Mu]\"\>",
20206	RowBox[{"3", ",", "1"}]]}]], " ",
20207	SubscriptBox[
20208	RowBox[{
20209	SuperscriptBox["\[Gamma]",
20210	SubscriptBox["\<\"\[Mu]\"\>",
20211	RowBox[{"3", ",", "2"}]]], ".",
20212	SubscriptBox["P", "\<\"+\"\>"]}],
20213	RowBox[{
20214	SubscriptBox["\<\"s\"\>", "2"], ",",
20215	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20216	RowBox[{"6", " ",
20217	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
20218	CellChangeTimes->{
20219	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20220	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20221	3.58115975237287*^9}],
20222
20223	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
20224	* * * * * *)\"\>"], "Print",
20225	CellChangeTimes->{
20226	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20227	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20228	3.581159752382291*^9}],
20229
20230	Cell[BoxData[
20231	InterpretationBox[
20232	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "129"}],
20233	SequenceForm["Vertex ", 129],
20234	Editable->False]], "Print",
20235	CellChangeTimes->{
20236	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20237	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20238	3.5811597524163857`*^9}],
20239
20240	Cell[BoxData[
20241	InterpretationBox[
20242	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
20243	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20244	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
20245	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
20246	Editable->False]], "Print",
20247	CellChangeTimes->{
20248	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20249	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20250	3.581159752422738*^9}],
20251
20252	Cell[BoxData[
20253	InterpretationBox[
20254	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
20255	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20256	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
20257	OverscriptBox["d", "\<\"-\"\>"]}],
20258	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
20259	Editable->False]], "Print",
20260	CellChangeTimes->{
20261	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20262	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20263	3.581159752429082*^9}],
20264
20265	Cell[BoxData[
20266	InterpretationBox[
20267	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
20268	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
20269	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
20270	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
20271	Editable->False]], "Print",
20272	CellChangeTimes->{
20273	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20274	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20275	3.581159752434902*^9}],
20276
20277	Cell[BoxData[
20278	InterpretationBox[
20279	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
20280	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
20281	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
20282	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
20283	Editable->False]], "Print",
20284	CellChangeTimes->{
20285	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20286	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20287	3.5811597524409103`*^9}],
20288
20289	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
20290	CellChangeTimes->{
20291	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20292	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20293	3.581159752446694*^9}],
20294
20295	Cell[BoxData[
20296	RowBox[{
20297	RowBox[{"-",
20298	FractionBox[
20299	RowBox[{"\[ImaginaryI]", " ",
20300	SubscriptBox["c", "w"], " ", "e", " ",
20301	SubscriptBox["\[Kappa]", "q"], " ",
20302	SubscriptBox["\[Delta]",
20303	RowBox[{
20304	SubscriptBox["\<\"m\"\>", "1"], ",",
20305	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20306	SubscriptBox["\[Eta]",
20307	RowBox[{
20308	SubscriptBox["\<\"\[Mu]\"\>",
20309	RowBox[{"3", ",", "1"}]], ",",
20310	SubscriptBox["\<\"\[Mu]\"\>",
20311	RowBox[{"3", ",", "2"}]]}]], " ",
20312	SubscriptBox[
20313	RowBox[{
20314	SuperscriptBox["\[Gamma]",
20315	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
20316	SubscriptBox["P", "\<\"-\"\>"]}],
20317	RowBox[{
20318	SubscriptBox["\<\"s\"\>", "2"], ",",
20319	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20320	RowBox[{"2", " ", "\[CapitalLambda]", " ",
20321	SubscriptBox["s", "w"]}]]}], "-",
20322	FractionBox[
20323	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20324	SubscriptBox["\[Kappa]", "q"], " ",
20325	SubscriptBox["s", "w"], " ",
20326	SubscriptBox["\[Delta]",
20327	RowBox[{
20328	SubscriptBox["\<\"m\"\>", "1"], ",",
20329	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20330	SubscriptBox["\[Eta]",
20331	RowBox[{
20332	SubscriptBox["\<\"\[Mu]\"\>",
20333	RowBox[{"3", ",", "1"}]], ",",
20334	SubscriptBox["\<\"\[Mu]\"\>",
20335	RowBox[{"3", ",", "2"}]]}]], " ",
20336	SubscriptBox[
20337	RowBox[{
20338	SuperscriptBox["\[Gamma]",
20339	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
20340	SubscriptBox["P", "\<\"-\"\>"]}],
20341	RowBox[{
20342	SubscriptBox["\<\"s\"\>", "2"], ",",
20343	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20344	RowBox[{"6", " ",
20345	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
20346	FractionBox[
20347	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20348	SubscriptBox["\[Kappa]", "q"], " ",
20349	SubscriptBox["s", "w"], " ",
20350	SubscriptBox["\[Delta]",
20351	RowBox[{
20352	SubscriptBox["\<\"m\"\>", "1"], ",",
20353	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20354	SubscriptBox["\[Eta]",
20355	RowBox[{
20356	SubscriptBox["\<\"\[Mu]\"\>",
20357	RowBox[{"3", ",", "1"}]], ",",
20358	SubscriptBox["\<\"\[Mu]\"\>",
20359	RowBox[{"3", ",", "2"}]]}]], " ",
20360	SubscriptBox[
20361	RowBox[{
20362	SuperscriptBox["\[Gamma]",
20363	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
20364	SubscriptBox["P", "\<\"+\"\>"]}],
20365	RowBox[{
20366	SubscriptBox["\<\"s\"\>", "2"], ",",
20367	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20368	RowBox[{"3", " ",
20369	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
20370	FractionBox[
20371	RowBox[{"\[ImaginaryI]", " ",
20372	SubscriptBox["c", "w"], " ", "e", " ",
20373	SubscriptBox["\[Kappa]", "q"], " ",
20374	SubscriptBox["\[Delta]",
20375	RowBox[{
20376	SubscriptBox["\<\"m\"\>", "1"], ",",
20377	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20378	SubscriptBox["\[Eta]",
20379	RowBox[{
20380	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20381	SubscriptBox["\<\"\[Mu]\"\>",
20382	RowBox[{"3", ",", "2"}]]}]], " ",
20383	SubscriptBox[
20384	RowBox[{
20385	SuperscriptBox["\[Gamma]",
20386	SubscriptBox["\<\"\[Mu]\"\>",
20387	RowBox[{"3", ",", "1"}]]], ".",
20388	SubscriptBox["P", "\<\"-\"\>"]}],
20389	RowBox[{
20390	SubscriptBox["\<\"s\"\>", "2"], ",",
20391	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20392	RowBox[{"4", " ", "\[CapitalLambda]", " ",
20393	SubscriptBox["s", "w"]}]], "+",
20394	FractionBox[
20395	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20396	SubscriptBox["\[Kappa]", "q"], " ",
20397	SubscriptBox["s", "w"], " ",
20398	SubscriptBox["\[Delta]",
20399	RowBox[{
20400	SubscriptBox["\<\"m\"\>", "1"], ",",
20401	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20402	SubscriptBox["\[Eta]",
20403	RowBox[{
20404	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20405	SubscriptBox["\<\"\[Mu]\"\>",
20406	RowBox[{"3", ",", "2"}]]}]], " ",
20407	SubscriptBox[
20408	RowBox[{
20409	SuperscriptBox["\[Gamma]",
20410	SubscriptBox["\<\"\[Mu]\"\>",
20411	RowBox[{"3", ",", "1"}]]], ".",
20412	SubscriptBox["P", "\<\"-\"\>"]}],
20413	RowBox[{
20414	SubscriptBox["\<\"s\"\>", "2"], ",",
20415	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20416	RowBox[{"12", " ",
20417	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
20418	FractionBox[
20419	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20420	SubscriptBox["\[Kappa]", "q"], " ",
20421	SubscriptBox["s", "w"], " ",
20422	SubscriptBox["\[Delta]",
20423	RowBox[{
20424	SubscriptBox["\<\"m\"\>", "1"], ",",
20425	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20426	SubscriptBox["\[Eta]",
20427	RowBox[{
20428	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20429	SubscriptBox["\<\"\[Mu]\"\>",
20430	RowBox[{"3", ",", "2"}]]}]], " ",
20431	SubscriptBox[
20432	RowBox[{
20433	SuperscriptBox["\[Gamma]",
20434	SubscriptBox["\<\"\[Mu]\"\>",
20435	RowBox[{"3", ",", "1"}]]], ".",
20436	SubscriptBox["P", "\<\"+\"\>"]}],
20437	RowBox[{
20438	SubscriptBox["\<\"s\"\>", "2"], ",",
20439	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20440	RowBox[{"6", " ",
20441	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
20442	FractionBox[
20443	RowBox[{"\[ImaginaryI]", " ",
20444	SubscriptBox["c", "w"], " ", "e", " ",
20445	SubscriptBox["\[Kappa]", "q"], " ",
20446	SubscriptBox["\[Delta]",
20447	RowBox[{
20448	SubscriptBox["\<\"m\"\>", "1"], ",",
20449	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20450	SubscriptBox["\[Eta]",
20451	RowBox[{
20452	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20453	SubscriptBox["\<\"\[Mu]\"\>",
20454	RowBox[{"3", ",", "1"}]]}]], " ",
20455	SubscriptBox[
20456	RowBox[{
20457	SuperscriptBox["\[Gamma]",
20458	SubscriptBox["\<\"\[Mu]\"\>",
20459	RowBox[{"3", ",", "2"}]]], ".",
20460	SubscriptBox["P", "\<\"-\"\>"]}],
20461	RowBox[{
20462	SubscriptBox["\<\"s\"\>", "2"], ",",
20463	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20464	RowBox[{"4", " ", "\[CapitalLambda]", " ",
20465	SubscriptBox["s", "w"]}]], "+",
20466	FractionBox[
20467	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20468	SubscriptBox["\[Kappa]", "q"], " ",
20469	SubscriptBox["s", "w"], " ",
20470	SubscriptBox["\[Delta]",
20471	RowBox[{
20472	SubscriptBox["\<\"m\"\>", "1"], ",",
20473	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20474	SubscriptBox["\[Eta]",
20475	RowBox[{
20476	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20477	SubscriptBox["\<\"\[Mu]\"\>",
20478	RowBox[{"3", ",", "1"}]]}]], " ",
20479	SubscriptBox[
20480	RowBox[{
20481	SuperscriptBox["\[Gamma]",
20482	SubscriptBox["\<\"\[Mu]\"\>",
20483	RowBox[{"3", ",", "2"}]]], ".",
20484	SubscriptBox["P", "\<\"-\"\>"]}],
20485	RowBox[{
20486	SubscriptBox["\<\"s\"\>", "2"], ",",
20487	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20488	RowBox[{"12", " ",
20489	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
20490	FractionBox[
20491	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20492	SubscriptBox["\[Kappa]", "q"], " ",
20493	SubscriptBox["s", "w"], " ",
20494	SubscriptBox["\[Delta]",
20495	RowBox[{
20496	SubscriptBox["\<\"m\"\>", "1"], ",",
20497	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20498	SubscriptBox["\[Eta]",
20499	RowBox[{
20500	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20501	SubscriptBox["\<\"\[Mu]\"\>",
20502	RowBox[{"3", ",", "1"}]]}]], " ",
20503	SubscriptBox[
20504	RowBox[{
20505	SuperscriptBox["\[Gamma]",
20506	SubscriptBox["\<\"\[Mu]\"\>",
20507	RowBox[{"3", ",", "2"}]]], ".",
20508	SubscriptBox["P", "\<\"+\"\>"]}],
20509	RowBox[{
20510	SubscriptBox["\<\"s\"\>", "2"], ",",
20511	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20512	RowBox[{"6", " ",
20513	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
20514	CellChangeTimes->{
20515	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20516	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20517	3.581159752453549*^9}],
20518
20519	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
20520	* * * * * *)\"\>"], "Print",
20521	CellChangeTimes->{
20522	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20523	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20524	3.581159752462488*^9}],
20525
20526	Cell[BoxData[
20527	InterpretationBox[
20528	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "130"}],
20529	SequenceForm["Vertex ", 130],
20530	Editable->False]], "Print",
20531	CellChangeTimes->{
20532	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20533	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20534	3.581159752467834*^9}],
20535
20536	Cell[BoxData[
20537	InterpretationBox[
20538	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
20539	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20540	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
20541	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
20542	Editable->False]], "Print",
20543	CellChangeTimes->{
20544	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20545	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20546	3.581159752473173*^9}],
20547
20548	Cell[BoxData[
20549	InterpretationBox[
20550	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
20551	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20552	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
20553	OverscriptBox["s", "\<\"-\"\>"]}],
20554	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
20555	Editable->False]], "Print",
20556	CellChangeTimes->{
20557	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20558	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20559	3.581159752478516*^9}],
20560
20561	Cell[BoxData[
20562	InterpretationBox[
20563	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
20564	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
20565	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
20566	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
20567	Editable->False]], "Print",
20568	CellChangeTimes->{
20569	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20570	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20571	3.5811597524837427`*^9}],
20572
20573	Cell[BoxData[
20574	InterpretationBox[
20575	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
20576	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
20577	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
20578	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
20579	Editable->False]], "Print",
20580	CellChangeTimes->{
20581	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20582	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20583	3.5811597524890947`*^9}],
20584
20585	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
20586	CellChangeTimes->{
20587	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20588	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20589	3.581159752494442*^9}],
20590
20591	Cell[BoxData[
20592	RowBox[{
20593	RowBox[{"-",
20594	FractionBox[
20595	RowBox[{"\[ImaginaryI]", " ",
20596	SubscriptBox["c", "w"], " ", "e", " ",
20597	SubscriptBox["\[Kappa]", "q"], " ",
20598	SubscriptBox["\[Delta]",
20599	RowBox[{
20600	SubscriptBox["\<\"m\"\>", "1"], ",",
20601	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20602	SubscriptBox["\[Eta]",
20603	RowBox[{
20604	SubscriptBox["\<\"\[Mu]\"\>",
20605	RowBox[{"3", ",", "1"}]], ",",
20606	SubscriptBox["\<\"\[Mu]\"\>",
20607	RowBox[{"3", ",", "2"}]]}]], " ",
20608	SubscriptBox[
20609	RowBox[{
20610	SuperscriptBox["\[Gamma]",
20611	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
20612	SubscriptBox["P", "\<\"-\"\>"]}],
20613	RowBox[{
20614	SubscriptBox["\<\"s\"\>", "2"], ",",
20615	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20616	RowBox[{"2", " ", "\[CapitalLambda]", " ",
20617	SubscriptBox["s", "w"]}]]}], "-",
20618	FractionBox[
20619	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20620	SubscriptBox["\[Kappa]", "q"], " ",
20621	SubscriptBox["s", "w"], " ",
20622	SubscriptBox["\[Delta]",
20623	RowBox[{
20624	SubscriptBox["\<\"m\"\>", "1"], ",",
20625	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20626	SubscriptBox["\[Eta]",
20627	RowBox[{
20628	SubscriptBox["\<\"\[Mu]\"\>",
20629	RowBox[{"3", ",", "1"}]], ",",
20630	SubscriptBox["\<\"\[Mu]\"\>",
20631	RowBox[{"3", ",", "2"}]]}]], " ",
20632	SubscriptBox[
20633	RowBox[{
20634	SuperscriptBox["\[Gamma]",
20635	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
20636	SubscriptBox["P", "\<\"-\"\>"]}],
20637	RowBox[{
20638	SubscriptBox["\<\"s\"\>", "2"], ",",
20639	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20640	RowBox[{"6", " ",
20641	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
20642	FractionBox[
20643	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20644	SubscriptBox["\[Kappa]", "q"], " ",
20645	SubscriptBox["s", "w"], " ",
20646	SubscriptBox["\[Delta]",
20647	RowBox[{
20648	SubscriptBox["\<\"m\"\>", "1"], ",",
20649	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20650	SubscriptBox["\[Eta]",
20651	RowBox[{
20652	SubscriptBox["\<\"\[Mu]\"\>",
20653	RowBox[{"3", ",", "1"}]], ",",
20654	SubscriptBox["\<\"\[Mu]\"\>",
20655	RowBox[{"3", ",", "2"}]]}]], " ",
20656	SubscriptBox[
20657	RowBox[{
20658	SuperscriptBox["\[Gamma]",
20659	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
20660	SubscriptBox["P", "\<\"+\"\>"]}],
20661	RowBox[{
20662	SubscriptBox["\<\"s\"\>", "2"], ",",
20663	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20664	RowBox[{"3", " ",
20665	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
20666	FractionBox[
20667	RowBox[{"\[ImaginaryI]", " ",
20668	SubscriptBox["c", "w"], " ", "e", " ",
20669	SubscriptBox["\[Kappa]", "q"], " ",
20670	SubscriptBox["\[Delta]",
20671	RowBox[{
20672	SubscriptBox["\<\"m\"\>", "1"], ",",
20673	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20674	SubscriptBox["\[Eta]",
20675	RowBox[{
20676	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20677	SubscriptBox["\<\"\[Mu]\"\>",
20678	RowBox[{"3", ",", "2"}]]}]], " ",
20679	SubscriptBox[
20680	RowBox[{
20681	SuperscriptBox["\[Gamma]",
20682	SubscriptBox["\<\"\[Mu]\"\>",
20683	RowBox[{"3", ",", "1"}]]], ".",
20684	SubscriptBox["P", "\<\"-\"\>"]}],
20685	RowBox[{
20686	SubscriptBox["\<\"s\"\>", "2"], ",",
20687	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20688	RowBox[{"4", " ", "\[CapitalLambda]", " ",
20689	SubscriptBox["s", "w"]}]], "+",
20690	FractionBox[
20691	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20692	SubscriptBox["\[Kappa]", "q"], " ",
20693	SubscriptBox["s", "w"], " ",
20694	SubscriptBox["\[Delta]",
20695	RowBox[{
20696	SubscriptBox["\<\"m\"\>", "1"], ",",
20697	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20698	SubscriptBox["\[Eta]",
20699	RowBox[{
20700	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20701	SubscriptBox["\<\"\[Mu]\"\>",
20702	RowBox[{"3", ",", "2"}]]}]], " ",
20703	SubscriptBox[
20704	RowBox[{
20705	SuperscriptBox["\[Gamma]",
20706	SubscriptBox["\<\"\[Mu]\"\>",
20707	RowBox[{"3", ",", "1"}]]], ".",
20708	SubscriptBox["P", "\<\"-\"\>"]}],
20709	RowBox[{
20710	SubscriptBox["\<\"s\"\>", "2"], ",",
20711	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20712	RowBox[{"12", " ",
20713	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
20714	FractionBox[
20715	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20716	SubscriptBox["\[Kappa]", "q"], " ",
20717	SubscriptBox["s", "w"], " ",
20718	SubscriptBox["\[Delta]",
20719	RowBox[{
20720	SubscriptBox["\<\"m\"\>", "1"], ",",
20721	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20722	SubscriptBox["\[Eta]",
20723	RowBox[{
20724	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20725	SubscriptBox["\<\"\[Mu]\"\>",
20726	RowBox[{"3", ",", "2"}]]}]], " ",
20727	SubscriptBox[
20728	RowBox[{
20729	SuperscriptBox["\[Gamma]",
20730	SubscriptBox["\<\"\[Mu]\"\>",
20731	RowBox[{"3", ",", "1"}]]], ".",
20732	SubscriptBox["P", "\<\"+\"\>"]}],
20733	RowBox[{
20734	SubscriptBox["\<\"s\"\>", "2"], ",",
20735	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20736	RowBox[{"6", " ",
20737	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
20738	FractionBox[
20739	RowBox[{"\[ImaginaryI]", " ",
20740	SubscriptBox["c", "w"], " ", "e", " ",
20741	SubscriptBox["\[Kappa]", "q"], " ",
20742	SubscriptBox["\[Delta]",
20743	RowBox[{
20744	SubscriptBox["\<\"m\"\>", "1"], ",",
20745	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20746	SubscriptBox["\[Eta]",
20747	RowBox[{
20748	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20749	SubscriptBox["\<\"\[Mu]\"\>",
20750	RowBox[{"3", ",", "1"}]]}]], " ",
20751	SubscriptBox[
20752	RowBox[{
20753	SuperscriptBox["\[Gamma]",
20754	SubscriptBox["\<\"\[Mu]\"\>",
20755	RowBox[{"3", ",", "2"}]]], ".",
20756	SubscriptBox["P", "\<\"-\"\>"]}],
20757	RowBox[{
20758	SubscriptBox["\<\"s\"\>", "2"], ",",
20759	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20760	RowBox[{"4", " ", "\[CapitalLambda]", " ",
20761	SubscriptBox["s", "w"]}]], "+",
20762	FractionBox[
20763	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20764	SubscriptBox["\[Kappa]", "q"], " ",
20765	SubscriptBox["s", "w"], " ",
20766	SubscriptBox["\[Delta]",
20767	RowBox[{
20768	SubscriptBox["\<\"m\"\>", "1"], ",",
20769	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20770	SubscriptBox["\[Eta]",
20771	RowBox[{
20772	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20773	SubscriptBox["\<\"\[Mu]\"\>",
20774	RowBox[{"3", ",", "1"}]]}]], " ",
20775	SubscriptBox[
20776	RowBox[{
20777	SuperscriptBox["\[Gamma]",
20778	SubscriptBox["\<\"\[Mu]\"\>",
20779	RowBox[{"3", ",", "2"}]]], ".",
20780	SubscriptBox["P", "\<\"-\"\>"]}],
20781	RowBox[{
20782	SubscriptBox["\<\"s\"\>", "2"], ",",
20783	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20784	RowBox[{"12", " ",
20785	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
20786	FractionBox[
20787	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20788	SubscriptBox["\[Kappa]", "q"], " ",
20789	SubscriptBox["s", "w"], " ",
20790	SubscriptBox["\[Delta]",
20791	RowBox[{
20792	SubscriptBox["\<\"m\"\>", "1"], ",",
20793	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20794	SubscriptBox["\[Eta]",
20795	RowBox[{
20796	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20797	SubscriptBox["\<\"\[Mu]\"\>",
20798	RowBox[{"3", ",", "1"}]]}]], " ",
20799	SubscriptBox[
20800	RowBox[{
20801	SuperscriptBox["\[Gamma]",
20802	SubscriptBox["\<\"\[Mu]\"\>",
20803	RowBox[{"3", ",", "2"}]]], ".",
20804	SubscriptBox["P", "\<\"+\"\>"]}],
20805	RowBox[{
20806	SubscriptBox["\<\"s\"\>", "2"], ",",
20807	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20808	RowBox[{"6", " ",
20809	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
20810	CellChangeTimes->{
20811	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20812	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20813	3.581159752501267*^9}],
20814
20815	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
20816	* * * * * *)\"\>"], "Print",
20817	CellChangeTimes->{
20818	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20819	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20820	3.581159752510138*^9}],
20821
20822	Cell[BoxData[
20823	InterpretationBox[
20824	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "131"}],
20825	SequenceForm["Vertex ", 131],
20826	Editable->False]], "Print",
20827	CellChangeTimes->{
20828	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20829	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20830	3.581159752515368*^9}],
20831
20832	Cell[BoxData[
20833	InterpretationBox[
20834	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
20835	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20836	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
20837	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
20838	Editable->False]], "Print",
20839	CellChangeTimes->{
20840	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20841	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20842	3.581159752520687*^9}],
20843
20844	Cell[BoxData[
20845	InterpretationBox[
20846	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
20847	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20848	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
20849	OverscriptBox["e", "\<\"-\"\>"]}],
20850	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ebar],
20851	Editable->False]], "Print",
20852	CellChangeTimes->{
20853	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20854	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20855	3.581159752527049*^9}],
20856
20857	Cell[BoxData[
20858	InterpretationBox[
20859	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
20860	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
20861	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
20862	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
20863	Editable->False]], "Print",
20864	CellChangeTimes->{
20865	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20866	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20867	3.581159752532419*^9}],
20868
20869	Cell[BoxData[
20870	InterpretationBox[
20871	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
20872	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
20873	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
20874	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
20875	Editable->False]], "Print",
20876	CellChangeTimes->{
20877	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20878	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20879	3.58115975254016*^9}],
20880
20881	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
20882	CellChangeTimes->{
20883	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
20884	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
20885	3.581159752545803*^9}],
20886
20887	Cell[BoxData[
20888	RowBox[{
20889	RowBox[{"-",
20890	FractionBox[
20891	RowBox[{"\[ImaginaryI]", " ",
20892	SubscriptBox["c", "w"], " ", "e", " ",
20893	SubscriptBox["\[Kappa]", "l"], " ",
20894	SubscriptBox["\[Eta]",
20895	RowBox[{
20896	SubscriptBox["\<\"\[Mu]\"\>",
20897	RowBox[{"3", ",", "1"}]], ",",
20898	SubscriptBox["\<\"\[Mu]\"\>",
20899	RowBox[{"3", ",", "2"}]]}]], " ",
20900	SubscriptBox[
20901	RowBox[{
20902	SuperscriptBox["\[Gamma]",
20903	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
20904	SubscriptBox["P", "\<\"-\"\>"]}],
20905	RowBox[{
20906	SubscriptBox["\<\"s\"\>", "2"], ",",
20907	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20908	RowBox[{"2", " ", "\[CapitalLambda]", " ",
20909	SubscriptBox["s", "w"]}]]}], "+",
20910	FractionBox[
20911	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20912	SubscriptBox["\[Kappa]", "l"], " ",
20913	SubscriptBox["s", "w"], " ",
20914	SubscriptBox["\[Eta]",
20915	RowBox[{
20916	SubscriptBox["\<\"\[Mu]\"\>",
20917	RowBox[{"3", ",", "1"}]], ",",
20918	SubscriptBox["\<\"\[Mu]\"\>",
20919	RowBox[{"3", ",", "2"}]]}]], " ",
20920	SubscriptBox[
20921	RowBox[{
20922	SuperscriptBox["\[Gamma]",
20923	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
20924	SubscriptBox["P", "\<\"-\"\>"]}],
20925	RowBox[{
20926	SubscriptBox["\<\"s\"\>", "2"], ",",
20927	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20928	RowBox[{"2", " ",
20929	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
20930	FractionBox[
20931	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20932	SubscriptBox["\[Kappa]", "l"], " ",
20933	SubscriptBox["s", "w"], " ",
20934	SubscriptBox["\[Eta]",
20935	RowBox[{
20936	SubscriptBox["\<\"\[Mu]\"\>",
20937	RowBox[{"3", ",", "1"}]], ",",
20938	SubscriptBox["\<\"\[Mu]\"\>",
20939	RowBox[{"3", ",", "2"}]]}]], " ",
20940	SubscriptBox[
20941	RowBox[{
20942	SuperscriptBox["\[Gamma]",
20943	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
20944	SubscriptBox["P", "\<\"+\"\>"]}],
20945	RowBox[{
20946	SubscriptBox["\<\"s\"\>", "2"], ",",
20947	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20948	RowBox[{
20949	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
20950	FractionBox[
20951	RowBox[{"\[ImaginaryI]", " ",
20952	SubscriptBox["c", "w"], " ", "e", " ",
20953	SubscriptBox["\[Kappa]", "l"], " ",
20954	SubscriptBox["\[Eta]",
20955	RowBox[{
20956	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20957	SubscriptBox["\<\"\[Mu]\"\>",
20958	RowBox[{"3", ",", "2"}]]}]], " ",
20959	SubscriptBox[
20960	RowBox[{
20961	SuperscriptBox["\[Gamma]",
20962	SubscriptBox["\<\"\[Mu]\"\>",
20963	RowBox[{"3", ",", "1"}]]], ".",
20964	SubscriptBox["P", "\<\"-\"\>"]}],
20965	RowBox[{
20966	SubscriptBox["\<\"s\"\>", "2"], ",",
20967	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20968	RowBox[{"4", " ", "\[CapitalLambda]", " ",
20969	SubscriptBox["s", "w"]}]], "-",
20970	FractionBox[
20971	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20972	SubscriptBox["\[Kappa]", "l"], " ",
20973	SubscriptBox["s", "w"], " ",
20974	SubscriptBox["\[Eta]",
20975	RowBox[{
20976	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20977	SubscriptBox["\<\"\[Mu]\"\>",
20978	RowBox[{"3", ",", "2"}]]}]], " ",
20979	SubscriptBox[
20980	RowBox[{
20981	SuperscriptBox["\[Gamma]",
20982	SubscriptBox["\<\"\[Mu]\"\>",
20983	RowBox[{"3", ",", "1"}]]], ".",
20984	SubscriptBox["P", "\<\"-\"\>"]}],
20985	RowBox[{
20986	SubscriptBox["\<\"s\"\>", "2"], ",",
20987	SubscriptBox["\<\"s\"\>", "1"]}]]}],
20988	RowBox[{"4", " ",
20989	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
20990	FractionBox[
20991	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20992	SubscriptBox["\[Kappa]", "l"], " ",
20993	SubscriptBox["s", "w"], " ",
20994	SubscriptBox["\[Eta]",
20995	RowBox[{
20996	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
20997	SubscriptBox["\<\"\[Mu]\"\>",
20998	RowBox[{"3", ",", "2"}]]}]], " ",
20999	SubscriptBox[
21000	RowBox[{
21001	SuperscriptBox["\[Gamma]",
21002	SubscriptBox["\<\"\[Mu]\"\>",
21003	RowBox[{"3", ",", "1"}]]], ".",
21004	SubscriptBox["P", "\<\"+\"\>"]}],
21005	RowBox[{
21006	SubscriptBox["\<\"s\"\>", "2"], ",",
21007	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21008	RowBox[{"2", " ",
21009	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
21010	FractionBox[
21011	RowBox[{"\[ImaginaryI]", " ",
21012	SubscriptBox["c", "w"], " ", "e", " ",
21013	SubscriptBox["\[Kappa]", "l"], " ",
21014	SubscriptBox["\[Eta]",
21015	RowBox[{
21016	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21017	SubscriptBox["\<\"\[Mu]\"\>",
21018	RowBox[{"3", ",", "1"}]]}]], " ",
21019	SubscriptBox[
21020	RowBox[{
21021	SuperscriptBox["\[Gamma]",
21022	SubscriptBox["\<\"\[Mu]\"\>",
21023	RowBox[{"3", ",", "2"}]]], ".",
21024	SubscriptBox["P", "\<\"-\"\>"]}],
21025	RowBox[{
21026	SubscriptBox["\<\"s\"\>", "2"], ",",
21027	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21028	RowBox[{"4", " ", "\[CapitalLambda]", " ",
21029	SubscriptBox["s", "w"]}]], "-",
21030	FractionBox[
21031	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21032	SubscriptBox["\[Kappa]", "l"], " ",
21033	SubscriptBox["s", "w"], " ",
21034	SubscriptBox["\[Eta]",
21035	RowBox[{
21036	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21037	SubscriptBox["\<\"\[Mu]\"\>",
21038	RowBox[{"3", ",", "1"}]]}]], " ",
21039	SubscriptBox[
21040	RowBox[{
21041	SuperscriptBox["\[Gamma]",
21042	SubscriptBox["\<\"\[Mu]\"\>",
21043	RowBox[{"3", ",", "2"}]]], ".",
21044	SubscriptBox["P", "\<\"-\"\>"]}],
21045	RowBox[{
21046	SubscriptBox["\<\"s\"\>", "2"], ",",
21047	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21048	RowBox[{"4", " ",
21049	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
21050	FractionBox[
21051	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21052	SubscriptBox["\[Kappa]", "l"], " ",
21053	SubscriptBox["s", "w"], " ",
21054	SubscriptBox["\[Eta]",
21055	RowBox[{
21056	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21057	SubscriptBox["\<\"\[Mu]\"\>",
21058	RowBox[{"3", ",", "1"}]]}]], " ",
21059	SubscriptBox[
21060	RowBox[{
21061	SuperscriptBox["\[Gamma]",
21062	SubscriptBox["\<\"\[Mu]\"\>",
21063	RowBox[{"3", ",", "2"}]]], ".",
21064	SubscriptBox["P", "\<\"+\"\>"]}],
21065	RowBox[{
21066	SubscriptBox["\<\"s\"\>", "2"], ",",
21067	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21068	RowBox[{"2", " ",
21069	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
21070	CellChangeTimes->{
21071	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21072	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21073	3.581159752553585*^9}],
21074
21075	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
21076	* * * * * *)\"\>"], "Print",
21077	CellChangeTimes->{
21078	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21079	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21080	3.581159752567482*^9}],
21081
21082	Cell[BoxData[
21083	InterpretationBox[
21084	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "132"}],
21085	SequenceForm["Vertex ", 132],
21086	Editable->False]], "Print",
21087	CellChangeTimes->{
21088	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21089	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21090	3.581159752579443*^9}],
21091
21092	Cell[BoxData[
21093	InterpretationBox[
21094	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
21095	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21096	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
21097	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
21098	Editable->False]], "Print",
21099	CellChangeTimes->{
21100	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21101	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21102	3.581159752585024*^9}],
21103
21104	Cell[BoxData[
21105	InterpretationBox[
21106	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
21107	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21108	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
21109	OverscriptBox["mu", "\<\"-\"\>"]}],
21110	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`mubar],
21111	Editable->False]], "Print",
21112	CellChangeTimes->{
21113	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21114	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21115	3.58115975259062*^9}],
21116
21117	Cell[BoxData[
21118	InterpretationBox[
21119	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
21120	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
21121	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
21122	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
21123	Editable->False]], "Print",
21124	CellChangeTimes->{
21125	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21126	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21127	3.581159752596263*^9}],
21128
21129	Cell[BoxData[
21130	InterpretationBox[
21131	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
21132	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
21133	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
21134	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
21135	Editable->False]], "Print",
21136	CellChangeTimes->{
21137	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21138	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21139	3.58115975260179*^9}],
21140
21141	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
21142	CellChangeTimes->{
21143	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21144	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21145	3.58115975260713*^9}],
21146
21147	Cell[BoxData[
21148	RowBox[{
21149	RowBox[{"-",
21150	FractionBox[
21151	RowBox[{"\[ImaginaryI]", " ",
21152	SubscriptBox["c", "w"], " ", "e", " ",
21153	SubscriptBox["\[Kappa]", "l"], " ",
21154	SubscriptBox["\[Eta]",
21155	RowBox[{
21156	SubscriptBox["\<\"\[Mu]\"\>",
21157	RowBox[{"3", ",", "1"}]], ",",
21158	SubscriptBox["\<\"\[Mu]\"\>",
21159	RowBox[{"3", ",", "2"}]]}]], " ",
21160	SubscriptBox[
21161	RowBox[{
21162	SuperscriptBox["\[Gamma]",
21163	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
21164	SubscriptBox["P", "\<\"-\"\>"]}],
21165	RowBox[{
21166	SubscriptBox["\<\"s\"\>", "2"], ",",
21167	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21168	RowBox[{"2", " ", "\[CapitalLambda]", " ",
21169	SubscriptBox["s", "w"]}]]}], "+",
21170	FractionBox[
21171	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21172	SubscriptBox["\[Kappa]", "l"], " ",
21173	SubscriptBox["s", "w"], " ",
21174	SubscriptBox["\[Eta]",
21175	RowBox[{
21176	SubscriptBox["\<\"\[Mu]\"\>",
21177	RowBox[{"3", ",", "1"}]], ",",
21178	SubscriptBox["\<\"\[Mu]\"\>",
21179	RowBox[{"3", ",", "2"}]]}]], " ",
21180	SubscriptBox[
21181	RowBox[{
21182	SuperscriptBox["\[Gamma]",
21183	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
21184	SubscriptBox["P", "\<\"-\"\>"]}],
21185	RowBox[{
21186	SubscriptBox["\<\"s\"\>", "2"], ",",
21187	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21188	RowBox[{"2", " ",
21189	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
21190	FractionBox[
21191	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21192	SubscriptBox["\[Kappa]", "l"], " ",
21193	SubscriptBox["s", "w"], " ",
21194	SubscriptBox["\[Eta]",
21195	RowBox[{
21196	SubscriptBox["\<\"\[Mu]\"\>",
21197	RowBox[{"3", ",", "1"}]], ",",
21198	SubscriptBox["\<\"\[Mu]\"\>",
21199	RowBox[{"3", ",", "2"}]]}]], " ",
21200	SubscriptBox[
21201	RowBox[{
21202	SuperscriptBox["\[Gamma]",
21203	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
21204	SubscriptBox["P", "\<\"+\"\>"]}],
21205	RowBox[{
21206	SubscriptBox["\<\"s\"\>", "2"], ",",
21207	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21208	RowBox[{
21209	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
21210	FractionBox[
21211	RowBox[{"\[ImaginaryI]", " ",
21212	SubscriptBox["c", "w"], " ", "e", " ",
21213	SubscriptBox["\[Kappa]", "l"], " ",
21214	SubscriptBox["\[Eta]",
21215	RowBox[{
21216	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21217	SubscriptBox["\<\"\[Mu]\"\>",
21218	RowBox[{"3", ",", "2"}]]}]], " ",
21219	SubscriptBox[
21220	RowBox[{
21221	SuperscriptBox["\[Gamma]",
21222	SubscriptBox["\<\"\[Mu]\"\>",
21223	RowBox[{"3", ",", "1"}]]], ".",
21224	SubscriptBox["P", "\<\"-\"\>"]}],
21225	RowBox[{
21226	SubscriptBox["\<\"s\"\>", "2"], ",",
21227	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21228	RowBox[{"4", " ", "\[CapitalLambda]", " ",
21229	SubscriptBox["s", "w"]}]], "-",
21230	FractionBox[
21231	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21232	SubscriptBox["\[Kappa]", "l"], " ",
21233	SubscriptBox["s", "w"], " ",
21234	SubscriptBox["\[Eta]",
21235	RowBox[{
21236	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21237	SubscriptBox["\<\"\[Mu]\"\>",
21238	RowBox[{"3", ",", "2"}]]}]], " ",
21239	SubscriptBox[
21240	RowBox[{
21241	SuperscriptBox["\[Gamma]",
21242	SubscriptBox["\<\"\[Mu]\"\>",
21243	RowBox[{"3", ",", "1"}]]], ".",
21244	SubscriptBox["P", "\<\"-\"\>"]}],
21245	RowBox[{
21246	SubscriptBox["\<\"s\"\>", "2"], ",",
21247	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21248	RowBox[{"4", " ",
21249	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
21250	FractionBox[
21251	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21252	SubscriptBox["\[Kappa]", "l"], " ",
21253	SubscriptBox["s", "w"], " ",
21254	SubscriptBox["\[Eta]",
21255	RowBox[{
21256	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21257	SubscriptBox["\<\"\[Mu]\"\>",
21258	RowBox[{"3", ",", "2"}]]}]], " ",
21259	SubscriptBox[
21260	RowBox[{
21261	SuperscriptBox["\[Gamma]",
21262	SubscriptBox["\<\"\[Mu]\"\>",
21263	RowBox[{"3", ",", "1"}]]], ".",
21264	SubscriptBox["P", "\<\"+\"\>"]}],
21265	RowBox[{
21266	SubscriptBox["\<\"s\"\>", "2"], ",",
21267	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21268	RowBox[{"2", " ",
21269	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
21270	FractionBox[
21271	RowBox[{"\[ImaginaryI]", " ",
21272	SubscriptBox["c", "w"], " ", "e", " ",
21273	SubscriptBox["\[Kappa]", "l"], " ",
21274	SubscriptBox["\[Eta]",
21275	RowBox[{
21276	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21277	SubscriptBox["\<\"\[Mu]\"\>",
21278	RowBox[{"3", ",", "1"}]]}]], " ",
21279	SubscriptBox[
21280	RowBox[{
21281	SuperscriptBox["\[Gamma]",
21282	SubscriptBox["\<\"\[Mu]\"\>",
21283	RowBox[{"3", ",", "2"}]]], ".",
21284	SubscriptBox["P", "\<\"-\"\>"]}],
21285	RowBox[{
21286	SubscriptBox["\<\"s\"\>", "2"], ",",
21287	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21288	RowBox[{"4", " ", "\[CapitalLambda]", " ",
21289	SubscriptBox["s", "w"]}]], "-",
21290	FractionBox[
21291	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21292	SubscriptBox["\[Kappa]", "l"], " ",
21293	SubscriptBox["s", "w"], " ",
21294	SubscriptBox["\[Eta]",
21295	RowBox[{
21296	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21297	SubscriptBox["\<\"\[Mu]\"\>",
21298	RowBox[{"3", ",", "1"}]]}]], " ",
21299	SubscriptBox[
21300	RowBox[{
21301	SuperscriptBox["\[Gamma]",
21302	SubscriptBox["\<\"\[Mu]\"\>",
21303	RowBox[{"3", ",", "2"}]]], ".",
21304	SubscriptBox["P", "\<\"-\"\>"]}],
21305	RowBox[{
21306	SubscriptBox["\<\"s\"\>", "2"], ",",
21307	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21308	RowBox[{"4", " ",
21309	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
21310	FractionBox[
21311	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21312	SubscriptBox["\[Kappa]", "l"], " ",
21313	SubscriptBox["s", "w"], " ",
21314	SubscriptBox["\[Eta]",
21315	RowBox[{
21316	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21317	SubscriptBox["\<\"\[Mu]\"\>",
21318	RowBox[{"3", ",", "1"}]]}]], " ",
21319	SubscriptBox[
21320	RowBox[{
21321	SuperscriptBox["\[Gamma]",
21322	SubscriptBox["\<\"\[Mu]\"\>",
21323	RowBox[{"3", ",", "2"}]]], ".",
21324	SubscriptBox["P", "\<\"+\"\>"]}],
21325	RowBox[{
21326	SubscriptBox["\<\"s\"\>", "2"], ",",
21327	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21328	RowBox[{"2", " ",
21329	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
21330	CellChangeTimes->{
21331	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21332	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21333	3.581159752613665*^9}],
21334
21335	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
21336	* * * * * *)\"\>"], "Print",
21337	CellChangeTimes->{
21338	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21339	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21340	3.581159752621922*^9}],
21341
21342	Cell[BoxData[
21343	InterpretationBox[
21344	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "133"}],
21345	SequenceForm["Vertex ", 133],
21346	Editable->False]], "Print",
21347	CellChangeTimes->{
21348	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21349	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21350	3.581159752627235*^9}],
21351
21352	Cell[BoxData[
21353	InterpretationBox[
21354	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
21355	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21356	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
21357	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
21358	Editable->False]], "Print",
21359	CellChangeTimes->{
21360	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21361	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21362	3.581159752632476*^9}],
21363
21364	Cell[BoxData[
21365	InterpretationBox[
21366	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
21367	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21368	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
21369	OverscriptBox["ta", "\<\"-\"\>"]}],
21370	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
21371	Editable->False]], "Print",
21372	CellChangeTimes->{
21373	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21374	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21375	3.5811597526378717`*^9}],
21376
21377	Cell[BoxData[
21378	InterpretationBox[
21379	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
21380	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
21381	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
21382	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
21383	Editable->False]], "Print",
21384	CellChangeTimes->{
21385	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21386	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21387	3.581159752643291*^9}],
21388
21389	Cell[BoxData[
21390	InterpretationBox[
21391	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
21392	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
21393	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
21394	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
21395	Editable->False]], "Print",
21396	CellChangeTimes->{
21397	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21398	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21399	3.581159752648757*^9}],
21400
21401	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
21402	CellChangeTimes->{
21403	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21404	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21405	3.581159752654313*^9}],
21406
21407	Cell[BoxData[
21408	RowBox[{
21409	RowBox[{"-",
21410	FractionBox[
21411	RowBox[{"\[ImaginaryI]", " ",
21412	SubscriptBox["c", "w"], " ", "e", " ",
21413	SubscriptBox["\[Kappa]", "l"], " ",
21414	SubscriptBox["\[Eta]",
21415	RowBox[{
21416	SubscriptBox["\<\"\[Mu]\"\>",
21417	RowBox[{"3", ",", "1"}]], ",",
21418	SubscriptBox["\<\"\[Mu]\"\>",
21419	RowBox[{"3", ",", "2"}]]}]], " ",
21420	SubscriptBox[
21421	RowBox[{
21422	SuperscriptBox["\[Gamma]",
21423	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
21424	SubscriptBox["P", "\<\"-\"\>"]}],
21425	RowBox[{
21426	SubscriptBox["\<\"s\"\>", "2"], ",",
21427	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21428	RowBox[{"2", " ", "\[CapitalLambda]", " ",
21429	SubscriptBox["s", "w"]}]]}], "+",
21430	FractionBox[
21431	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21432	SubscriptBox["\[Kappa]", "l"], " ",
21433	SubscriptBox["s", "w"], " ",
21434	SubscriptBox["\[Eta]",
21435	RowBox[{
21436	SubscriptBox["\<\"\[Mu]\"\>",
21437	RowBox[{"3", ",", "1"}]], ",",
21438	SubscriptBox["\<\"\[Mu]\"\>",
21439	RowBox[{"3", ",", "2"}]]}]], " ",
21440	SubscriptBox[
21441	RowBox[{
21442	SuperscriptBox["\[Gamma]",
21443	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
21444	SubscriptBox["P", "\<\"-\"\>"]}],
21445	RowBox[{
21446	SubscriptBox["\<\"s\"\>", "2"], ",",
21447	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21448	RowBox[{"2", " ",
21449	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
21450	FractionBox[
21451	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21452	SubscriptBox["\[Kappa]", "l"], " ",
21453	SubscriptBox["s", "w"], " ",
21454	SubscriptBox["\[Eta]",
21455	RowBox[{
21456	SubscriptBox["\<\"\[Mu]\"\>",
21457	RowBox[{"3", ",", "1"}]], ",",
21458	SubscriptBox["\<\"\[Mu]\"\>",
21459	RowBox[{"3", ",", "2"}]]}]], " ",
21460	SubscriptBox[
21461	RowBox[{
21462	SuperscriptBox["\[Gamma]",
21463	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
21464	SubscriptBox["P", "\<\"+\"\>"]}],
21465	RowBox[{
21466	SubscriptBox["\<\"s\"\>", "2"], ",",
21467	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21468	RowBox[{
21469	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
21470	FractionBox[
21471	RowBox[{"\[ImaginaryI]", " ",
21472	SubscriptBox["c", "w"], " ", "e", " ",
21473	SubscriptBox["\[Kappa]", "l"], " ",
21474	SubscriptBox["\[Eta]",
21475	RowBox[{
21476	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21477	SubscriptBox["\<\"\[Mu]\"\>",
21478	RowBox[{"3", ",", "2"}]]}]], " ",
21479	SubscriptBox[
21480	RowBox[{
21481	SuperscriptBox["\[Gamma]",
21482	SubscriptBox["\<\"\[Mu]\"\>",
21483	RowBox[{"3", ",", "1"}]]], ".",
21484	SubscriptBox["P", "\<\"-\"\>"]}],
21485	RowBox[{
21486	SubscriptBox["\<\"s\"\>", "2"], ",",
21487	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21488	RowBox[{"4", " ", "\[CapitalLambda]", " ",
21489	SubscriptBox["s", "w"]}]], "-",
21490	FractionBox[
21491	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21492	SubscriptBox["\[Kappa]", "l"], " ",
21493	SubscriptBox["s", "w"], " ",
21494	SubscriptBox["\[Eta]",
21495	RowBox[{
21496	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21497	SubscriptBox["\<\"\[Mu]\"\>",
21498	RowBox[{"3", ",", "2"}]]}]], " ",
21499	SubscriptBox[
21500	RowBox[{
21501	SuperscriptBox["\[Gamma]",
21502	SubscriptBox["\<\"\[Mu]\"\>",
21503	RowBox[{"3", ",", "1"}]]], ".",
21504	SubscriptBox["P", "\<\"-\"\>"]}],
21505	RowBox[{
21506	SubscriptBox["\<\"s\"\>", "2"], ",",
21507	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21508	RowBox[{"4", " ",
21509	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
21510	FractionBox[
21511	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21512	SubscriptBox["\[Kappa]", "l"], " ",
21513	SubscriptBox["s", "w"], " ",
21514	SubscriptBox["\[Eta]",
21515	RowBox[{
21516	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21517	SubscriptBox["\<\"\[Mu]\"\>",
21518	RowBox[{"3", ",", "2"}]]}]], " ",
21519	SubscriptBox[
21520	RowBox[{
21521	SuperscriptBox["\[Gamma]",
21522	SubscriptBox["\<\"\[Mu]\"\>",
21523	RowBox[{"3", ",", "1"}]]], ".",
21524	SubscriptBox["P", "\<\"+\"\>"]}],
21525	RowBox[{
21526	SubscriptBox["\<\"s\"\>", "2"], ",",
21527	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21528	RowBox[{"2", " ",
21529	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
21530	FractionBox[
21531	RowBox[{"\[ImaginaryI]", " ",
21532	SubscriptBox["c", "w"], " ", "e", " ",
21533	SubscriptBox["\[Kappa]", "l"], " ",
21534	SubscriptBox["\[Eta]",
21535	RowBox[{
21536	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21537	SubscriptBox["\<\"\[Mu]\"\>",
21538	RowBox[{"3", ",", "1"}]]}]], " ",
21539	SubscriptBox[
21540	RowBox[{
21541	SuperscriptBox["\[Gamma]",
21542	SubscriptBox["\<\"\[Mu]\"\>",
21543	RowBox[{"3", ",", "2"}]]], ".",
21544	SubscriptBox["P", "\<\"-\"\>"]}],
21545	RowBox[{
21546	SubscriptBox["\<\"s\"\>", "2"], ",",
21547	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21548	RowBox[{"4", " ", "\[CapitalLambda]", " ",
21549	SubscriptBox["s", "w"]}]], "-",
21550	FractionBox[
21551	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21552	SubscriptBox["\[Kappa]", "l"], " ",
21553	SubscriptBox["s", "w"], " ",
21554	SubscriptBox["\[Eta]",
21555	RowBox[{
21556	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21557	SubscriptBox["\<\"\[Mu]\"\>",
21558	RowBox[{"3", ",", "1"}]]}]], " ",
21559	SubscriptBox[
21560	RowBox[{
21561	SuperscriptBox["\[Gamma]",
21562	SubscriptBox["\<\"\[Mu]\"\>",
21563	RowBox[{"3", ",", "2"}]]], ".",
21564	SubscriptBox["P", "\<\"-\"\>"]}],
21565	RowBox[{
21566	SubscriptBox["\<\"s\"\>", "2"], ",",
21567	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21568	RowBox[{"4", " ",
21569	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
21570	FractionBox[
21571	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21572	SubscriptBox["\[Kappa]", "l"], " ",
21573	SubscriptBox["s", "w"], " ",
21574	SubscriptBox["\[Eta]",
21575	RowBox[{
21576	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21577	SubscriptBox["\<\"\[Mu]\"\>",
21578	RowBox[{"3", ",", "1"}]]}]], " ",
21579	SubscriptBox[
21580	RowBox[{
21581	SuperscriptBox["\[Gamma]",
21582	SubscriptBox["\<\"\[Mu]\"\>",
21583	RowBox[{"3", ",", "2"}]]], ".",
21584	SubscriptBox["P", "\<\"+\"\>"]}],
21585	RowBox[{
21586	SubscriptBox["\<\"s\"\>", "2"], ",",
21587	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21588	RowBox[{"2", " ",
21589	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
21590	CellChangeTimes->{
21591	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21592	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21593	3.581159752661059*^9}],
21594
21595	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
21596	* * * * * *)\"\>"], "Print",
21597	CellChangeTimes->{
21598	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21599	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21600	3.5811597526693163`*^9}],
21601
21602	Cell[BoxData[
21603	InterpretationBox[
21604	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "134"}],
21605	SequenceForm["Vertex ", 134],
21606	Editable->False]], "Print",
21607	CellChangeTimes->{
21608	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21609	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21610	3.581159752674638*^9}],
21611
21612	Cell[BoxData[
21613	InterpretationBox[
21614	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
21615	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21616	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
21617	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
21618	Editable->False]], "Print",
21619	CellChangeTimes->{
21620	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21621	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21622	3.5811597526799994`*^9}],
21623
21624	Cell[BoxData[
21625	InterpretationBox[
21626	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
21627	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21628	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
21629	OverscriptBox["c", "\<\"-\"\>"]}],
21630	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
21631	Editable->False]], "Print",
21632	CellChangeTimes->{
21633	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21634	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21635	3.5811597526858892`*^9}],
21636
21637	Cell[BoxData[
21638	InterpretationBox[
21639	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
21640	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
21641	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
21642	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
21643	Editable->False]], "Print",
21644	CellChangeTimes->{
21645	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21646	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21647	3.5811597526914682`*^9}],
21648
21649	Cell[BoxData[
21650	InterpretationBox[
21651	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
21652	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
21653	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
21654	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
21655	Editable->False]], "Print",
21656	CellChangeTimes->{
21657	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21658	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21659	3.581159752697114*^9}],
21660
21661	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
21662	CellChangeTimes->{
21663	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21664	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21665	3.581159752702404*^9}],
21666
21667	Cell[BoxData[
21668	RowBox[{
21669	FractionBox[
21670	RowBox[{"\[ImaginaryI]", " ",
21671	SubscriptBox["c", "w"], " ", "e", " ",
21672	SubscriptBox["\[Kappa]", "q"], " ",
21673	SubscriptBox["\[Delta]",
21674	RowBox[{
21675	SubscriptBox["\<\"m\"\>", "1"], ",",
21676	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
21677	SubscriptBox["\[Eta]",
21678	RowBox[{
21679	SubscriptBox["\<\"\[Mu]\"\>",
21680	RowBox[{"3", ",", "1"}]], ",",
21681	SubscriptBox["\<\"\[Mu]\"\>",
21682	RowBox[{"3", ",", "2"}]]}]], " ",
21683	SubscriptBox[
21684	RowBox[{
21685	SuperscriptBox["\[Gamma]",
21686	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
21687	SubscriptBox["P", "\<\"-\"\>"]}],
21688	RowBox[{
21689	SubscriptBox["\<\"s\"\>", "2"], ",",
21690	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21691	RowBox[{"2", " ", "\[CapitalLambda]", " ",
21692	SubscriptBox["s", "w"]}]], "-",
21693	FractionBox[
21694	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21695	SubscriptBox["\[Kappa]", "q"], " ",
21696	SubscriptBox["s", "w"], " ",
21697	SubscriptBox["\[Delta]",
21698	RowBox[{
21699	SubscriptBox["\<\"m\"\>", "1"], ",",
21700	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
21701	SubscriptBox["\[Eta]",
21702	RowBox[{
21703	SubscriptBox["\<\"\[Mu]\"\>",
21704	RowBox[{"3", ",", "1"}]], ",",
21705	SubscriptBox["\<\"\[Mu]\"\>",
21706	RowBox[{"3", ",", "2"}]]}]], " ",
21707	SubscriptBox[
21708	RowBox[{
21709	SuperscriptBox["\[Gamma]",
21710	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
21711	SubscriptBox["P", "\<\"-\"\>"]}],
21712	RowBox[{
21713	SubscriptBox["\<\"s\"\>", "2"], ",",
21714	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21715	RowBox[{"6", " ",
21716	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
21717	FractionBox[
21718	RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
21719	SubscriptBox["\[Kappa]", "q"], " ",
21720	SubscriptBox["s", "w"], " ",
21721	SubscriptBox["\[Delta]",
21722	RowBox[{
21723	SubscriptBox["\<\"m\"\>", "1"], ",",
21724	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
21725	SubscriptBox["\[Eta]",
21726	RowBox[{
21727	SubscriptBox["\<\"\[Mu]\"\>",
21728	RowBox[{"3", ",", "1"}]], ",",
21729	SubscriptBox["\<\"\[Mu]\"\>",
21730	RowBox[{"3", ",", "2"}]]}]], " ",
21731	SubscriptBox[
21732	RowBox[{
21733	SuperscriptBox["\[Gamma]",
21734	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
21735	SubscriptBox["P", "\<\"+\"\>"]}],
21736	RowBox[{
21737	SubscriptBox["\<\"s\"\>", "2"], ",",
21738	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21739	RowBox[{"3", " ",
21740	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
21741	FractionBox[
21742	RowBox[{"\[ImaginaryI]", " ",
21743	SubscriptBox["c", "w"], " ", "e", " ",
21744	SubscriptBox["\[Kappa]", "q"], " ",
21745	SubscriptBox["\[Delta]",
21746	RowBox[{
21747	SubscriptBox["\<\"m\"\>", "1"], ",",
21748	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
21749	SubscriptBox["\[Eta]",
21750	RowBox[{
21751	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21752	SubscriptBox["\<\"\[Mu]\"\>",
21753	RowBox[{"3", ",", "2"}]]}]], " ",
21754	SubscriptBox[
21755	RowBox[{
21756	SuperscriptBox["\[Gamma]",
21757	SubscriptBox["\<\"\[Mu]\"\>",
21758	RowBox[{"3", ",", "1"}]]], ".",
21759	SubscriptBox["P", "\<\"-\"\>"]}],
21760	RowBox[{
21761	SubscriptBox["\<\"s\"\>", "2"], ",",
21762	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21763	RowBox[{"4", " ", "\[CapitalLambda]", " ",
21764	SubscriptBox["s", "w"]}]], "+",
21765	FractionBox[
21766	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21767	SubscriptBox["\[Kappa]", "q"], " ",
21768	SubscriptBox["s", "w"], " ",
21769	SubscriptBox["\[Delta]",
21770	RowBox[{
21771	SubscriptBox["\<\"m\"\>", "1"], ",",
21772	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
21773	SubscriptBox["\[Eta]",
21774	RowBox[{
21775	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21776	SubscriptBox["\<\"\[Mu]\"\>",
21777	RowBox[{"3", ",", "2"}]]}]], " ",
21778	SubscriptBox[
21779	RowBox[{
21780	SuperscriptBox["\[Gamma]",
21781	SubscriptBox["\<\"\[Mu]\"\>",
21782	RowBox[{"3", ",", "1"}]]], ".",
21783	SubscriptBox["P", "\<\"-\"\>"]}],
21784	RowBox[{
21785	SubscriptBox["\<\"s\"\>", "2"], ",",
21786	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21787	RowBox[{"12", " ",
21788	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
21789	FractionBox[
21790	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21791	SubscriptBox["\[Kappa]", "q"], " ",
21792	SubscriptBox["s", "w"], " ",
21793	SubscriptBox["\[Delta]",
21794	RowBox[{
21795	SubscriptBox["\<\"m\"\>", "1"], ",",
21796	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
21797	SubscriptBox["\[Eta]",
21798	RowBox[{
21799	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21800	SubscriptBox["\<\"\[Mu]\"\>",
21801	RowBox[{"3", ",", "2"}]]}]], " ",
21802	SubscriptBox[
21803	RowBox[{
21804	SuperscriptBox["\[Gamma]",
21805	SubscriptBox["\<\"\[Mu]\"\>",
21806	RowBox[{"3", ",", "1"}]]], ".",
21807	SubscriptBox["P", "\<\"+\"\>"]}],
21808	RowBox[{
21809	SubscriptBox["\<\"s\"\>", "2"], ",",
21810	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21811	RowBox[{"3", " ",
21812	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
21813	FractionBox[
21814	RowBox[{"\[ImaginaryI]", " ",
21815	SubscriptBox["c", "w"], " ", "e", " ",
21816	SubscriptBox["\[Kappa]", "q"], " ",
21817	SubscriptBox["\[Delta]",
21818	RowBox[{
21819	SubscriptBox["\<\"m\"\>", "1"], ",",
21820	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
21821	SubscriptBox["\[Eta]",
21822	RowBox[{
21823	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21824	SubscriptBox["\<\"\[Mu]\"\>",
21825	RowBox[{"3", ",", "1"}]]}]], " ",
21826	SubscriptBox[
21827	RowBox[{
21828	SuperscriptBox["\[Gamma]",
21829	SubscriptBox["\<\"\[Mu]\"\>",
21830	RowBox[{"3", ",", "2"}]]], ".",
21831	SubscriptBox["P", "\<\"-\"\>"]}],
21832	RowBox[{
21833	SubscriptBox["\<\"s\"\>", "2"], ",",
21834	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21835	RowBox[{"4", " ", "\[CapitalLambda]", " ",
21836	SubscriptBox["s", "w"]}]], "+",
21837	FractionBox[
21838	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21839	SubscriptBox["\[Kappa]", "q"], " ",
21840	SubscriptBox["s", "w"], " ",
21841	SubscriptBox["\[Delta]",
21842	RowBox[{
21843	SubscriptBox["\<\"m\"\>", "1"], ",",
21844	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
21845	SubscriptBox["\[Eta]",
21846	RowBox[{
21847	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21848	SubscriptBox["\<\"\[Mu]\"\>",
21849	RowBox[{"3", ",", "1"}]]}]], " ",
21850	SubscriptBox[
21851	RowBox[{
21852	SuperscriptBox["\[Gamma]",
21853	SubscriptBox["\<\"\[Mu]\"\>",
21854	RowBox[{"3", ",", "2"}]]], ".",
21855	SubscriptBox["P", "\<\"-\"\>"]}],
21856	RowBox[{
21857	SubscriptBox["\<\"s\"\>", "2"], ",",
21858	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21859	RowBox[{"12", " ",
21860	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
21861	FractionBox[
21862	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21863	SubscriptBox["\[Kappa]", "q"], " ",
21864	SubscriptBox["s", "w"], " ",
21865	SubscriptBox["\[Delta]",
21866	RowBox[{
21867	SubscriptBox["\<\"m\"\>", "1"], ",",
21868	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
21869	SubscriptBox["\[Eta]",
21870	RowBox[{
21871	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
21872	SubscriptBox["\<\"\[Mu]\"\>",
21873	RowBox[{"3", ",", "1"}]]}]], " ",
21874	SubscriptBox[
21875	RowBox[{
21876	SuperscriptBox["\[Gamma]",
21877	SubscriptBox["\<\"\[Mu]\"\>",
21878	RowBox[{"3", ",", "2"}]]], ".",
21879	SubscriptBox["P", "\<\"+\"\>"]}],
21880	RowBox[{
21881	SubscriptBox["\<\"s\"\>", "2"], ",",
21882	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21883	RowBox[{"3", " ",
21884	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
21885	CellChangeTimes->{
21886	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21887	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21888	3.5811597527091417`*^9}],
21889
21890	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
21891	* * * * * *)\"\>"], "Print",
21892	CellChangeTimes->{
21893	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21894	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21895	3.581159752718305*^9}],
21896
21897	Cell[BoxData[
21898	InterpretationBox[
21899	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "135"}],
21900	SequenceForm["Vertex ", 135],
21901	Editable->False]], "Print",
21902	CellChangeTimes->{
21903	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21904	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21905	3.5811597527245407`*^9}],
21906
21907	Cell[BoxData[
21908	InterpretationBox[
21909	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
21910	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21911	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
21912	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
21913	Editable->False]], "Print",
21914	CellChangeTimes->{
21915	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21916	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21917	3.581159752730818*^9}],
21918
21919	Cell[BoxData[
21920	InterpretationBox[
21921	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
21922	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21923	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
21924	OverscriptBox["t", "\<\"-\"\>"]}],
21925	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
21926	Editable->False]], "Print",
21927	CellChangeTimes->{
21928	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21929	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21930	3.581159752736656*^9}],
21931
21932	Cell[BoxData[
21933	InterpretationBox[
21934	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
21935	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
21936	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
21937	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
21938	Editable->False]], "Print",
21939	CellChangeTimes->{
21940	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21941	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21942	3.581159752742436*^9}],
21943
21944	Cell[BoxData[
21945	InterpretationBox[
21946	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
21947	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
21948	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
21949	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
21950	Editable->False]], "Print",
21951	CellChangeTimes->{
21952	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21953	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21954	3.58115975274825*^9}],
21955
21956	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
21957	CellChangeTimes->{
21958	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
21959	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
21960	3.581159752753858*^9}],
21961
21962	Cell[BoxData[
21963	RowBox[{
21964	FractionBox[
21965	RowBox[{"\[ImaginaryI]", " ",
21966	SubscriptBox["c", "w"], " ", "e", " ",
21967	SubscriptBox["\[Kappa]", "q"], " ",
21968	SubscriptBox["\[Delta]",
21969	RowBox[{
21970	SubscriptBox["\<\"m\"\>", "1"], ",",
21971	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
21972	SubscriptBox["\[Eta]",
21973	RowBox[{
21974	SubscriptBox["\<\"\[Mu]\"\>",
21975	RowBox[{"3", ",", "1"}]], ",",
21976	SubscriptBox["\<\"\[Mu]\"\>",
21977	RowBox[{"3", ",", "2"}]]}]], " ",
21978	SubscriptBox[
21979	RowBox[{
21980	SuperscriptBox["\[Gamma]",
21981	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
21982	SubscriptBox["P", "\<\"-\"\>"]}],
21983	RowBox[{
21984	SubscriptBox["\<\"s\"\>", "2"], ",",
21985	SubscriptBox["\<\"s\"\>", "1"]}]]}],
21986	RowBox[{"2", " ", "\[CapitalLambda]", " ",
21987	SubscriptBox["s", "w"]}]], "-",
21988	FractionBox[
21989	RowBox[{"\[ImaginaryI]", " ", "e", " ",
21990	SubscriptBox["\[Kappa]", "q"], " ",
21991	SubscriptBox["s", "w"], " ",
21992	SubscriptBox["\[Delta]",
21993	RowBox[{
21994	SubscriptBox["\<\"m\"\>", "1"], ",",
21995	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
21996	SubscriptBox["\[Eta]",
21997	RowBox[{
21998	SubscriptBox["\<\"\[Mu]\"\>",
21999	RowBox[{"3", ",", "1"}]], ",",
22000	SubscriptBox["\<\"\[Mu]\"\>",
22001	RowBox[{"3", ",", "2"}]]}]], " ",
22002	SubscriptBox[
22003	RowBox[{
22004	SuperscriptBox["\[Gamma]",
22005	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
22006	SubscriptBox["P", "\<\"-\"\>"]}],
22007	RowBox[{
22008	SubscriptBox["\<\"s\"\>", "2"], ",",
22009	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22010	RowBox[{"6", " ",
22011	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
22012	FractionBox[
22013	RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
22014	SubscriptBox["\[Kappa]", "q"], " ",
22015	SubscriptBox["s", "w"], " ",
22016	SubscriptBox["\[Delta]",
22017	RowBox[{
22018	SubscriptBox["\<\"m\"\>", "1"], ",",
22019	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22020	SubscriptBox["\[Eta]",
22021	RowBox[{
22022	SubscriptBox["\<\"\[Mu]\"\>",
22023	RowBox[{"3", ",", "1"}]], ",",
22024	SubscriptBox["\<\"\[Mu]\"\>",
22025	RowBox[{"3", ",", "2"}]]}]], " ",
22026	SubscriptBox[
22027	RowBox[{
22028	SuperscriptBox["\[Gamma]",
22029	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
22030	SubscriptBox["P", "\<\"+\"\>"]}],
22031	RowBox[{
22032	SubscriptBox["\<\"s\"\>", "2"], ",",
22033	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22034	RowBox[{"3", " ",
22035	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
22036	FractionBox[
22037	RowBox[{"\[ImaginaryI]", " ",
22038	SubscriptBox["c", "w"], " ", "e", " ",
22039	SubscriptBox["\[Kappa]", "q"], " ",
22040	SubscriptBox["\[Delta]",
22041	RowBox[{
22042	SubscriptBox["\<\"m\"\>", "1"], ",",
22043	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22044	SubscriptBox["\[Eta]",
22045	RowBox[{
22046	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22047	SubscriptBox["\<\"\[Mu]\"\>",
22048	RowBox[{"3", ",", "2"}]]}]], " ",
22049	SubscriptBox[
22050	RowBox[{
22051	SuperscriptBox["\[Gamma]",
22052	SubscriptBox["\<\"\[Mu]\"\>",
22053	RowBox[{"3", ",", "1"}]]], ".",
22054	SubscriptBox["P", "\<\"-\"\>"]}],
22055	RowBox[{
22056	SubscriptBox["\<\"s\"\>", "2"], ",",
22057	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22058	RowBox[{"4", " ", "\[CapitalLambda]", " ",
22059	SubscriptBox["s", "w"]}]], "+",
22060	FractionBox[
22061	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22062	SubscriptBox["\[Kappa]", "q"], " ",
22063	SubscriptBox["s", "w"], " ",
22064	SubscriptBox["\[Delta]",
22065	RowBox[{
22066	SubscriptBox["\<\"m\"\>", "1"], ",",
22067	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22068	SubscriptBox["\[Eta]",
22069	RowBox[{
22070	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22071	SubscriptBox["\<\"\[Mu]\"\>",
22072	RowBox[{"3", ",", "2"}]]}]], " ",
22073	SubscriptBox[
22074	RowBox[{
22075	SuperscriptBox["\[Gamma]",
22076	SubscriptBox["\<\"\[Mu]\"\>",
22077	RowBox[{"3", ",", "1"}]]], ".",
22078	SubscriptBox["P", "\<\"-\"\>"]}],
22079	RowBox[{
22080	SubscriptBox["\<\"s\"\>", "2"], ",",
22081	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22082	RowBox[{"12", " ",
22083	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
22084	FractionBox[
22085	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22086	SubscriptBox["\[Kappa]", "q"], " ",
22087	SubscriptBox["s", "w"], " ",
22088	SubscriptBox["\[Delta]",
22089	RowBox[{
22090	SubscriptBox["\<\"m\"\>", "1"], ",",
22091	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22092	SubscriptBox["\[Eta]",
22093	RowBox[{
22094	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22095	SubscriptBox["\<\"\[Mu]\"\>",
22096	RowBox[{"3", ",", "2"}]]}]], " ",
22097	SubscriptBox[
22098	RowBox[{
22099	SuperscriptBox["\[Gamma]",
22100	SubscriptBox["\<\"\[Mu]\"\>",
22101	RowBox[{"3", ",", "1"}]]], ".",
22102	SubscriptBox["P", "\<\"+\"\>"]}],
22103	RowBox[{
22104	SubscriptBox["\<\"s\"\>", "2"], ",",
22105	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22106	RowBox[{"3", " ",
22107	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
22108	FractionBox[
22109	RowBox[{"\[ImaginaryI]", " ",
22110	SubscriptBox["c", "w"], " ", "e", " ",
22111	SubscriptBox["\[Kappa]", "q"], " ",
22112	SubscriptBox["\[Delta]",
22113	RowBox[{
22114	SubscriptBox["\<\"m\"\>", "1"], ",",
22115	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22116	SubscriptBox["\[Eta]",
22117	RowBox[{
22118	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22119	SubscriptBox["\<\"\[Mu]\"\>",
22120	RowBox[{"3", ",", "1"}]]}]], " ",
22121	SubscriptBox[
22122	RowBox[{
22123	SuperscriptBox["\[Gamma]",
22124	SubscriptBox["\<\"\[Mu]\"\>",
22125	RowBox[{"3", ",", "2"}]]], ".",
22126	SubscriptBox["P", "\<\"-\"\>"]}],
22127	RowBox[{
22128	SubscriptBox["\<\"s\"\>", "2"], ",",
22129	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22130	RowBox[{"4", " ", "\[CapitalLambda]", " ",
22131	SubscriptBox["s", "w"]}]], "+",
22132	FractionBox[
22133	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22134	SubscriptBox["\[Kappa]", "q"], " ",
22135	SubscriptBox["s", "w"], " ",
22136	SubscriptBox["\[Delta]",
22137	RowBox[{
22138	SubscriptBox["\<\"m\"\>", "1"], ",",
22139	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22140	SubscriptBox["\[Eta]",
22141	RowBox[{
22142	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22143	SubscriptBox["\<\"\[Mu]\"\>",
22144	RowBox[{"3", ",", "1"}]]}]], " ",
22145	SubscriptBox[
22146	RowBox[{
22147	SuperscriptBox["\[Gamma]",
22148	SubscriptBox["\<\"\[Mu]\"\>",
22149	RowBox[{"3", ",", "2"}]]], ".",
22150	SubscriptBox["P", "\<\"-\"\>"]}],
22151	RowBox[{
22152	SubscriptBox["\<\"s\"\>", "2"], ",",
22153	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22154	RowBox[{"12", " ",
22155	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
22156	FractionBox[
22157	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22158	SubscriptBox["\[Kappa]", "q"], " ",
22159	SubscriptBox["s", "w"], " ",
22160	SubscriptBox["\[Delta]",
22161	RowBox[{
22162	SubscriptBox["\<\"m\"\>", "1"], ",",
22163	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22164	SubscriptBox["\[Eta]",
22165	RowBox[{
22166	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22167	SubscriptBox["\<\"\[Mu]\"\>",
22168	RowBox[{"3", ",", "1"}]]}]], " ",
22169	SubscriptBox[
22170	RowBox[{
22171	SuperscriptBox["\[Gamma]",
22172	SubscriptBox["\<\"\[Mu]\"\>",
22173	RowBox[{"3", ",", "2"}]]], ".",
22174	SubscriptBox["P", "\<\"+\"\>"]}],
22175	RowBox[{
22176	SubscriptBox["\<\"s\"\>", "2"], ",",
22177	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22178	RowBox[{"3", " ",
22179	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
22180	CellChangeTimes->{
22181	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22182	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22183	3.581159752763681*^9}],
22184
22185	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
22186	* * * * * *)\"\>"], "Print",
22187	CellChangeTimes->{
22188	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22189	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22190	3.581159752775873*^9}],
22191
22192	Cell[BoxData[
22193	InterpretationBox[
22194	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "136"}],
22195	SequenceForm["Vertex ", 136],
22196	Editable->False]], "Print",
22197	CellChangeTimes->{
22198	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22199	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22200	3.581159752781117*^9}],
22201
22202	Cell[BoxData[
22203	InterpretationBox[
22204	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
22205	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
22206	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
22207	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
22208	Editable->False]], "Print",
22209	CellChangeTimes->{
22210	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22211	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22212	3.581159752809823*^9}],
22213
22214	Cell[BoxData[
22215	InterpretationBox[
22216	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
22217	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
22218	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
22219	OverscriptBox["u", "\<\"-\"\>"]}],
22220	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
22221	Editable->False]], "Print",
22222	CellChangeTimes->{
22223	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22224	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22225	3.581159752815258*^9}],
22226
22227	Cell[BoxData[
22228	InterpretationBox[
22229	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
22230	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
22231	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
22232	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
22233	Editable->False]], "Print",
22234	CellChangeTimes->{
22235	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22236	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22237	3.5811597528204536`*^9}],
22238
22239	Cell[BoxData[
22240	InterpretationBox[
22241	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
22242	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
22243	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
22244	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
22245	Editable->False]], "Print",
22246	CellChangeTimes->{
22247	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22248	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22249	3.581159752826549*^9}],
22250
22251	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
22252	CellChangeTimes->{
22253	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22254	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22255	3.581159752832615*^9}],
22256
22257	Cell[BoxData[
22258	RowBox[{
22259	FractionBox[
22260	RowBox[{"\[ImaginaryI]", " ",
22261	SubscriptBox["c", "w"], " ", "e", " ",
22262	SubscriptBox["\[Kappa]", "q"], " ",
22263	SubscriptBox["\[Delta]",
22264	RowBox[{
22265	SubscriptBox["\<\"m\"\>", "1"], ",",
22266	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22267	SubscriptBox["\[Eta]",
22268	RowBox[{
22269	SubscriptBox["\<\"\[Mu]\"\>",
22270	RowBox[{"3", ",", "1"}]], ",",
22271	SubscriptBox["\<\"\[Mu]\"\>",
22272	RowBox[{"3", ",", "2"}]]}]], " ",
22273	SubscriptBox[
22274	RowBox[{
22275	SuperscriptBox["\[Gamma]",
22276	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
22277	SubscriptBox["P", "\<\"-\"\>"]}],
22278	RowBox[{
22279	SubscriptBox["\<\"s\"\>", "2"], ",",
22280	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22281	RowBox[{"2", " ", "\[CapitalLambda]", " ",
22282	SubscriptBox["s", "w"]}]], "-",
22283	FractionBox[
22284	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22285	SubscriptBox["\[Kappa]", "q"], " ",
22286	SubscriptBox["s", "w"], " ",
22287	SubscriptBox["\[Delta]",
22288	RowBox[{
22289	SubscriptBox["\<\"m\"\>", "1"], ",",
22290	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22291	SubscriptBox["\[Eta]",
22292	RowBox[{
22293	SubscriptBox["\<\"\[Mu]\"\>",
22294	RowBox[{"3", ",", "1"}]], ",",
22295	SubscriptBox["\<\"\[Mu]\"\>",
22296	RowBox[{"3", ",", "2"}]]}]], " ",
22297	SubscriptBox[
22298	RowBox[{
22299	SuperscriptBox["\[Gamma]",
22300	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
22301	SubscriptBox["P", "\<\"-\"\>"]}],
22302	RowBox[{
22303	SubscriptBox["\<\"s\"\>", "2"], ",",
22304	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22305	RowBox[{"6", " ",
22306	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
22307	FractionBox[
22308	RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
22309	SubscriptBox["\[Kappa]", "q"], " ",
22310	SubscriptBox["s", "w"], " ",
22311	SubscriptBox["\[Delta]",
22312	RowBox[{
22313	SubscriptBox["\<\"m\"\>", "1"], ",",
22314	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22315	SubscriptBox["\[Eta]",
22316	RowBox[{
22317	SubscriptBox["\<\"\[Mu]\"\>",
22318	RowBox[{"3", ",", "1"}]], ",",
22319	SubscriptBox["\<\"\[Mu]\"\>",
22320	RowBox[{"3", ",", "2"}]]}]], " ",
22321	SubscriptBox[
22322	RowBox[{
22323	SuperscriptBox["\[Gamma]",
22324	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
22325	SubscriptBox["P", "\<\"+\"\>"]}],
22326	RowBox[{
22327	SubscriptBox["\<\"s\"\>", "2"], ",",
22328	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22329	RowBox[{"3", " ",
22330	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
22331	FractionBox[
22332	RowBox[{"\[ImaginaryI]", " ",
22333	SubscriptBox["c", "w"], " ", "e", " ",
22334	SubscriptBox["\[Kappa]", "q"], " ",
22335	SubscriptBox["\[Delta]",
22336	RowBox[{
22337	SubscriptBox["\<\"m\"\>", "1"], ",",
22338	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22339	SubscriptBox["\[Eta]",
22340	RowBox[{
22341	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22342	SubscriptBox["\<\"\[Mu]\"\>",
22343	RowBox[{"3", ",", "2"}]]}]], " ",
22344	SubscriptBox[
22345	RowBox[{
22346	SuperscriptBox["\[Gamma]",
22347	SubscriptBox["\<\"\[Mu]\"\>",
22348	RowBox[{"3", ",", "1"}]]], ".",
22349	SubscriptBox["P", "\<\"-\"\>"]}],
22350	RowBox[{
22351	SubscriptBox["\<\"s\"\>", "2"], ",",
22352	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22353	RowBox[{"4", " ", "\[CapitalLambda]", " ",
22354	SubscriptBox["s", "w"]}]], "+",
22355	FractionBox[
22356	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22357	SubscriptBox["\[Kappa]", "q"], " ",
22358	SubscriptBox["s", "w"], " ",
22359	SubscriptBox["\[Delta]",
22360	RowBox[{
22361	SubscriptBox["\<\"m\"\>", "1"], ",",
22362	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22363	SubscriptBox["\[Eta]",
22364	RowBox[{
22365	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22366	SubscriptBox["\<\"\[Mu]\"\>",
22367	RowBox[{"3", ",", "2"}]]}]], " ",
22368	SubscriptBox[
22369	RowBox[{
22370	SuperscriptBox["\[Gamma]",
22371	SubscriptBox["\<\"\[Mu]\"\>",
22372	RowBox[{"3", ",", "1"}]]], ".",
22373	SubscriptBox["P", "\<\"-\"\>"]}],
22374	RowBox[{
22375	SubscriptBox["\<\"s\"\>", "2"], ",",
22376	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22377	RowBox[{"12", " ",
22378	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
22379	FractionBox[
22380	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22381	SubscriptBox["\[Kappa]", "q"], " ",
22382	SubscriptBox["s", "w"], " ",
22383	SubscriptBox["\[Delta]",
22384	RowBox[{
22385	SubscriptBox["\<\"m\"\>", "1"], ",",
22386	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22387	SubscriptBox["\[Eta]",
22388	RowBox[{
22389	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22390	SubscriptBox["\<\"\[Mu]\"\>",
22391	RowBox[{"3", ",", "2"}]]}]], " ",
22392	SubscriptBox[
22393	RowBox[{
22394	SuperscriptBox["\[Gamma]",
22395	SubscriptBox["\<\"\[Mu]\"\>",
22396	RowBox[{"3", ",", "1"}]]], ".",
22397	SubscriptBox["P", "\<\"+\"\>"]}],
22398	RowBox[{
22399	SubscriptBox["\<\"s\"\>", "2"], ",",
22400	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22401	RowBox[{"3", " ",
22402	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
22403	FractionBox[
22404	RowBox[{"\[ImaginaryI]", " ",
22405	SubscriptBox["c", "w"], " ", "e", " ",
22406	SubscriptBox["\[Kappa]", "q"], " ",
22407	SubscriptBox["\[Delta]",
22408	RowBox[{
22409	SubscriptBox["\<\"m\"\>", "1"], ",",
22410	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22411	SubscriptBox["\[Eta]",
22412	RowBox[{
22413	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22414	SubscriptBox["\<\"\[Mu]\"\>",
22415	RowBox[{"3", ",", "1"}]]}]], " ",
22416	SubscriptBox[
22417	RowBox[{
22418	SuperscriptBox["\[Gamma]",
22419	SubscriptBox["\<\"\[Mu]\"\>",
22420	RowBox[{"3", ",", "2"}]]], ".",
22421	SubscriptBox["P", "\<\"-\"\>"]}],
22422	RowBox[{
22423	SubscriptBox["\<\"s\"\>", "2"], ",",
22424	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22425	RowBox[{"4", " ", "\[CapitalLambda]", " ",
22426	SubscriptBox["s", "w"]}]], "+",
22427	FractionBox[
22428	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22429	SubscriptBox["\[Kappa]", "q"], " ",
22430	SubscriptBox["s", "w"], " ",
22431	SubscriptBox["\[Delta]",
22432	RowBox[{
22433	SubscriptBox["\<\"m\"\>", "1"], ",",
22434	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22435	SubscriptBox["\[Eta]",
22436	RowBox[{
22437	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22438	SubscriptBox["\<\"\[Mu]\"\>",
22439	RowBox[{"3", ",", "1"}]]}]], " ",
22440	SubscriptBox[
22441	RowBox[{
22442	SuperscriptBox["\[Gamma]",
22443	SubscriptBox["\<\"\[Mu]\"\>",
22444	RowBox[{"3", ",", "2"}]]], ".",
22445	SubscriptBox["P", "\<\"-\"\>"]}],
22446	RowBox[{
22447	SubscriptBox["\<\"s\"\>", "2"], ",",
22448	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22449	RowBox[{"12", " ",
22450	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
22451	FractionBox[
22452	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22453	SubscriptBox["\[Kappa]", "q"], " ",
22454	SubscriptBox["s", "w"], " ",
22455	SubscriptBox["\[Delta]",
22456	RowBox[{
22457	SubscriptBox["\<\"m\"\>", "1"], ",",
22458	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
22459	SubscriptBox["\[Eta]",
22460	RowBox[{
22461	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22462	SubscriptBox["\<\"\[Mu]\"\>",
22463	RowBox[{"3", ",", "1"}]]}]], " ",
22464	SubscriptBox[
22465	RowBox[{
22466	SuperscriptBox["\[Gamma]",
22467	SubscriptBox["\<\"\[Mu]\"\>",
22468	RowBox[{"3", ",", "2"}]]], ".",
22469	SubscriptBox["P", "\<\"+\"\>"]}],
22470	RowBox[{
22471	SubscriptBox["\<\"s\"\>", "2"], ",",
22472	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22473	RowBox[{"3", " ",
22474	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
22475	CellChangeTimes->{
22476	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22477	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22478	3.581159752839449*^9}],
22479
22480	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
22481	* * * * * *)\"\>"], "Print",
22482	CellChangeTimes->{
22483	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22484	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22485	3.581159752848649*^9}],
22486
22487	Cell[BoxData[
22488	InterpretationBox[
22489	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "137"}],
22490	SequenceForm["Vertex ", 137],
22491	Editable->False]], "Print",
22492	CellChangeTimes->{
22493	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22494	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22495	3.581159752853713*^9}],
22496
22497	Cell[BoxData[
22498	InterpretationBox[
22499	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
22500	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
22501	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
22502	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ve],
22503	Editable->False]], "Print",
22504	CellChangeTimes->{
22505	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22506	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22507	3.581159752858737*^9}],
22508
22509	Cell[BoxData[
22510	InterpretationBox[
22511	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
22512	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
22513	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
22514	OverscriptBox["ve", "\<\"-\"\>"]}],
22515	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
22516	Editable->False]], "Print",
22517	CellChangeTimes->{
22518	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22519	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22520	3.58115975286452*^9}],
22521
22522	Cell[BoxData[
22523	InterpretationBox[
22524	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
22525	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
22526	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
22527	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
22528	Editable->False]], "Print",
22529	CellChangeTimes->{
22530	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22531	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22532	3.581159752870281*^9}],
22533
22534	Cell[BoxData[
22535	InterpretationBox[
22536	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
22537	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
22538	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
22539	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
22540	Editable->False]], "Print",
22541	CellChangeTimes->{
22542	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22543	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22544	3.581159752875308*^9}],
22545
22546	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
22547	CellChangeTimes->{
22548	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22549	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22550	3.5811597528819427`*^9}],
22551
22552	Cell[BoxData[
22553	RowBox[{
22554	FractionBox[
22555	RowBox[{"\[ImaginaryI]", " ",
22556	SubscriptBox["c", "w"], " ", "e", " ",
22557	SubscriptBox["\[Kappa]", "l"], " ",
22558	SubscriptBox["\[Eta]",
22559	RowBox[{
22560	SubscriptBox["\<\"\[Mu]\"\>",
22561	RowBox[{"3", ",", "1"}]], ",",
22562	SubscriptBox["\<\"\[Mu]\"\>",
22563	RowBox[{"3", ",", "2"}]]}]], " ",
22564	SubscriptBox[
22565	RowBox[{
22566	SuperscriptBox["\[Gamma]",
22567	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
22568	SubscriptBox["P", "\<\"-\"\>"]}],
22569	RowBox[{
22570	SubscriptBox["\<\"s\"\>", "2"], ",",
22571	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22572	RowBox[{"2", " ", "\[CapitalLambda]", " ",
22573	SubscriptBox["s", "w"]}]], "+",
22574	FractionBox[
22575	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22576	SubscriptBox["\[Kappa]", "l"], " ",
22577	SubscriptBox["s", "w"], " ",
22578	SubscriptBox["\[Eta]",
22579	RowBox[{
22580	SubscriptBox["\<\"\[Mu]\"\>",
22581	RowBox[{"3", ",", "1"}]], ",",
22582	SubscriptBox["\<\"\[Mu]\"\>",
22583	RowBox[{"3", ",", "2"}]]}]], " ",
22584	SubscriptBox[
22585	RowBox[{
22586	SuperscriptBox["\[Gamma]",
22587	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
22588	SubscriptBox["P", "\<\"-\"\>"]}],
22589	RowBox[{
22590	SubscriptBox["\<\"s\"\>", "2"], ",",
22591	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22592	RowBox[{"2", " ",
22593	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
22594	FractionBox[
22595	RowBox[{"\[ImaginaryI]", " ",
22596	SubscriptBox["c", "w"], " ", "e", " ",
22597	SubscriptBox["\[Kappa]", "l"], " ",
22598	SubscriptBox["\[Eta]",
22599	RowBox[{
22600	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22601	SubscriptBox["\<\"\[Mu]\"\>",
22602	RowBox[{"3", ",", "2"}]]}]], " ",
22603	SubscriptBox[
22604	RowBox[{
22605	SuperscriptBox["\[Gamma]",
22606	SubscriptBox["\<\"\[Mu]\"\>",
22607	RowBox[{"3", ",", "1"}]]], ".",
22608	SubscriptBox["P", "\<\"-\"\>"]}],
22609	RowBox[{
22610	SubscriptBox["\<\"s\"\>", "2"], ",",
22611	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22612	RowBox[{"4", " ", "\[CapitalLambda]", " ",
22613	SubscriptBox["s", "w"]}]], "-",
22614	FractionBox[
22615	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22616	SubscriptBox["\[Kappa]", "l"], " ",
22617	SubscriptBox["s", "w"], " ",
22618	SubscriptBox["\[Eta]",
22619	RowBox[{
22620	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22621	SubscriptBox["\<\"\[Mu]\"\>",
22622	RowBox[{"3", ",", "2"}]]}]], " ",
22623	SubscriptBox[
22624	RowBox[{
22625	SuperscriptBox["\[Gamma]",
22626	SubscriptBox["\<\"\[Mu]\"\>",
22627	RowBox[{"3", ",", "1"}]]], ".",
22628	SubscriptBox["P", "\<\"-\"\>"]}],
22629	RowBox[{
22630	SubscriptBox["\<\"s\"\>", "2"], ",",
22631	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22632	RowBox[{"4", " ",
22633	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
22634	FractionBox[
22635	RowBox[{"\[ImaginaryI]", " ",
22636	SubscriptBox["c", "w"], " ", "e", " ",
22637	SubscriptBox["\[Kappa]", "l"], " ",
22638	SubscriptBox["\[Eta]",
22639	RowBox[{
22640	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22641	SubscriptBox["\<\"\[Mu]\"\>",
22642	RowBox[{"3", ",", "1"}]]}]], " ",
22643	SubscriptBox[
22644	RowBox[{
22645	SuperscriptBox["\[Gamma]",
22646	SubscriptBox["\<\"\[Mu]\"\>",
22647	RowBox[{"3", ",", "2"}]]], ".",
22648	SubscriptBox["P", "\<\"-\"\>"]}],
22649	RowBox[{
22650	SubscriptBox["\<\"s\"\>", "2"], ",",
22651	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22652	RowBox[{"4", " ", "\[CapitalLambda]", " ",
22653	SubscriptBox["s", "w"]}]], "-",
22654	FractionBox[
22655	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22656	SubscriptBox["\[Kappa]", "l"], " ",
22657	SubscriptBox["s", "w"], " ",
22658	SubscriptBox["\[Eta]",
22659	RowBox[{
22660	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22661	SubscriptBox["\<\"\[Mu]\"\>",
22662	RowBox[{"3", ",", "1"}]]}]], " ",
22663	SubscriptBox[
22664	RowBox[{
22665	SuperscriptBox["\[Gamma]",
22666	SubscriptBox["\<\"\[Mu]\"\>",
22667	RowBox[{"3", ",", "2"}]]], ".",
22668	SubscriptBox["P", "\<\"-\"\>"]}],
22669	RowBox[{
22670	SubscriptBox["\<\"s\"\>", "2"], ",",
22671	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22672	RowBox[{"4", " ",
22673	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
22674	CellChangeTimes->{
22675	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22676	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22677	3.581159752888709*^9}],
22678
22679	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
22680	* * * * * *)\"\>"], "Print",
22681	CellChangeTimes->{
22682	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22683	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22684	3.5811597528960133`*^9}],
22685
22686	Cell[BoxData[
22687	InterpretationBox[
22688	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "138"}],
22689	SequenceForm["Vertex ", 138],
22690	Editable->False]], "Print",
22691	CellChangeTimes->{
22692	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22693	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22694	3.581159752901122*^9}],
22695
22696	Cell[BoxData[
22697	InterpretationBox[
22698	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
22699	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
22700	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
22701	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vm],
22702	Editable->False]], "Print",
22703	CellChangeTimes->{
22704	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22705	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22706	3.581159752906014*^9}],
22707
22708	Cell[BoxData[
22709	InterpretationBox[
22710	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
22711	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
22712	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
22713	OverscriptBox["vm", "\<\"-\"\>"]}],
22714	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
22715	Editable->False]], "Print",
22716	CellChangeTimes->{
22717	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22718	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22719	3.581159752911072*^9}],
22720
22721	Cell[BoxData[
22722	InterpretationBox[
22723	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
22724	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
22725	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
22726	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
22727	Editable->False]], "Print",
22728	CellChangeTimes->{
22729	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22730	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22731	3.5811597529162493`*^9}],
22732
22733	Cell[BoxData[
22734	InterpretationBox[
22735	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
22736	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
22737	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
22738	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
22739	Editable->False]], "Print",
22740	CellChangeTimes->{
22741	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22742	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22743	3.5811597529222183`*^9}],
22744
22745	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
22746	CellChangeTimes->{
22747	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22748	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22749	3.5811597529284773`*^9}],
22750
22751	Cell[BoxData[
22752	RowBox[{
22753	FractionBox[
22754	RowBox[{"\[ImaginaryI]", " ",
22755	SubscriptBox["c", "w"], " ", "e", " ",
22756	SubscriptBox["\[Kappa]", "l"], " ",
22757	SubscriptBox["\[Eta]",
22758	RowBox[{
22759	SubscriptBox["\<\"\[Mu]\"\>",
22760	RowBox[{"3", ",", "1"}]], ",",
22761	SubscriptBox["\<\"\[Mu]\"\>",
22762	RowBox[{"3", ",", "2"}]]}]], " ",
22763	SubscriptBox[
22764	RowBox[{
22765	SuperscriptBox["\[Gamma]",
22766	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
22767	SubscriptBox["P", "\<\"-\"\>"]}],
22768	RowBox[{
22769	SubscriptBox["\<\"s\"\>", "2"], ",",
22770	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22771	RowBox[{"2", " ", "\[CapitalLambda]", " ",
22772	SubscriptBox["s", "w"]}]], "+",
22773	FractionBox[
22774	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22775	SubscriptBox["\[Kappa]", "l"], " ",
22776	SubscriptBox["s", "w"], " ",
22777	SubscriptBox["\[Eta]",
22778	RowBox[{
22779	SubscriptBox["\<\"\[Mu]\"\>",
22780	RowBox[{"3", ",", "1"}]], ",",
22781	SubscriptBox["\<\"\[Mu]\"\>",
22782	RowBox[{"3", ",", "2"}]]}]], " ",
22783	SubscriptBox[
22784	RowBox[{
22785	SuperscriptBox["\[Gamma]",
22786	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
22787	SubscriptBox["P", "\<\"-\"\>"]}],
22788	RowBox[{
22789	SubscriptBox["\<\"s\"\>", "2"], ",",
22790	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22791	RowBox[{"2", " ",
22792	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
22793	FractionBox[
22794	RowBox[{"\[ImaginaryI]", " ",
22795	SubscriptBox["c", "w"], " ", "e", " ",
22796	SubscriptBox["\[Kappa]", "l"], " ",
22797	SubscriptBox["\[Eta]",
22798	RowBox[{
22799	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22800	SubscriptBox["\<\"\[Mu]\"\>",
22801	RowBox[{"3", ",", "2"}]]}]], " ",
22802	SubscriptBox[
22803	RowBox[{
22804	SuperscriptBox["\[Gamma]",
22805	SubscriptBox["\<\"\[Mu]\"\>",
22806	RowBox[{"3", ",", "1"}]]], ".",
22807	SubscriptBox["P", "\<\"-\"\>"]}],
22808	RowBox[{
22809	SubscriptBox["\<\"s\"\>", "2"], ",",
22810	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22811	RowBox[{"4", " ", "\[CapitalLambda]", " ",
22812	SubscriptBox["s", "w"]}]], "-",
22813	FractionBox[
22814	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22815	SubscriptBox["\[Kappa]", "l"], " ",
22816	SubscriptBox["s", "w"], " ",
22817	SubscriptBox["\[Eta]",
22818	RowBox[{
22819	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22820	SubscriptBox["\<\"\[Mu]\"\>",
22821	RowBox[{"3", ",", "2"}]]}]], " ",
22822	SubscriptBox[
22823	RowBox[{
22824	SuperscriptBox["\[Gamma]",
22825	SubscriptBox["\<\"\[Mu]\"\>",
22826	RowBox[{"3", ",", "1"}]]], ".",
22827	SubscriptBox["P", "\<\"-\"\>"]}],
22828	RowBox[{
22829	SubscriptBox["\<\"s\"\>", "2"], ",",
22830	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22831	RowBox[{"4", " ",
22832	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
22833	FractionBox[
22834	RowBox[{"\[ImaginaryI]", " ",
22835	SubscriptBox["c", "w"], " ", "e", " ",
22836	SubscriptBox["\[Kappa]", "l"], " ",
22837	SubscriptBox["\[Eta]",
22838	RowBox[{
22839	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22840	SubscriptBox["\<\"\[Mu]\"\>",
22841	RowBox[{"3", ",", "1"}]]}]], " ",
22842	SubscriptBox[
22843	RowBox[{
22844	SuperscriptBox["\[Gamma]",
22845	SubscriptBox["\<\"\[Mu]\"\>",
22846	RowBox[{"3", ",", "2"}]]], ".",
22847	SubscriptBox["P", "\<\"-\"\>"]}],
22848	RowBox[{
22849	SubscriptBox["\<\"s\"\>", "2"], ",",
22850	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22851	RowBox[{"4", " ", "\[CapitalLambda]", " ",
22852	SubscriptBox["s", "w"]}]], "-",
22853	FractionBox[
22854	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22855	SubscriptBox["\[Kappa]", "l"], " ",
22856	SubscriptBox["s", "w"], " ",
22857	SubscriptBox["\[Eta]",
22858	RowBox[{
22859	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22860	SubscriptBox["\<\"\[Mu]\"\>",
22861	RowBox[{"3", ",", "1"}]]}]], " ",
22862	SubscriptBox[
22863	RowBox[{
22864	SuperscriptBox["\[Gamma]",
22865	SubscriptBox["\<\"\[Mu]\"\>",
22866	RowBox[{"3", ",", "2"}]]], ".",
22867	SubscriptBox["P", "\<\"-\"\>"]}],
22868	RowBox[{
22869	SubscriptBox["\<\"s\"\>", "2"], ",",
22870	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22871	RowBox[{"4", " ",
22872	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
22873	CellChangeTimes->{
22874	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22875	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22876	3.581159752935207*^9}],
22877
22878	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
22879	* * * * * *)\"\>"], "Print",
22880	CellChangeTimes->{
22881	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22882	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22883	3.581159752943437*^9}],
22884
22885	Cell[BoxData[
22886	InterpretationBox[
22887	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "139"}],
22888	SequenceForm["Vertex ", 139],
22889	Editable->False]], "Print",
22890	CellChangeTimes->{
22891	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22892	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22893	3.58115975294973*^9}],
22894
22895	Cell[BoxData[
22896	InterpretationBox[
22897	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
22898	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
22899	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
22900	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vt],
22901	Editable->False]], "Print",
22902	CellChangeTimes->{
22903	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22904	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22905	3.5811597529551497`*^9}],
22906
22907	Cell[BoxData[
22908	InterpretationBox[
22909	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
22910	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
22911	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
22912	OverscriptBox["vt", "\<\"-\"\>"]}],
22913	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
22914	Editable->False]], "Print",
22915	CellChangeTimes->{
22916	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22917	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22918	3.581159752961198*^9}],
22919
22920	Cell[BoxData[
22921	InterpretationBox[
22922	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
22923	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
22924	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
22925	SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
22926	Editable->False]], "Print",
22927	CellChangeTimes->{
22928	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22929	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22930	3.581159752967177*^9}],
22931
22932	Cell[BoxData[
22933	InterpretationBox[
22934	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
22935	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
22936	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
22937	SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
22938	Editable->False]], "Print",
22939	CellChangeTimes->{
22940	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22941	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22942	3.581159752973268*^9}],
22943
22944	Cell[BoxData["\<\"Vertex:\"\>"], "Print",
22945	CellChangeTimes->{
22946	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
22947	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
22948	3.581159752978757*^9}],
22949
22950	Cell[BoxData[
22951	RowBox[{
22952	FractionBox[
22953	RowBox[{"\[ImaginaryI]", " ",
22954	SubscriptBox["c", "w"], " ", "e", " ",
22955	SubscriptBox["\[Kappa]", "l"], " ",
22956	SubscriptBox["\[Eta]",
22957	RowBox[{
22958	SubscriptBox["\<\"\[Mu]\"\>",
22959	RowBox[{"3", ",", "1"}]], ",",
22960	SubscriptBox["\<\"\[Mu]\"\>",
22961	RowBox[{"3", ",", "2"}]]}]], " ",
22962	SubscriptBox[
22963	RowBox[{
22964	SuperscriptBox["\[Gamma]",
22965	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
22966	SubscriptBox["P", "\<\"-\"\>"]}],
22967	RowBox[{
22968	SubscriptBox["\<\"s\"\>", "2"], ",",
22969	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22970	RowBox[{"2", " ", "\[CapitalLambda]", " ",
22971	SubscriptBox["s", "w"]}]], "+",
22972	FractionBox[
22973	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22974	SubscriptBox["\[Kappa]", "l"], " ",
22975	SubscriptBox["s", "w"], " ",
22976	SubscriptBox["\[Eta]",
22977	RowBox[{
22978	SubscriptBox["\<\"\[Mu]\"\>",
22979	RowBox[{"3", ",", "1"}]], ",",
22980	SubscriptBox["\<\"\[Mu]\"\>",
22981	RowBox[{"3", ",", "2"}]]}]], " ",
22982	SubscriptBox[
22983	RowBox[{
22984	SuperscriptBox["\[Gamma]",
22985	SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
22986	SubscriptBox["P", "\<\"-\"\>"]}],
22987	RowBox[{
22988	SubscriptBox["\<\"s\"\>", "2"], ",",
22989	SubscriptBox["\<\"s\"\>", "1"]}]]}],
22990	RowBox[{"2", " ",
22991	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
22992	FractionBox[
22993	RowBox[{"\[ImaginaryI]", " ",
22994	SubscriptBox["c", "w"], " ", "e", " ",
22995	SubscriptBox["\[Kappa]", "l"], " ",
22996	SubscriptBox["\[Eta]",
22997	RowBox[{
22998	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
22999	SubscriptBox["\<\"\[Mu]\"\>",
23000	RowBox[{"3", ",", "2"}]]}]], " ",
23001	SubscriptBox[
23002	RowBox[{
23003	SuperscriptBox["\[Gamma]",
23004	SubscriptBox["\<\"\[Mu]\"\>",
23005	RowBox[{"3", ",", "1"}]]], ".",
23006	SubscriptBox["P", "\<\"-\"\>"]}],
23007	RowBox[{
23008	SubscriptBox["\<\"s\"\>", "2"], ",",
23009	SubscriptBox["\<\"s\"\>", "1"]}]]}],
23010	RowBox[{"4", " ", "\[CapitalLambda]", " ",
23011	SubscriptBox["s", "w"]}]], "-",
23012	FractionBox[
23013	RowBox[{"\[ImaginaryI]", " ", "e", " ",
23014	SubscriptBox["\[Kappa]", "l"], " ",
23015	SubscriptBox["s", "w"], " ",
23016	SubscriptBox["\[Eta]",
23017	RowBox[{
23018	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
23019	SubscriptBox["\<\"\[Mu]\"\>",
23020	RowBox[{"3", ",", "2"}]]}]], " ",
23021	SubscriptBox[
23022	RowBox[{
23023	SuperscriptBox["\[Gamma]",
23024	SubscriptBox["\<\"\[Mu]\"\>",
23025	RowBox[{"3", ",", "1"}]]], ".",
23026	SubscriptBox["P", "\<\"-\"\>"]}],
23027	RowBox[{
23028	SubscriptBox["\<\"s\"\>", "2"], ",",
23029	SubscriptBox["\<\"s\"\>", "1"]}]]}],
23030	RowBox[{"4", " ",
23031	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
23032	FractionBox[
23033	RowBox[{"\[ImaginaryI]", " ",
23034	SubscriptBox["c", "w"], " ", "e", " ",
23035	SubscriptBox["\[Kappa]", "l"], " ",
23036	SubscriptBox["\[Eta]",
23037	RowBox[{
23038	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
23039	SubscriptBox["\<\"\[Mu]\"\>",
23040	RowBox[{"3", ",", "1"}]]}]], " ",
23041	SubscriptBox[
23042	RowBox[{
23043	SuperscriptBox["\[Gamma]",
23044	SubscriptBox["\<\"\[Mu]\"\>",
23045	RowBox[{"3", ",", "2"}]]], ".",
23046	SubscriptBox["P", "\<\"-\"\>"]}],
23047	RowBox[{
23048	SubscriptBox["\<\"s\"\>", "2"], ",",
23049	SubscriptBox["\<\"s\"\>", "1"]}]]}],
23050	RowBox[{"4", " ", "\[CapitalLambda]", " ",
23051	SubscriptBox["s", "w"]}]], "-",
23052	FractionBox[
23053	RowBox[{"\[ImaginaryI]", " ", "e", " ",
23054	SubscriptBox["\[Kappa]", "l"], " ",
23055	SubscriptBox["s", "w"], " ",
23056	SubscriptBox["\[Eta]",
23057	RowBox[{
23058	SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
23059	SubscriptBox["\<\"\[Mu]\"\>",
23060	RowBox[{"3", ",", "1"}]]}]], " ",
23061	SubscriptBox[
23062	RowBox[{
23063	SuperscriptBox["\[Gamma]",
23064	SubscriptBox["\<\"\[Mu]\"\>",
23065	RowBox[{"3", ",", "2"}]]], ".",
23066	SubscriptBox["P", "\<\"-\"\>"]}],
23067	RowBox[{
23068	SubscriptBox["\<\"s\"\>", "2"], ",",
23069	SubscriptBox["\<\"s\"\>", "1"]}]]}],
23070	RowBox[{"4", " ",
23071	SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
23072	CellChangeTimes->{
23073	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
23074	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
23075	3.5811597529849367`*^9}],
23076
23077	Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
23078	* * * * * *)\"\>"], "Print",
23079	CellChangeTimes->{
23080	3.581151429983069^9, {3.581151472736092^9, 3.581151481059348*^9},
23081	3.581152947523683^9, 3.5811593670610723`^9, 3.581159414446044*^9,
23082	3.5811597529924793`*^9}]
23083	}, Open ]]
23084	}, Closed]],
23085
23086	Cell[CellGroupData[{
23087
23088	Cell[BoxData[
23089	RowBox[{"WriteUFO", "[",
23090	RowBox[{"LagHC", ",",
23091	RowBox[{"RemoveGhosts", "\[Rule]", "True"}], ",",
23092	RowBox[{"AddDecays", "\[Rule]", "False"}]}], "]"}]], "Input",
23093	CellChangeTimes->{{3.577107029356776^9, 3.5771070477923737`^9}, {
23094	3.577158523077528^9, 3.577158534562706^9}, 3.577160281210434*^9, {
23095	3.579411806714102^9, 3.579411828528706^9}, {3.579422946305105*^9,
23096	3.579422989755477^9}, {3.579451314563088^9, 3.5794513402565603`*^9}, {
23097	3.579509547412293^9, 3.579509551094151^9}, {3.5795101776420813`*^9,
23098	3.579510178098853^9}, {3.579510326274065^9, 3.579510327951848*^9}, {
23099	3.579511951094426^9, 3.579511951792654^9}, {3.579516692371182*^9,
23100	3.579516693661449^9}, {3.579517289114347^9, 3.579517290160247*^9}, {
23101	3.579517469625496^9, 3.579517497580488^9}, {3.5795397677576017`*^9,
23102	3.579539779430418^9}, 3.579595493612273^9, {3.579609434073883*^9,
23103	3.579609440715682^9}, {3.579775253548801^9, 3.579775259057622*^9}, {
23104	3.579775397339424^9, 3.579775401034914^9}, {3.579776087450013*^9,
23105	3.579776090678286^9}, {3.581159850189066^9, 3.5811598529615707`*^9}, {
23106	3.595333062080071^9, 3.595333076540902^9}}],
23107
23108	Cell[CellGroupData[{
23109
23110	Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
23111	"Print",
23112	CellChangeTimes->CompressedData["
23113	1:eJwVzmkow3Ecx/HhgQdMJB4pJmWMhA0r0m/YnDkeOJZ/zrlz5IlyJnI0GiK0
23114	SMo1DHOsUJNY5kxISIxHPxJbecAa3++DT6/6PHpzCmsyZDYsFksIa5LYtRhm
23115	KDn04i0eg2Gp9XUvYJrqIOkVHJPYq4NU8DfkeQvAcf7LnwgU+j2U5IEpd+ez
23116	qOu1fB2NzE7Wo9xe4WA+ePA1qUGNO1ZjIWghejPaIZxnF4EmsaM76lzxEIgG
23117	yKsFqICriUQ330yJqG5VzaAfx2pZMejCfeRWg8ljj0wPWLbBa0RNoVUBCjBk
23118	einsGRyx3OagzM+cHJXVLFiN4O/gbnrEIiXR2gb3clD5Lt2vBd08Mrq7QDEn
23119	7lMOVq1MKYdAS+bzLCo1O9gOg1pXH+UN6OV/b0Azn1ROF0uUXG51hHcuU3Ln
23120	GVz2DQ4UNIsdV6CjXSdRrFHiQ8yXIg0l/UzllwS0Fk0sx4NnrfzTlD1K9G2j
23121	231HlLCisiYUoO/0TCnbQEnCQIyUB56E5k4y4L3IGisDr9KbRtB/Jjj56g==
23122
23123	"]],
23124
23125	Cell[BoxData[
23126	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
23127	StripOnInput->False,
23128	LineColor->RGBColor[1, 0.5, 0],
23129	FrontFaceColor->RGBColor[1, 0.5, 0],
23130	BackFaceColor->RGBColor[1, 0.5, 0],
23131	GraphicsColor->RGBColor[1, 0.5, 0],
23132	FontWeight->Bold,
23133	FontColor->RGBColor[1, 0.5, 0]]], "Print",
23134	CellChangeTimes->CompressedData["
23135	1:eJwVzmkow3Ecx/EheWBE4pFypIyRHMNq0m/YnDkeOJZ/zrlz5IlyJnI0GnK2
23136	JinXMMxVKNIsc6ZISIxHPxJbecAa3++DT6/6PHp7FdZkSK1YLBYf1iS2adHP
23137	UHLkyV08AcNT6+tewDSVNukVHBfbqYNU8DfkefPAibCXPyHI93soyQNT7i5m
23138	UZdr2ToqyE7WoZxe/mA+qP2a1KCGXYuhEDQTnQnt4M87FIFGEdsNdap4CEQD
23139	ZNU8lMfRCNDNN2Miur+qZtCPE7W0GHTmPHKqweTxR6YHLNvgNqLG0KoAORgy
23140	vRT+DI6Yb3NQ5mdOhkprFiwG8HdwLz1ykZLo7Qa3clDxLjmsBV3dM7q7QJFX
23141	3KcMrFqZUgyB5sznWVRisrceBrddfBQ3oKf/vR7NfFI5Xi5RcrXVEdG5TMmd
23142	R3DZNzhQ0Cxir0BH+75YvkaJDzFdCTWU9DOVX2LQUqRcjgfPW8POUg4o0bWN
23143	7fQdU8KKylLKQd/pmVIHPSUJAzESLngamjvJgPdCS6wUFChtR9F/IM75KQ==
23144
23145	"]],
23146
23147	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
23148	CellChangeTimes->CompressedData["
23149	1:eJwVzmkow3Ecx/EheeCIZI+UI2VskmNYkX7D5szxwLH8c86dI0+UM5Gj0ZCz
23150	RVKuYWOuckRimTNFQmI8+pHYygPW+H4ffHrV59HbI78qTWrBYrEEsAaxVZNu
23151	mpIjd+7CCRiSXFvzAqYoDxNewVGxjcpfCX9djicfHAt++ROCAp+Hohww6e5i
23152	BnW+lq2i4ZmJWpTTLejPBQ+/JjSoftuszwdNRGtE2wRz9gWgQWTHRh3LHvxQ
23153	nqySj/I5mnB0/c0Qj+4tqxj040QlLQSdOI+cSjBx9JHpAkvWuPWoIaiCJwcD
23154	pxZDnsEh020WyvzMylBp1bxZD/7276SGLVASuVnHLgUV75KDatDFNa2zAxR5
23155	xHzKwAr1pGIANKU/z6ASo63lILjp7KW4Ad1973Vo+pPS4XKRkquNttD2JUru
23156	3AJKvsG+vEaRnRo6WvfE8hVKvIjxSqihpJcp/xKD5oLxpVjwvDn4LGmfEm3L
23157	yFbPMSWsiIxxOeg9NV1sr6Mkri9KwgVPg7InGPBeaI6Wgrxd62H0HyEu+Tk=
23158
23159	"]],
23160
23161	Cell[BoxData[
23162	InterpretationBox[
23163	RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "2",
23164	"\[InvisibleSpace]", "\<\" cores\"\>"}],
23165	SequenceForm["Expanding indices over ", 2, " cores"],
23166	Editable->False]], "Print",
23167	CellChangeTimes->CompressedData["
23168	1:eJwVzmkow3Ecx/EheWBE4pFypIyRmGFF+g2bM8cDx/LPOXeOPFHONDkaDTlb
23169	JOUahrkKNYllzhQJifHoR2IrD1jj+33w6VWfR2+vwpoMqRWLxRLAmsQ2LfoZ
23170	So48uYsnYFhqfd0LmKY6THoFx8R26iAV/A153nxwPPTlTwgK/B5K8sCUu4tZ
23171	1OVavo5GZifrUE6PYCAfPPya1KCGXYuhEDQTnQmVCeYdikCjiO2GOlU8BKIB
23172	8mo+yudoItHNN2Miql1VM+jHiVpaDDpzHjnVYPLYI9MNlm1wG1EjrypAAYZM
23173	L4U9g8Pm2xyU+ZmTo9KaBYsB/B3YS49YpCR6u8GtHFS+Sw5qQVf3jK5OUOQV
23174	9ykHq1amlIOgOfN5FpWY7K2HwG0XH+UN6Ol/r0czn1SOl0uUXG3JwjuWKbnz
23175	CC77BvsLmkXsFeho14oVa5T4ENOVUENJH1P5JQYtRRPL8eB5a+hZyj4lurbR
23176	nd5jSlhRWRMK0Hd6ptRBT0lCf4yEC57ycicZ8F5oiZWCsjPbEfQfJFf5oA==
23177
23178	"]],
23179
23180	Cell[BoxData["\<\"Collecting the different structures that enter the \
23181	vertex.\"\>"], "Print",
23182	CellChangeTimes->CompressedData["
23183	1:eJwVzmkow3Ecx/HhgQdMJPJAOVLGSI5hNek3bK7leOBY/jnnzpEnypnI0WiI
23184	TIukXMMwV6FIs8yZIiExHv1IbOUBa3y/Dz696vPo7VNUmymzYbFYfFiz2K7V
23185	MEPJkTd38QSMTGuofwHT1bqUV1AptteEqOFvzPflgeMRL39CkB/wUJoPSu4u
23186	ZlHXa/k6KshJ1aOcPv5QAaj7mtSixl2rsQi0EL0Z7eTPs4tBk8jRHXWufAhG
23187	g+Q1PJTH0QrQzTdTMrq/qmHQjxONrAR04TxyasBU5SPTC5ZvcJtQU3h1kAIM
23188	m16KfAZHLbe5KPMzJ0dltQtWI/g7tJcRvUhJ7HajewWoepce1oFunpk93aDI
23189	J+FTDlavTKmGQUvW8ywqNTvYjoDbrn6qG9A78N6AZj2pnS6XKLna6ozqWqbk
23190	ziu0/BscLGwROa5AR8e+WLFGiR8xXwm1lAwwVV9i0Fo8sZwInrdFnEkOKNG3
23191	j+30H1PCismeUID+0zNlbAMlSYNxUi54Gp43yYD3Qmu8DJQIPJToPx8k+O0=
23192
23193	"]],
23194
23195	Cell[BoxData[
23196	InterpretationBox[
23197	RowBox[{
23198	"102", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
23199	found -> starting the computation: \"\>", "\[InvisibleSpace]",
23200	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
23201	ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
23202	"\[InvisibleSpace]", "102", "\[InvisibleSpace]", "\<\".\"\>"}],
23203	SequenceForm[
23204	102, " possible non-zero vertices have been found -> starting the \
23205	computation: ",
23206	Dynamic[FeynRules`FR$FeynmanRules], " / ", 102, "."],
23207	Editable->False]], "Print",
23208	CellChangeTimes->CompressedData["
23209	1:eJwVzmkow3Ecx/HhgQeOSDxSzjJGcgwr0m/YnDkeOJZ/zrlz5IlyJnI02ohM
23210	i7SaYxjmKhSJZc4UCYnNox+JrTxgje/3wadXfR69fUobcsQ2LBaLB2sT2nXo
23211	VZQce3MWT8GozOYmI5ilPkp7BeVCe02oGv6WIl8uOBlp/OODvMDHiiIw4/5y
23212	FnW7kayjsfnpOpQ9yBspBo++prWoYddqKAUtRGdGe3jzTmWgSeDogbrUPIag
23213	wZJ6Lspla2PRzTdTKrq/qmHQj1ONuBx0ZT+x68F0+RMzAFZtcFpRU0RdsBQM
23214	Vy5FvYDjlrsClPmZk6DihgWrAfwd2cuOWaQkfrvFoxpUvIsOG0F3z5z+PlDg
23215	k/QpAetWZhSjoCX3ZRYVmR1sx8BtN3/FLegd9KBHc5/VzldLlFxv9UT3LlNy
23216	7xVW9Q3KStoFjivQ0b0vlK5R4k/M13wtJcNM7ZcQtJZNLSeDF52R5xkHlOi6
23217	JnaGTihhxeVNScEAparSSU9JiixBxAHPIgqnGfCBb00Ug+pwPzn6DyIQ+Uw=
23218
23219	"]],
23220
23221	Cell[BoxData[
23222	InterpretationBox[
23223	RowBox[{"96", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
23224	SequenceForm[96, " vertices obtained."],
23225	Editable->False]], "Print",
23226	CellChangeTimes->CompressedData["
23227	1:eJwVzmkow3Ecx/HhgQdMJB4pJmWMhA0r0m/YnDkeOJZ/GHPnyBPlTORoNERo
23228	kZRrGOZYoUgsc6ZISIxHPxJbUazx/T749KrPozdHVp0ht2GxWEJYo8Su2TBN
23229	yaEXb+EYDEutq30G09QHSS/gqMReE6SGvz7PWwCO8Z//RKDQ7744D0y5PZ9B
23230	Xa8Ua2hkdrIe5fYIB/LBg88JLWrcthploIXozWi7cI5dCJrEju6oc/l9IBqg
23231	qBKgAq42Et14NSWiuysaBn0/1siLQBfuA7cKTB59YLrB0nVeA2oKrQxQgiFT
23232	i2FP4LDlJgdlfmYVqLx63moEfwd20iMWKInW1buXgao36X4N6OaR0dUJijlx
23233	HwqwcnlSNQhaMp9mUKnZwXYI1Ln6qK5BL/87A5r5qHa6WKTkcrM9vGOJklvP
23234	4NIvsL+gSey4DB1tuxLlKiU+xHwp0lLSx1R8SkBr4fhSPHjWwj9N2aNE3zqy
23235	1XtECSsqa1wJ+k5Nl7ANlCT0x0h54Elo7gQD3omssXIw3+Vbhf4DI9j5tw==
23236
23237	"]],
23238
23239	Cell[BoxData[
23240	InterpretationBox[
23241	RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
23242	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
23243	"\[InvisibleSpace]",
23244	DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
23245	ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
23246	"\[InvisibleSpace]", "96"}],
23247	SequenceForm[
23248	"Flavor expansion of the vertices distributed over ", 2, " cores: ",
23249	Dynamic[FeynRules`FR$Count1], " / ", 96],
23250	Editable->False]], "Print",
23251	CellChangeTimes->CompressedData["
23252	1:eJwVzmkow3Ecx/HhgQeOSDxSjpQxkmNYkX7D5szxwLH8m2vuHHminIkcjbaJ
23253	TEMo1zDMVSgSy5wpEhLj0Y/EVh6wxvf74NOrPo/eXoU1mRIrFovFgzUJbVr0
23254	05QceXIWTsDwtPq6FzBdfZj8CiqFtpogNfwNYm8uOBL28scHeX4PJWIw9e5i
23255	BnW5lq6hUTkpOpTdy1Pkg4df41rUsGMxFIJmojOhHbw5hyLQKLB3Q50qHgLR
23256	AGk1F+WytVHoxpsxCd1b0TDox4lGUgw6sx/Z1WCK8pHpAcvWOY2oMbQqQAaG
23257	TC2GP4ND5ttclPmZlaKSmnmLAfxV7GZELlASs9XgVg6q3kUHtaCre2Z3Fyjw
23258	iv+UglXLE6oB0Jz1PIOKTHbWg+CWi4/qBvT0v9ejWU9qx8tFSq42OyI6lyi5
23259	8wgu+wblBc0C+2XoaN8TylYp8SGmK76Wkn6m8ksIWorGlhLA89aws9R9SnRt
23260	w9t9x5SworPHZKDv1HSpg56SRHmsiAOehuaNM+A93xInAY+Uk6PoPyjH+lE=
23261
23262	"]],
23263
23264	Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
23265	CellChangeTimes->CompressedData["
23266	1:eJwVzmkow3Ecx/HhgWJE4pFypIyRmGFF+g2bM8cDx/IPY+4ceaKciRyNhggt
23267	S8o1bMxVKBLLnCkSEuPRj8RWHrDG9/vg06s+j94+0tosmQ2LxRLAmsV2rYYZ
23268	So68uYsnYER6Q/0LmKE+THkFx8X2mhA1/I0FvnxwIvzlTwgKAh5KC8C0u4tZ
23269	1O1avoZG56bqUU6fYKgQPPxS6VDjjtUoBS1Eb0Y7BfNOxaBJxPZAXSofgtEg
23270	eQ0f5XN00ejGmykZ3VvRMOjHiUZWArpyHjk1YOr4I9MLlq9zm1ATrzpIAYZN
23271	L0U8g6OW2zyU+ZmTo7LaBasR/B3azYxapCR2q9GjAlS+Sw7qQHfPrJ5uUOST
23272	8CkHq7VTymHQkv08i0rMjrYj4Jabn/IG9A68N6DZT2rnyyVKrjY7I7uWKbnz
23273	Ci3/BgeLWkRsLXR07IkVq5T4EfOVUEfJAFP1JQatxZPLieB5W/hZ2j4l+vax
23274	7f5jSlgxOZMK0H96pszJQEnSYJyEC57y8lUMeC+0xstAB61Ghf4DI+D5uw==
23275
23276	"]],
23277
23278	Cell[BoxData[
23279	InterpretationBox[
23280	RowBox[{"\<\"Removing ghost fields and Goldstone boson vertices: \"\>",
23281	"\[InvisibleSpace]", "1",
23282	"\[InvisibleSpace]", "\<\" vertices removed.\"\>"}],
23283	SequenceForm[
23284	"Removing ghost fields and Goldstone boson vertices: ", 1,
23285	" vertices removed."],
23286	Editable->False]], "Print",
23287	CellChangeTimes->CompressedData["
23288	1:eJwVzmkow3Ecx/HhgQeOSDxSjpQxkmNYkX7D5gx74Fj+OefOkSfKmcjRaIjQ
23289	2pIyDMMcKxSJZc4UCYnx6EeyrTxgje/3wadXfR69/UobRBI7FovFg7UJHToM
23290	c5Qc+3KWTsHorOamVzBbfZT+Bk4JHTVhavhbivy54HTU6x8f5AU9VhSBmfeX
23291	KtTjRrqBxuVn6FH2IG+0GDwyKbWocddmLAWtRG9Be3gLLmWgWeDshbrVPIai
23292	IdJ6Lspla+PQrXdzGrq/pmHQz1ONpBx0Zz+x68GMqSdmAKza5LSi5si6EBkY
23293	Mbsc/QJOWO8KUOZnXopKGhZtRvB3dC8ndomSBF2LVzUo/xAfNoKe3qL+PlDg
23294	l/wlBetWZ+RjoDX3RYWKLU7246DOI0B+C/oGPxjQ3Ge169UyJdfbPTG9K5Tc
23295	+4RXfYMjJe0C51Xo6N4XytYpCSCWa76WkmGm1iQEbWWKlRTwojPqPPOAEn3X
23296	5M7QCSWs+DyFDAycnat0MVCSOpIo5oBnkYVKBnzg25Ik4LtZp0T/ASzs+uc=
23297
23298	"]],
23299
23300	Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
23301	CellChangeTimes->CompressedData["
23302	1:eJwVzmkow3Ecx/HhgQeOSDxSjpQxEjasSL9hc+Z44Fj+OefOkSfKmcjRaMjZ
23303	sqQ2DMOcoUgsc6ZISIxHPxJbecAa3++DT6/6PHp7FdZkSKxYLBYf1iSyadEr
23304	KTny5MyfgGGp9XUvYJr6MOkVHBfZaoLU8DfkefPACe7LnwDk+z2U5IEpdxcq
23305	1OVauopGZifrUHYvfzAfPPxSaFHDjsVQCJqJzoR28GcdikCj0N4Ndap4CEQD
23306	pNU8lMfWRqLrb8ZEdG9Zw6AfJxpJMejMfmRXg8njj0wPWLbGaUSNoVUBMjBk
23307	eiHsGRwx3+agzM+MFJXUzFkM4O/gbnrEPCXRmw1u5aD8XXxQC7q6Z3R3gUKv
23308	uE8pWLU0JR8CzZnPKlRssrMeBjddfOQ3oKf/vR7NfFI7Xi5QcrXREd65SMmd
23309	R3DZNzhQ0Cy0X4KO9j2RbIUSH2K6Emgp6Wcqv0SgpWhyMR48b+WepexTomsb
23310	2+47poQVlTUpA32nlaUOekoSBmLEHPA0NFfBgPcCS6wEFIxuKdB/JS355A==
23311
23312	"]],
23313
23314	Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
23315	"Print",
23316	CellChangeTimes->CompressedData["
23317	1:eJwVzmkow3Ecx/HhgQeOSDxSjpQxEraxIv2GzZnjgWP555i5c+SJciZyNBoi
23318	tCwp1zDMVSgSy5wJCS3Gox+JrTxgje/3wadXfR69fYpqMmU2LBZLAGsS27Xo
23319	pyk58uYsnID8tPq6FzBdfZj8Co6J7TUhavgb8n154Dj35U8ICgIeS/LB1PuL
23320	GdTtRr6GRuWk6FB2r2CwADz8UmlR447VWARaiM6MdgjmnKSgSeTogbpUPAaj
23321	QfJqHspja6PQjTdTErq3omHQjxONrBh0ZRvY1WDKmIHpAcvWOY2oKbwqSAGG
23322	TS3yn8ERy10uyvzMylFZzbzVCP4O7mZELlASs9XgUQ4q3yUHtaC7Z2Z3Fyjy
23323	if+Ug1XLk8oh0JL1PINKzA62w+CWm5/yFvQOfNCjWU9q58tFSq42OyI6lyi5
23324	9wot+wYHCptFjsvQ0b4nVqxS4kfMV0ItJf1M5ZcYtEonlhLA81buWeo+Jbq2
23325	0e2+Y0pY0dkTCtB/arrUSU9J4kCshAOehuepGPBBaI2TgTnXBhX6Dyhm+lw=
23326
23327	"]],
23328
23329	Cell[BoxData[
23330	InterpretationBox[
23331	RowBox[{"\<\"Splitting of vertices distributed over \"\>",
23332	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
23333	SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
23334	Editable->False]], "Print",
23335	CellChangeTimes->CompressedData["
23336	1:eJwVzmkow3Ecx/HhgQeOSDxSjpSxSdiwIv2GzbUcD4bln3PuHHminIkcjYYI
23337	LUvKMAxzFYrEMmeKhMR49COxlQes8f0++PSqz6O3X1FtltyOxWIJYM1ih1bj
23338	DCVHvpyFEzAyvaH+BczQHqa+guNiR12oFv7GfH8+OMF7+ROCgqCH0nxQcneh
23339	QT2uFWtoTE6aAWX3CYYKwMMvtR417dhMRaCVGCxop2DOpRg0i5y9ULfKhxCU
23340	q6jho3y2PgbdeDOnoHsrOgb9ONHJS0B39iO7Bkwbf2R6wfJ1ThNqjqjmKsHw
23341	6cXIZ3DUepuLMj+zClReO28zgb9Du5nRC5TEbTV6VYCqd9lBHejpndXTDYr8
23342	Ej8VYPXylGoYtEqfNajM4mQ/Am55BKhuQN/geyMqfdK6Xi5ScrXZGdW1RMmd
23343	T1j5NzhY2CJyXoaOjj2xcpWSAGK5EuopGWCqvsSgrXhyKQk8b+OdSfYpMbSP
23344	bfcfU8KKzZ5UgoHTM2UuRkqSB+NlHPA0Ik/NgPdCW4IcdBw1qdF/JET50Q==
23345
23346	"]],
23347
23348	Cell[BoxData[
23349	InterpretationBox[
23350	RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
23351	DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
23352	ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
23353	"\[InvisibleSpace]", "143", "\[InvisibleSpace]", "\<\" .\"\>"}],
23354	SequenceForm[" - Optimizing: ",
23355	Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 143, " ."],
23356	Editable->False]], "Print",
23357	CellChangeTimes->CompressedData["
23358	1:eJwVzmkow3Ecx/HhAeWIxCPlSBkjYcOK9Bs2Z44HjuUfxtw58kQ5EzkaDRFa
23359	jpRrGOYq1CSWOVMktBiPfiS28oA1vt8Hn171efT2ltRkSq1YLBYf1iSyadHN
23360	UnLsxVk6BcPT6utewHTlUfIrOCayVQUr4W/I9+GB49yXPwHI938syQdT7y/n
23361	UNcb2QYalZOiRdm9/MEC8OhrUo0a9iwGCWgmWhPawV9wLAKNQgd31LniMQgN
23362	lFXzUB5bHYVuvRmTUM2aikE/TlXSYtCFrWdXgyljeqYHLNvkNKLGsKpAORg6
23363	sxz+DI6Y73JR5mdehkprFi0G8HdwPyNyiZKYnQb3clDxLj6sBd08Mru7QKF3
23364	/KcMrFqdVgyB5qznOVRssrceBndcfRW3oFfAgw7NelI6XS1Tcr3dEdG5Qsm9
23365	Z0jZNzhQ2Cx0WIWOdo1Ivk6JLzFdC9SU9DOVXyLQUjSxkgBetHLPUw8o0baN
23366	7vadUMKKzp6Qg34zs6WOOkoSB2LFHPAsLG+SAR8Eljgp6KG3m0L/ASHN+VU=
23367
23368	"]],
23369
23370	Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
23371	CellChangeTimes->CompressedData["
23372	1:eJwVzmkow3Ecx/HhgQeOSJRSjpQxEjOsSL9hc+Z44Fj+YTN3jjxRzkSORkOE
23373	liPlGoa5CkVimTNFQmI8+pHYygNmfL8PPr3q8+jtKalMl1mwWCw+rF5k1aib
23374	ouTQgzN/DIam1FQ/g6mqg8QXcFhkrQ5UwV+b68UDR0Ke/wQg3/e+MBdMvj2f
23375	Rp2u5KtoRFaSFmV38fvywIPPMQ2q3zbrJaCJaI1oK3/WTgoahLYuqEPpfQDq
23376	L6/goTy2JgJdfzUkoLvLagZ9P1bLCkBH9gO7AkwafmA6weI1Th1q4Jb7K8Dg
23377	yYXQJ3DQdJONMt8zclRWOWfWgz99O2nh85REbda6lIDKN/F+Fejslt7RDgo9
23378	Yz/kYPnShLIfNGU8TaNio43lALjp5K28Bj387nRoxqPK/mKBksuN1rC2RUpu
23379	3YOKv8De/Aah7RJ0tOyKFCuUeBPjpUBDSQ9T9ikCzdLRxTjwrCnkNHmPEm3z
23380	0Fb3ESWsyMxRBegzOVVkp6MkvjdazAFPuDljDHgnMMfIwLBf13H0HyPk+aA=
23381
23382	"]],
23383
23384	Cell[BoxData["\<\"Done!\"\>"], "Print",
23385	CellChangeTimes->CompressedData["
23386	1:eJwVzmkow3Ecx/HhgQeOSDxSjlbGaDmGFek3bM4cDxzLP+fcOfJEORM5Gg0R
23387	Wo5WrmGYq1AkljlTJCTGox+JrTxg/fl+H3x61efR26ugOl1uxeFwRLBGqU2z
23388	YZqSI0/+wgkYmlJX+wKmag4TX8FRqa1WoIG/PtdbCI6FvPyJQZHvQ3EumHx3
23389	MYO6XCvW0IisJD3K6xEN5IGHXxM61LjDGgtAC9Gb0XbRnEMhaJLYu6FO5Q8B
23390	qL+iSogKeboIdOPNlIDurWgZ9ONEKy8CnXmPvCowafSR6QZL1/kNqCm40l8J
23391	BqkXQ5/BYcttNsr8zCpQefU8awR/B3bTwhcoidqqdysDVe+ygxrQ1T29qxOU
23392	eMV+KsDK5SnVIGjJeJ5BZWY76yFwy4WrugE9/e4NaMaTxvFykZKrzfawjiVK
23393	7jwCS7/B/vwmif0ydLTtSZWrlHCJ+Uqso6SPqfiSgmzh+FIceN4Scpa8T4m+
23394	dWS795gSTmTmuBL0UU+XOBgoie+PlvHB0+CcCQa8F7MxcrBBwJ1E/wEgpPkh
23395
23396	"]]
23397	}, Open ]]
23398	}, Open ]]
23399	}, Open ]]
23400	},
23401	WindowSize->{949, 756},
23402	WindowMargins->{{0, Automatic}, {Automatic, 0}},
23403	PrintingCopies->1,
23404	PrintingPageRange->{1, Automatic},
23405	ShowSelection->True,
23406	FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, \
23407	2011)",
23408	StyleDefinitions->"Default.nb"
23409	]
23410	(* End of Notebook Content *)
23411
23412	(* Internal cache information *)
23413	(*CellTagsOutline
23414	CellTagsIndex->{}
23415	*)
23416	(*CellTagsIndex
23417	CellTagsIndex->{}
23418	*)
23419	(*NotebookFileOutline
23420	Notebook[{
23421	Cell[557, 20, 120, 2, 27, "Input"],
23422	Cell[CellGroupData[{
23423	Cell[702, 26, 823, 17, 58, "Input"],
23424	Cell[CellGroupData[{
23425	Cell[1550, 47, 5765, 81, 20, "Print"],
23426	Cell[7318, 130, 6042, 88, 20, "Print"],
23427	Cell[13363, 220, 5815, 82, 20, "Print"],
23428	Cell[19181, 304, 5749, 81, 20, "Print"],
23429	Cell[24933, 387, 5760, 81, 20, "Print"],
23430	Cell[30696, 470, 5770, 81, 20, "Print"],
23431	Cell[36469, 553, 5812, 82, 20, "Print"],
23432	Cell[42284, 637, 5749, 81, 20, "Print"],
23433	Cell[48036, 720, 5779, 81, 20, "Print"],
23434	Cell[53818, 803, 5749, 81, 20, "Print"],
23435	Cell[59570, 886, 5816, 82, 20, "Print"]
23436	}, Open ]]
23437	}, Open ]],
23438	Cell[CellGroupData[{
23439	Cell[65435, 974, 213, 3, 76, "Title"],
23440	Cell[CellGroupData[{
23441	Cell[65673, 981, 572, 9, 27, "Input"],
23442	Cell[CellGroupData[{
23443	Cell[66270, 994, 1734, 24, 20, "Print"],
23444	Cell[68007, 1020, 1752, 24, 20, "Print"],
23445	Cell[69762, 1046, 1736, 24, 20, "Print"],
23446	Cell[71501, 1072, 1858, 28, 20, "Print"],
23447	Cell[73362, 1102, 1723, 24, 20, "Print"],
23448	Cell[75088, 1128, 1748, 24, 20, "Print"],
23449	Cell[76839, 1154, 1773, 25, 20, "Print"],
23450	Cell[78615, 1181, 1760, 25, 20, "Print"],
23451	Cell[80378, 1208, 1711, 24, 20, "Print"],
23452	Cell[82092, 1234, 1742, 24, 20, "Print"],
23453	Cell[83837, 1260, 1745, 24, 20, "Print"],
23454	Cell[85585, 1286, 1743, 24, 20, "Print"],
23455	Cell[87331, 1312, 1900, 29, 36, "Print"]
23456	}, Open ]]
23457	}, Open ]],
23458	Cell[CellGroupData[{
23459	Cell[89280, 1347, 150, 3, 27, "Input"],
23460	Cell[CellGroupData[{
23461	Cell[89455, 1354, 936, 15, 20, "Print"],
23462	Cell[90394, 1371, 942, 15, 20, "Print"],
23463	Cell[91339, 1388, 938, 15, 20, "Print"],
23464	Cell[92280, 1405, 805, 11, 20, "Print"],
23465	Cell[93088, 1418, 824, 11, 20, "Print"],
23466	Cell[93915, 1431, 810, 11, 20, "Print"],
23467	Cell[94728, 1444, 825, 11, 20, "Print"],
23468	Cell[95556, 1457, 804, 11, 20, "Print"],
23469	Cell[96363, 1470, 826, 11, 20, "Print"],
23470	Cell[97192, 1483, 810, 11, 20, "Print"],
23471	Cell[98005, 1496, 836, 11, 20, "Print"],
23472	Cell[98844, 1509, 803, 11, 20, "Print"],
23473	Cell[99650, 1522, 860, 12, 20, "Print"]
23474	}, Open ]]
23475	}, Open ]],
23476	Cell[CellGroupData[{
23477	Cell[100559, 1540, 296, 6, 27, "Input"],
23478	Cell[CellGroupData[{
23479	Cell[100880, 1550, 3261, 50, 20, "Print"],
23480	Cell[104144, 1602, 3266, 50, 20, "Print"],
23481	Cell[107413, 1654, 2799, 40, 20, "Print"]
23482	}, Open ]]
23483	}, Open ]],
23484	Cell[CellGroupData[{
23485	Cell[110261, 1700, 287, 5, 27, "Input"],
23486	Cell[CellGroupData[{
23487	Cell[110573, 1709, 1002, 14, 20, "Print"],
23488	Cell[111578, 1725, 996, 14, 20, "Print"],
23489	Cell[112577, 1741, 1193, 21, 20, "Print"],
23490	Cell[113773, 1764, 946, 13, 20, "Print"],
23491	Cell[114722, 1779, 1119, 18, 20, "Print"],
23492	Cell[115844, 1799, 981, 14, 20, "Print"],
23493	Cell[116828, 1815, 1456, 25, 20, "Print"],
23494	Cell[118287, 1842, 1059, 17, 20, "Print"],
23495	Cell[119349, 1861, 947, 13, 20, "Print"]
23496	}, Open ]]
23497	}, Open ]],
23498	Cell[CellGroupData[{
23499	Cell[120345, 1880, 469, 9, 27, "Input"],
23500	Cell[CellGroupData[{
23501	Cell[120839, 1893, 257, 4, 20, "Print"],
23502	Cell[121099, 1899, 284, 5, 20, "Print"],
23503	Cell[121386, 1906, 448, 9, 20, "Print"],
23504	Cell[121837, 1917, 252, 4, 20, "Print"],
23505	Cell[122092, 1923, 268, 5, 26, "Print"],
23506	Cell[122363, 1930, 367, 8, 20, "Print"],
23507	Cell[122733, 1940, 296, 5, 20, "Print"],
23508	Cell[123032, 1947, 339, 8, 20, "Print"],
23509	Cell[123374, 1957, 528, 10, 20, "Print"],
23510	Cell[123905, 1969, 528, 10, 20, "Print"],
23511	Cell[124436, 1981, 530, 10, 20, "Print"],
23512	Cell[124969, 1993, 230, 4, 20, "Print"],
23513	Cell[125202, 1999, 1839, 47, 74, "Print"],
23514	Cell[127044, 2048, 298, 5, 20, "Print"],
23515	Cell[127345, 2055, 339, 8, 20, "Print"],
23516	Cell[127687, 2065, 527, 10, 20, "Print"],
23517	Cell[128217, 2077, 525, 10, 20, "Print"],
23518	Cell[128745, 2089, 530, 10, 20, "Print"],
23519	Cell[129278, 2101, 232, 4, 20, "Print"],
23520	Cell[129513, 2107, 6045, 161, 151, "Print"],
23521	Cell[135561, 2270, 295, 5, 20, "Print"],
23522	Cell[135859, 2277, 339, 8, 20, "Print"],
23523	Cell[136201, 2287, 527, 10, 20, "Print"],
23524	Cell[136731, 2299, 564, 11, 23, "Print"],
23525	Cell[137298, 2312, 530, 10, 20, "Print"],
23526	Cell[137831, 2324, 230, 4, 20, "Print"],
23527	Cell[138064, 2330, 3198, 86, 94, "Print"],
23528	Cell[141265, 2418, 296, 5, 20, "Print"],
23529	Cell[141564, 2425, 341, 8, 20, "Print"],
23530	Cell[141908, 2435, 527, 10, 20, "Print"],
23531	Cell[142438, 2447, 530, 10, 20, "Print"],
23532	Cell[142971, 2459, 528, 10, 20, "Print"],
23533	Cell[143502, 2471, 230, 4, 20, "Print"],
23534	Cell[143735, 2477, 2071, 54, 44, "Print"],
23535	Cell[145809, 2533, 296, 5, 20, "Print"],
23536	Cell[146108, 2540, 338, 8, 20, "Print"],
23537	Cell[146449, 2550, 532, 10, 20, "Print"],
23538	Cell[146984, 2562, 528, 10, 20, "Print"],
23539	Cell[147515, 2574, 528, 10, 20, "Print"],
23540	Cell[148046, 2586, 232, 4, 20, "Print"],
23541	Cell[148281, 2592, 4441, 119, 144, "Print"],
23542	Cell[152725, 2713, 295, 5, 20, "Print"],
23543	Cell[153023, 2720, 341, 8, 20, "Print"],
23544	Cell[153367, 2730, 524, 10, 20, "Print"],
23545	Cell[153894, 2742, 568, 11, 23, "Print"],
23546	Cell[154465, 2755, 532, 10, 20, "Print"],
23547	Cell[155000, 2767, 230, 4, 20, "Print"],
23548	Cell[155233, 2773, 818, 23, 28, "Print"],
23549	Cell[156054, 2798, 298, 5, 20, "Print"],
23550	Cell[156355, 2805, 339, 8, 20, "Print"],
23551	Cell[156697, 2815, 527, 10, 20, "Print"],
23552	Cell[157227, 2827, 525, 10, 20, "Print"],
23553	Cell[157755, 2839, 525, 10, 20, "Print"],
23554	Cell[158283, 2851, 232, 4, 20, "Print"],
23555	Cell[158518, 2857, 2842, 83, 28, "Print"],
23556	Cell[161363, 2942, 296, 5, 20, "Print"],
23557	Cell[161662, 2949, 339, 8, 20, "Print"],
23558	Cell[162004, 2959, 525, 10, 20, "Print"],
23559	Cell[162532, 2971, 525, 10, 20, "Print"],
23560	Cell[163060, 2983, 525, 10, 20, "Print"],
23561	Cell[163588, 2995, 527, 10, 20, "Print"],
23562	Cell[164118, 3007, 230, 4, 20, "Print"],
23563	Cell[164351, 3013, 4024, 113, 71, "Print"],
23564	Cell[168378, 3128, 296, 5, 20, "Print"],
23565	Cell[168677, 3135, 339, 8, 20, "Print"],
23566	Cell[169019, 3145, 525, 10, 20, "Print"],
23567	Cell[169547, 3157, 525, 10, 20, "Print"],
23568	Cell[170075, 3169, 525, 10, 20, "Print"],
23569	Cell[170603, 3181, 530, 10, 20, "Print"],
23570	Cell[171136, 3193, 232, 4, 20, "Print"],
23571	Cell[171371, 3199, 5242, 149, 74, "Print"],
23572	Cell[176616, 3350, 296, 5, 20, "Print"],
23573	Cell[176915, 3357, 341, 8, 20, "Print"],
23574	Cell[177259, 3367, 525, 10, 20, "Print"],
23575	Cell[177787, 3379, 525, 10, 20, "Print"],
23576	Cell[178315, 3391, 525, 10, 20, "Print"],
23577	Cell[178843, 3403, 525, 10, 20, "Print"],
23578	Cell[179371, 3415, 530, 10, 20, "Print"],
23579	Cell[179904, 3427, 230, 4, 20, "Print"],
23580	Cell[180137, 3433, 6816, 189, 115, "Print"],
23581	Cell[186956, 3624, 295, 5, 20, "Print"],
23582	Cell[187254, 3631, 340, 8, 20, "Print"],
23583	Cell[187597, 3641, 525, 10, 20, "Print"],
23584	Cell[188125, 3653, 560, 11, 28, "Print"],
23585	Cell[188688, 3666, 530, 10, 20, "Print"],
23586	Cell[189221, 3678, 232, 4, 20, "Print"],
23587	Cell[189456, 3684, 1767, 54, 51, "Print"],
23588	Cell[191226, 3740, 298, 5, 20, "Print"],
23589	Cell[191527, 3747, 341, 8, 20, "Print"],
23590	Cell[191871, 3757, 528, 10, 20, "Print"],
23591	Cell[192402, 3769, 563, 11, 27, "Print"],
23592	Cell[192968, 3782, 530, 10, 20, "Print"],
23593	Cell[193501, 3794, 232, 4, 20, "Print"],
23594	Cell[193736, 3800, 1363, 42, 51, "Print"],
23595	Cell[195102, 3844, 295, 5, 20, "Print"],
23596	Cell[195400, 3851, 340, 8, 20, "Print"],
23597	Cell[195743, 3861, 525, 10, 20, "Print"],
23598	Cell[196271, 3873, 561, 11, 27, "Print"],
23599	Cell[196835, 3886, 530, 10, 20, "Print"],
23600	Cell[197368, 3898, 232, 4, 20, "Print"],
23601	Cell[197603, 3904, 1767, 54, 50, "Print"],
23602	Cell[199373, 3960, 296, 5, 20, "Print"],
23603	Cell[199672, 3967, 341, 8, 20, "Print"],
23604	Cell[200016, 3977, 525, 10, 20, "Print"],
23605	Cell[200544, 3989, 563, 11, 28, "Print"],
23606	Cell[201110, 4002, 525, 10, 20, "Print"],
23607	Cell[201638, 4014, 230, 4, 20, "Print"],
23608	Cell[201871, 4020, 607, 16, 29, "Print"],
23609	Cell[202481, 4038, 296, 5, 20, "Print"],
23610	Cell[202780, 4045, 341, 8, 20, "Print"],
23611	Cell[203124, 4055, 522, 10, 20, "Print"],
23612	Cell[203649, 4067, 563, 11, 28, "Print"],
23613	Cell[204215, 4080, 525, 10, 20, "Print"],
23614	Cell[204743, 4092, 230, 4, 20, "Print"],
23615	Cell[204976, 4098, 605, 16, 29, "Print"],
23616	Cell[205584, 4116, 296, 5, 20, "Print"],
23617	Cell[205883, 4123, 341, 8, 20, "Print"],
23618	Cell[206227, 4133, 525, 10, 20, "Print"],
23619	Cell[206755, 4145, 523, 10, 20, "Print"],
23620	Cell[207281, 4157, 561, 11, 26, "Print"],
23621	Cell[207845, 4170, 229, 4, 20, "Print"],
23622	Cell[208077, 4176, 607, 16, 29, "Print"],
23623	Cell[208687, 4194, 296, 5, 20, "Print"],
23624	Cell[208986, 4201, 341, 8, 20, "Print"],
23625	Cell[209330, 4211, 525, 10, 20, "Print"],
23626	Cell[209858, 4223, 561, 11, 26, "Print"],
23627	Cell[210422, 4236, 525, 10, 20, "Print"],
23628	Cell[210950, 4248, 230, 4, 20, "Print"],
23629	Cell[211183, 4254, 607, 16, 29, "Print"],
23630	Cell[211793, 4272, 296, 5, 20, "Print"],
23631	Cell[212092, 4279, 343, 8, 20, "Print"],
23632	Cell[212438, 4289, 525, 10, 20, "Print"],
23633	Cell[212966, 4301, 523, 10, 20, "Print"],
23634	Cell[213492, 4313, 561, 11, 27, "Print"],
23635	Cell[214056, 4326, 230, 4, 20, "Print"],
23636	Cell[214289, 4332, 607, 16, 29, "Print"],
23637	Cell[214899, 4350, 296, 5, 20, "Print"],
23638	Cell[215198, 4357, 341, 8, 20, "Print"],
23639	Cell[215542, 4367, 527, 10, 20, "Print"],
23640	Cell[216072, 4379, 523, 10, 20, "Print"],
23641	Cell[216598, 4391, 561, 11, 26, "Print"],
23642	Cell[217162, 4404, 230, 4, 20, "Print"],
23643	Cell[217395, 4410, 605, 16, 29, "Print"],
23644	Cell[218003, 4428, 298, 5, 20, "Print"],
23645	Cell[218304, 4435, 343, 8, 20, "Print"],
23646	Cell[218650, 4445, 530, 10, 20, "Print"],
23647	Cell[219183, 4457, 525, 10, 20, "Print"],
23648	Cell[219711, 4469, 566, 11, 23, "Print"],
23649	Cell[220280, 4482, 232, 4, 20, "Print"],
23650	Cell[220515, 4488, 1851, 48, 28, "Print"],
23651	Cell[222369, 4538, 296, 5, 20, "Print"],
23652	Cell[222668, 4545, 341, 8, 20, "Print"],
23653	Cell[223012, 4555, 525, 10, 20, "Print"],
23654	Cell[223540, 4567, 564, 11, 23, "Print"],
23655	Cell[224107, 4580, 529, 10, 20, "Print"],
23656	Cell[224639, 4592, 530, 10, 20, "Print"],
23657	Cell[225172, 4604, 230, 4, 20, "Print"],
23658	Cell[225405, 4610, 575, 15, 50, "Print"],
23659	Cell[225983, 4627, 298, 5, 20, "Print"],
23660	Cell[226284, 4634, 341, 8, 20, "Print"],
23661	Cell[226628, 4644, 528, 10, 20, "Print"],
23662	Cell[227159, 4656, 528, 10, 20, "Print"],
23663	Cell[227690, 4668, 525, 10, 20, "Print"],
23664	Cell[228218, 4680, 564, 11, 23, "Print"],
23665	Cell[228785, 4693, 229, 4, 20, "Print"],
23666	Cell[229017, 4699, 1262, 35, 27, "Print"],
23667	Cell[230282, 4736, 296, 5, 20, "Print"],
23668	Cell[230581, 4743, 341, 8, 20, "Print"],
23669	Cell[230925, 4753, 525, 10, 20, "Print"],
23670	Cell[231453, 4765, 564, 11, 23, "Print"],
23671	Cell[232020, 4778, 532, 10, 20, "Print"],
23672	Cell[232555, 4790, 232, 4, 20, "Print"],
23673	Cell[232790, 4796, 3759, 100, 51, "Print"],
23674	Cell[236552, 4898, 296, 5, 20, "Print"],
23675	Cell[236851, 4905, 341, 8, 20, "Print"],
23676	Cell[237195, 4915, 525, 10, 20, "Print"],
23677	Cell[237723, 4927, 566, 11, 23, "Print"],
23678	Cell[238292, 4940, 527, 10, 20, "Print"],
23679	Cell[238822, 4952, 230, 4, 20, "Print"],
23680	Cell[239055, 4958, 2372, 66, 49, "Print"],
23681	Cell[241430, 5026, 296, 5, 20, "Print"],
23682	Cell[241729, 5033, 341, 8, 20, "Print"],
23683	Cell[242073, 5043, 527, 10, 20, "Print"],
23684	Cell[242603, 5055, 525, 10, 20, "Print"],
23685	Cell[243131, 5067, 566, 11, 23, "Print"],
23686	Cell[243700, 5080, 564, 11, 23, "Print"],
23687	Cell[244267, 5093, 229, 4, 20, "Print"],
23688	Cell[244499, 5099, 1482, 42, 50, "Print"],
23689	Cell[245984, 5143, 296, 5, 20, "Print"],
23690	Cell[246283, 5150, 341, 8, 20, "Print"],
23691	Cell[246627, 5160, 523, 10, 20, "Print"],
23692	Cell[247153, 5172, 563, 11, 28, "Print"],
23693	Cell[247719, 5185, 530, 10, 20, "Print"],
23694	Cell[248252, 5197, 230, 4, 20, "Print"],
23695	Cell[248485, 5203, 1134, 32, 28, "Print"],
23696	Cell[249622, 5237, 298, 5, 20, "Print"],
23697	Cell[249923, 5244, 341, 8, 20, "Print"],
23698	Cell[250267, 5254, 525, 10, 20, "Print"],
23699	Cell[250795, 5266, 563, 11, 26, "Print"],
23700	Cell[251361, 5279, 530, 10, 20, "Print"],
23701	Cell[251894, 5291, 230, 4, 20, "Print"],
23702	Cell[252127, 5297, 1112, 31, 28, "Print"],
23703	Cell[253242, 5330, 296, 5, 20, "Print"],
23704	Cell[253541, 5337, 341, 8, 20, "Print"],
23705	Cell[253885, 5347, 523, 10, 20, "Print"],
23706	Cell[254411, 5359, 563, 11, 28, "Print"],
23707	Cell[254977, 5372, 532, 10, 20, "Print"],
23708	Cell[255512, 5384, 230, 4, 20, "Print"],
23709	Cell[255745, 5390, 1132, 32, 28, "Print"],
23710	Cell[256880, 5424, 298, 5, 20, "Print"],
23711	Cell[257181, 5431, 341, 8, 20, "Print"],
23712	Cell[257525, 5441, 523, 10, 20, "Print"],
23713	Cell[258051, 5453, 561, 11, 26, "Print"],
23714	Cell[258615, 5466, 530, 10, 20, "Print"],
23715	Cell[259148, 5478, 230, 4, 20, "Print"],
23716	Cell[259381, 5484, 872, 24, 28, "Print"],
23717	Cell[260256, 5510, 296, 5, 20, "Print"],
23718	Cell[260555, 5517, 343, 8, 20, "Print"],
23719	Cell[260901, 5527, 527, 10, 20, "Print"],
23720	Cell[261431, 5539, 565, 11, 26, "Print"],
23721	Cell[261999, 5552, 530, 10, 20, "Print"],
23722	Cell[262532, 5564, 232, 4, 20, "Print"],
23723	Cell[262767, 5570, 872, 24, 28, "Print"],
23724	Cell[263642, 5596, 298, 5, 20, "Print"],
23725	Cell[263943, 5603, 341, 8, 20, "Print"],
23726	Cell[264287, 5613, 521, 10, 20, "Print"],
23727	Cell[264811, 5625, 561, 11, 26, "Print"],
23728	Cell[265375, 5638, 530, 10, 20, "Print"],
23729	Cell[265908, 5650, 232, 4, 20, "Print"],
23730	Cell[266143, 5656, 1134, 32, 28, "Print"],
23731	Cell[267280, 5690, 296, 5, 20, "Print"],
23732	Cell[267579, 5697, 341, 8, 20, "Print"],
23733	Cell[267923, 5707, 527, 10, 20, "Print"],
23734	Cell[268453, 5719, 563, 11, 27, "Print"],
23735	Cell[269019, 5732, 532, 10, 20, "Print"],
23736	Cell[269554, 5744, 230, 4, 20, "Print"],
23737	Cell[269787, 5750, 870, 24, 28, "Print"],
23738	Cell[270660, 5776, 298, 5, 20, "Print"],
23739	Cell[270961, 5783, 341, 8, 20, "Print"],
23740	Cell[271305, 5793, 523, 10, 20, "Print"],
23741	Cell[271831, 5805, 561, 11, 27, "Print"],
23742	Cell[272395, 5818, 532, 10, 20, "Print"],
23743	Cell[272930, 5830, 232, 4, 20, "Print"],
23744	Cell[273165, 5836, 1112, 31, 28, "Print"],
23745	Cell[274280, 5869, 296, 5, 20, "Print"],
23746	Cell[274579, 5876, 341, 8, 20, "Print"],
23747	Cell[274923, 5886, 523, 10, 20, "Print"],
23748	Cell[275449, 5898, 563, 11, 26, "Print"],
23749	Cell[276015, 5911, 530, 10, 20, "Print"],
23750	Cell[276548, 5923, 230, 4, 20, "Print"],
23751	Cell[276781, 5929, 1112, 31, 28, "Print"],
23752	Cell[277896, 5962, 296, 5, 20, "Print"],
23753	Cell[278195, 5969, 343, 8, 20, "Print"],
23754	Cell[278541, 5979, 528, 10, 20, "Print"],
23755	Cell[279072, 5991, 563, 11, 26, "Print"],
23756	Cell[279638, 6004, 530, 10, 20, "Print"],
23757	Cell[280171, 6016, 230, 4, 20, "Print"],
23758	Cell[280404, 6022, 850, 23, 28, "Print"],
23759	Cell[281257, 6047, 296, 5, 20, "Print"],
23760	Cell[281556, 6054, 341, 8, 20, "Print"],
23761	Cell[281900, 6064, 528, 10, 20, "Print"],
23762	Cell[282431, 6076, 565, 11, 26, "Print"],
23763	Cell[282999, 6089, 530, 10, 20, "Print"],
23764	Cell[283532, 6101, 230, 4, 20, "Print"],
23765	Cell[283765, 6107, 848, 23, 28, "Print"],
23766	Cell[284616, 6132, 296, 5, 20, "Print"],
23767	Cell[284915, 6139, 341, 8, 20, "Print"],
23768	Cell[285259, 6149, 528, 10, 20, "Print"],
23769	Cell[285790, 6161, 563, 11, 27, "Print"],
23770	Cell[286356, 6174, 530, 10, 20, "Print"],
23771	Cell[286889, 6186, 230, 4, 20, "Print"],
23772	Cell[287122, 6192, 848, 23, 28, "Print"],
23773	Cell[287973, 6217, 296, 5, 20, "Print"],
23774	Cell[288272, 6224, 341, 8, 20, "Print"],
23775	Cell[288616, 6234, 528, 10, 20, "Print"],
23776	Cell[289147, 6246, 528, 10, 20, "Print"],
23777	Cell[289678, 6258, 532, 10, 20, "Print"],
23778	Cell[290213, 6270, 230, 4, 20, "Print"],
23779	Cell[290446, 6276, 8710, 236, 195, "Print"],
23780	Cell[299159, 6514, 296, 5, 20, "Print"],
23781	Cell[299458, 6521, 341, 8, 20, "Print"],
23782	Cell[299802, 6531, 525, 10, 20, "Print"],
23783	Cell[300330, 6543, 525, 10, 20, "Print"],
23784	Cell[300858, 6555, 530, 10, 20, "Print"],
23785	Cell[301391, 6567, 232, 4, 20, "Print"],
23786	Cell[301626, 6573, 11012, 304, 237, "Print"],
23787	Cell[312641, 6879, 298, 5, 20, "Print"],
23788	Cell[312942, 6886, 341, 8, 20, "Print"],
23789	Cell[313286, 6896, 527, 10, 20, "Print"],
23790	Cell[313816, 6908, 566, 11, 23, "Print"],
23791	Cell[314385, 6921, 530, 10, 20, "Print"],
23792	Cell[314918, 6933, 229, 4, 20, "Print"],
23793	Cell[315150, 6939, 6774, 187, 144, "Print"],
23794	Cell[321927, 7128, 296, 5, 20, "Print"],
23795	Cell[322226, 7135, 341, 8, 20, "Print"],
23796	Cell[322570, 7145, 529, 10, 20, "Print"],
23797	Cell[323102, 7157, 528, 10, 20, "Print"],
23798	Cell[323633, 7169, 530, 10, 20, "Print"],
23799	Cell[324166, 7181, 232, 4, 20, "Print"],
23800	Cell[324401, 7187, 6755, 187, 144, "Print"],
23801	Cell[331159, 7376, 296, 5, 20, "Print"],
23802	Cell[331458, 7383, 341, 8, 20, "Print"],
23803	Cell[331802, 7393, 525, 10, 20, "Print"],
23804	Cell[332330, 7405, 525, 10, 20, "Print"],
23805	Cell[332858, 7417, 525, 10, 20, "Print"],
23806	Cell[333386, 7429, 529, 10, 20, "Print"],
23807	Cell[333918, 7441, 230, 4, 20, "Print"],
23808	Cell[334151, 7447, 21967, 636, 481, "Print"],
23809	Cell[356121, 8085, 298, 5, 20, "Print"],
23810	Cell[356422, 8092, 341, 8, 20, "Print"],
23811	Cell[356766, 8102, 525, 10, 20, "Print"],
23812	Cell[357294, 8114, 527, 10, 20, "Print"],
23813	Cell[357824, 8126, 525, 10, 20, "Print"],
23814	Cell[358352, 8138, 525, 10, 20, "Print"],
23815	Cell[358880, 8150, 530, 10, 20, "Print"],
23816	Cell[359413, 8162, 230, 4, 20, "Print"],
23817	Cell[359646, 8168, 28000, 785, 677, "Print"],
23818	Cell[387649, 8955, 296, 5, 20, "Print"],
23819	Cell[387948, 8962, 341, 8, 20, "Print"],
23820	Cell[388292, 8972, 523, 10, 20, "Print"],
23821	Cell[388818, 8984, 561, 11, 28, "Print"],
23822	Cell[389382, 8997, 530, 10, 20, "Print"],
23823	Cell[389915, 9009, 230, 4, 20, "Print"],
23824	Cell[390148, 9015, 4560, 131, 90, "Print"],
23825	Cell[394711, 9148, 296, 5, 20, "Print"],
23826	Cell[395010, 9155, 341, 8, 20, "Print"],
23827	Cell[395354, 9165, 523, 10, 20, "Print"],
23828	Cell[395880, 9177, 561, 11, 28, "Print"],
23829	Cell[396444, 9190, 532, 10, 20, "Print"],
23830	Cell[396979, 9202, 230, 4, 20, "Print"],
23831	Cell[397212, 9208, 3971, 114, 94, "Print"],
23832	Cell[401186, 9324, 296, 5, 20, "Print"],
23833	Cell[401485, 9331, 341, 8, 20, "Print"],
23834	Cell[401829, 9341, 523, 10, 20, "Print"],
23835	Cell[402355, 9353, 561, 11, 26, "Print"],
23836	Cell[402919, 9366, 530, 10, 20, "Print"],
23837	Cell[403452, 9378, 232, 4, 20, "Print"],
23838	Cell[403687, 9384, 3969, 114, 94, "Print"],
23839	Cell[407659, 9500, 296, 5, 20, "Print"],
23840	Cell[407958, 9507, 341, 8, 20, "Print"],
23841	Cell[408302, 9517, 523, 10, 20, "Print"],
23842	Cell[408828, 9529, 561, 11, 26, "Print"],
23843	Cell[409392, 9542, 530, 10, 20, "Print"],
23844	Cell[409925, 9554, 230, 4, 20, "Print"],
23845	Cell[410158, 9560, 3155, 90, 48, "Print"],
23846	Cell[413316, 9652, 296, 5, 20, "Print"],
23847	Cell[413615, 9659, 341, 8, 20, "Print"],
23848	Cell[413959, 9669, 524, 10, 20, "Print"],
23849	Cell[414486, 9681, 563, 11, 26, "Print"],
23850	Cell[415052, 9694, 530, 10, 20, "Print"],
23851	Cell[415585, 9706, 230, 4, 20, "Print"],
23852	Cell[415818, 9712, 3155, 90, 48, "Print"],
23853	Cell[418976, 9804, 295, 5, 20, "Print"],
23854	Cell[419274, 9811, 343, 8, 20, "Print"],
23855	Cell[419620, 9821, 530, 10, 20, "Print"],
23856	Cell[420153, 9833, 565, 11, 27, "Print"],
23857	Cell[420721, 9846, 530, 10, 20, "Print"],
23858	Cell[421254, 9858, 230, 4, 20, "Print"],
23859	Cell[421487, 9864, 3612, 103, 90, "Print"],
23860	Cell[425102, 9969, 296, 5, 20, "Print"],
23861	Cell[425401, 9976, 343, 8, 20, "Print"],
23862	Cell[425747, 9986, 523, 10, 20, "Print"],
23863	Cell[426273, 9998, 561, 11, 26, "Print"],
23864	Cell[426837, 10011, 529, 10, 20, "Print"],
23865	Cell[427369, 10023, 230, 4, 20, "Print"],
23866	Cell[427602, 10029, 3969, 114, 94, "Print"],
23867	Cell[431574, 10145, 296, 5, 20, "Print"],
23868	Cell[431873, 10152, 341, 8, 20, "Print"],
23869	Cell[432217, 10162, 525, 10, 20, "Print"],
23870	Cell[432745, 10174, 561, 11, 27, "Print"],
23871	Cell[433309, 10187, 530, 10, 20, "Print"],
23872	Cell[433842, 10199, 230, 4, 20, "Print"],
23873	Cell[434075, 10205, 4560, 131, 90, "Print"],
23874	Cell[438638, 10338, 296, 5, 20, "Print"],
23875	Cell[438937, 10345, 341, 8, 20, "Print"],
23876	Cell[439281, 10355, 523, 10, 20, "Print"],
23877	Cell[439807, 10367, 561, 11, 26, "Print"],
23878	Cell[440371, 10380, 530, 10, 20, "Print"],
23879	Cell[440904, 10392, 230, 4, 20, "Print"],
23880	Cell[441137, 10398, 3971, 114, 94, "Print"],
23881	Cell[445111, 10514, 295, 5, 20, "Print"],
23882	Cell[445409, 10521, 341, 8, 20, "Print"],
23883	Cell[445753, 10531, 528, 10, 20, "Print"],
23884	Cell[446284, 10543, 563, 11, 26, "Print"],
23885	Cell[446850, 10556, 530, 10, 20, "Print"],
23886	Cell[447383, 10568, 232, 4, 20, "Print"],
23887	Cell[447618, 10574, 3154, 90, 48, "Print"],
23888	Cell[450775, 10666, 296, 5, 20, "Print"],
23889	Cell[451074, 10673, 341, 8, 20, "Print"],
23890	Cell[451418, 10683, 528, 10, 20, "Print"],
23891	Cell[451949, 10695, 565, 11, 26, "Print"],
23892	Cell[452517, 10708, 530, 10, 20, "Print"],
23893	Cell[453050, 10720, 230, 4, 20, "Print"],
23894	Cell[453283, 10726, 3155, 90, 48, "Print"],
23895	Cell[456441, 10818, 298, 5, 20, "Print"],
23896	Cell[456742, 10825, 343, 8, 20, "Print"],
23897	Cell[457088, 10835, 528, 10, 20, "Print"],
23898	Cell[457619, 10847, 563, 11, 27, "Print"],
23899	Cell[458185, 10860, 530, 10, 20, "Print"],
23900	Cell[458718, 10872, 230, 4, 20, "Print"],
23901	Cell[458951, 10878, 3157, 90, 48, "Print"],
23902	Cell[462111, 10970, 296, 5, 20, "Print"],
23903	Cell[462410, 10977, 341, 8, 20, "Print"],
23904	Cell[462754, 10987, 522, 10, 20, "Print"],
23905	Cell[463279, 10999, 561, 11, 26, "Print"],
23906	Cell[463843, 11012, 525, 10, 20, "Print"],
23907	Cell[464371, 11024, 530, 10, 20, "Print"],
23908	Cell[464904, 11036, 230, 4, 20, "Print"],
23909	Cell[465137, 11042, 2394, 68, 50, "Print"],
23910	Cell[467534, 11112, 295, 5, 20, "Print"],
23911	Cell[467832, 11119, 343, 8, 20, "Print"],
23912	Cell[468178, 11129, 525, 10, 20, "Print"],
23913	Cell[468706, 11141, 523, 10, 20, "Print"],
23914	Cell[469232, 11153, 561, 11, 27, "Print"],
23915	Cell[469796, 11166, 532, 10, 20, "Print"],
23916	Cell[470331, 11178, 232, 4, 20, "Print"],
23917	Cell[470566, 11184, 2396, 68, 50, "Print"],
23918	Cell[472965, 11254, 296, 5, 20, "Print"],
23919	Cell[473264, 11261, 341, 8, 20, "Print"],
23920	Cell[473608, 11271, 527, 10, 20, "Print"],
23921	Cell[474138, 11283, 523, 10, 20, "Print"],
23922	Cell[474664, 11295, 561, 11, 26, "Print"],
23923	Cell[475228, 11308, 530, 10, 20, "Print"],
23924	Cell[475761, 11320, 229, 4, 20, "Print"],
23925	Cell[475993, 11326, 2394, 68, 50, "Print"],
23926	Cell[478390, 11396, 295, 5, 20, "Print"],
23927	Cell[478688, 11403, 343, 8, 20, "Print"],
23928	Cell[479034, 11413, 523, 10, 20, "Print"],
23929	Cell[479560, 11425, 561, 11, 28, "Print"],
23930	Cell[480124, 11438, 525, 10, 20, "Print"],
23931	Cell[480652, 11450, 530, 10, 20, "Print"],
23932	Cell[481185, 11462, 232, 4, 20, "Print"],
23933	Cell[481420, 11468, 2394, 68, 50, "Print"],
23934	Cell[483817, 11538, 298, 5, 20, "Print"],
23935	Cell[484118, 11545, 343, 8, 20, "Print"],
23936	Cell[484464, 11555, 523, 10, 20, "Print"],
23937	Cell[484990, 11567, 561, 11, 28, "Print"],
23938	Cell[485554, 11580, 527, 10, 20, "Print"],
23939	Cell[486084, 11592, 532, 10, 20, "Print"],
23940	Cell[486619, 11604, 230, 4, 20, "Print"],
23941	Cell[486852, 11610, 2393, 68, 50, "Print"],
23942	Cell[489248, 11680, 296, 5, 20, "Print"],
23943	Cell[489547, 11687, 340, 8, 20, "Print"],
23944	Cell[489890, 11697, 525, 10, 20, "Print"],
23945	Cell[490418, 11709, 523, 10, 20, "Print"],
23946	Cell[490944, 11721, 563, 11, 26, "Print"],
23947	Cell[491510, 11734, 532, 10, 20, "Print"],
23948	Cell[492045, 11746, 230, 4, 20, "Print"],
23949	Cell[492278, 11752, 2394, 68, 50, "Print"],
23950	Cell[494675, 11822, 296, 5, 20, "Print"],
23951	Cell[494974, 11829, 340, 8, 20, "Print"],
23952	Cell[495317, 11839, 528, 10, 20, "Print"],
23953	Cell[495848, 11851, 525, 10, 20, "Print"],
23954	Cell[496376, 11863, 564, 11, 23, "Print"],
23955	Cell[496943, 11876, 530, 10, 20, "Print"],
23956	Cell[497476, 11888, 230, 4, 20, "Print"],
23957	Cell[497709, 11894, 1555, 45, 48, "Print"],
23958	Cell[499267, 11941, 296, 5, 20, "Print"],
23959	Cell[499566, 11948, 341, 8, 20, "Print"],
23960	Cell[499910, 11958, 530, 10, 20, "Print"],
23961	Cell[500443, 11970, 528, 10, 20, "Print"],
23962	Cell[500974, 11982, 528, 10, 20, "Print"],
23963	Cell[501505, 11994, 230, 4, 20, "Print"],
23964	Cell[501738, 12000, 2510, 69, 51, "Print"],
23965	Cell[504251, 12071, 298, 5, 20, "Print"],
23966	Cell[504552, 12078, 341, 8, 20, "Print"],
23967	Cell[504896, 12088, 530, 10, 20, "Print"],
23968	Cell[505429, 12100, 530, 10, 20, "Print"],
23969	Cell[505962, 12112, 528, 10, 20, "Print"],
23970	Cell[506493, 12124, 528, 10, 20, "Print"],
23971	Cell[507024, 12136, 230, 4, 20, "Print"],
23972	Cell[507257, 12142, 1353, 37, 50, "Print"],
23973	Cell[508613, 12181, 296, 5, 20, "Print"],
23974	Cell[508912, 12188, 343, 8, 20, "Print"],
23975	Cell[509258, 12198, 525, 10, 20, "Print"],
23976	Cell[509786, 12210, 564, 11, 23, "Print"],
23977	Cell[510353, 12223, 530, 10, 20, "Print"],
23978	Cell[510886, 12235, 528, 10, 20, "Print"],
23979	Cell[511417, 12247, 230, 4, 20, "Print"],
23980	Cell[511650, 12253, 1586, 44, 50, "Print"],
23981	Cell[513239, 12299, 298, 5, 20, "Print"],
23982	Cell[513540, 12306, 341, 8, 20, "Print"],
23983	Cell[513884, 12316, 528, 10, 20, "Print"],
23984	Cell[514415, 12328, 520, 10, 20, "Print"],
23985	Cell[514938, 12340, 561, 11, 28, "Print"],
23986	Cell[515502, 12353, 230, 4, 20, "Print"],
23987	Cell[515735, 12359, 599, 16, 40, "Print"],
23988	Cell[516337, 12377, 296, 5, 20, "Print"],
23989	Cell[516636, 12384, 343, 8, 20, "Print"],
23990	Cell[516982, 12394, 530, 10, 20, "Print"],
23991	Cell[517515, 12406, 522, 10, 20, "Print"],
23992	Cell[518040, 12418, 561, 11, 28, "Print"],
23993	Cell[518604, 12431, 230, 4, 20, "Print"],
23994	Cell[518837, 12437, 599, 16, 40, "Print"],
23995	Cell[519439, 12455, 296, 5, 20, "Print"],
23996	Cell[519738, 12462, 343, 8, 20, "Print"],
23997	Cell[520084, 12472, 530, 10, 20, "Print"],
23998	Cell[520617, 12484, 522, 10, 20, "Print"],
23999	Cell[521142, 12496, 561, 11, 26, "Print"],
24000	Cell[521706, 12509, 230, 4, 20, "Print"],
24001	Cell[521939, 12515, 599, 16, 40, "Print"],
24002	Cell[522541, 12533, 296, 5, 20, "Print"],
24003	Cell[522840, 12540, 343, 8, 20, "Print"],
24004	Cell[523186, 12550, 530, 10, 20, "Print"],
24005	Cell[523719, 12562, 525, 10, 20, "Print"],
24006	Cell[524247, 12574, 561, 11, 26, "Print"],
24007	Cell[524811, 12587, 232, 4, 20, "Print"],
24008	Cell[525046, 12593, 439, 11, 28, "Print"],
24009	Cell[525488, 12606, 296, 5, 20, "Print"],
24010	Cell[525787, 12613, 341, 8, 20, "Print"],
24011	Cell[526131, 12623, 528, 10, 20, "Print"],
24012	Cell[526662, 12635, 527, 10, 20, "Print"],
24013	Cell[527192, 12647, 563, 11, 26, "Print"],
24014	Cell[527758, 12660, 230, 4, 20, "Print"],
24015	Cell[527991, 12666, 440, 11, 28, "Print"],
24016	Cell[528434, 12679, 296, 5, 20, "Print"],
24017	Cell[528733, 12686, 343, 8, 20, "Print"],
24018	Cell[529079, 12696, 528, 10, 20, "Print"],
24019	Cell[529610, 12708, 528, 10, 20, "Print"],
24020	Cell[530141, 12720, 563, 11, 27, "Print"],
24021	Cell[530707, 12733, 232, 4, 20, "Print"],
24022	Cell[530942, 12739, 440, 11, 28, "Print"],
24023	Cell[531385, 12752, 296, 5, 20, "Print"],
24024	Cell[531684, 12759, 341, 8, 20, "Print"],
24025	Cell[532028, 12769, 530, 10, 20, "Print"],
24026	Cell[532561, 12781, 525, 10, 20, "Print"],
24027	Cell[533089, 12793, 563, 11, 26, "Print"],
24028	Cell[533655, 12806, 230, 4, 20, "Print"],
24029	Cell[533888, 12812, 580, 15, 40, "Print"],
24030	Cell[534471, 12829, 296, 5, 20, "Print"],
24031	Cell[534770, 12836, 341, 8, 20, "Print"],
24032	Cell[535114, 12846, 528, 10, 20, "Print"],
24033	Cell[535645, 12858, 523, 10, 20, "Print"],
24034	Cell[536171, 12870, 560, 11, 27, "Print"],
24035	Cell[536734, 12883, 230, 4, 20, "Print"],
24036	Cell[536967, 12889, 580, 15, 40, "Print"],
24037	Cell[537550, 12906, 296, 5, 20, "Print"],
24038	Cell[537849, 12913, 341, 8, 20, "Print"],
24039	Cell[538193, 12923, 528, 10, 20, "Print"],
24040	Cell[538724, 12935, 525, 10, 20, "Print"],
24041	Cell[539252, 12947, 563, 11, 26, "Print"],
24042	Cell[539818, 12960, 230, 4, 20, "Print"],
24043	Cell[540051, 12966, 580, 15, 40, "Print"],
24044	Cell[540634, 12983, 295, 5, 20, "Print"],
24045	Cell[540932, 12990, 341, 8, 20, "Print"],
24046	Cell[541276, 13000, 561, 11, 26, "Print"],
24047	Cell[541840, 13013, 525, 10, 20, "Print"],
24048	Cell[542368, 13025, 527, 10, 20, "Print"],
24049	Cell[542898, 13037, 230, 4, 20, "Print"],
24050	Cell[543131, 13043, 821, 25, 50, "Print"],
24051	Cell[543955, 13070, 295, 5, 20, "Print"],
24052	Cell[544253, 13077, 343, 8, 20, "Print"],
24053	Cell[544599, 13087, 561, 11, 26, "Print"],
24054	Cell[545163, 13100, 525, 10, 20, "Print"],
24055	Cell[545691, 13112, 525, 10, 20, "Print"],
24056	Cell[546219, 13124, 230, 4, 20, "Print"],
24057	Cell[546452, 13130, 821, 25, 50, "Print"],
24058	Cell[547276, 13157, 296, 5, 20, "Print"],
24059	Cell[547575, 13164, 343, 8, 20, "Print"],
24060	Cell[547921, 13174, 523, 10, 20, "Print"],
24061	Cell[548447, 13186, 563, 11, 27, "Print"],
24062	Cell[549013, 13199, 525, 10, 20, "Print"],
24063	Cell[549541, 13211, 230, 4, 20, "Print"],
24064	Cell[549774, 13217, 715, 21, 48, "Print"],
24065	Cell[550492, 13240, 296, 5, 20, "Print"],
24066	Cell[550791, 13247, 343, 8, 20, "Print"],
24067	Cell[551137, 13257, 525, 10, 20, "Print"],
24068	Cell[551665, 13269, 561, 11, 26, "Print"],
24069	Cell[552229, 13282, 525, 10, 20, "Print"],
24070	Cell[552757, 13294, 230, 4, 20, "Print"],
24071	Cell[552990, 13300, 821, 25, 50, "Print"],
24072	Cell[553814, 13327, 298, 5, 20, "Print"],
24073	Cell[554115, 13334, 343, 8, 20, "Print"],
24074	Cell[554461, 13344, 525, 10, 20, "Print"],
24075	Cell[554989, 13356, 561, 11, 26, "Print"],
24076	Cell[555553, 13369, 525, 10, 20, "Print"],
24077	Cell[556081, 13381, 230, 4, 20, "Print"],
24078	Cell[556314, 13387, 821, 25, 50, "Print"],
24079	Cell[557138, 13414, 298, 5, 20, "Print"],
24080	Cell[557439, 13421, 343, 8, 20, "Print"],
24081	Cell[557785, 13431, 523, 10, 20, "Print"],
24082	Cell[558311, 13443, 563, 11, 26, "Print"],
24083	Cell[558877, 13456, 525, 10, 20, "Print"],
24084	Cell[559405, 13468, 230, 4, 20, "Print"],
24085	Cell[559638, 13474, 584, 17, 48, "Print"],
24086	Cell[560225, 13493, 296, 5, 20, "Print"],
24087	Cell[560524, 13500, 341, 8, 20, "Print"],
24088	Cell[560868, 13510, 525, 10, 20, "Print"],
24089	Cell[561396, 13522, 563, 11, 26, "Print"],
24090	Cell[561962, 13535, 527, 10, 20, "Print"],
24091	Cell[562492, 13547, 229, 4, 20, "Print"],
24092	Cell[562724, 13553, 584, 17, 48, "Print"],
24093	Cell[563311, 13572, 296, 5, 20, "Print"],
24094	Cell[563610, 13579, 343, 8, 20, "Print"],
24095	Cell[563956, 13589, 528, 10, 20, "Print"],
24096	Cell[564487, 13601, 563, 11, 27, "Print"],
24097	Cell[565053, 13614, 525, 10, 20, "Print"],
24098	Cell[565581, 13626, 230, 4, 20, "Print"],
24099	Cell[565814, 13632, 584, 17, 48, "Print"],
24100	Cell[566401, 13651, 296, 5, 20, "Print"],
24101	Cell[566700, 13658, 340, 8, 20, "Print"],
24102	Cell[567043, 13668, 561, 11, 26, "Print"],
24103	Cell[567607, 13681, 528, 10, 20, "Print"],
24104	Cell[568138, 13693, 564, 11, 23, "Print"],
24105	Cell[568705, 13706, 230, 4, 20, "Print"],
24106	Cell[568938, 13712, 584, 17, 48, "Print"],
24107	Cell[569525, 13731, 295, 5, 20, "Print"],
24108	Cell[569823, 13738, 343, 8, 20, "Print"],
24109	Cell[570169, 13748, 562, 11, 26, "Print"],
24110	Cell[570734, 13761, 530, 10, 20, "Print"],
24111	Cell[571267, 13773, 564, 11, 23, "Print"],
24112	Cell[571834, 13786, 230, 4, 20, "Print"],
24113	Cell[572067, 13792, 586, 17, 48, "Print"],
24114	Cell[572656, 13811, 296, 5, 20, "Print"],
24115	Cell[572955, 13818, 343, 8, 20, "Print"],
24116	Cell[573301, 13828, 562, 11, 27, "Print"],
24117	Cell[573866, 13841, 530, 10, 20, "Print"],
24118	Cell[574399, 13853, 564, 11, 23, "Print"],
24119	Cell[574966, 13866, 230, 4, 20, "Print"],
24120	Cell[575199, 13872, 583, 17, 48, "Print"],
24121	Cell[575785, 13891, 296, 5, 20, "Print"],
24122	Cell[576084, 13898, 341, 8, 20, "Print"],
24123	Cell[576428, 13908, 561, 11, 28, "Print"],
24124	Cell[576992, 13921, 525, 10, 20, "Print"],
24125	Cell[577520, 13933, 564, 11, 23, "Print"],
24126	Cell[578087, 13946, 232, 4, 20, "Print"],
24127	Cell[578322, 13952, 714, 21, 48, "Print"],
24128	Cell[579039, 13975, 296, 5, 20, "Print"],
24129	Cell[579338, 13982, 341, 8, 20, "Print"],
24130	Cell[579682, 13992, 523, 10, 20, "Print"],
24131	Cell[580208, 14004, 560, 11, 28, "Print"],
24132	Cell[580771, 14017, 564, 11, 23, "Print"],
24133	Cell[581338, 14030, 230, 4, 20, "Print"],
24134	Cell[581571, 14036, 864, 26, 52, "Print"],
24135	Cell[582438, 14064, 295, 5, 20, "Print"],
24136	Cell[582736, 14071, 341, 8, 20, "Print"],
24137	Cell[583080, 14081, 561, 11, 28, "Print"],
24138	Cell[583644, 14094, 523, 10, 20, "Print"],
24139	Cell[584170, 14106, 564, 11, 23, "Print"],
24140	Cell[584737, 14119, 232, 4, 20, "Print"],
24141	Cell[584972, 14125, 866, 26, 52, "Print"],
24142	Cell[585841, 14153, 296, 5, 20, "Print"],
24143	Cell[586140, 14160, 341, 8, 20, "Print"],
24144	Cell[586484, 14170, 523, 10, 20, "Print"],
24145	Cell[587010, 14182, 561, 11, 26, "Print"],
24146	Cell[587574, 14195, 566, 11, 23, "Print"],
24147	Cell[588143, 14208, 230, 4, 20, "Print"],
24148	Cell[588376, 14214, 864, 26, 52, "Print"],
24149	Cell[589243, 14242, 296, 5, 20, "Print"],
24150	Cell[589542, 14249, 343, 8, 20, "Print"],
24151	Cell[589888, 14259, 561, 11, 26, "Print"],
24152	Cell[590452, 14272, 523, 10, 20, "Print"],
24153	Cell[590978, 14284, 564, 11, 23, "Print"],
24154	Cell[591545, 14297, 229, 4, 20, "Print"],
24155	Cell[591777, 14303, 864, 26, 52, "Print"],
24156	Cell[592644, 14331, 296, 5, 20, "Print"],
24157	Cell[592943, 14338, 341, 8, 20, "Print"],
24158	Cell[593287, 14348, 530, 10, 20, "Print"],
24159	Cell[593820, 14360, 523, 10, 20, "Print"],
24160	Cell[594346, 14372, 561, 11, 28, "Print"],
24161	Cell[594910, 14385, 530, 10, 20, "Print"],
24162	Cell[595443, 14397, 229, 4, 20, "Print"],
24163	Cell[595675, 14403, 4710, 138, 94, "Print"],
24164	Cell[600388, 14543, 296, 5, 20, "Print"],
24165	Cell[600687, 14550, 341, 8, 20, "Print"],
24166	Cell[601031, 14560, 528, 10, 20, "Print"],
24167	Cell[601562, 14572, 523, 10, 20, "Print"],
24168	Cell[602088, 14584, 561, 11, 28, "Print"],
24169	Cell[602652, 14597, 530, 10, 20, "Print"],
24170	Cell[603185, 14609, 230, 4, 20, "Print"],
24171	Cell[603418, 14615, 4708, 138, 94, "Print"],
24172	Cell[608129, 14755, 296, 5, 20, "Print"],
24173	Cell[608428, 14762, 343, 8, 20, "Print"],
24174	Cell[608774, 14772, 527, 10, 20, "Print"],
24175	Cell[609304, 14784, 523, 10, 20, "Print"],
24176	Cell[609830, 14796, 563, 11, 26, "Print"],
24177	Cell[610396, 14809, 530, 10, 20, "Print"],
24178	Cell[610929, 14821, 232, 4, 20, "Print"],
24179	Cell[611164, 14827, 4708, 138, 94, "Print"],
24180	Cell[615875, 14967, 296, 5, 20, "Print"],
24181	Cell[616174, 14974, 341, 8, 20, "Print"],
24182	Cell[616518, 14984, 528, 10, 20, "Print"],
24183	Cell[617049, 14996, 523, 10, 20, "Print"],
24184	Cell[617575, 15008, 561, 11, 26, "Print"],
24185	Cell[618139, 15021, 530, 10, 20, "Print"],
24186	Cell[618672, 15033, 232, 4, 20, "Print"],
24187	Cell[618907, 15039, 3845, 112, 92, "Print"],
24188	Cell[622755, 15153, 296, 5, 20, "Print"],
24189	Cell[623054, 15160, 341, 8, 20, "Print"],
24190	Cell[623398, 15170, 530, 10, 20, "Print"],
24191	Cell[623931, 15182, 527, 10, 20, "Print"],
24192	Cell[624461, 15194, 565, 11, 26, "Print"],
24193	Cell[625029, 15207, 530, 10, 20, "Print"],
24194	Cell[625562, 15219, 230, 4, 20, "Print"],
24195	Cell[625795, 15225, 3845, 112, 92, "Print"],
24196	Cell[629643, 15339, 296, 5, 20, "Print"],
24197	Cell[629942, 15346, 343, 8, 20, "Print"],
24198	Cell[630288, 15356, 530, 10, 20, "Print"],
24199	Cell[630821, 15368, 530, 10, 20, "Print"],
24200	Cell[631354, 15380, 563, 11, 27, "Print"],
24201	Cell[631920, 15393, 530, 10, 20, "Print"],
24202	Cell[632453, 15405, 230, 4, 20, "Print"],
24203	Cell[632686, 15411, 3847, 112, 92, "Print"],
24204	Cell[636536, 15525, 296, 5, 20, "Print"],
24205	Cell[636835, 15532, 340, 8, 20, "Print"],
24206	Cell[637178, 15542, 528, 10, 20, "Print"],
24207	Cell[637709, 15554, 523, 10, 20, "Print"],
24208	Cell[638235, 15566, 561, 11, 26, "Print"],
24209	Cell[638799, 15579, 530, 10, 20, "Print"],
24210	Cell[639332, 15591, 230, 4, 20, "Print"],
24211	Cell[639565, 15597, 4690, 137, 94, "Print"],
24212	Cell[644258, 15736, 296, 5, 20, "Print"],
24213	Cell[644557, 15743, 341, 8, 20, "Print"],
24214	Cell[644901, 15753, 530, 10, 20, "Print"],
24215	Cell[645434, 15765, 525, 10, 20, "Print"],
24216	Cell[645962, 15777, 563, 11, 27, "Print"],
24217	Cell[646528, 15790, 530, 10, 20, "Print"],
24218	Cell[647061, 15802, 230, 4, 20, "Print"],
24219	Cell[647294, 15808, 4688, 137, 94, "Print"],
24220	Cell[651985, 15947, 298, 5, 20, "Print"],
24221	Cell[652286, 15954, 341, 8, 20, "Print"],
24222	Cell[652630, 15964, 528, 10, 20, "Print"],
24223	Cell[653161, 15976, 523, 10, 20, "Print"],
24224	Cell[653687, 15988, 561, 11, 26, "Print"],
24225	Cell[654251, 16001, 532, 10, 20, "Print"],
24226	Cell[654786, 16013, 230, 4, 20, "Print"],
24227	Cell[655019, 16019, 4687, 137, 94, "Print"],
24228	Cell[659709, 16158, 298, 5, 20, "Print"],
24229	Cell[660010, 16165, 343, 8, 20, "Print"],
24230	Cell[660356, 16175, 523, 10, 20, "Print"],
24231	Cell[660882, 16187, 565, 11, 26, "Print"],
24232	Cell[661450, 16200, 525, 10, 20, "Print"],
24233	Cell[661978, 16212, 530, 10, 20, "Print"],
24234	Cell[662511, 16224, 230, 4, 20, "Print"],
24235	Cell[662744, 16230, 2202, 65, 52, "Print"],
24236	Cell[664949, 16297, 296, 5, 20, "Print"],
24237	Cell[665248, 16304, 345, 8, 20, "Print"],
24238	Cell[665596, 16314, 525, 10, 20, "Print"],
24239	Cell[666124, 16326, 563, 11, 26, "Print"],
24240	Cell[666690, 16339, 525, 10, 20, "Print"],
24241	Cell[667218, 16351, 530, 10, 20, "Print"],
24242	Cell[667751, 16363, 232, 4, 20, "Print"],
24243	Cell[667986, 16369, 2202, 65, 52, "Print"],
24244	Cell[670191, 16436, 296, 5, 20, "Print"],
24245	Cell[670490, 16443, 343, 8, 20, "Print"],
24246	Cell[670836, 16453, 528, 10, 20, "Print"],
24247	Cell[671367, 16465, 563, 11, 27, "Print"],
24248	Cell[671933, 16478, 525, 10, 20, "Print"],
24249	Cell[672461, 16490, 530, 10, 20, "Print"],
24250	Cell[672994, 16502, 230, 4, 20, "Print"],
24251	Cell[673227, 16508, 2202, 65, 52, "Print"],
24252	Cell[675432, 16575, 296, 5, 20, "Print"],
24253	Cell[675731, 16582, 343, 8, 20, "Print"],
24254	Cell[676077, 16592, 561, 11, 26, "Print"],
24255	Cell[676641, 16605, 525, 10, 20, "Print"],
24256	Cell[677169, 16617, 525, 10, 20, "Print"],
24257	Cell[677697, 16629, 528, 10, 20, "Print"],
24258	Cell[678228, 16641, 230, 4, 20, "Print"],
24259	Cell[678461, 16647, 2931, 89, 52, "Print"],
24260	Cell[681395, 16738, 296, 5, 20, "Print"],
24261	Cell[681694, 16745, 345, 8, 20, "Print"],
24262	Cell[682042, 16755, 563, 11, 26, "Print"],
24263	Cell[682608, 16768, 523, 10, 20, "Print"],
24264	Cell[683134, 16780, 521, 10, 20, "Print"],
24265	Cell[683658, 16792, 530, 10, 20, "Print"],
24266	Cell[684191, 16804, 230, 4, 20, "Print"],
24267	Cell[684424, 16810, 2931, 89, 52, "Print"],
24268	Cell[687358, 16901, 296, 5, 20, "Print"],
24269	Cell[687657, 16908, 343, 8, 20, "Print"],
24270	Cell[688003, 16918, 523, 10, 20, "Print"],
24271	Cell[688529, 16930, 561, 11, 27, "Print"],
24272	Cell[689093, 16943, 527, 10, 20, "Print"],
24273	Cell[689623, 16955, 532, 10, 20, "Print"],
24274	Cell[690158, 16967, 230, 4, 20, "Print"],
24275	Cell[690391, 16973, 2607, 77, 52, "Print"],
24276	Cell[693001, 17052, 296, 5, 20, "Print"],
24277	Cell[693300, 17059, 343, 8, 20, "Print"],
24278	Cell[693646, 17069, 525, 10, 20, "Print"],
24279	Cell[694174, 17081, 561, 11, 26, "Print"],
24280	Cell[694738, 17094, 525, 10, 20, "Print"],
24281	Cell[695266, 17106, 530, 10, 20, "Print"],
24282	Cell[695799, 17118, 230, 4, 20, "Print"],
24283	Cell[696032, 17124, 2931, 89, 52, "Print"],
24284	Cell[698966, 17215, 296, 5, 20, "Print"],
24285	Cell[699265, 17222, 343, 8, 20, "Print"],
24286	Cell[699611, 17232, 523, 10, 20, "Print"],
24287	Cell[700137, 17244, 561, 11, 26, "Print"],
24288	Cell[700701, 17257, 527, 10, 20, "Print"],
24289	Cell[701231, 17269, 529, 10, 20, "Print"],
24290	Cell[701763, 17281, 232, 4, 20, "Print"],
24291	Cell[701998, 17287, 2931, 89, 52, "Print"],
24292	Cell[704932, 17378, 296, 5, 20, "Print"],
24293	Cell[705231, 17385, 343, 8, 20, "Print"],
24294	Cell[705577, 17395, 561, 11, 26, "Print"],
24295	Cell[706141, 17408, 528, 10, 20, "Print"],
24296	Cell[706672, 17420, 564, 11, 23, "Print"],
24297	Cell[707239, 17433, 532, 10, 20, "Print"],
24298	Cell[707774, 17445, 230, 4, 20, "Print"],
24299	Cell[708007, 17451, 2202, 65, 52, "Print"],
24300	Cell[710212, 17518, 298, 5, 20, "Print"],
24301	Cell[710513, 17525, 345, 8, 20, "Print"],
24302	Cell[710861, 17535, 562, 11, 26, "Print"],
24303	Cell[711426, 17548, 528, 10, 20, "Print"],
24304	Cell[711957, 17560, 564, 11, 23, "Print"],
24305	Cell[712524, 17573, 530, 10, 20, "Print"],
24306	Cell[713057, 17585, 229, 4, 20, "Print"],
24307	Cell[713289, 17591, 2204, 65, 52, "Print"],
24308	Cell[715496, 17658, 296, 5, 20, "Print"],
24309	Cell[715795, 17665, 343, 8, 20, "Print"],
24310	Cell[716141, 17675, 563, 11, 27, "Print"],
24311	Cell[716707, 17688, 528, 10, 20, "Print"],
24312	Cell[717238, 17700, 564, 11, 23, "Print"],
24313	Cell[717805, 17713, 530, 10, 20, "Print"],
24314	Cell[718338, 17725, 230, 4, 20, "Print"],
24315	Cell[718571, 17731, 2201, 65, 52, "Print"],
24316	Cell[720775, 17798, 296, 5, 20, "Print"],
24317	Cell[721074, 17805, 345, 8, 20, "Print"],
24318	Cell[721422, 17815, 563, 11, 28, "Print"],
24319	Cell[721988, 17828, 525, 10, 20, "Print"],
24320	Cell[722516, 17840, 564, 11, 23, "Print"],
24321	Cell[723083, 17853, 530, 10, 20, "Print"],
24322	Cell[723616, 17865, 230, 4, 20, "Print"],
24323	Cell[723849, 17871, 2606, 77, 52, "Print"],
24324	Cell[726458, 17950, 296, 5, 20, "Print"],
24325	Cell[726757, 17957, 343, 8, 20, "Print"],
24326	Cell[727103, 17967, 523, 10, 20, "Print"],
24327	Cell[727629, 17979, 561, 11, 28, "Print"],
24328	Cell[728193, 17992, 566, 11, 23, "Print"],
24329	Cell[728762, 18005, 530, 10, 20, "Print"],
24330	Cell[729295, 18017, 230, 4, 20, "Print"],
24331	Cell[729528, 18023, 3069, 92, 52, "Print"],
24332	Cell[732600, 18117, 296, 5, 20, "Print"],
24333	Cell[732899, 18124, 343, 8, 20, "Print"],
24334	Cell[733245, 18134, 561, 11, 28, "Print"],
24335	Cell[733809, 18147, 523, 10, 20, "Print"],
24336	Cell[734335, 18159, 564, 11, 23, "Print"],
24337	Cell[734902, 18172, 530, 10, 20, "Print"],
24338	Cell[735435, 18184, 230, 4, 20, "Print"],
24339	Cell[735668, 18190, 3071, 92, 52, "Print"],
24340	Cell[738742, 18284, 296, 5, 20, "Print"],
24341	Cell[739041, 18291, 343, 8, 20, "Print"],
24342	Cell[739387, 18301, 523, 10, 20, "Print"],
24343	Cell[739913, 18313, 561, 11, 26, "Print"],
24344	Cell[740477, 18326, 566, 11, 23, "Print"],
24345	Cell[741046, 18339, 530, 10, 20, "Print"],
24346	Cell[741579, 18351, 232, 4, 20, "Print"],
24347	Cell[741814, 18357, 3069, 92, 52, "Print"],
24348	Cell[744886, 18451, 296, 5, 20, "Print"],
24349	Cell[745185, 18458, 345, 8, 20, "Print"],
24350	Cell[745533, 18468, 561, 11, 26, "Print"],
24351	Cell[746097, 18481, 523, 10, 20, "Print"],
24352	Cell[746623, 18493, 564, 11, 23, "Print"],
24353	Cell[747190, 18506, 532, 10, 20, "Print"],
24354	Cell[747725, 18518, 230, 4, 20, "Print"],
24355	Cell[747958, 18524, 3071, 92, 52, "Print"],
24356	Cell[751032, 18618, 295, 5, 20, "Print"],
24357	Cell[751330, 18625, 342, 8, 20, "Print"],
24358	Cell[751675, 18635, 525, 10, 20, "Print"],
24359	Cell[752203, 18647, 559, 11, 28, "Print"],
24360	Cell[752765, 18660, 530, 10, 20, "Print"],
24361	Cell[753298, 18672, 230, 4, 20, "Print"],
24362	Cell[753531, 18678, 1893, 57, 46, "Print"],
24363	Cell[755427, 18737, 298, 5, 20, "Print"],
24364	Cell[755728, 18744, 345, 8, 20, "Print"],
24365	Cell[756076, 18754, 525, 10, 20, "Print"],
24366	Cell[756604, 18766, 561, 11, 28, "Print"],
24367	Cell[757168, 18779, 528, 10, 20, "Print"],
24368	Cell[757699, 18791, 230, 4, 20, "Print"],
24369	Cell[757932, 18797, 1893, 57, 46, "Print"],
24370	Cell[759828, 18856, 296, 5, 20, "Print"],
24371	Cell[760127, 18863, 343, 8, 20, "Print"],
24372	Cell[760473, 18873, 523, 10, 20, "Print"],
24373	Cell[760999, 18885, 563, 11, 26, "Print"],
24374	Cell[761565, 18898, 528, 10, 20, "Print"],
24375	Cell[762096, 18910, 232, 4, 20, "Print"],
24376	Cell[762331, 18916, 1891, 57, 46, "Print"],
24377	Cell[764225, 18975, 296, 5, 20, "Print"],
24378	Cell[764524, 18982, 343, 8, 20, "Print"],
24379	Cell[764870, 18992, 523, 10, 20, "Print"],
24380	Cell[765396, 19004, 561, 11, 26, "Print"],
24381	Cell[765960, 19017, 530, 10, 20, "Print"],
24382	Cell[766493, 19029, 230, 4, 20, "Print"],
24383	Cell[766726, 19035, 1457, 44, 46, "Print"],
24384	Cell[768186, 19081, 296, 5, 20, "Print"],
24385	Cell[768485, 19088, 343, 8, 20, "Print"],
24386	Cell[768831, 19098, 525, 10, 20, "Print"],
24387	Cell[769359, 19110, 563, 11, 26, "Print"],
24388	Cell[769925, 19123, 528, 10, 20, "Print"],
24389	Cell[770456, 19135, 230, 4, 20, "Print"],
24390	Cell[770689, 19141, 1457, 44, 46, "Print"],
24391	Cell[772149, 19187, 298, 5, 20, "Print"],
24392	Cell[772450, 19194, 343, 8, 20, "Print"],
24393	Cell[772796, 19204, 528, 10, 20, "Print"],
24394	Cell[773327, 19216, 565, 11, 27, "Print"],
24395	Cell[773895, 19229, 528, 10, 20, "Print"],
24396	Cell[774426, 19241, 230, 4, 20, "Print"],
24397	Cell[774659, 19247, 1457, 44, 46, "Print"],
24398	Cell[776119, 19293, 296, 5, 20, "Print"],
24399	Cell[776418, 19300, 343, 8, 20, "Print"],
24400	Cell[776764, 19310, 522, 10, 20, "Print"],
24401	Cell[777289, 19322, 563, 11, 26, "Print"],
24402	Cell[777855, 19335, 528, 10, 20, "Print"],
24403	Cell[778386, 19347, 230, 4, 20, "Print"],
24404	Cell[778619, 19353, 1866, 56, 46, "Print"],
24405	Cell[780488, 19411, 298, 5, 20, "Print"],
24406	Cell[780789, 19418, 343, 8, 20, "Print"],
24407	Cell[781135, 19428, 523, 10, 20, "Print"],
24408	Cell[781661, 19440, 561, 11, 27, "Print"],
24409	Cell[782225, 19453, 530, 10, 20, "Print"],
24410	Cell[782758, 19465, 232, 4, 20, "Print"],
24411	Cell[782993, 19471, 1865, 56, 46, "Print"],
24412	Cell[784861, 19529, 298, 5, 20, "Print"],
24413	Cell[785162, 19536, 342, 8, 20, "Print"],
24414	Cell[785507, 19546, 523, 10, 20, "Print"],
24415	Cell[786033, 19558, 563, 11, 26, "Print"],
24416	Cell[786599, 19571, 526, 10, 20, "Print"],
24417	Cell[787128, 19583, 230, 4, 20, "Print"],
24418	Cell[787361, 19589, 1866, 56, 46, "Print"],
24419	Cell[789230, 19647, 298, 5, 20, "Print"],
24420	Cell[789531, 19654, 343, 8, 20, "Print"],
24421	Cell[789877, 19664, 528, 10, 20, "Print"],
24422	Cell[790408, 19676, 563, 11, 26, "Print"],
24423	Cell[790974, 19689, 530, 10, 20, "Print"],
24424	Cell[791507, 19701, 230, 4, 20, "Print"],
24425	Cell[791740, 19707, 1040, 31, 46, "Print"],
24426	Cell[792783, 19740, 296, 5, 20, "Print"],
24427	Cell[793082, 19747, 343, 8, 20, "Print"],
24428	Cell[793428, 19757, 528, 10, 20, "Print"],
24429	Cell[793959, 19769, 563, 11, 26, "Print"],
24430	Cell[794525, 19782, 528, 10, 20, "Print"],
24431	Cell[795056, 19794, 230, 4, 20, "Print"],
24432	Cell[795289, 19800, 1040, 31, 46, "Print"],
24433	Cell[796332, 19833, 296, 5, 20, "Print"],
24434	Cell[796631, 19840, 343, 8, 20, "Print"],
24435	Cell[796977, 19850, 528, 10, 20, "Print"],
24436	Cell[797508, 19862, 563, 11, 27, "Print"],
24437	Cell[798074, 19875, 528, 10, 20, "Print"],
24438	Cell[798605, 19887, 232, 4, 20, "Print"],
24439	Cell[798840, 19893, 1040, 31, 46, "Print"],
24440	Cell[799883, 19926, 295, 5, 20, "Print"],
24441	Cell[800181, 19933, 343, 8, 20, "Print"],
24442	Cell[800527, 19943, 523, 10, 20, "Print"],
24443	Cell[801053, 19955, 561, 11, 28, "Print"],
24444	Cell[801617, 19968, 530, 10, 20, "Print"],
24445	Cell[802150, 19980, 528, 10, 20, "Print"],
24446	Cell[802681, 19992, 230, 4, 20, "Print"],
24447	Cell[802914, 19998, 7548, 222, 146, "Print"],
24448	Cell[810465, 20222, 296, 5, 20, "Print"],
24449	Cell[810764, 20229, 345, 8, 20, "Print"],
24450	Cell[811112, 20239, 523, 10, 20, "Print"],
24451	Cell[811638, 20251, 561, 11, 28, "Print"],
24452	Cell[812202, 20264, 530, 10, 20, "Print"],
24453	Cell[812735, 20276, 530, 10, 20, "Print"],
24454	Cell[813268, 20288, 230, 4, 20, "Print"],
24455	Cell[813501, 20294, 7549, 222, 146, "Print"],
24456	Cell[821053, 20518, 296, 5, 20, "Print"],
24457	Cell[821352, 20525, 343, 8, 20, "Print"],
24458	Cell[821698, 20535, 523, 10, 20, "Print"],
24459	Cell[822224, 20547, 561, 11, 26, "Print"],
24460	Cell[822788, 20560, 532, 10, 20, "Print"],
24461	Cell[823323, 20572, 530, 10, 20, "Print"],
24462	Cell[823856, 20584, 230, 4, 20, "Print"],
24463	Cell[824089, 20590, 7549, 222, 146, "Print"],
24464	Cell[831641, 20814, 296, 5, 20, "Print"],
24465	Cell[831940, 20821, 343, 8, 20, "Print"],
24466	Cell[832286, 20831, 523, 10, 20, "Print"],
24467	Cell[832812, 20843, 561, 11, 26, "Print"],
24468	Cell[833376, 20856, 530, 10, 20, "Print"],
24469	Cell[833909, 20868, 527, 10, 20, "Print"],
24470	Cell[834439, 20880, 230, 4, 20, "Print"],
24471	Cell[834672, 20886, 6318, 186, 146, "Print"],
24472	Cell[840993, 21074, 296, 5, 20, "Print"],
24473	Cell[841292, 21081, 343, 8, 20, "Print"],
24474	Cell[841638, 21091, 525, 10, 20, "Print"],
24475	Cell[842166, 21103, 562, 11, 26, "Print"],
24476	Cell[842731, 21116, 530, 10, 20, "Print"],
24477	Cell[843264, 21128, 527, 10, 20, "Print"],
24478	Cell[843794, 21140, 229, 4, 20, "Print"],
24479	Cell[844026, 21146, 6318, 186, 146, "Print"],
24480	Cell[850347, 21334, 296, 5, 20, "Print"],
24481	Cell[850646, 21341, 343, 8, 20, "Print"],
24482	Cell[850992, 21351, 528, 10, 20, "Print"],
24483	Cell[851523, 21363, 565, 11, 27, "Print"],
24484	Cell[852091, 21376, 530, 10, 20, "Print"],
24485	Cell[852624, 21388, 528, 10, 20, "Print"],
24486	Cell[853155, 21400, 230, 4, 20, "Print"],
24487	Cell[853388, 21406, 6318, 186, 146, "Print"],
24488	Cell[859709, 21594, 298, 5, 20, "Print"],
24489	Cell[860010, 21601, 343, 8, 20, "Print"],
24490	Cell[860356, 21611, 525, 10, 20, "Print"],
24491	Cell[860884, 21623, 563, 11, 26, "Print"],
24492	Cell[861450, 21636, 532, 10, 20, "Print"],
24493	Cell[861985, 21648, 528, 10, 20, "Print"],
24494	Cell[862516, 21660, 230, 4, 20, "Print"],
24495	Cell[862749, 21666, 7519, 221, 146, "Print"],
24496	Cell[870271, 21889, 296, 5, 20, "Print"],
24497	Cell[870570, 21896, 345, 8, 20, "Print"],
24498	Cell[870918, 21906, 523, 10, 20, "Print"],
24499	Cell[871444, 21918, 561, 11, 27, "Print"],
24500	Cell[872008, 21931, 530, 10, 20, "Print"],
24501	Cell[872541, 21943, 527, 10, 20, "Print"],
24502	Cell[873071, 21955, 230, 4, 20, "Print"],
24503	Cell[873304, 21961, 7517, 221, 146, "Print"],
24504	Cell[880824, 22184, 296, 5, 20, "Print"],
24505	Cell[881123, 22191, 343, 8, 20, "Print"],
24506	Cell[881469, 22201, 523, 10, 20, "Print"],
24507	Cell[881995, 22213, 561, 11, 26, "Print"],
24508	Cell[882559, 22226, 532, 10, 20, "Print"],
24509	Cell[883094, 22238, 528, 10, 20, "Print"],
24510	Cell[883625, 22250, 230, 4, 20, "Print"],
24511	Cell[883858, 22256, 7517, 221, 146, "Print"],
24512	Cell[891378, 22479, 296, 5, 20, "Print"],
24513	Cell[891677, 22486, 343, 8, 20, "Print"],
24514	Cell[892023, 22496, 528, 10, 20, "Print"],
24515	Cell[892554, 22508, 562, 11, 26, "Print"],
24516	Cell[893119, 22521, 530, 10, 20, "Print"],
24517	Cell[893652, 22533, 528, 10, 20, "Print"],
24518	Cell[894183, 22545, 232, 4, 20, "Print"],
24519	Cell[894418, 22551, 4266, 125, 99, "Print"],
24520	Cell[898687, 22678, 298, 5, 20, "Print"],
24521	Cell[898988, 22685, 343, 8, 20, "Print"],
24522	Cell[899334, 22695, 528, 10, 20, "Print"],
24523	Cell[899865, 22707, 563, 11, 26, "Print"],
24524	Cell[900431, 22720, 532, 10, 20, "Print"],
24525	Cell[900966, 22732, 530, 10, 20, "Print"],
24526	Cell[901499, 22744, 232, 4, 20, "Print"],
24527	Cell[901734, 22750, 4266, 125, 99, "Print"],
24528	Cell[906003, 22877, 296, 5, 20, "Print"],
24529	Cell[906302, 22884, 342, 8, 20, "Print"],
24530	Cell[906647, 22894, 530, 10, 20, "Print"],
24531	Cell[907180, 22906, 563, 11, 27, "Print"],
24532	Cell[907746, 22919, 530, 10, 20, "Print"],
24533	Cell[908279, 22931, 528, 10, 20, "Print"],
24534	Cell[908810, 22943, 230, 4, 20, "Print"],
24535	Cell[909043, 22949, 4268, 125, 99, "Print"],
24536	Cell[913314, 23076, 298, 5, 20, "Print"]
24537	}, Open ]]
24538	}, Closed]],
24539	Cell[CellGroupData[{
24540	Cell[913661, 23087, 1184, 18, 21, "Input"],
24541	Cell[CellGroupData[{
24542	Cell[914870, 23109, 676, 13, 20, "Print"],
24543	Cell[915549, 23124, 899, 20, 20, "Print"],
24544	Cell[916451, 23146, 654, 12, 20, "Print"],
24545	Cell[917108, 23160, 828, 17, 20, "Print"],
24546	Cell[917939, 23179, 687, 13, 20, "Print"],
24547	Cell[918629, 23194, 1172, 24, 20, "Print"],
24548	Cell[919804, 23220, 769, 16, 20, "Print"],
24549	Cell[920576, 23238, 1123, 23, 20, "Print"],
24550	Cell[921702, 23263, 668, 12, 20, "Print"],
24551	Cell[922373, 23277, 921, 20, 20, "Print"],
24552	Cell[923297, 23299, 651, 12, 20, "Print"],
24553	Cell[923951, 23313, 675, 13, 20, "Print"],
24554	Cell[924629, 23328, 866, 17, 20, "Print"],
24555	Cell[925498, 23347, 1025, 20, 20, "Print"],
24556	Cell[926526, 23369, 647, 12, 20, "Print"],
24557	Cell[927176, 23383, 632, 12, 20, "Print"]
24558	}, Open ]]
24559	}, Open ]]
24560	}, Open ]]
24561	}
24562	]
24563	*)
24564
24565	(* End of internal cache information *)

Download in other formats:

Original Format