(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    975642,      24556]
NotebookOptionsPosition[    927848,      23400]
NotebookOutlinePosition[    928278,      23419]
CellTagsIndexPosition[    928235,      23416]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.4921467751527157`*^9, 3.492146812657303*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$FeynRulesPath", "=", 
   RowBox[{
   "SetDirectory", "[", "\"\</Users/mawatari/work/FR/v2.0.6/\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"$FeynRulesPath", "<>", "\"\</Models/HC\>\""}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.562493790773467*^9, 3.56249379133423*^9}, {
  3.5669854592231197`*^9, 3.566985470009097*^9}, {3.573969547023426*^9, 
  3.573969552638027*^9}, {3.5763110817083693`*^9, 3.576311082380014*^9}, {
  3.577095398145216*^9, 3.577095424358136*^9}, {3.579449013242025*^9, 
  3.5794490139598637`*^9}, {3.581151089241591*^9, 3.581151095405628*^9}, {
  3.591006102395862*^9, 3.591006102747958*^9}, {3.5953297894365797`*^9, 
  3.595329795947875*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
 CellChangeTimes->{
  3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9, 
   3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9, 
   3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9, 
   3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9}, 
   3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
   3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9, 
   3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9, 
   3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9}, 
   3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9, 
   3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9, 
   3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9, 
   3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9, 
   3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9, 
   3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9, 
   3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9, 
   3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9, 
   3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9, 
   3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9, 
   3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9, 
   3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9, 
   3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9, 
   3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9, 
   3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9, 
   3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9, 
   3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9, 
   3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9, 
   3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9}, 
   3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9, 
   3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9, 
   3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9, 
   3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9, 
   3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9, 
   3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9, 
   3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9, 
   3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9, 
   3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9, 
   3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9, 
   3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9, 
   3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9, 
   3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9, 
   3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9, 
   3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9, 
   3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9, 
   3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9, 
   3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9, 
   3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9, 
   3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9, 
   3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9, 
   3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9, 
   3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9, 
   3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9, 
   3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9, 
   3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9, 
   3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9, 
   3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
   3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9, 
   3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9, 
   3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9, 
   3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9, 
   3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9}, 
   3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
   3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9, 
   3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9, 
   3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9, 
   3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9, 
   3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9, 
   3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9, 
   3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9, 
   3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9, 
   3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9, 
   3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9, 
   3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9, 
   3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9, 
   3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9, 
   3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9, 
   3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9, 
   3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9}, 
   3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9, 
   3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9, 
   3.595774251081539*^9, 3.5957749799360228`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.0.6\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"\<\" (\"\>", " ", "\<\"26 November 2013\"\>"}], 
   "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm["Version: ", "2.0.6", " (" "26 November 2013", ")."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9, 
   3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9, 
   3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9, 
   3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9}, 
   3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
   3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9, 
   3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9, 
   3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9}, 
   3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9, 
   3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9, 
   3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9, 
   3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9, 
   3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9, 
   3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9, 
   3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9, 
   3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9, 
   3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9, 
   3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9, 
   3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9, 
   3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9, 
   3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9, 
   3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9, 
   3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9, 
   3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9, 
   3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9, 
   3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9, 
   3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9}, 
   3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9, 
   3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9, 
   3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9, 
   3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9, 
   3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9, 
   3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9, 
   3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9, 
   3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9, 
   3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9, 
   3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9, 
   3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9, 
   3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9, 
   3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9, 
   3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9, 
   3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9, 
   3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9, 
   3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9, 
   3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9, 
   3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9, 
   3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9, 
   3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9, 
   3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9, 
   3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9, 
   3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9, 
   3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9, 
   3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9, 
   3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9, 
   3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
   3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9, 
   3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9, 
   3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9, 
   3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9, 
   3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9}, 
   3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
   3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9, 
   3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9, 
   3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9, 
   3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9, 
   3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9, 
   3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9, 
   3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9, 
   3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9, 
   3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9, 
   3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9, 
   3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9, 
   3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9, 
   3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9, 
   3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9, 
   3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9, 
   3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9}, 
   3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9, 
   3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9, 
   3.595774251081539*^9, 3.595774979941834*^9}],

Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
B. Fuks\"\>"], "Print",
 CellChangeTimes->{
  3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9, 
   3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9, 
   3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9, 
   3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9}, 
   3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
   3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9, 
   3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9, 
   3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9}, 
   3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9, 
   3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9, 
   3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9, 
   3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9, 
   3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9, 
   3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9, 
   3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9, 
   3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9, 
   3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9, 
   3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9, 
   3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9, 
   3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9, 
   3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9, 
   3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9, 
   3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9, 
   3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9, 
   3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9, 
   3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9, 
   3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9}, 
   3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9, 
   3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9, 
   3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9, 
   3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9, 
   3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9, 
   3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9, 
   3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9, 
   3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9, 
   3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9, 
   3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9, 
   3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9, 
   3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9, 
   3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9, 
   3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9, 
   3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9, 
   3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9, 
   3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9, 
   3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9, 
   3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9, 
   3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9, 
   3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9, 
   3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9, 
   3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9, 
   3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9, 
   3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9, 
   3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9, 
   3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9, 
   3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
   3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9, 
   3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9, 
   3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9, 
   3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9, 
   3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9}, 
   3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
   3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9, 
   3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9, 
   3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9, 
   3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9, 
   3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9, 
   3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9, 
   3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9, 
   3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9, 
   3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9, 
   3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9, 
   3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9, 
   3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9, 
   3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9, 
   3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9, 
   3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9, 
   3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9}, 
   3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9, 
   3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9, 
   3.595774251081539*^9, 3.595774979948028*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9, 
   3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9, 
   3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9, 
   3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9}, 
   3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
   3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9, 
   3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9, 
   3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9}, 
   3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9, 
   3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9, 
   3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9, 
   3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9, 
   3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9, 
   3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9, 
   3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9, 
   3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9, 
   3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9, 
   3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9, 
   3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9, 
   3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9, 
   3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9, 
   3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9, 
   3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9, 
   3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9, 
   3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9, 
   3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9, 
   3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9}, 
   3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9, 
   3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9, 
   3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9, 
   3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9, 
   3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9, 
   3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9, 
   3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9, 
   3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9, 
   3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9, 
   3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9, 
   3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9, 
   3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9, 
   3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9, 
   3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9, 
   3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9, 
   3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9, 
   3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9, 
   3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9, 
   3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9, 
   3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9, 
   3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9, 
   3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9, 
   3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9, 
   3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9, 
   3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9, 
   3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9, 
   3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9, 
   3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
   3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9, 
   3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9, 
   3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9, 
   3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9, 
   3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9}, 
   3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
   3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9, 
   3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9, 
   3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9, 
   3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9, 
   3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9, 
   3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9, 
   3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9, 
   3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9, 
   3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9, 
   3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9, 
   3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9, 
   3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9, 
   3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9, 
   3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9, 
   3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9, 
   3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9}, 
   3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9, 
   3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9, 
   3.595774251081539*^9, 3.595774979953937*^9}],

Cell[BoxData["\<\"Please cite:\"\>"], "Print",
 CellChangeTimes->{
  3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9, 
   3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9, 
   3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9, 
   3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9}, 
   3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
   3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9, 
   3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9, 
   3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9}, 
   3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9, 
   3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9, 
   3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9, 
   3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9, 
   3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9, 
   3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9, 
   3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9, 
   3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9, 
   3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9, 
   3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9, 
   3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9, 
   3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9, 
   3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9, 
   3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9, 
   3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9, 
   3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9, 
   3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9, 
   3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9, 
   3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9}, 
   3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9, 
   3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9, 
   3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9, 
   3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9, 
   3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9, 
   3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9, 
   3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9, 
   3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9, 
   3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9, 
   3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9, 
   3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9, 
   3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9, 
   3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9, 
   3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9, 
   3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9, 
   3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9, 
   3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9, 
   3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9, 
   3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9, 
   3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9, 
   3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9, 
   3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9, 
   3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9, 
   3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9, 
   3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9, 
   3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9, 
   3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9, 
   3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
   3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9, 
   3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9, 
   3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9, 
   3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9, 
   3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9}, 
   3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
   3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9, 
   3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9, 
   3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9, 
   3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9, 
   3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9, 
   3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9, 
   3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9, 
   3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9, 
   3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9, 
   3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9, 
   3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9, 
   3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9, 
   3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9, 
   3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9, 
   3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9, 
   3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9}, 
   3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9, 
   3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9, 
   3.595774251081539*^9, 3.595774979959601*^9}],

Cell[BoxData["\<\"    - arXiv:1310.1921;\"\>"], "Print",
 CellChangeTimes->{
  3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9, 
   3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9, 
   3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9, 
   3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9}, 
   3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
   3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9, 
   3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9, 
   3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9}, 
   3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9, 
   3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9, 
   3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9, 
   3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9, 
   3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9, 
   3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9, 
   3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9, 
   3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9, 
   3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9, 
   3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9, 
   3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9, 
   3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9, 
   3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9, 
   3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9, 
   3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9, 
   3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9, 
   3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9, 
   3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9, 
   3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9}, 
   3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9, 
   3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9, 
   3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9, 
   3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9, 
   3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9, 
   3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9, 
   3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9, 
   3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9, 
   3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9, 
   3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9, 
   3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9, 
   3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9, 
   3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9, 
   3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9, 
   3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9, 
   3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9, 
   3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9, 
   3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9, 
   3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9, 
   3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9, 
   3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9, 
   3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9, 
   3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9, 
   3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9, 
   3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9, 
   3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9, 
   3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9, 
   3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
   3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9, 
   3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9, 
   3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9, 
   3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9, 
   3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9}, 
   3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
   3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9, 
   3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9, 
   3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9, 
   3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9, 
   3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9, 
   3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9, 
   3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9, 
   3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9, 
   3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9, 
   3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9, 
   3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9, 
   3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9, 
   3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9, 
   3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9, 
   3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9, 
   3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9}, 
   3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9, 
   3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9, 
   3.595774251081539*^9, 3.595774979965191*^9}],

Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
(arXiv:0806.4194).\"\>"], "Print",
 CellChangeTimes->{
  3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9, 
   3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9, 
   3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9, 
   3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9}, 
   3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
   3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9, 
   3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9, 
   3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9}, 
   3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9, 
   3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9, 
   3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9, 
   3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9, 
   3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9, 
   3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9, 
   3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9, 
   3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9, 
   3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9, 
   3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9, 
   3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9, 
   3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9, 
   3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9, 
   3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9, 
   3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9, 
   3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9, 
   3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9, 
   3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9, 
   3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9}, 
   3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9, 
   3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9, 
   3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9, 
   3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9, 
   3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9, 
   3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9, 
   3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9, 
   3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9, 
   3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9, 
   3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9, 
   3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9, 
   3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9, 
   3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9, 
   3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9, 
   3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9, 
   3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9, 
   3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9, 
   3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9, 
   3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9, 
   3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9, 
   3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9, 
   3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9, 
   3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9, 
   3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9, 
   3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9, 
   3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9, 
   3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9, 
   3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
   3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9, 
   3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9, 
   3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9, 
   3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9, 
   3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9}, 
   3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
   3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9, 
   3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9, 
   3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9, 
   3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9, 
   3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9, 
   3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9, 
   3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9, 
   3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9, 
   3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9, 
   3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9, 
   3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9, 
   3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9, 
   3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9, 
   3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9, 
   3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9, 
   3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9}, 
   3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9, 
   3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9, 
   3.595774251081539*^9, 3.595774979970784*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9, 
   3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9, 
   3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9, 
   3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9}, 
   3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
   3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9, 
   3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9, 
   3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9}, 
   3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9, 
   3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9, 
   3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9, 
   3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9, 
   3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9, 
   3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9, 
   3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9, 
   3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9, 
   3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9, 
   3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9, 
   3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9, 
   3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9, 
   3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9, 
   3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9, 
   3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9, 
   3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9, 
   3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9, 
   3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9, 
   3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9}, 
   3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9, 
   3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9, 
   3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9, 
   3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9, 
   3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9, 
   3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9, 
   3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9, 
   3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9, 
   3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9, 
   3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9, 
   3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9, 
   3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9, 
   3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9, 
   3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9, 
   3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9, 
   3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9, 
   3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9, 
   3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9, 
   3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9, 
   3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9, 
   3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9, 
   3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9, 
   3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9, 
   3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9, 
   3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9, 
   3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9, 
   3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9, 
   3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
   3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9, 
   3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9, 
   3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9, 
   3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9, 
   3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9}, 
   3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
   3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9, 
   3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9, 
   3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9, 
   3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9, 
   3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9, 
   3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9, 
   3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9, 
   3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9, 
   3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9, 
   3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9, 
   3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9, 
   3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9, 
   3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9, 
   3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9, 
   3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9, 
   3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9}, 
   3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9, 
   3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9, 
   3.595774251081539*^9, 3.595774979976643*^9}],

Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
 CellChangeTimes->{
  3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9, 
   3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9, 
   3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9, 
   3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9}, 
   3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
   3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9, 
   3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9, 
   3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9}, 
   3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9, 
   3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9, 
   3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9, 
   3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9, 
   3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9, 
   3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9, 
   3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9, 
   3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9, 
   3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9, 
   3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9, 
   3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9, 
   3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9, 
   3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9, 
   3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9, 
   3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9, 
   3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9, 
   3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9, 
   3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9, 
   3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9}, 
   3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9, 
   3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9, 
   3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9, 
   3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9, 
   3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9, 
   3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9, 
   3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9, 
   3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9, 
   3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9, 
   3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9, 
   3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9, 
   3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9, 
   3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9, 
   3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9, 
   3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9, 
   3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9, 
   3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9, 
   3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9, 
   3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9, 
   3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9, 
   3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9, 
   3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9, 
   3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9, 
   3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9, 
   3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9, 
   3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9, 
   3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9, 
   3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
   3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9, 
   3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9, 
   3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9, 
   3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9, 
   3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9}, 
   3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
   3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9, 
   3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9, 
   3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9, 
   3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9, 
   3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9, 
   3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9, 
   3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9, 
   3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9, 
   3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9, 
   3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9, 
   3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9, 
   3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9, 
   3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9, 
   3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9, 
   3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9, 
   3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9}, 
   3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9, 
   3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9, 
   3.595774251081539*^9, 3.595774979982881*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9, 
   3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9, 
   3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9, 
   3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9}, 
   3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
   3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9, 
   3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9, 
   3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9}, 
   3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9, 
   3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9, 
   3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9, 
   3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9, 
   3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9, 
   3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9, 
   3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9, 
   3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9, 
   3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9, 
   3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9, 
   3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9, 
   3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9, 
   3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9, 
   3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9, 
   3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9, 
   3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9, 
   3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9, 
   3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9, 
   3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9}, 
   3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9, 
   3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9, 
   3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9, 
   3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9, 
   3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9, 
   3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9, 
   3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9, 
   3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9, 
   3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9, 
   3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9, 
   3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9, 
   3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9, 
   3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9, 
   3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9, 
   3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9, 
   3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9, 
   3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9, 
   3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9, 
   3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9, 
   3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9, 
   3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9, 
   3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9, 
   3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9, 
   3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9, 
   3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9, 
   3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9, 
   3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9, 
   3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
   3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9, 
   3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9, 
   3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9, 
   3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9, 
   3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9}, 
   3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
   3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9, 
   3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9, 
   3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9, 
   3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9, 
   3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9, 
   3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9, 
   3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9, 
   3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9, 
   3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9, 
   3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9, 
   3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9, 
   3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9, 
   3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9, 
   3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9, 
   3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9, 
   3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9}, 
   3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9, 
   3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9, 
   3.595774251081539*^9, 3.595774979989771*^9}],

Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
FRPalette[].\"\>"], "Print",
 CellChangeTimes->{
  3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9, 
   3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9, 
   3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9, 
   3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9}, 
   3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
   3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9, 
   3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9, 
   3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9}, 
   3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9, 
   3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9, 
   3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9, 
   3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9, 
   3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9, 
   3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9, 
   3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9, 
   3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9, 
   3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9, 
   3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9, 
   3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9, 
   3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9, 
   3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9, 
   3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9, 
   3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9, 
   3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9, 
   3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9, 
   3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9, 
   3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9}, 
   3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9, 
   3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9, 
   3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9, 
   3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9, 
   3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9, 
   3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9, 
   3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9, 
   3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9, 
   3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9, 
   3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9, 
   3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9, 
   3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9, 
   3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9, 
   3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9, 
   3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9, 
   3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9, 
   3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9, 
   3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9, 
   3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9, 
   3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9, 
   3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9, 
   3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9, 
   3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9, 
   3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9, 
   3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9, 
   3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9, 
   3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9, 
   3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
   3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9, 
   3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9, 
   3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9, 
   3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9, 
   3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9}, 
   3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
   3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9, 
   3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9, 
   3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9, 
   3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9, 
   3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9, 
   3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9, 
   3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9, 
   3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9, 
   3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9, 
   3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9, 
   3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9, 
   3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9, 
   3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9, 
   3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9, 
   3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9, 
   3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9}, 
   3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9, 
   3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9, 
   3.595774251081539*^9, 3.595774979996581*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The Higgs Characterisation Model", "Title",
 CellChangeTimes->{{3.563969384897138*^9, 3.563969388480772*^9}, {
  3.579542855003995*^9, 3.579542855878519*^9}, {3.580788704233615*^9, 
  3.580788704402492*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadModel", "[", 
  RowBox[{"\"\<SM_HC.fr\>\"", ",", "\"\<HC.fr\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.5797689230966454`*^9, 3.579768959605196*^9}, {
  3.5797728634876137`*^9, 3.579772869622957*^9}, {3.579773022805372*^9, 
  3.579773025161128*^9}, {3.580788700320038*^9, 3.58078870048149*^9}, {
  3.581956192102425*^9, 3.5819561934167557`*^9}, {3.5819604209931593`*^9, 
  3.58196042170662*^9}, {3.591006112028008*^9, 3.591006115130166*^9}, {
  3.5910062552983418`*^9, 3.591006257373683*^9}, {3.595329809474881*^9, 
  3.595329812689343*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
 CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9}, 
   3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9, 
   3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9, 
   3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
   3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9, 
   3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9, 
   3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9, 
   3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9, 
   3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9, 
   3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9, 
   3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9, 
   3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9, 
   3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9, 
   3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9, 
   3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9, 
   3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9, 
   3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9, 
   3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9, 
   3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9, 
   3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9, 
   3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9}, 
   3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9, 
   3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9, 
   3.595774258108706*^9, 3.595774986255286*^9}],

Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
 CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9}, 
   3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9, 
   3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9, 
   3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
   3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9, 
   3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9, 
   3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9, 
   3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9, 
   3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9, 
   3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9, 
   3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9, 
   3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9, 
   3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9, 
   3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9, 
   3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9, 
   3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9, 
   3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9, 
   3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9, 
   3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9, 
   3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9, 
   3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9}, 
   3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9, 
   3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9, 
   3.595774258108706*^9, 3.595774986293858*^9}],

Cell[BoxData["\<\"P. de Aquino, K. Mawatari\"\>"], "Print",
 CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9}, 
   3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9, 
   3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9, 
   3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
   3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9, 
   3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9, 
   3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9, 
   3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9, 
   3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9, 
   3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9, 
   3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9, 
   3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9, 
   3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9, 
   3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9, 
   3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9, 
   3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9, 
   3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9, 
   3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9, 
   3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9, 
   3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9, 
   3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9}, 
   3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9, 
   3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9, 
   3.595774258108706*^9, 3.59577498629998*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"4.0\"\>"}],
  SequenceForm["Model Version: ", "4.0"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9}, 
   3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9, 
   3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9, 
   3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
   3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9, 
   3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9, 
   3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9, 
   3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9, 
   3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9, 
   3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9, 
   3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9, 
   3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9, 
   3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9, 
   3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9, 
   3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9, 
   3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9, 
   3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9, 
   3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9, 
   3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9, 
   3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9, 
   3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9}, 
   3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9, 
   3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9, 
   3.595774258108706*^9, 3.595774986305958*^9}],

Cell[BoxData["\<\"Please cite\"\>"], "Print",
 CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9}, 
   3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9, 
   3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9, 
   3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
   3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9, 
   3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9, 
   3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9, 
   3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9, 
   3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9, 
   3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9, 
   3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9, 
   3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9, 
   3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9, 
   3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9, 
   3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9, 
   3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9, 
   3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9, 
   3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9, 
   3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9, 
   3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9, 
   3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9}, 
   3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9, 
   3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9, 
   3.595774258108706*^9, 3.595774986312554*^9}],

Cell[BoxData["\<\"P. Artoisenet et al., arXiv:1306.6464\"\>"], "Print",
 CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9}, 
   3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9, 
   3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9, 
   3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
   3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9, 
   3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9, 
   3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9, 
   3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9, 
   3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9, 
   3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9, 
   3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9, 
   3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9, 
   3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9, 
   3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9, 
   3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9, 
   3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9, 
   3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9, 
   3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9, 
   3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9, 
   3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9, 
   3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9}, 
   3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9, 
   3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9, 
   3.595774258108706*^9, 3.59577498631852*^9}],

Cell[BoxData["\<\"http://feynrules.irmp.ucl.ac.be/wiki/HiggsCharacterisation/\
\"\>"], "Print",
 CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9}, 
   3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9, 
   3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9, 
   3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
   3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9, 
   3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9, 
   3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9, 
   3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9, 
   3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9, 
   3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9, 
   3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9, 
   3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9, 
   3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9, 
   3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9, 
   3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9, 
   3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9, 
   3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9, 
   3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9, 
   3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9, 
   3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9, 
   3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9}, 
   3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9, 
   3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9, 
   3.595774258108706*^9, 3.595774986324383*^9}],

Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
"Print",
 CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9}, 
   3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9, 
   3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9, 
   3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
   3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9, 
   3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9, 
   3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9, 
   3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9, 
   3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9, 
   3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9, 
   3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9, 
   3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9, 
   3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9, 
   3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9, 
   3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9, 
   3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9, 
   3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9, 
   3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9, 
   3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9, 
   3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9, 
   3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9}, 
   3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9, 
   3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9, 
   3.595774258108706*^9, 3.595774986330174*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9}, 
   3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9, 
   3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9, 
   3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
   3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9, 
   3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9, 
   3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9, 
   3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9, 
   3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9, 
   3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9, 
   3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9, 
   3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9, 
   3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9, 
   3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9, 
   3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9, 
   3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9, 
   3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9, 
   3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9, 
   3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9, 
   3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9, 
   3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9}, 
   3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9, 
   3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9, 
   3.595774258108706*^9, 3.59577498633589*^9}],

Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
 CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9}, 
   3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9, 
   3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9, 
   3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
   3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9, 
   3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9, 
   3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9, 
   3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9, 
   3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9, 
   3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9, 
   3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9, 
   3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9, 
   3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9, 
   3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9, 
   3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9, 
   3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9, 
   3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9, 
   3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9, 
   3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9, 
   3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9, 
   3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9}, 
   3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9, 
   3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9, 
   3.595774258108706*^9, 3.595774986341823*^9}],

Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
 CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9}, 
   3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9, 
   3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9, 
   3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
   3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9, 
   3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9, 
   3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9, 
   3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9, 
   3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9, 
   3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9, 
   3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9, 
   3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9, 
   3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9, 
   3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9, 
   3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9, 
   3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9, 
   3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9, 
   3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9, 
   3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9, 
   3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9, 
   3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9}, 
   3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9, 
   3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9, 
   3.595774258108706*^9, 3.595774986570806*^9}],

Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
 CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9}, 
   3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9, 
   3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9, 
   3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
   3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9, 
   3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9, 
   3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9, 
   3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9, 
   3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9, 
   3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9, 
   3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9, 
   3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9, 
   3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9, 
   3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9, 
   3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9, 
   3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9, 
   3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9, 
   3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9, 
   3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9, 
   3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9, 
   3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9}, 
   3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9, 
   3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9, 
   3.595774258108706*^9, 3.595774986620122*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"HC\"\>", 
   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
  SequenceForm["\nModel ", "HC", " loaded."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9}, 
   3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9, 
   3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9, 
   3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
   3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9, 
   3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9, 
   3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9, 
   3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9, 
   3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9, 
   3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9, 
   3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9, 
   3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9, 
   3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9, 
   3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9, 
   3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9, 
   3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9, 
   3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9, 
   3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9, 
   3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9, 
   3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9, 
   3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9}, 
   3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9, 
   3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9, 
   3.595774258108706*^9, 3.595774986855732*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ModelInformation", "[", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.581151369501802*^9, 3.5811514013985243`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model name: \"\>", "\[InvisibleSpace]", "\<\"HC\"\>"}],
  SequenceForm["Model name: ", "HC"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9}, 
   3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9, 
   3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9, 
   3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9, 
   3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9, 
   3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9, 
   3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9, 
   3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9, 
   3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9, 
   3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9, 
   3.5957742607433558`*^9, 3.5957749889756393`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model version: \"\>", "\[InvisibleSpace]", "\<\"4.0\"\>"}],
  SequenceForm["Model version: ", "4.0"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9}, 
   3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9, 
   3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9, 
   3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9, 
   3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9, 
   3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9, 
   3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9, 
   3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9, 
   3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9, 
   3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9, 
   3.5957742607433558`*^9, 3.595774988980631*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Date: \"\>", "\[InvisibleSpace]", "\<\"11.12.2013\"\>"}],
  SequenceForm["Date: ", "11.12.2013"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9}, 
   3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9, 
   3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9, 
   3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9, 
   3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9, 
   3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9, 
   3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9, 
   3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9, 
   3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9, 
   3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9, 
   3.5957742607433558`*^9, 3.595774988985696*^9}],

Cell[BoxData["\<\"Authors: \"\>"], "Print",
 CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9}, 
   3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9, 
   3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9, 
   3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9, 
   3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9, 
   3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9, 
   3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9, 
   3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9, 
   3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9, 
   3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9, 
   3.5957742607433558`*^9, 3.595774988990439*^9}],

Cell[BoxData["\<\"   P. de Aquino, K. Mawatari\"\>"], "Print",
 CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9}, 
   3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9, 
   3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9, 
   3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9, 
   3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9, 
   3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9, 
   3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9, 
   3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9, 
   3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9, 
   3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9, 
   3.5957742607433558`*^9, 3.595774988995092*^9}],

Cell[BoxData["\<\"Institutions: \"\>"], "Print",
 CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9}, 
   3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9, 
   3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9, 
   3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9, 
   3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9, 
   3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9, 
   3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9, 
   3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9, 
   3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9, 
   3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9, 
   3.5957742607433558`*^9, 3.595774989000292*^9}],

Cell[BoxData["\<\"   Vrije Universiteit Brussel\"\>"], "Print",
 CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9}, 
   3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9, 
   3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9, 
   3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9, 
   3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9, 
   3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9, 
   3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9, 
   3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9, 
   3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9, 
   3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9, 
   3.5957742607433558`*^9, 3.595774989005561*^9}],

Cell[BoxData["\<\"Emails: \"\>"], "Print",
 CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9}, 
   3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9, 
   3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9, 
   3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9, 
   3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9, 
   3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9, 
   3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9, 
   3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9, 
   3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9, 
   3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9, 
   3.5957742607433558`*^9, 3.595774989010865*^9}],

Cell[BoxData["\<\"   kentarou.mawatari@vub.ac.be\"\>"], "Print",
 CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9}, 
   3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9, 
   3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9, 
   3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9, 
   3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9, 
   3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9, 
   3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9, 
   3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9, 
   3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9, 
   3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9, 
   3.5957742607433558`*^9, 3.595774989016189*^9}],

Cell[BoxData["\<\"References: \"\>"], "Print",
 CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9}, 
   3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9, 
   3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9, 
   3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9, 
   3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9, 
   3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9, 
   3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9, 
   3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9, 
   3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9, 
   3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9, 
   3.5957742607433558`*^9, 3.5957749890215797`*^9}],

Cell[BoxData["\<\"   P. Artoisenet et al., arXiv:1306.6464\"\>"], "Print",
 CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9}, 
   3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9, 
   3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9, 
   3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9, 
   3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9, 
   3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9, 
   3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9, 
   3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9, 
   3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9, 
   3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9, 
   3.5957742607433558`*^9, 3.595774989026895*^9}],

Cell[BoxData["\<\"URL's: \"\>"], "Print",
 CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9}, 
   3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9, 
   3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9, 
   3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9, 
   3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9, 
   3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9, 
   3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9, 
   3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9, 
   3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9, 
   3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9, 
   3.5957742607433558`*^9, 3.595774989032241*^9}],

Cell[BoxData["\<\"   \
http://feynrules.irmp.ucl.ac.be/wiki/HiggsCharacterisation/\"\>"], "Print",
 CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9}, 
   3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9, 
   3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9, 
   3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9, 
   3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9, 
   3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9, 
   3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9, 
   3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9, 
   3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9, 
   3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9, 
   3.5957742607433558`*^9, 3.595774989037507*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadRestriction", "[", 
  RowBox[{"\"\<Cabibbo.rst\>\"", ",", "\"\<Massless.rst\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.563280223155616*^9, {3.563771875657627*^9, 3.563771912735396*^9}, 
   3.5671480612443037`*^9, {3.579429036774397*^9, 3.579429037217311*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Loading restrictions from \"\>", 
   "\[InvisibleSpace]", "\<\"Cabibbo.rst\"\>", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
    ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "6"}],
  SequenceForm["Loading restrictions from ", "Cabibbo.rst", " : ", 
   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 6],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5794290509544363`*^9, 3.579429181799006*^9, 3.5794325155955677`*^9, 
   3.579432635108132*^9, 3.579432805375701*^9, 3.57943286788902*^9, 
   3.579433386148896*^9, 3.579433454039764*^9, 3.579434251113165*^9, 
   3.579434577990007*^9, 3.579434965934722*^9, 3.579435342903551*^9, 
   3.579443445016252*^9, 3.579443578275963*^9, 3.579443639507142*^9, 
   3.5794490456747837`*^9, 3.579450884987849*^9, 3.579451357270712*^9, 
   3.579454729578051*^9, 3.57945589472537*^9, 3.579456067101851*^9, 
   3.5795095050913897`*^9, 3.579510011236*^9, 3.579510161872367*^9, 
   3.5795119237125273`*^9, 3.579512205312881*^9, 3.579516670096532*^9, 
   3.5795168192418127`*^9, 3.5795397542168303`*^9, 3.579542440945209*^9, 
   3.57954278255612*^9, 3.579542860599605*^9, 3.5795439890790577`*^9, 
   3.5795798372747498`*^9, 3.579580044181732*^9, 3.579580381444313*^9, {
   3.579592510491967*^9, 3.579592536546259*^9}, 3.579592590208592*^9, 
   3.579592708359777*^9, 3.5795944933253403`*^9, 3.579594564512615*^9, 
   3.579595461840765*^9, 3.5795957323353157`*^9, 3.57959921585903*^9, 
   3.579599983939945*^9, 3.579600698922448*^9, 3.579605912404235*^9, 
   3.5796063120910587`*^9, 3.579606459356874*^9, 3.5796087825947437`*^9, 
   3.579609132580268*^9, 3.5796093052741203`*^9, 3.57976470978084*^9, 
   3.579764858430361*^9, 3.579765178794323*^9, 3.57976559249448*^9, 
   3.5797673352274303`*^9, 3.5797705150852833`*^9, 3.579771857942809*^9, 
   3.579772253067027*^9, 3.579772874657702*^9, 3.57977303102221*^9, 
   3.5797731280541563`*^9, 3.579773478797687*^9, 3.579775163369293*^9, 
   3.5797752058287086`*^9, 3.57977567108652*^9, 3.579776076330688*^9, 
   3.579779034448839*^9, 3.579953776110952*^9, 3.5800532833299294`*^9, 
   3.580069385139514*^9, 3.5801160033896103`*^9, 3.5801270985084133`*^9, 
   3.580140763667358*^9, 3.580140854951489*^9, 3.5801436065745687`*^9, 
   3.580277959531026*^9, 3.580278353712617*^9, 3.580730313951734*^9, 
   3.580788726282175*^9, 3.581151118759831*^9, 3.581151242742681*^9, 
   3.581152695187685*^9, 3.581391547783867*^9, 3.5819248220873623`*^9, 
   3.581956200547022*^9, 3.581956808027287*^9, 3.5819573568258953`*^9, 
   3.581959949779924*^9, 3.5819600698582973`*^9, 3.581960434590064*^9, 
   3.583279508657537*^9, 3.583645099422858*^9, 3.583654945788978*^9, 
   3.583655441069084*^9, 3.583655699521132*^9, 3.583656759092362*^9, 
   3.583657136793429*^9, 3.583657196643655*^9, 3.591006128455742*^9, 
   3.591006265460855*^9, 3.591007726583241*^9, 3.595329826591722*^9, 
   3.5953388663365707`*^9, 3.595589685744636*^9, 3.5955909136452*^9, 
   3.595591812197258*^9, 3.59559367500727*^9, 3.595655228344956*^9, 
   3.595655759244561*^9, 3.595758733420156*^9, 3.595774266779652*^9, 
   3.59577499234085*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Loading restrictions from \"\>", 
   "\[InvisibleSpace]", "\<\"Massless.rst\"\>", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
    ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "18"}],
  SequenceForm["Loading restrictions from ", "Massless.rst", " : ", 
   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5794290509544363`*^9, 3.579429181799006*^9, 3.5794325155955677`*^9, 
   3.579432635108132*^9, 3.579432805375701*^9, 3.57943286788902*^9, 
   3.579433386148896*^9, 3.579433454039764*^9, 3.579434251113165*^9, 
   3.579434577990007*^9, 3.579434965934722*^9, 3.579435342903551*^9, 
   3.579443445016252*^9, 3.579443578275963*^9, 3.579443639507142*^9, 
   3.5794490456747837`*^9, 3.579450884987849*^9, 3.579451357270712*^9, 
   3.579454729578051*^9, 3.57945589472537*^9, 3.579456067101851*^9, 
   3.5795095050913897`*^9, 3.579510011236*^9, 3.579510161872367*^9, 
   3.5795119237125273`*^9, 3.579512205312881*^9, 3.579516670096532*^9, 
   3.5795168192418127`*^9, 3.5795397542168303`*^9, 3.579542440945209*^9, 
   3.57954278255612*^9, 3.579542860599605*^9, 3.5795439890790577`*^9, 
   3.5795798372747498`*^9, 3.579580044181732*^9, 3.579580381444313*^9, {
   3.579592510491967*^9, 3.579592536546259*^9}, 3.579592590208592*^9, 
   3.579592708359777*^9, 3.5795944933253403`*^9, 3.579594564512615*^9, 
   3.579595461840765*^9, 3.5795957323353157`*^9, 3.57959921585903*^9, 
   3.579599983939945*^9, 3.579600698922448*^9, 3.579605912404235*^9, 
   3.5796063120910587`*^9, 3.579606459356874*^9, 3.5796087825947437`*^9, 
   3.579609132580268*^9, 3.5796093052741203`*^9, 3.57976470978084*^9, 
   3.579764858430361*^9, 3.579765178794323*^9, 3.57976559249448*^9, 
   3.5797673352274303`*^9, 3.5797705150852833`*^9, 3.579771857942809*^9, 
   3.579772253067027*^9, 3.579772874657702*^9, 3.57977303102221*^9, 
   3.5797731280541563`*^9, 3.579773478797687*^9, 3.579775163369293*^9, 
   3.5797752058287086`*^9, 3.57977567108652*^9, 3.579776076330688*^9, 
   3.579779034448839*^9, 3.579953776110952*^9, 3.5800532833299294`*^9, 
   3.580069385139514*^9, 3.5801160033896103`*^9, 3.5801270985084133`*^9, 
   3.580140763667358*^9, 3.580140854951489*^9, 3.5801436065745687`*^9, 
   3.580277959531026*^9, 3.580278353712617*^9, 3.580730313951734*^9, 
   3.580788726282175*^9, 3.581151118759831*^9, 3.581151242742681*^9, 
   3.581152695187685*^9, 3.581391547783867*^9, 3.5819248220873623`*^9, 
   3.581956200547022*^9, 3.581956808027287*^9, 3.5819573568258953`*^9, 
   3.581959949779924*^9, 3.5819600698582973`*^9, 3.581960434590064*^9, 
   3.583279508657537*^9, 3.583645099422858*^9, 3.583654945788978*^9, 
   3.583655441069084*^9, 3.583655699521132*^9, 3.583656759092362*^9, 
   3.583657136793429*^9, 3.583657196643655*^9, 3.591006128455742*^9, 
   3.591006265460855*^9, 3.591007726583241*^9, 3.595329826591722*^9, 
   3.5953388663365707`*^9, 3.595589685744636*^9, 3.5955909136452*^9, 
   3.595591812197258*^9, 3.59559367500727*^9, 3.595655228344956*^9, 
   3.595655759244561*^9, 3.595758733420156*^9, 3.595774266779652*^9, 
   3.595774992569647*^9}],

Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
 CellChangeTimes->{
  3.5794290509544363`*^9, 3.579429181799006*^9, 3.5794325155955677`*^9, 
   3.579432635108132*^9, 3.579432805375701*^9, 3.57943286788902*^9, 
   3.579433386148896*^9, 3.579433454039764*^9, 3.579434251113165*^9, 
   3.579434577990007*^9, 3.579434965934722*^9, 3.579435342903551*^9, 
   3.579443445016252*^9, 3.579443578275963*^9, 3.579443639507142*^9, 
   3.5794490456747837`*^9, 3.579450884987849*^9, 3.579451357270712*^9, 
   3.579454729578051*^9, 3.57945589472537*^9, 3.579456067101851*^9, 
   3.5795095050913897`*^9, 3.579510011236*^9, 3.579510161872367*^9, 
   3.5795119237125273`*^9, 3.579512205312881*^9, 3.579516670096532*^9, 
   3.5795168192418127`*^9, 3.5795397542168303`*^9, 3.579542440945209*^9, 
   3.57954278255612*^9, 3.579542860599605*^9, 3.5795439890790577`*^9, 
   3.5795798372747498`*^9, 3.579580044181732*^9, 3.579580381444313*^9, {
   3.579592510491967*^9, 3.579592536546259*^9}, 3.579592590208592*^9, 
   3.579592708359777*^9, 3.5795944933253403`*^9, 3.579594564512615*^9, 
   3.579595461840765*^9, 3.5795957323353157`*^9, 3.57959921585903*^9, 
   3.579599983939945*^9, 3.579600698922448*^9, 3.579605912404235*^9, 
   3.5796063120910587`*^9, 3.579606459356874*^9, 3.5796087825947437`*^9, 
   3.579609132580268*^9, 3.5796093052741203`*^9, 3.57976470978084*^9, 
   3.579764858430361*^9, 3.579765178794323*^9, 3.57976559249448*^9, 
   3.5797673352274303`*^9, 3.5797705150852833`*^9, 3.579771857942809*^9, 
   3.579772253067027*^9, 3.579772874657702*^9, 3.57977303102221*^9, 
   3.5797731280541563`*^9, 3.579773478797687*^9, 3.579775163369293*^9, 
   3.5797752058287086`*^9, 3.57977567108652*^9, 3.579776076330688*^9, 
   3.579779034448839*^9, 3.579953776110952*^9, 3.5800532833299294`*^9, 
   3.580069385139514*^9, 3.5801160033896103`*^9, 3.5801270985084133`*^9, 
   3.580140763667358*^9, 3.580140854951489*^9, 3.5801436065745687`*^9, 
   3.580277959531026*^9, 3.580278353712617*^9, 3.580730313951734*^9, 
   3.580788726282175*^9, 3.581151118759831*^9, 3.581151242742681*^9, 
   3.581152695187685*^9, 3.581391547783867*^9, 3.5819248220873623`*^9, 
   3.581956200547022*^9, 3.581956808027287*^9, 3.5819573568258953`*^9, 
   3.581959949779924*^9, 3.5819600698582973`*^9, 3.581960434590064*^9, 
   3.583279508657537*^9, 3.583645099422858*^9, 3.583654945788978*^9, 
   3.583655441069084*^9, 3.583655699521132*^9, 3.583656759092362*^9, 
   3.583657136793429*^9, 3.583657196643655*^9, 3.591006128455742*^9, 
   3.591006265460855*^9, 3.591007726583241*^9, 3.595329826591722*^9, 
   3.5953388663365707`*^9, 3.595589685744636*^9, 3.5955909136452*^9, 
   3.595591812197258*^9, 3.59559367500727*^9, 3.595655228344956*^9, 
   3.595655759244561*^9, 3.595758733420156*^9, 3.595774266779652*^9, 
   3.595774992786254*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CheckHermiticity", "[", "LagHC", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.579767339384638*^9, 3.579767354035263*^9}, {
   3.5797705186463737`*^9, 3.5797705200464497`*^9}, 3.5797751925371647`*^9, {
   3.581151245902598*^9, 3.5811512470771513`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
contained in L-HC[L].\"\>"], "Print",
 CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9, 
  3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9, 
  3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9, 
  3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9, 
  3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9, 
  3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9, 
  3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9, 
  3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9, 
  3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9, 
  3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9, 
  3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9, 
  3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9, 
  3.5957742784099903`*^9, 3.5957749982134438`*^9}],

Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
should be zero.\"\>"], "Print",
 CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9, 
  3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9, 
  3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9, 
  3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9, 
  3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9, 
  3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9, 
  3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9, 
  3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9, 
  3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9, 
  3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9, 
  3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9, 
  3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9, 
  3.5957742784099903`*^9, 3.595774998253516*^9}],

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9, 
  3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9, 
  3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9, 
  3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9, 
  3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9, 
  3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9, 
  3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9, 
  3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9, 
  3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9, 
  3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9, 
  3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9, 
  3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9, 
  3.5957742784099903`*^9, 3.5957751244696903`*^9}],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9, 
  3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9, 
  3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9, 
  3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9, 
  3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9, 
  3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9, 
  3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9, 
  3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9, 
  3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9, 
  3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9, 
  3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9, 
  3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9, 
  3.5957742784099903`*^9, 3.595775124488041*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9, 
  3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9, 
  3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9, 
  3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9, 
  3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9, 
  3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9, 
  3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9, 
  3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9, 
  3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9, 
  3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9, 
  3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9, 
  3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9, 
  3.5957742784099903`*^9, 3.59577512449396*^9}],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9, 
  3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9, 
  3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9, 
  3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9, 
  3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9, 
  3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9, 
  3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9, 
  3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9, 
  3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9, 
  3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9, 
  3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9, 
  3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9, 
  3.5957742784099903`*^9, 3.5957751257934313`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  1, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 1, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9, 
  3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9, 
  3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9, 
  3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9, 
  3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9, 
  3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9, 
  3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9, 
  3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9, 
  3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9, 
  3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9, 
  3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9, 
  3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9, 
  3.5957742784099903`*^9, 3.595775125849351*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[0, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9, 
  3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9, 
  3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9, 
  3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9, 
  3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9, 
  3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9, 
  3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9, 
  3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9, 
  3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9, 
  3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9, 
  3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9, 
  3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9, 
  3.5957742784099903`*^9, 3.595775125970456*^9}],

Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
 CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9, 
  3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9, 
  3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9, 
  3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9, 
  3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9, 
  3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9, 
  3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9, 
  3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9, 
  3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9, 
  3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9, 
  3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9, 
  3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9, 
  3.5957742784099903`*^9, 3.595775125976619*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynmanRules", "[", 
   RowBox[{"LagHC", ",", 
    RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.5811514216342487`*^9, 3.581151429564769*^9}, {
  3.58115146580645*^9, 3.581151480344983*^9}, {3.5811529367166033`*^9, 
  3.581152943600583*^9}, {3.581159363565619*^9, 3.581159365371764*^9}, {
  3.581159413678952*^9, 3.581159413740821*^9}, {3.5811596210852633`*^9, 
  3.581159623574592*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Starting Feynman rule calculation.\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159629870883*^9}],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex...\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115968449856*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"139\"\>", 
   "\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
  SequenceForm["Found ", "139", " possible non zero vertices."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159685833336*^9}],

Cell[BoxData["\<\"Start calculating vertices...\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159685837291*^9}],

Cell[BoxData[
 ProgressIndicatorBox[Dynamic[PRIVATE`progress$13502]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159685842091*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"139", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[139, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746795643*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746800058*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "1"}],
  SequenceForm["Vertex ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746804309*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746808688*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746813032*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746817502*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746821657*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "\[ImaginaryI]"}], " ", 
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Haa"], " ", 
   SubscriptBox["\[Kappa]", "Haa"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", 
    SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "Aaa"], " ", 
   SubscriptBox["\[Kappa]", "Aaa"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11", ",", "mu$21"}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", "mu$21"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "Aaa"], " ", 
   SubscriptBox["\[Kappa]", "Aaa"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11", ",", "mu$21"}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", "mu$11"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", "mu$21"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Haa"], " ", 
   SubscriptBox["\[Kappa]", "Haa"], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
   RowBox[{
    SubscriptBox["\<\"p\"\>", "1"], ".", 
    SubscriptBox["p", "2"]}]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974682719*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597468313704`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "2"}],
  SequenceForm["Vertex ", 2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746835411*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597468395853`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746843647*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746847625*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597468517227`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "\[ImaginaryI]"}], " ", 
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", 
    SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"]}]]}], "+", 
  RowBox[{
   FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "Agg"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",", "\[Beta]1"}]],
    " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", "\[Beta]1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", "\[Alpha]1"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"]}]]}], "+", 
  RowBox[{
   FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "Agg"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",", 
     "\[Delta]1"}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", "\[Delta]1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", "\[Alpha]1"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"]}]]}], "-", 
  RowBox[{
   FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "Agg"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",", "\[Beta]1"}]],
    " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", "\[Alpha]1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", "\[Beta]1"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"]}]]}], "-", 
  RowBox[{
   FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "Agg"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Gamma]1", ",", "\[Beta]1"}]],
    " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", "\[Gamma]1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", "\[Beta]1"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"]}]]}], "+", 
  RowBox[{
   FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "Agg"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Gamma]1", ",", "\[Beta]1"}]],
    " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", "\[Beta]1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", "\[Gamma]1"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"]}]]}], "+", 
  RowBox[{
   FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "Agg"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Gamma]1", ",", 
     "\[Delta]1"}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", "\[Delta]1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", "\[Gamma]1"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"]}]]}], "-", 
  RowBox[{
   FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "Agg"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",", 
     "\[Delta]1"}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", "\[Alpha]1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", "\[Delta]1"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"]}]]}], "-", 
  RowBox[{
   FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "Agg"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Gamma]1", ",", 
     "\[Delta]1"}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", "\[Gamma]1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", "\[Delta]1"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"]}]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
   RowBox[{
    SubscriptBox["\<\"p\"\>", "1"], ".", 
    SubscriptBox["p", "2"]}]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974686061*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974686405*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "3"}],
  SequenceForm["Vertex ", 3],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746867771*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597468713427`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746875073*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746879182*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746883519*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "a"], " ", 
     SubscriptBox["\[Kappa]", "Hdw"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]]}], "\[CapitalLambda]"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hww"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hdw"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "Aww"], " ", 
    SubscriptBox["s", "a"], " ", 
    SubscriptBox["\[Epsilon]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11", ",", "mu$21"}]], " ", 
    
    SubsuperscriptBox["\<\"p\"\>", "1", "mu$21"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "\[CapitalLambda]"], "+", 
  
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SuperscriptBox["e", "2"], " ", 
    SubscriptBox["\[Kappa]", "SM"], " ", "vev", " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SubsuperscriptBox["s", "w", "2"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hdw"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "1"], ".", 
     SubscriptBox["p", "1"]}]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hww"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "1"], ".", 
     SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hdw"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "2"], ".", 
     SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597468887167`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746894627*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "4"}],
  SequenceForm["Vertex ", 4],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597468991537`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974690362*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 2, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746908063*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746912528*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746917213*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "a"], " ", 
     SubscriptBox["\[Kappa]", "Hda"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "\[CapitalLambda]"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hza"], " ", 
   SubscriptBox["\[Kappa]", "Hza"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["g", "Aza"], " ", 
   SubscriptBox["\[Kappa]", "Aza"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11", ",", "mu$21"}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", "mu$21"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hda"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "1"], ".", 
     SubscriptBox["p", "1"]}]}], "\[CapitalLambda]"], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hza"], " ", 
   SubscriptBox["\[Kappa]", "Hza"], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
   RowBox[{
    SubscriptBox["\<\"p\"\>", "1"], ".", 
    SubscriptBox["p", "3"]}]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597469220533`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746927601*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "5"}],
  SequenceForm["Vertex ", 5],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974693218*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 1, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597469367123`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746941125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746945616*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597469499807`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "a"], " ", 
     SubscriptBox["\[Kappa]", "Hdz"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "2", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
     SubsuperscriptBox["\<\"p\"\>", "2", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "\[CapitalLambda]"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hzz"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hdz"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "Azz"], " ", 
    SubscriptBox["s", "a"], " ", 
    SubscriptBox["\[Epsilon]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11", ",", "mu$21"}]], " ", 
    
    SubsuperscriptBox["\<\"p\"\>", "2", "mu$21"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "Azz"], " ", 
    SubscriptBox["s", "a"], " ", 
    SubscriptBox["\[Epsilon]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11", ",", "mu$21"}]], " ", 
    
    SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", "mu$21"]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["c", "a"], " ", 
   SuperscriptBox["e", "2"], " ", 
   SubscriptBox["\[Kappa]", "SM"], " ", "vev", " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubsuperscriptBox["c", "w", "2"], " ", 
    SuperscriptBox["e", "2"], " ", 
    SubscriptBox["\[Kappa]", "SM"], " ", "vev", " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], 
   RowBox[{"2", " ", 
    SubsuperscriptBox["s", "w", "2"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SuperscriptBox["e", "2"], " ", 
    SubscriptBox["\[Kappa]", "SM"], " ", 
    SubsuperscriptBox["s", "w", "2"], " ", "vev", " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], 
   RowBox[{"2", " ", 
    SubsuperscriptBox["c", "w", "2"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hdz"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "2"], ".", 
     SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hzz"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "2"], ".", 
     SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hdz"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "3"], ".", 
     SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746955433*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974696201*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "6"}],
  SequenceForm["Vertex ", 6],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597469666367`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974697122*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["ghG", "\[Dagger]"]}],
  SequenceForm["Particle ", 2, " : ", "Scalar", " , ", $CellContext`ghGbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746975525*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ghG"}],
  SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`ghG],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746980186*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746984281*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "+", 
  RowBox[{
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746988553*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597469938583`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "7"}],
  SequenceForm["Vertex ", 7],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159746997982*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597470020447`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747007202*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747011444*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597470155163`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-", 
  RowBox[{
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-", 
  RowBox[{
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", 
    SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-", 
  RowBox[{
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597470198593`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747025696*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "8"}],
  SequenceForm["Vertex ", 8],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747029901*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747036425*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747041359*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747045637*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597470505342`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747054731*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "3"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "3"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597470598173`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747066896*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "9"}],
  SequenceForm["Vertex ", 9],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747071403*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747075747*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747080346*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747084772*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 4, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747089181*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597470934343`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["g", "Agg"], " ", 
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", "mu$11"]}], "+", 
  RowBox[{
   SubscriptBox["g", "Agg"], " ", 
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "+", 
  RowBox[{
   SubscriptBox["g", "Agg"], " ", 
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}], "+", 
  RowBox[{
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-", 
  RowBox[{
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-", 
  RowBox[{
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", 
    SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-", 
  RowBox[{
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubscriptBox["g", "s"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597471143837`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747121714*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "10"}],
  SequenceForm["Vertex ", 10],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747125943*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747134646*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747150731*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747319437*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747323792*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 5, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747328158*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747332593*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "\[ImaginaryI]"}], " ", 
   SubscriptBox["g", "Agg"], " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["g", "Agg"], " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["g", "Agg"], " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["\[Kappa]", "Agg"], " ", 
   SubscriptBox["s", "a"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "3"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "3"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "3"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["c", "a"], " ", 
   SubscriptBox["g", "Hgg"], " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["\[Kappa]", "Hgg"], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "1"], ",", 
     SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["f", 
    RowBox[{
     SubscriptBox["\<\"a\"\>", "2"], ",", 
     SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747338441*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974735032*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "11"}],
  SequenceForm["Vertex ", 11],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974735434*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597473581142`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["b", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974737466*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747381386*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597473859997`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SubscriptBox["\[Kappa]", "Abb"], " ", "MB", " ", 
    SubscriptBox["s", "a"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], "5"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], "vev"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hbb"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"y","d"},
       "Superscript"], ")"}], 
     RowBox[{"3", ",", "3"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     SubscriptBox["P", "\<\"-\"\>"], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   SqrtBox["2"]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hbb"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     SubscriptBox["P", "\<\"+\"\>"], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]], " ", 
    SubscriptBox[
     TemplateBox[{"y","d"},
      "Superscript"], 
     RowBox[{"3", ",", "3"}]]}], 
   SqrtBox["2"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747391428*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597473978643`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "12"}],
  SequenceForm["Vertex ", 12],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747402664*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747406969*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ta", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747411677*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747416778*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597474217587`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SubscriptBox["\[Kappa]", "All"], " ", "MTA", " ", 
    SubscriptBox["s", "a"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], "5"]}], "vev"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hll"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"y","l"},
       "Superscript"], ")"}], 
     RowBox[{"3", ",", "3"}], "\<\"*\"\>"], " ", 
    SubscriptBox[
     SubscriptBox["P", "\<\"-\"\>"], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   SqrtBox["2"]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Hll"], " ", 
    SubscriptBox[
     SubscriptBox["P", "\<\"+\"\>"], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]], " ", 
    SubscriptBox[
     TemplateBox[{"y","l"},
      "Superscript"], 
     RowBox[{"3", ",", "3"}]]}], 
   SqrtBox["2"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747427003*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974743258*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "13"}],
  SequenceForm["Vertex ", 13],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974743717*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597474426126`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["t", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747447309*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747452277*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597474566402`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SubscriptBox["\[Kappa]", "Att"], " ", "MT", " ", 
    SubscriptBox["s", "a"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], "5"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], "vev"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Htt"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"y","u"},
       "Superscript"], ")"}], 
     RowBox[{"3", ",", "3"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     SubscriptBox["P", "\<\"-\"\>"], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   SqrtBox["2"]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "a"], " ", 
    SubscriptBox["\[Kappa]", "Htt"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     SubscriptBox["P", "\<\"+\"\>"], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]], " ", 
    SubscriptBox[
     TemplateBox[{"y","u"},
      "Superscript"], 
     RowBox[{"3", ",", "3"}]]}], 
   SqrtBox["2"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747462173*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747467955*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "14"}],
  SequenceForm["Vertex ", 14],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747472177*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597474763927`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["b", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597474822893`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747487668*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747495528*^9}],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", 
  SubscriptBox["g", "s"], " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "2"], ",", 
    SubscriptBox["\<\"s\"\>", "1"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
  SubsuperscriptBox["T", 
   RowBox[{
    SubscriptBox["\<\"m\"\>", "2"], ",", 
    SubscriptBox["\<\"m\"\>", "1"]}], 
   SubscriptBox["\<\"a\"\>", "3"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597475013733`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747506775*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "15"}],
  SequenceForm["Vertex ", 15],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747515459*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974752065*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["d", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597475258636`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747531062*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747534914*^9}],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", 
  SubscriptBox["g", "s"], " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "2"], ",", 
    SubscriptBox["\<\"s\"\>", "1"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
  SubsuperscriptBox["T", 
   RowBox[{
    SubscriptBox["\<\"m\"\>", "2"], ",", 
    SubscriptBox["\<\"m\"\>", "1"]}], 
   SubscriptBox["\<\"a\"\>", "3"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747539673*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747545939*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "16"}],
  SequenceForm["Vertex ", 16],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747550284*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747554646*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747560543*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["s", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747572665*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974757755*^9}],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", 
  SubscriptBox["g", "s"], " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "3"], ",", 
    SubscriptBox["\<\"s\"\>", "2"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
  SubsuperscriptBox["T", 
   RowBox[{
    SubscriptBox["\<\"m\"\>", "3"], ",", 
    SubscriptBox["\<\"m\"\>", "2"]}], 
   SubscriptBox["\<\"a\"\>", "1"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597475827093`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747593952*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "17"}],
  SequenceForm["Vertex ", 17],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747601626*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597476057873`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["c", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747611032*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747615642*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747620447*^9}],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", 
  SubscriptBox["g", "s"], " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "2"], ",", 
    SubscriptBox["\<\"s\"\>", "1"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
  SubsuperscriptBox["T", 
   RowBox[{
    SubscriptBox["\<\"m\"\>", "2"], ",", 
    SubscriptBox["\<\"m\"\>", "1"]}], 
   SubscriptBox["\<\"a\"\>", "3"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597476263742`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747630959*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "18"}],
  SequenceForm["Vertex ", 18],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597476351757`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747640018*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747644957*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["t", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747653171*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747657748*^9}],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", 
  SubscriptBox["g", "s"], " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "3"], ",", 
    SubscriptBox["\<\"s\"\>", "2"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
  SubsuperscriptBox["T", 
   RowBox[{
    SubscriptBox["\<\"m\"\>", "3"], ",", 
    SubscriptBox["\<\"m\"\>", "2"]}], 
   SubscriptBox["\<\"a\"\>", "1"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597476620502`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747666419*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "19"}],
  SequenceForm["Vertex ", 19],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747671567*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597476766977`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747681163*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["u", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747709982*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747714191*^9}],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", 
  SubscriptBox["g", "s"], " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "3"], ",", 
    SubscriptBox["\<\"s\"\>", "2"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
  SubsuperscriptBox["T", 
   RowBox[{
    SubscriptBox["\<\"m\"\>", "3"], ",", 
    SubscriptBox["\<\"m\"\>", "2"]}], 
   SubscriptBox["\<\"a\"\>", "1"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747718296*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597477231827`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "20"}],
  SequenceForm["Vertex ", 20],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597477280273`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597477330008`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747737774*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597477422123`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597477463427`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", 
    SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747750716*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747755525*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "21"}],
  SequenceForm["Vertex ", 21],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747759865*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747764269*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747768849*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974777348*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 4, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747777966*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747782226*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", 
   SubsuperscriptBox["c", "a", "2"], " ", 
   SuperscriptBox["e", "2"], " ", 
   SubscriptBox["\[Kappa]", "SM"], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], 
  RowBox[{"2", " ", 
   SubsuperscriptBox["s", "w", "2"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597477865868`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597477910137`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "22"}],
  SequenceForm["Vertex ", 22],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747795445*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747799802*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747804267*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747808776*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747813299*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974781769*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["e", "2"], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["e", "2"], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   SuperscriptBox["e", "2"], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597478222713`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747827116*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "23"}],
  SequenceForm["Vertex ", 23],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747831627*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747835994*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747840494*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597478449697`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597478492737`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SubscriptBox["\[Kappa]", "w5"]}], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11"}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", "mu$11"]}], "+", 
  RowBox[{
   SubscriptBox["\[Kappa]", "w5"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11"}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["\[Kappa]", "w4"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11"}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["g", "wwz"], " ", 
   SubscriptBox["\[Kappa]", "w1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["g", "wwz"], " ", 
   SubscriptBox["\[Kappa]", "w1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["g", "wwz"], " ", 
   SubscriptBox["\[Kappa]", "w1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "1", 
    SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["g", "wwz"], " ", 
   SubscriptBox["\[Kappa]", "w2"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-", 
  RowBox[{
   SubscriptBox["\[Kappa]", "w3"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["g", "wwz"], " ", 
   SubscriptBox["\[Kappa]", "w1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["g", "wwz"], " ", 
   SubscriptBox["\[Kappa]", "w2"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-", 
  RowBox[{
   SubscriptBox["\[Kappa]", "w3"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747854433*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747860819*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "24"}],
  SequenceForm["Vertex ", 24],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747865251*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747869482*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597478738337`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974787816*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747882481*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", "e", " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], 
    SubscriptBox["s", "w"]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], 
   SubscriptBox["s", "w"]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], 
   SubscriptBox["s", "w"]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], 
   SubscriptBox["s", "w"]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], 
   SubscriptBox["s", "w"]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], 
   SubscriptBox["s", "w"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597478872747`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747893166*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "25"}],
  SequenceForm["Vertex ", 25],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747901907*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597479064713`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747910695*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597479150343`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747920347*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974792479*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["e", "2"], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], 
    SubsuperscriptBox["s", "w", "2"]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["e", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], 
   SubsuperscriptBox["s", "w", "2"]], "+", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
    SuperscriptBox["e", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], 
   SubsuperscriptBox["s", "w", "2"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747930333*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747935541*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "26"}],
  SequenceForm["Vertex ", 26],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747940323*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747945126*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["b", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597479503517`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747954955*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747959401*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["a", "d"], " ", 
   SubscriptBox["\[Kappa]", "ffa"], " ", 
   SubsuperscriptBox["\[Gamma]", 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}], 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["b", "d"], " ", 
   SubscriptBox["\[Kappa]", "ffb"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SuperscriptBox["\[Gamma]", "5"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597479637957`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597479683332`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "27"}],
  SequenceForm["Vertex ", 27],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747972917*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597479774227`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["c", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597479821377`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747986546*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159747990971*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", "au", " ", 
   SubscriptBox["\[Kappa]", "ffa"], " ", 
   SubsuperscriptBox["\[Gamma]", 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}], 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["b", "u"], " ", 
   SubscriptBox["\[Kappa]", "ffb"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SuperscriptBox["\[Gamma]", "5"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597479955063`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748000359*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "28"}],
  SequenceForm["Vertex ", 28],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748005156*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748009522*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["d", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597480139847`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597480185633`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748023027*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["a", "d"], " ", 
   SubscriptBox["\[Kappa]", "ffa"], " ", 
   SubsuperscriptBox["\[Gamma]", 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}], 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["b", "d"], " ", 
   SubscriptBox["\[Kappa]", "ffb"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SuperscriptBox["\[Gamma]", "5"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748028042*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597480327797`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "29"}],
  SequenceForm["Vertex ", 29],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748037952*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748042192*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["e", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748047283*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748051461*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748055236*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["a", "l"], " ", 
   SubscriptBox["\[Kappa]", "ffa"], " ", 
   SubsuperscriptBox["\[Gamma]", 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}], 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["b", "l"], " ", 
   SubscriptBox["\[Kappa]", "ffb"], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SuperscriptBox["\[Gamma]", "5"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597480599537`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748064395*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "30"}],
  SequenceForm["Vertex ", 30],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597480908957`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597480950336`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["mu", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`mubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597480993958`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748103437*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597481074057`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["a", "l"], " ", 
   SubscriptBox["\[Kappa]", "ffa"], " ", 
   SubsuperscriptBox["\[Gamma]", 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}], 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["b", "l"], " ", 
   SubscriptBox["\[Kappa]", "ffb"], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SuperscriptBox["\[Gamma]", "5"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597481113787`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597481156473`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "31"}],
  SequenceForm["Vertex ", 31],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748119677*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597481239*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["s", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748127965*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748131868*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597481362753`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["a", "d"], " ", 
   SubscriptBox["\[Kappa]", "ffa"], " ", 
   SubsuperscriptBox["\[Gamma]", 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}], 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["b", "d"], " ", 
   SubscriptBox["\[Kappa]", "ffb"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SuperscriptBox["\[Gamma]", "5"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597481409483`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748145834*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "32"}],
  SequenceForm["Vertex ", 32],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748150467*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974815481*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ta", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748159151*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597481632137`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748167383*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["a", "l"], " ", 
   SubscriptBox["\[Kappa]", "ffa"], " ", 
   SubsuperscriptBox["\[Gamma]", 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}], 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["b", "l"], " ", 
   SubscriptBox["\[Kappa]", "ffb"], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SuperscriptBox["\[Gamma]", "5"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748171596*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597481767483`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "33"}],
  SequenceForm["Vertex ", 33],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748181238*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748185467*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["t", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748190037*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597481941853`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597481982927`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", "au", " ", 
   SubscriptBox["\[Kappa]", "ffa"], " ", 
   SubsuperscriptBox["\[Gamma]", 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}], 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["b", "u"], " ", 
   SubscriptBox["\[Kappa]", "ffb"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SuperscriptBox["\[Gamma]", "5"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597482029963`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748207613*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "34"}],
  SequenceForm["Vertex ", 34],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748211823*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748216073*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["u", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597482206373`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748225881*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748231205*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", "au", " ", 
   SubscriptBox["\[Kappa]", "ffa"], " ", 
   SubsuperscriptBox["\[Gamma]", 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}], 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["b", "u"], " ", 
   SubscriptBox["\[Kappa]", "ffb"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SuperscriptBox["\[Gamma]", "5"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597482361517`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748241089*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "35"}],
  SequenceForm["Vertex ", 35],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597482455673`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ve],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748249617*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ve", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748254404*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748259688*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748264234*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", "an", " ", 
   SubscriptBox["\[Kappa]", "ffa"], " ", 
   SubsuperscriptBox["\[Gamma]", 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}], 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["b", "n"], " ", 
   SubscriptBox["\[Kappa]", "ffb"], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SuperscriptBox["\[Gamma]", "5"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597482691593`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748274413*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "36"}],
  SequenceForm["Vertex ", 36],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748279188*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vm],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748284444*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["vm", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597482894087`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748294428*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748299429*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", "an", " ", 
   SubscriptBox["\[Kappa]", "ffa"], " ", 
   SubsuperscriptBox["\[Gamma]", 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}], 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["b", "n"], " ", 
   SubscriptBox["\[Kappa]", "ffb"], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SuperscriptBox["\[Gamma]", "5"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748304678*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748311204*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "37"}],
  SequenceForm["Vertex ", 37],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748317594*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vt],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748322857*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["vt", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748328124*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748333761*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748339045*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", "an", " ", 
   SubscriptBox["\[Kappa]", "ffa"], " ", 
   SubsuperscriptBox["\[Gamma]", 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}], 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["b", "n"], " ", 
   SubscriptBox["\[Kappa]", "ffb"], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SuperscriptBox["\[Gamma]", "5"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748344936*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748350876*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "38"}],
  SequenceForm["Vertex ", 38],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748356264*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748361575*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748367374*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597483724833`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748377913*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "a"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\<\"p\"\>", "2", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"4", " ", "\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "1"], ".", 
     SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "1"], ".", 
     SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "a"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "1"], ".", 
     SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974838443*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748393256*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "39"}],
  SequenceForm["Vertex ", 39],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748397698*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748402405*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748407222*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748412072*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597484168367`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "g"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\<\"p\"\>", "2", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]], " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"a\"\>", "1"], ",", 
       SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"4", " ", "\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "1"], ".", 
     SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "1"], ".", 
     SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "1"], ".", 
     SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597484237022`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597484342823`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "40"}],
  SequenceForm["Vertex ", 40],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748439048*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597484437428`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597484486227`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748478456*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974848346*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "w"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\<\"p\"\>", "2", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "w"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "w"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "w"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "w"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "w"], " ", 
    SubsuperscriptBox["M", "W", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "w"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "w"], " ", 
    SubsuperscriptBox["M", "W", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "w"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "w"], " ", 
    SubsuperscriptBox["M", "W", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "1"], ".", 
     SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "1"], ".", 
     SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "1"], ".", 
     SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748489787*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748498128*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "41"}],
  SequenceForm["Vertex ", 41],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748503084*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 1, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974850791*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748513166*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597485179462`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597485226507`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "z"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "2", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "2"}]]], " ", 
     SubsuperscriptBox["\<\"p\"\>", "3", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "1"}]]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "z"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"1", ",", "1"}]]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"1", ",", "2"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "z"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"1", ",", "2"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "z"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"1", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "z"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"1", ",", "2"}]]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "z"], " ", 
    SuperscriptBox["MZ", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "z"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"1", ",", "1"}]]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "z"], " ", 
    SuperscriptBox["MZ", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "z"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "z"], " ", 
    SuperscriptBox["MZ", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "z"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "1"}]]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "2"], ".", 
     SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "z"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "2"}]]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "2"], ".", 
     SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "z"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"1", ",", "2"}]]}]], " ", 
    RowBox[{
     SubscriptBox["\<\"p\"\>", "2"], ".", 
     SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597485287447`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748536928*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "42"}],
  SequenceForm["Vertex ", 42],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748541706*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748546483*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748551306*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748556196*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974856108*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748565803*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     SubscriptBox["g", "s"], " ", 
     SubscriptBox["\[Kappa]", "g"], " ", 
     SubscriptBox["f", 
      RowBox[{
       SubscriptBox["\<\"a\"\>", "1"], ",", 
       SubscriptBox["\<\"a\"\>", "2"], ",", 
       SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
     SubsuperscriptBox["\<\"p\"\>", "2", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]}]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"]}], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "2"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "2"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "2"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "2"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "2"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"]}]], " ", 
    SubsuperscriptBox["\<\"p\"\>", "3", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597485749397`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597485917397`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "43"}],
  SequenceForm["Vertex ", 43],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748596613*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748601349*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597486061277`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748610895*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748615778*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 5, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748620595*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748625334*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "3"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "3"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "3"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "3"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "3"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "3"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "3"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "3"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "3"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "3"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["g", "s", "2"], " ", 
    SubscriptBox["\[Kappa]", "g"], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "1"], ",", 
      SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["f", 
     RowBox[{
      SubscriptBox["\<\"a\"\>", "2"], ",", 
      SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597486458473`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748688223*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "44"}],
  SequenceForm["Vertex ", 44],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748694454*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748699162*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["b", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748705668*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748710792*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748724504*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]], " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "1"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}]]}], 
    RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", "MB", " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "1"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "2"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748730384*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748737555*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "45"}],
  SequenceForm["Vertex ", 45],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748742529*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748747438*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["d", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748752425*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597487574453`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748762434*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]], " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "1"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}]]}], 
    RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "1"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "2"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597487681303`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748775063*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "46"}],
  SequenceForm["Vertex ", 46],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748780126*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748785063*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["s", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748790512*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748795686*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597488022003`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]], " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "1"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}]]}], 
    RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "1"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "2"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748808201*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748815176*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "47"}],
  SequenceForm["Vertex ", 47],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748820221*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748825178*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["e", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748830227*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748835208*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748840168*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "l"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]]}], 
    RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "1"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "2"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748846011*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748852489*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "48"}],
  SequenceForm["Vertex ", 48],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748857664*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974886259*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["mu", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`mubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748892434*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748897635*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748903089*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "l"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]]}], 
    RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "1"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "2"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748909431*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974891601*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "49"}],
  SequenceForm["Vertex ", 49],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597489212523`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597489267063`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ta", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597489315147`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748936702*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748941957*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "l"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]]}], 
    RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", "MTA", " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "1"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "2"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748947865*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748954466*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "50"}],
  SequenceForm["Vertex ", 50],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597489585857`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748962462*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["c", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748966446*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974897044*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748974353*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]], " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "1"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}]]}], 
    RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "1"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "2"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748979004*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748984864*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "51"}],
  SequenceForm["Vertex ", 51],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748988859*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597489928417`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["t", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159748996829*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749000778*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749004755*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]], " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "1"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}]]}], 
    RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", "MT", " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "1"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "2"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749009512*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749015613*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "52"}],
  SequenceForm["Vertex ", 52],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749019598*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749023573*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["u", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749027534*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749031636*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749035553*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]], " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "1"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}]]}], 
    RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "1"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "2"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597490401773`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974904597*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "53"}],
  SequenceForm["Vertex ", 53],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749050153*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ve],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749054553*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ve", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749058736*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749062809*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597490672407`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "l"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]]}], 
    RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "1"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "2"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974907207*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749079256*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "54"}],
  SequenceForm["Vertex ", 54],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749084635*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vm],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749089931*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["vm", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597490943623`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749098942*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749102995*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "l"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]]}], 
    RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "1"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "2"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749107958*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597491135387`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "55"}],
  SequenceForm["Vertex ", 55],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597491177807`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vt],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749121889*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["vt", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749125967*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749130176*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749134182*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Kappa]", "l"], " ", 
     SubsuperscriptBox["\<\"p\"\>", "1", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]]}], 
    RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "1", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubsuperscriptBox["\<\"p\"\>", "2", 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "1"}]]], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"3", ",", "2"}]]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "1"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{"\[Gamma]", ".", 
      SubscriptBox["\<\"p\"\>", "2"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597491387177`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749144433*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "56"}],
  SequenceForm["Vertex ", 56],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749148744*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974915285*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["c", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749157444*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749161512*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749165744*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749169764*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["g", "s"], " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]}]], " ", 
     SubsuperscriptBox["T", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "2"], ",", 
       SubscriptBox["\<\"m\"\>", "1"]}], 
      SubscriptBox["\<\"a\"\>", "3"]]}], 
    RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubsuperscriptBox["T", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "1"]}], 
     SubscriptBox["\<\"a\"\>", "3"]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubsuperscriptBox["T", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "1"]}], 
     SubscriptBox["\<\"a\"\>", "3"]]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749174347*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974917983*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "57"}],
  SequenceForm["Vertex ", 57],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597491859426`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749191979*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749197556*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["t", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749203784*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597492092857`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597492147503`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["g", "s"], " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "3"], ",", 
       SubscriptBox["\<\"s\"\>", "2"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]}]], " ", 
     SubsuperscriptBox["T", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "3"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}], 
      SubscriptBox["\<\"a\"\>", "1"]]}], 
    RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubsuperscriptBox["T", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "3"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}], 
     SubscriptBox["\<\"a\"\>", "1"]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubsuperscriptBox["T", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "3"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}], 
     SubscriptBox["\<\"a\"\>", "1"]]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597492202187`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749229089*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "58"}],
  SequenceForm["Vertex ", 58],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749234344*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597492399597`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749246365*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["u", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749284761*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749289731*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974929602*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["g", "s"], " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "3"], ",", 
       SubscriptBox["\<\"s\"\>", "2"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]}]], " ", 
     SubsuperscriptBox["T", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "3"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}], 
      SubscriptBox["\<\"a\"\>", "1"]]}], 
    RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubsuperscriptBox["T", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "3"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}], 
     SubscriptBox["\<\"a\"\>", "1"]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubsuperscriptBox["T", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "3"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}], 
     SubscriptBox["\<\"a\"\>", "1"]]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749302363*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974931157*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "59"}],
  SequenceForm["Vertex ", 59],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597493177023`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749322588*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["b", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749328846*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749336534*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749342958*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597493486767`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["g", "s"], " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]}]], " ", 
     SubsuperscriptBox["T", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "2"], ",", 
       SubscriptBox["\<\"m\"\>", "1"]}], 
      SubscriptBox["\<\"a\"\>", "3"]]}], 
    RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubsuperscriptBox["T", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "1"]}], 
     SubscriptBox["\<\"a\"\>", "3"]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubsuperscriptBox["T", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "1"]}], 
     SubscriptBox["\<\"a\"\>", "3"]]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749354307*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597493633127`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "60"}],
  SequenceForm["Vertex ", 60],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597493691483`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749374257*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["d", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749380012*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597493861427`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597493926687`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749398018*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["g", "s"], " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]}]], " ", 
     SubsuperscriptBox["T", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "2"], ",", 
       SubscriptBox["\<\"m\"\>", "1"]}], 
      SubscriptBox["\<\"a\"\>", "3"]]}], 
    RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubsuperscriptBox["T", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "1"]}], 
     SubscriptBox["\<\"a\"\>", "3"]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubsuperscriptBox["T", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "1"]}], 
     SubscriptBox["\<\"a\"\>", "3"]]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974940347*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749409466*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "61"}],
  SequenceForm["Vertex ", 61],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974941367*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749418545*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749423143*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["s", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597494274883`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597494318447`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749436059*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["g", "s"], " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubsuperscriptBox["\[Gamma]", 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "3"], ",", 
       SubscriptBox["\<\"s\"\>", "2"]}], 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]}]], " ", 
     SubsuperscriptBox["T", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "3"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}], 
      SubscriptBox["\<\"a\"\>", "1"]]}], 
    RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", 
      RowBox[{"4", ",", "1"}]]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubsuperscriptBox["T", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "3"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}], 
     SubscriptBox["\<\"a\"\>", "1"]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox["\[Gamma]", 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}], 
     SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubsuperscriptBox["T", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "3"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}], 
     SubscriptBox["\<\"a\"\>", "1"]]}], "\[CapitalLambda]"]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749440455*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749445622*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "62"}],
  SequenceForm["Vertex ", 62],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974945019*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749454708*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749459753*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749464264*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597494690638`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749473524*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", 
     SuperscriptBox["e", "2"], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], 
    SubscriptBox["s", "w"]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", 
    SuperscriptBox["e", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], 
   SubscriptBox["s", "w"]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", 
    SuperscriptBox["e", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], 
   SubscriptBox["s", "w"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749479088*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749484932*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "63"}],
  SequenceForm["Vertex ", 63],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749489547*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`X1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749494001*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749499135*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749503717*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749508576*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["\[Kappa]", "z5"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "-", 
  RowBox[{
   SubscriptBox["\[Kappa]", "z5"], " ", 
   SubscriptBox["\[Epsilon]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}], "-", 
  RowBox[{
   SubscriptBox["\[Kappa]", "z1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-", 
  RowBox[{
   SubscriptBox["\[Kappa]", "z3"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", 
    SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-", 
  RowBox[{
   SubscriptBox["\[Kappa]", "z1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-", 
  RowBox[{
   SubscriptBox["\[Kappa]", "z3"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{
   SubscriptBox["\[Kappa]", "z1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "2", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+", 
  RowBox[{
   SubscriptBox["\[Kappa]", "z1"], " ", 
   SubsuperscriptBox["\<\"p\"\>", "3", 
    SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597495132427`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597495185633`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "64"}],
  SequenceForm["Vertex ", 64],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749522718*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 1, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749526729*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
  SequenceForm["Particle ", 2, " : ", "Scalar", " , ", $CellContext`X0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749531082*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749535388*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749539523*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749543545*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ImaginaryI]", " ", 
   SubsuperscriptBox["c", "a", "2"], " ", 
   SuperscriptBox["e", "2"], " ", 
   SubscriptBox["\[Kappa]", "SM"], " ", 
   SubscriptBox["\[Eta]", 
    RowBox[{
     SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
     SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["c", "a", "2"], " ", 
    SubsuperscriptBox["c", "w", "2"], " ", 
    SuperscriptBox["e", "2"], " ", 
    SubscriptBox["\[Kappa]", "SM"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], 
   RowBox[{"2", " ", 
    SubsuperscriptBox["s", "w", "2"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["c", "a", "2"], " ", 
    SuperscriptBox["e", "2"], " ", 
    SubscriptBox["\[Kappa]", "SM"], " ", 
    SubsuperscriptBox["s", "w", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], 
   RowBox[{"2", " ", 
    SubsuperscriptBox["c", "w", "2"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749547854*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749552376*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "65"}],
  SequenceForm["Vertex ", 65],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597495566883`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749560791*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749564972*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597495690527`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749573173*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749577325*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["c", "w", "2"], " ", 
    SuperscriptBox["e", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], 
   SubsuperscriptBox["s", "w", "2"]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubsuperscriptBox["c", "w", "2"], " ", 
    SuperscriptBox["e", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], 
   SubsuperscriptBox["s", "w", "2"]], "-", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
    SubsuperscriptBox["c", "w", "2"], " ", 
    SuperscriptBox["e", "2"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], 
   SubsuperscriptBox["s", "w", "2"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597495817223`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597495865793`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "66"}],
  SequenceForm["Vertex ", 66],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749590707*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749594844*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`b],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749599*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["b", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`bbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749603071*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749607307*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ", "e", " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "3"], ",", 
    SubscriptBox["\<\"s\"\>", "2"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
  SubscriptBox["\[Delta]", 
   RowBox[{
    SubscriptBox["\<\"m\"\>", "2"], ",", 
    SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749611396*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749615759*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "67"}],
  SequenceForm["Vertex ", 67],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597496198673`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597496239557`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974962807*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["d", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`dbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749632379*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749636598*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ", "e", " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "3"], ",", 
    SubscriptBox["\<\"s\"\>", "2"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
  SubscriptBox["\[Delta]", 
   RowBox[{
    SubscriptBox["\<\"m\"\>", "2"], ",", 
    SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749640788*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749645069*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "68"}],
  SequenceForm["Vertex ", 68],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597496493263`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597496765337`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974968089*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["s", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749685234*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749689323*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ", "e", " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "3"], ",", 
    SubscriptBox["\<\"s\"\>", "2"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
  SubscriptBox["\[Delta]", 
   RowBox[{
    SubscriptBox["\<\"m\"\>", "2"], ",", 
    SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749693384*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749697752*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "69"}],
  SequenceForm["Vertex ", 69],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597497019577`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597497060966`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`e],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597497103558`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["e", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749714554*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597497187347`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "3"], ",", 
    SubscriptBox["\<\"s\"\>", "2"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974972281*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749726983*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "70"}],
  SequenceForm["Vertex ", 70],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749731263*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749735463*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`mu],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597497395897`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["mu", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`mubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749743737*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749747867*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "3"], ",", 
    SubscriptBox["\<\"s\"\>", "2"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749751861*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749756385*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "71"}],
  SequenceForm["Vertex ", 71],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597497616796`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749766398*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ta],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749771188*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ta", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tabar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749775742*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597497812643`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "3"], ",", 
    SubscriptBox["\<\"s\"\>", "2"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749786356*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749791419*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "72"}],
  SequenceForm["Vertex ", 72],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749796747*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597498017673`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`c],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597498065968`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["c", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`cbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597498124447`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749816957*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "e", " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "3"], ",", 
    SubscriptBox["\<\"s\"\>", "2"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
  SubscriptBox["\[Delta]", 
   RowBox[{
    SubscriptBox["\<\"m\"\>", "2"], ",", 
    SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749822379*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749829584*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "73"}],
  SequenceForm["Vertex ", 73],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749835251*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749841764*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749846349*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["t", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974985076*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749854989*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "e", " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "3"], ",", 
    SubscriptBox["\<\"s\"\>", "2"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
  SubscriptBox["\[Delta]", 
   RowBox[{
    SubscriptBox["\<\"m\"\>", "2"], ",", 
    SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749859404*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749863825*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "74"}],
  SequenceForm["Vertex ", 74],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749868062*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749872451*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597498769197`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["u", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597498813753`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749885841*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "e", " ", 
  SubsuperscriptBox["\[Gamma]", 
   RowBox[{
    SubscriptBox["\<\"s\"\>", "3"], ",", 
    SubscriptBox["\<\"s\"\>", "2"]}], 
   SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
  SubscriptBox["\[Delta]", 
   RowBox[{
    SubscriptBox["\<\"m\"\>", "2"], ",", 
    SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749890098*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974989454*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "75"}],
  SequenceForm["Vertex ", 75],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749898851*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["c", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749903048*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597499073677`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597499116983`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749915832*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubscriptBox[
    TemplateBox[{"V","CKM"},
     "Superscript"], 
    RowBox[{"2", ",", "1"}]], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597499201393`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115974992479*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "76"}],
  SequenceForm["Vertex ", 76],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597499291477`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["c", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749933468*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597499379053`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749943172*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749947497*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubscriptBox[
    TemplateBox[{"V","CKM"},
     "Superscript"], 
    RowBox[{"2", ",", "2"}]], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597499518213`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749956505*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "77"}],
  SequenceForm["Vertex ", 77],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597499610453`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749965356*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["t", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597499696283`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749973976*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749979101*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749984333*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159749990053*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "78"}],
  SequenceForm["Vertex ", 78],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597499955606`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597499999104`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["u", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750004272*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750008762*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750013061*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubscriptBox[
    TemplateBox[{"V","CKM"},
     "Superscript"], 
    RowBox[{"1", ",", "1"}]], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597500173883`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597500220222`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "79"}],
  SequenceForm["Vertex ", 79],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597500263023`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597500306787`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["u", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750058373*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750062883*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750067244*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubscriptBox[
    TemplateBox[{"V","CKM"},
     "Superscript"], 
    RowBox[{"1", ",", "2"}]], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597500719223`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597500771637`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "80"}],
  SequenceForm["Vertex ", 80],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597500815496`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750085987*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ve", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750090282*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750094572*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750098749*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750102907*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750107655*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "81"}],
  SequenceForm["Vertex ", 81],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750112425*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750116955*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["vm", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750121294*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597501262302`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975013093*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750135737*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750140381*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "82"}],
  SequenceForm["Vertex ", 82],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597501448107`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750149132*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["vt", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750153616*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750158181*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750162484*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750166739*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750171206*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "83"}],
  SequenceForm["Vertex ", 83],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975017549*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["e", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750179791*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ve],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750184346*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750188902*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750193244*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750197605*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975020205*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "84"}],
  SequenceForm["Vertex ", 84],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597502063923`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["mu", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`mubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975021087*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vm],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597502152843`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750219615*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750223919*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597502281427`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750232525*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "85"}],
  SequenceForm["Vertex ", 85],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597502372026`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ta", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tabar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975024154*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vt],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597502458973`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750250309*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750254648*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975025902*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750263503*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "86"}],
  SequenceForm["Vertex ", 86],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750267941*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["b", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750272429*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597502768097`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750281142*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597502856703`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975029016*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750294776*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "87"}],
  SequenceForm["Vertex ", 87],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750299302*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750303705*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["d", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975030816*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750312701*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750316985*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubsuperscriptBox[
    RowBox[{"(", 
     TemplateBox[{"V","CKM"},
      "Superscript"], ")"}], 
    RowBox[{"2", ",", "1"}], "\<\"*\"\>"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750321453*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975032627*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "88"}],
  SequenceForm["Vertex ", 88],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750330873*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["d", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`dbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750336061*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750341847*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750346573*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597503509207`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubsuperscriptBox[
    RowBox[{"(", 
     TemplateBox[{"V","CKM"},
      "Superscript"], ")"}], 
    RowBox[{"1", ",", "1"}], "\<\"*\"\>"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597503554163`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750361328*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "89"}],
  SequenceForm["Vertex ", 89],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750366247*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750370865*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["s", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750375567*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597503811607`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750385934*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubsuperscriptBox[
    RowBox[{"(", 
     TemplateBox[{"V","CKM"},
      "Superscript"], ")"}], 
    RowBox[{"2", ",", "2"}], "\<\"*\"\>"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "2"], ",", 
     SubscriptBox["\<\"s\"\>", "1"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750390564*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750395534*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "90"}],
  SequenceForm["Vertex ", 90],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597504001017`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["s", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`sbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750404489*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750409308*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750414115*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975044188*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubsuperscriptBox[
    RowBox[{"(", 
     TemplateBox[{"V","CKM"},
      "Superscript"], ")"}], 
    RowBox[{"1", ",", "2"}], "\<\"*\"\>"], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"m\"\>", "1"], ",", 
     SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     SuperscriptBox["\[Gamma]", 
      SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["s", "w"]}]]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750446529*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750451516*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "91"}],
  SequenceForm["Vertex ", 91],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750455988*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597504604053`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`b],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750464796*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["b", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`bbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750469158*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750473502*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975047775*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "e", " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "2"], ",", 
       SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "3"], ",", 
       SubscriptBox["\<\"s\"\>", "2"]}]]}], 
    RowBox[{"3", " ", "\[CapitalLambda]"}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"6", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"6", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"6", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"6", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597504828873`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750489628*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "92"}],
  SequenceForm["Vertex ", 92],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750494062*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750498438*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750502887*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["d", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`dbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750507255*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750511888*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750516334*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "e", " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "2"], ",", 
       SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "3"], ",", 
       SubscriptBox["\<\"s\"\>", "2"]}]]}], 
    RowBox[{"3", " ", "\[CapitalLambda]"}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"6", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"6", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"6", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"6", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750521618*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750528141*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "93"}],
  SequenceForm["Vertex ", 93],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597505326347`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975053717*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750541603*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["s", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597505461273`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750550605*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597505548983`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "e", " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "2"], ",", 
       SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "3"], ",", 
       SubscriptBox["\<\"s\"\>", "2"]}]]}], 
    RowBox[{"3", " ", "\[CapitalLambda]"}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"6", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"6", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"6", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"6", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750560237*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750566926*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "94"}],
  SequenceForm["Vertex ", 94],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750571389*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750575742*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`e],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750580297*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["e", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750584914*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750589559*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597505940313`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "e", " ", 
     SubscriptBox["\[Kappa]", "l"], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "3"], ",", 
       SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750599382*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750605576*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "95"}],
  SequenceForm["Vertex ", 95],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750610371*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597506149054`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`mu],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597506195583`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["mu", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`mubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597506240673`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750629636*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750635553*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "e", " ", 
     SubscriptBox["\[Kappa]", "l"], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "3"], ",", 
       SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750641789*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750648637*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "96"}],
  SequenceForm["Vertex ", 96],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597506537046`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597506587687`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ta],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597506641207`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ta", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tabar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750669868*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750674848*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750679619*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "e", " ", 
     SubscriptBox["\[Kappa]", "l"], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "3"], ",", 
       SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597506851273`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750691732*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "97"}],
  SequenceForm["Vertex ", 97],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975069652*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750701331*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`c],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750706107*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["c", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`cbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750711006*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750716055*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750720743*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597507265253`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750733665*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "98"}],
  SequenceForm["Vertex ", 98],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750738873*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597507436247`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597507487373`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["t", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597507538023`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750758645*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750763712*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750769335*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597507764072`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "99"}],
  SequenceForm["Vertex ", 99],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750781233*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
  SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750786201*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750791093*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["u", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750796041*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597508249407`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750829933*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "2"], ",", 
      SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "3"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"3", " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975083565*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597508430243`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "100"}],
  SequenceForm["Vertex ", 100],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750848928*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750854855*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ve", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597508602324`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750865341*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750870594*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750875499*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750880908*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750887109*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "101"}],
  SequenceForm["Vertex ", 101],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597508924103`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750897233*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["vm", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750902163*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750907178*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750912505*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597509187183`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750925975*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750932148*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "102"}],
  SequenceForm["Vertex ", 102],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750937517*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750942732*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["vt", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750948492*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750953829*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750959221*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750964243*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750969573*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750975477*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "103"}],
  SequenceForm["Vertex ", 103],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750983247*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["c", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159750990361*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597510145807`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751030657*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597510379*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751056653*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox[
     TemplateBox[{"V","CKM"},
      "Superscript"], 
     RowBox[{"2", ",", "1"}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox[
     TemplateBox[{"V","CKM"},
      "Superscript"], 
     RowBox[{"2", ",", "1"}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox[
     TemplateBox[{"V","CKM"},
      "Superscript"], 
     RowBox[{"2", ",", "1"}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751077548*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751099436*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "104"}],
  SequenceForm["Vertex ", 104],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597511043453`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["c", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597511096487`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751115182*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975112*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751124807*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751129573*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox[
     TemplateBox[{"V","CKM"},
      "Superscript"], 
     RowBox[{"2", ",", "2"}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox[
     TemplateBox[{"V","CKM"},
      "Superscript"], 
     RowBox[{"2", ",", "2"}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox[
     TemplateBox[{"V","CKM"},
      "Superscript"], 
     RowBox[{"2", ",", "2"}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751134987*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751143427*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "105"}],
  SequenceForm["Vertex ", 105],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751150565*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751157159*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["t", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751165197*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597511717587`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597511835957`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751189735*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751196775*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751229733*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "106"}],
  SequenceForm["Vertex ", 106],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751246744*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597512527037`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["u", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751269352*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751285987*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751292186*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751308352*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox[
     TemplateBox[{"V","CKM"},
      "Superscript"], 
     RowBox[{"1", ",", "1"}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox[
     TemplateBox[{"V","CKM"},
      "Superscript"], 
     RowBox[{"1", ",", "1"}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox[
     TemplateBox[{"V","CKM"},
      "Superscript"], 
     RowBox[{"1", ",", "1"}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751325671*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751333612*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "107"}],
  SequenceForm["Vertex ", 107],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751350206*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751356124*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["u", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751361368*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597513669558`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975137325*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597513857403`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox[
     TemplateBox[{"V","CKM"},
      "Superscript"], 
     RowBox[{"1", ",", "2"}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox[
     TemplateBox[{"V","CKM"},
      "Superscript"], 
     RowBox[{"1", ",", "2"}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox[
     TemplateBox[{"V","CKM"},
      "Superscript"], 
     RowBox[{"1", ",", "2"}]], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751392658*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751402533*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "108"}],
  SequenceForm["Vertex ", 108],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751407576*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["e", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751414915*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ve],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751421699*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751439002*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597514504147`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751456655*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751466588*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597514804087`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "109"}],
  SequenceForm["Vertex ", 109],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597514865503`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["mu", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`mubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975149284*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vm],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751498514*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751504418*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751510831*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975151626*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597515216427`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751529324*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "110"}],
  SequenceForm["Vertex ", 110],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751535207*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ta", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tabar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751540811*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vt],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751550469*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751555825*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751562154*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751570097*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975157541*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751584022*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "111"}],
  SequenceForm["Vertex ", 111],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597515902777`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["b", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597515968027`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597516345453`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751639732*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751644875*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751653521*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975165903*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751666651*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "112"}],
  SequenceForm["Vertex ", 112],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751671646*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751676553*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["d", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751684613*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597516936913`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751699292*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751704177*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"V","CKM"},
       "Superscript"], ")"}], 
     RowBox[{"2", ",", "1"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"V","CKM"},
       "Superscript"], ")"}], 
     RowBox[{"2", ",", "1"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"V","CKM"},
       "Superscript"], ")"}], 
     RowBox[{"2", ",", "1"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751709708*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751717691*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "113"}],
  SequenceForm["Vertex ", 113],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751723255*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["d", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`dbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751729591*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751735382*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751741344*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751747066*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751752249*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"V","CKM"},
       "Superscript"], ")"}], 
     RowBox[{"1", ",", "1"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"V","CKM"},
       "Superscript"], ")"}], 
     RowBox[{"1", ",", "1"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"V","CKM"},
       "Superscript"], ")"}], 
     RowBox[{"1", ",", "1"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597517581463`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751765972*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "114"}],
  SequenceForm["Vertex ", 114],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751771102*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751776307*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["s", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751781509*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597517872963`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751794705*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597518014317`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"V","CKM"},
       "Superscript"], ")"}], 
     RowBox[{"2", ",", "2"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"V","CKM"},
       "Superscript"], ")"}], 
     RowBox[{"2", ",", "2"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"V","CKM"},
       "Superscript"], ")"}], 
     RowBox[{"2", ",", "2"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751808783*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751818781*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "115"}],
  SequenceForm["Vertex ", 115],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597518261623`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["s", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`sbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751831061*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751836133*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   SuperscriptBox["W", "\[Dagger]"]}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751841132*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597518463163`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751852415*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"V","CKM"},
       "Superscript"], ")"}], 
     RowBox[{"1", ",", "2"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"V","CKM"},
       "Superscript"], ")"}], 
     RowBox[{"1", ",", "2"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubsuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"V","CKM"},
       "Superscript"], ")"}], 
     RowBox[{"1", ",", "2"}], "\<\"*\"\>"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"4", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"4", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597518594627`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975186791*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "116"}],
  SequenceForm["Vertex ", 116],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975187389*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597518800583`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["b", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597518864*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597518921022`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751897201*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", "e", " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "1"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}]]}], 
    RowBox[{"2", " ", 
     SubscriptBox["s", "w"]}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597519021606`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597519076633`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "117"}],
  SequenceForm["Vertex ", 117],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597519129877`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597519179277`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["d", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751922723*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751927472*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751932109*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", "e", " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "1"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}]]}], 
    RowBox[{"2", " ", 
     SubscriptBox["s", "w"]}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597519372396`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751943218*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "118"}],
  SequenceForm["Vertex ", 118],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751949595*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751955196*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["s", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597519607267`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751965722*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597519715147`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", "e", " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "1"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}]]}], 
    RowBox[{"2", " ", 
     SubscriptBox["s", "w"]}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751978297*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751985441*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "119"}],
  SequenceForm["Vertex ", 119],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751991794*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159751997836*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["e", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752029057*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597520344152`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752039545*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", "e", " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}]]}], 
    RowBox[{"2", " ", 
     SubscriptBox["s", "w"]}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   SubscriptBox["c", "w"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752045684*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752052314*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "120"}],
  SequenceForm["Vertex ", 120],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752057788*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752062625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["mu", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`mubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752067543*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752072631*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752077422*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", "e", " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}]]}], 
    RowBox[{"2", " ", 
     SubscriptBox["s", "w"]}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   SubscriptBox["c", "w"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752082458*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597520877533`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "121"}],
  SequenceForm["Vertex ", 121],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752092744*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752097534*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ta", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597521034946`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752108837*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752114106*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", "e", " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}]]}], 
    RowBox[{"2", " ", 
     SubscriptBox["s", "w"]}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   SubscriptBox["c", "w"]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752119335*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752124669*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "122"}],
  SequenceForm["Vertex ", 122],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752130044*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975213494*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["c", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597521398907`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752145172*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752150083*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"]}]], "-", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752155547*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597521611567`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "123"}],
  SequenceForm["Vertex ", 123],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752166078*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752170896*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["t", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752175803*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597521810617`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597521858377`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"]}]], "-", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975219106*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597521968517`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "124"}],
  SequenceForm["Vertex ", 124],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975220193*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752206717*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["u", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597522116013`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597522166*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752221415*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"]}]], "-", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752226953*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597522327023`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "125"}],
  SequenceForm["Vertex ", 125],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752237565*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ve],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752242515*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ve", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752247459*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597522522783`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752257156*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752262142*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752267516*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "126"}],
  SequenceForm["Vertex ", 126],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752272387*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vm],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752277276*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["vm", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752282116*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752286991*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752291872*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752296867*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752302032*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "127"}],
  SequenceForm["Vertex ", 127],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752307136*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vt],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752311952*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["vt", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752316895*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752321907*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597523266478`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"]}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752331702*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975233681*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "128"}],
  SequenceForm["Vertex ", 128],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752341805*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752346838*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["b", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752351737*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752356605*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752361535*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752366321*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", "e", " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "1"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}]]}], 
    RowBox[{"2", " ", "\[CapitalLambda]", " ", 
     SubscriptBox["s", "w"]}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"12", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"12", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975237287*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752382291*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "129"}],
  SequenceForm["Vertex ", 129],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597524163857`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752422738*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["d", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752429082*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752434902*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597524409103`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752446694*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", "e", " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "1"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}]]}], 
    RowBox[{"2", " ", "\[CapitalLambda]", " ", 
     SubscriptBox["s", "w"]}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"12", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"12", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752453549*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752462488*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "130"}],
  SequenceForm["Vertex ", 130],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752467834*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752473173*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["s", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752478516*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597524837427`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597524890947`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752494442*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", "e", " ", 
     SubscriptBox["\[Kappa]", "q"], " ", 
     SubscriptBox["\[Delta]", 
      RowBox[{
       SubscriptBox["\<\"m\"\>", "1"], ",", 
       SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}]]}], 
    RowBox[{"2", " ", "\[CapitalLambda]", " ", 
     SubscriptBox["s", "w"]}]]}], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"12", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"12", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752501267*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752510138*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "131"}],
  SequenceForm["Vertex ", 131],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752515368*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752520687*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["e", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752527049*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752532419*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975254016*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752545803*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", "e", " ", 
     SubscriptBox["\[Kappa]", "l"], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}]]}], 
    RowBox[{"2", " ", "\[CapitalLambda]", " ", 
     SubscriptBox["s", "w"]}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752553585*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752567482*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "132"}],
  SequenceForm["Vertex ", 132],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752579443*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752585024*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["mu", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`mubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975259062*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752596263*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975260179*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975260713*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", "e", " ", 
     SubscriptBox["\[Kappa]", "l"], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}]]}], 
    RowBox[{"2", " ", "\[CapitalLambda]", " ", 
     SubscriptBox["s", "w"]}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752613665*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752621922*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "133"}],
  SequenceForm["Vertex ", 133],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752627235*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752632476*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ta", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597526378717`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752643291*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752648757*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752654313*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["c", "w"], " ", "e", " ", 
     SubscriptBox["\[Kappa]", "l"], " ", 
     SubscriptBox["\[Eta]", 
      RowBox[{
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]], ",", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]}]], " ", 
     SubscriptBox[
      RowBox[{
       SuperscriptBox["\[Gamma]", 
        SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
       SubscriptBox["P", "\<\"-\"\>"]}], 
      RowBox[{
       SubscriptBox["\<\"s\"\>", "2"], ",", 
       SubscriptBox["\<\"s\"\>", "1"]}]]}], 
    RowBox[{"2", " ", "\[CapitalLambda]", " ", 
     SubscriptBox["s", "w"]}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752661059*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597526693163`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "134"}],
  SequenceForm["Vertex ", 134],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752674638*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597526799994`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["c", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597526858892`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597526914682`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752697114*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752702404*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"12", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"12", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597527091417`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752718305*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "135"}],
  SequenceForm["Vertex ", 135],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597527245407`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752730818*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["t", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752736656*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752742436*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975274825*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752753858*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"12", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"12", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752763681*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752775873*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "136"}],
  SequenceForm["Vertex ", 136],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752781117*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752809823*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["u", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752815258*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597528204536`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752826549*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752832615*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"6", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"12", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"12", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "q"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"m\"\>", "1"], ",", 
      SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"+\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"3", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752839449*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752848649*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "137"}],
  SequenceForm["Vertex ", 137],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752853713*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ve],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752858737*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["ve", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975286452*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752870281*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752875308*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597528819427`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752888709*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597528960133`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "138"}],
  SequenceForm["Vertex ", 138],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752901122*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vm],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752906014*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["vm", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752911072*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597529162493`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597529222183`*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597529284773`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752935207*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752943437*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "139"}],
  SequenceForm["Vertex ", 139],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.58115975294973*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
  SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vt],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597529551497`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", 
   OverscriptBox["vt", "\<\"-\"\>"]}],
  SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752961198*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
  SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752967177*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>", 
   "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
  SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752973268*^9}],

Cell[BoxData["\<\"Vertex:\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.581159752978757*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "2"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "1"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["c", "w"], " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", "\[CapitalLambda]", " ", 
    SubscriptBox["s", "w"]}]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    SubscriptBox["\[Kappa]", "l"], " ", 
    SubscriptBox["s", "w"], " ", 
    SubscriptBox["\[Eta]", 
     RowBox[{
      SubscriptBox["\<\"\[Mu]\"\>", "4"], ",", 
      SubscriptBox["\<\"\[Mu]\"\>", 
       RowBox[{"3", ",", "1"}]]}]], " ", 
    SubscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", 
       SubscriptBox["\<\"\[Mu]\"\>", 
        RowBox[{"3", ",", "2"}]]], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "2"], ",", 
      SubscriptBox["\<\"s\"\>", "1"]}]]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597529849367`*^9}],

Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
* * * * * *)\"\>"], "Print",
 CellChangeTimes->{
  3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9}, 
   3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9, 
   3.5811597529924793`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LagHC", ",", 
   RowBox[{"RemoveGhosts", "\[Rule]", "True"}], ",", 
   RowBox[{"AddDecays", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.577107029356776*^9, 3.5771070477923737`*^9}, {
   3.577158523077528*^9, 3.577158534562706*^9}, 3.577160281210434*^9, {
   3.579411806714102*^9, 3.579411828528706*^9}, {3.579422946305105*^9, 
   3.579422989755477*^9}, {3.579451314563088*^9, 3.5794513402565603`*^9}, {
   3.579509547412293*^9, 3.579509551094151*^9}, {3.5795101776420813`*^9, 
   3.579510178098853*^9}, {3.579510326274065*^9, 3.579510327951848*^9}, {
   3.579511951094426*^9, 3.579511951792654*^9}, {3.579516692371182*^9, 
   3.579516693661449*^9}, {3.579517289114347*^9, 3.579517290160247*^9}, {
   3.579517469625496*^9, 3.579517497580488*^9}, {3.5795397677576017`*^9, 
   3.579539779430418*^9}, 3.579595493612273*^9, {3.579609434073883*^9, 
   3.579609440715682*^9}, {3.579775253548801*^9, 3.579775259057622*^9}, {
   3.579775397339424*^9, 3.579775401034914*^9}, {3.579776087450013*^9, 
   3.579776090678286*^9}, {3.581159850189066*^9, 3.5811598529615707`*^9}, {
   3.595333062080071*^9, 3.595333076540902*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/HhgQdMJB4pJmWMhA0r0m/YnDkeOJZ/zrlz5IlyJnI0GiK0
SMo1DHOsUJNY5kxISIxHPxJbecAa3++DT6/6PHpzCmsyZDYsFksIa5LYtRhm
KDn04i0eg2Gp9XUvYJrqIOkVHJPYq4NU8DfkeQvAcf7LnwgU+j2U5IEpd+ez
qOu1fB2NzE7Wo9xe4WA+ePA1qUGNO1ZjIWghejPaIZxnF4EmsaM76lzxEIgG
yKsFqICriUQ330yJqG5VzaAfx2pZMejCfeRWg8ljj0wPWLbBa0RNoVUBCjBk
einsGRyx3OagzM+cHJXVLFiN4O/gbnrEIiXR2gb3clD5Lt2vBd08Mrq7QDEn
7lMOVq1MKYdAS+bzLCo1O9gOg1pXH+UN6OV/b0Azn1ROF0uUXG51hHcuU3Ln
GVz2DQ4UNIsdV6CjXSdRrFHiQ8yXIg0l/UzllwS0Fk0sx4NnrfzTlD1K9G2j
231HlLCisiYUoO/0TCnbQEnCQIyUB56E5k4y4L3IGisDr9KbRtB/Jjj56g==

  "]],

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/EheWBE4pFypIyRHMNq0m/YnDkeOJZ/zrlz5IlyJnI0GnK2
JinXMMxVKNIsc6ZISIxHPxJbecAa3++DT6/6PHp7FdZkSK1YLBYf1iS2adHP
UHLkyV08AcNT6+tewDSVNukVHBfbqYNU8DfkefPAibCXPyHI93soyQNT7i5m
UZdr2ToqyE7WoZxe/mA+qP2a1KCGXYuhEDQTnQnt4M87FIFGEdsNdap4CEQD
ZNU8lMfRCNDNN2Miur+qZtCPE7W0GHTmPHKqweTxR6YHLNvgNqLG0KoAORgy
vRT+DI6Yb3NQ5mdOhkprFiwG8HdwLz1ykZLo7Qa3clDxLjmsBV3dM7q7QJFX
3KcMrFqZUgyB5sznWVRisrceBrddfBQ3oKf/vR7NfFI5Xi5RcrXVEdG5TMmd
R3DZNzhQ0Cxir0BH+75YvkaJDzFdCTWU9DOVX2LQUqRcjgfPW8POUg4o0bWN
7fQdU8KKylLKQd/pmVIHPSUJAzESLngamjvJgPdCS6wUFChtR9F/IM75KQ==

  "]],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/EheeCIZI+UI2VskmNYkX7D5szxwLH8c86dI0+UM5Gj0ZCz
RVKuYWOuckRimTNFQmI8+pHYygPW+H4ffHrV59HbI78qTWrBYrEEsAaxVZNu
mpIjd+7CCRiSXFvzAqYoDxNewVGxjcpfCX9djicfHAt++ROCAp+Hohww6e5i
BnW+lq2i4ZmJWpTTLejPBQ+/JjSoftuszwdNRGtE2wRz9gWgQWTHRh3LHvxQ
nqySj/I5mnB0/c0Qj+4tqxj040QlLQSdOI+cSjBx9JHpAkvWuPWoIaiCJwcD
pxZDnsEh020WyvzMylBp1bxZD/7276SGLVASuVnHLgUV75KDatDFNa2zAxR5
xHzKwAr1pGIANKU/z6ASo63lILjp7KW4Ad1973Vo+pPS4XKRkquNttD2JUru
3AJKvsG+vEaRnRo6WvfE8hVKvIjxSqihpJcp/xKD5oLxpVjwvDn4LGmfEm3L
yFbPMSWsiIxxOeg9NV1sr6Mkri9KwgVPg7InGPBeaI6Wgrxd62H0HyEu+Tk=

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/EheWBE4pFypIyRmGFF+g2bM8cDx/LPOXeOPFHONDkaDTlb
JOUahrkKNYllzhQJifHoR2IrD1jj+33w6VWfR2+vwpoMqRWLxRLAmsQ2LfoZ
So48uYsnYFhqfd0LmKY6THoFx8R26iAV/A153nxwPPTlTwgK/B5K8sCUu4tZ
1OVavo5GZifrUE6PYCAfPPya1KCGXYuhEDQTnQmVCeYdikCjiO2GOlU8BKIB
8mo+yudoItHNN2Miql1VM+jHiVpaDDpzHjnVYPLYI9MNlm1wG1EjrypAAYZM
L4U9g8Pm2xyU+ZmTo9KaBYsB/B3YS49YpCR6u8GtHFS+Sw5qQVf3jK5OUOQV
9ykHq1amlIOgOfN5FpWY7K2HwG0XH+UN6Ol/r0czn1SOl0uUXG3JwjuWKbnz
CC77BvsLmkXsFeho14oVa5T4ENOVUENJH1P5JQYtRRPL8eB5a+hZyj4lurbR
nd5jSlhRWRMK0Hd6ptRBT0lCf4yEC57ycicZ8F5oiZWCsjPbEfQfJFf5oA==

  "]],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/HhgQdMJPJAOVLGSI5hNek3bK7leOBY/jnnzpEnypnI0WiI
TIukXMMwV6FIs8yZIiExHv1IbOUBa3y/Dz696vPo7VNUmymzYbFYfFiz2K7V
MEPJkTd38QSMTGuofwHT1bqUV1AptteEqOFvzPflgeMRL39CkB/wUJoPSu4u
ZlHXa/k6KshJ1aOcPv5QAaj7mtSixl2rsQi0EL0Z7eTPs4tBk8jRHXWufAhG
g+Q1PJTH0QrQzTdTMrq/qmHQjxONrAR04TxyasBU5SPTC5ZvcJtQU3h1kAIM
m16KfAZHLbe5KPMzJ0dltQtWI/g7tJcRvUhJ7HajewWoepce1oFunpk93aDI
J+FTDlavTKmGQUvW8ywqNTvYjoDbrn6qG9A78N6AZj2pnS6XKLna6ozqWqbk
ziu0/BscLGwROa5AR8e+WLFGiR8xXwm1lAwwVV9i0Fo8sZwInrdFnEkOKNG3
j+30H1PCismeUID+0zNlbAMlSYNxUi54Gp43yYD3Qmu8DJQIPJToPx8k+O0=

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "102", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "102", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  102, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 102, "."],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/HhgQeOSDxSzjJGcgwr0m/YnDkeOJZ/zrlz5IlyJnI02ohM
i7SaYxjmKhSJZc4UCYnNox+JrTxgje/3wadXfR69fUobcsQ2LBaLB2sT2nXo
VZQce3MWT8GozOYmI5ilPkp7BeVCe02oGv6WIl8uOBlp/OODvMDHiiIw4/5y
FnW7kayjsfnpOpQ9yBspBo++prWoYddqKAUtRGdGe3jzTmWgSeDogbrUPIag
wZJ6Lspla2PRzTdTKrq/qmHQj1ONuBx0ZT+x68F0+RMzAFZtcFpRU0RdsBQM
Vy5FvYDjlrsClPmZk6DihgWrAfwd2cuOWaQkfrvFoxpUvIsOG0F3z5z+PlDg
k/QpAetWZhSjoCX3ZRYVmR1sx8BtN3/FLegd9KBHc5/VzldLlFxv9UT3LlNy
7xVW9Q3KStoFjivQ0b0vlK5R4k/M13wtJcNM7ZcQtJZNLSeDF52R5xkHlOi6
JnaGTihhxeVNScEAparSSU9JiixBxAHPIgqnGfCBb00Ug+pwPzn6DyIQ+Uw=

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"96", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[96, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/HhgQdMJB4pJmWMhA0r0m/YnDkeOJZ/GHPnyBPlTORoNERo
kZRrGOZYoUgsc6ZISIxHPxJbUazx/T749KrPozdHVp0ht2GxWEJYo8Su2TBN
yaEXb+EYDEutq30G09QHSS/gqMReE6SGvz7PWwCO8Z//RKDQ7744D0y5PZ9B
Xa8Ua2hkdrIe5fYIB/LBg88JLWrcthploIXozWi7cI5dCJrEju6oc/l9IBqg
qBKgAq42Et14NSWiuysaBn0/1siLQBfuA7cKTB59YLrB0nVeA2oKrQxQgiFT
i2FP4LDlJgdlfmYVqLx63moEfwd20iMWKInW1buXgao36X4N6OaR0dUJijlx
HwqwcnlSNQhaMp9mUKnZwXYI1Ln6qK5BL/87A5r5qHa6WKTkcrM9vGOJklvP
4NIvsL+gSey4DB1tuxLlKiU+xHwp0lLSx1R8SkBr4fhSPHjWwj9N2aNE3zqy
1XtECSsqa1wJ+k5Nl7ANlCT0x0h54Elo7gQD3omssXIw3+Vbhf4DI9j5tw==

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "96"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 2, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 96],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/HhgQeOSDxSjpQxkmNYkX7D5szxwLH8m2vuHHminIkcjbaJ
TEMo1zDMVSgSy5wpEhLj0Y/EVh6wxvf74NOrPo/eXoU1mRIrFovFgzUJbVr0
05QceXIWTsDwtPq6FzBdfZj8CiqFtpogNfwNYm8uOBL28scHeX4PJWIw9e5i
BnW5lq6hUTkpOpTdy1Pkg4df41rUsGMxFIJmojOhHbw5hyLQKLB3Q50qHgLR
AGk1F+WytVHoxpsxCd1b0TDox4lGUgw6sx/Z1WCK8pHpAcvWOY2oMbQqQAaG
TC2GP4ND5ttclPmZlaKSmnmLAfxV7GZELlASs9XgVg6q3kUHtaCre2Z3Fyjw
iv+UglXLE6oB0Jz1PIOKTHbWg+CWi4/qBvT0v9ejWU9qx8tFSq42OyI6lyi5
8wgu+wblBc0C+2XoaN8TylYp8SGmK76Wkn6m8ksIWorGlhLA89aws9R9SnRt
w9t9x5SworPHZKDv1HSpg56SRHmsiAOehuaNM+A93xInAY+Uk6PoPyjH+lE=

  "]],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/HhgWJE4pFypIyRmGFF+g2bM8cDx/IPY+4ceaKciRyNhggt
S8o1bMxVKBLLnCkSEuPRj8RWHrDG9/vg06s+j94+0tosmQ2LxRLAmsV2rYYZ
So68uYsnYER6Q/0LmKE+THkFx8X2mhA1/I0FvnxwIvzlTwgKAh5KC8C0u4tZ
1O1avoZG56bqUU6fYKgQPPxS6VDjjtUoBS1Eb0Y7BfNOxaBJxPZAXSofgtEg
eQ0f5XN00ejGmykZ3VvRMOjHiUZWArpyHjk1YOr4I9MLlq9zm1ATrzpIAYZN
L0U8g6OW2zyU+ZmTo7LaBasR/B3azYxapCR2q9GjAlS+Sw7qQHfPrJ5uUOST
8CkHq7VTymHQkv08i0rMjrYj4Jabn/IG9A68N6DZT2rnyyVKrjY7I7uWKbnz
Ci3/BgeLWkRsLXR07IkVq5T4EfOVUEfJAFP1JQatxZPLieB5W/hZ2j4l+vax
7f5jSlgxOZMK0H96pszJQEnSYJyEC57y8lUMeC+0xstAB61Ghf4DI+D5uw==

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Removing ghost fields and Goldstone boson vertices: \"\>", 
   "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" vertices removed.\"\>"}],
  SequenceForm[
  "Removing ghost fields and Goldstone boson vertices: ", 1, 
   " vertices removed."],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/HhgQeOSDxSjpQxkmNYkX7D5gx74Fj+OefOkSfKmcjRaIjQ
2pIyDMMcKxSJZc4UCYnx6EeyrTxgje/3wadXfR69/UobRBI7FovFg7UJHToM
c5Qc+3KWTsHorOamVzBbfZT+Bk4JHTVhavhbivy54HTU6x8f5AU9VhSBmfeX
KtTjRrqBxuVn6FH2IG+0GDwyKbWocddmLAWtRG9Be3gLLmWgWeDshbrVPIai
IdJ6Lspla+PQrXdzGrq/pmHQz1ONpBx0Zz+x68GMqSdmAKza5LSi5si6EBkY
Mbsc/QJOWO8KUOZnXopKGhZtRvB3dC8ndomSBF2LVzUo/xAfNoKe3qL+PlDg
l/wlBetWZ+RjoDX3RYWKLU7246DOI0B+C/oGPxjQ3Ge169UyJdfbPTG9K5Tc
+4RXfYMjJe0C51Xo6N4XytYpCSCWa76WkmGm1iQEbWWKlRTwojPqPPOAEn3X
5M7QCSWs+DyFDAycnat0MVCSOpIo5oBnkYVKBnzg25Ik4LtZp0T/ASzs+uc=

  "]],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/HhgQeOSDxSjpQxEjasSL9hc+Z44Fj+OefOkSfKmcjRaMjZ
sqQ2DMOcoUgsc6ZISIxHPxJbecAa3++DT6/6PHp7FdZkSKxYLBYf1iSyadEr
KTny5MyfgGGp9XUvYJr6MOkVHBfZaoLU8DfkefPACe7LnwDk+z2U5IEpdxcq
1OVauopGZifrUHYvfzAfPPxSaFHDjsVQCJqJzoR28GcdikCj0N4Ndap4CEQD
pNU8lMfWRqLrb8ZEdG9Zw6AfJxpJMejMfmRXg8njj0wPWLbGaUSNoVUBMjBk
eiHsGRwx3+agzM+MFJXUzFkM4O/gbnrEPCXRmw1u5aD8XXxQC7q6Z3R3gUKv
uE8pWLU0JR8CzZnPKlRssrMeBjddfOQ3oKf/vR7NfFI7Xi5QcrXREd65SMmd
R3DZNzhQ0Cy0X4KO9j2RbIUSH2K6Emgp6Wcqv0SgpWhyMR48b+WepexTomsb
2+47poQVlTUpA32nlaUOekoSBmLEHPA0NFfBgPcCS6wEFIxuKdB/JS355A==

  "]],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/HhgQeOSDxSjpQxEraxIv2GzZnjgWP555i5c+SJciZyNBoi
tCwp1zDMVSgSy5wJCS3Gox+JrTxgje/3wadXfR69fYpqMmU2LBZLAGsS27Xo
pyk58uYsnID8tPq6FzBdfZj8Co6J7TUhavgb8n154Dj35U8ICgIeS/LB1PuL
GdTtRr6GRuWk6FB2r2CwADz8UmlR447VWARaiM6MdgjmnKSgSeTogbpUPAaj
QfJqHspja6PQjTdTErq3omHQjxONrBh0ZRvY1WDKmIHpAcvWOY2oKbwqSAGG
TS3yn8ERy10uyvzMylFZzbzVCP4O7mZELlASs9XgUQ4q3yUHtaC7Z2Z3Fyjy
if+Ug1XLk8oh0JL1PINKzA62w+CWm5/yFvQOfNCjWU9q58tFSq42OyI6lyi5
9wot+wYHCptFjsvQ0b4nVqxS4kfMV0ItJf1M5ZcYtEonlhLA81buWeo+Jbq2
0e2+Y0pY0dkTCtB/arrUSU9J4kCshAOehuepGPBBaI2TgTnXBhX6Dyhm+lw=

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/HhgQeOSDxSjpSxSdiwIv2GzbUcD4bln3PuHHminIkcjYYI
LUvKMAxzFYrEMmeKhMR49COxlQes8f0++PSqz6O3X1FtltyOxWIJYM1ih1bj
DCVHvpyFEzAyvaH+BczQHqa+guNiR12oFv7GfH8+OMF7+ROCgqCH0nxQcneh
QT2uFWtoTE6aAWX3CYYKwMMvtR417dhMRaCVGCxop2DOpRg0i5y9ULfKhxCU
q6jho3y2PgbdeDOnoHsrOgb9ONHJS0B39iO7Bkwbf2R6wfJ1ThNqjqjmKsHw
6cXIZ3DUepuLMj+zClReO28zgb9Du5nRC5TEbTV6VYCqd9lBHejpndXTDYr8
Ej8VYPXylGoYtEqfNajM4mQ/Am55BKhuQN/geyMqfdK6Xi5ScrXZGdW1RMmd
T1j5NzhY2CJyXoaOjj2xcpWSAGK5EuopGWCqvsSgrXhyKQk8b+OdSfYpMbSP
bfcfU8KKzZ5UgoHTM2UuRkqSB+NlHPA0Ik/NgPdCW4IcdBw1qdF/JET50Q==

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "143", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 143, " ."],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/HhAeWIxCPlSBkjYcOK9Bs2Z44HjuUfxtw58kQ5EzkaDRFa
jpRrGOYq1CSWOVMktBiPfiS28oA1vt8Hn171efT2ltRkSq1YLBYf1iSyadHN
UnLsxVk6BcPT6utewHTlUfIrOCayVQUr4W/I9+GB49yXPwHI938syQdT7y/n
UNcb2QYalZOiRdm9/MEC8OhrUo0a9iwGCWgmWhPawV9wLAKNQgd31LniMQgN
lFXzUB5bHYVuvRmTUM2aikE/TlXSYtCFrWdXgyljeqYHLNvkNKLGsKpAORg6
sxz+DI6Y73JR5mdehkprFi0G8HdwPyNyiZKYnQb3clDxLj6sBd08Mru7QKF3
/KcMrFqdVgyB5qznOVRssrceBndcfRW3oFfAgw7NelI6XS1Tcr3dEdG5Qsm9
Z0jZNzhQ2Cx0WIWOdo1Ivk6JLzFdC9SU9DOVXyLQUjSxkgBetHLPUw8o0baN
7vadUMKKzp6Qg34zs6WOOkoSB2LFHPAsLG+SAR8Eljgp6KG3m0L/ASHN+VU=

  "]],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/HhgQeOSJRSjpQxEjOsSL9hc+Z44Fj+YTN3jjxRzkSORkOE
liPlGoa5CkVimTNFQmI8+pHYygNmfL8PPr3q8+jtKalMl1mwWCw+rF5k1aib
ouTQgzN/DIam1FQ/g6mqg8QXcFhkrQ5UwV+b68UDR0Ke/wQg3/e+MBdMvj2f
Rp2u5KtoRFaSFmV38fvywIPPMQ2q3zbrJaCJaI1oK3/WTgoahLYuqEPpfQDq
L6/goTy2JgJdfzUkoLvLagZ9P1bLCkBH9gO7AkwafmA6weI1Th1q4Jb7K8Dg
yYXQJ3DQdJONMt8zclRWOWfWgz99O2nh85REbda6lIDKN/F+Fejslt7RDgo9
Yz/kYPnShLIfNGU8TaNio43lALjp5K28Bj387nRoxqPK/mKBksuN1rC2RUpu
3YOKv8De/Aah7RJ0tOyKFCuUeBPjpUBDSQ9T9ikCzdLRxTjwrCnkNHmPEm3z
0Fb3ESWsyMxRBegzOVVkp6MkvjdazAFPuDljDHgnMMfIwLBf13H0HyPk+aA=

  "]],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzmkow3Ecx/HhgQeOSDxSjlbGaDmGFek3bM4cDxzLP+fcOfJEORM5Gg0R
Wo5WrmGYq1AkljlTJCTGox+JrTxg/fl+H3x61efR26ugOl1uxeFwRLBGqU2z
YZqSI0/+wgkYmlJX+wKmag4TX8FRqa1WoIG/PtdbCI6FvPyJQZHvQ3EumHx3
MYO6XCvW0IisJD3K6xEN5IGHXxM61LjDGgtAC9Gb0XbRnEMhaJLYu6FO5Q8B
qL+iSogKeboIdOPNlIDurWgZ9ONEKy8CnXmPvCowafSR6QZL1/kNqCm40l8J
BqkXQ5/BYcttNsr8zCpQefU8awR/B3bTwhcoidqqdysDVe+ygxrQ1T29qxOU
eMV+KsDK5SnVIGjJeJ5BZWY76yFwy4WrugE9/e4NaMaTxvFykZKrzfawjiVK
7jwCS7/B/vwmif0ydLTtSZWrlHCJ+Uqso6SPqfiSgmzh+FIceN4Scpa8T4m+
dWS795gSTmTmuBL0UU+XOBgoie+PlvHB0+CcCQa8F7MxcrBBwJ1E/wEgpPkh

  "]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{949, 756},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
ShowSelection->True,
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, \
2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 120, 2, 27, "Input"],
Cell[CellGroupData[{
Cell[702, 26, 823, 17, 58, "Input"],
Cell[CellGroupData[{
Cell[1550, 47, 5765, 81, 20, "Print"],
Cell[7318, 130, 6042, 88, 20, "Print"],
Cell[13363, 220, 5815, 82, 20, "Print"],
Cell[19181, 304, 5749, 81, 20, "Print"],
Cell[24933, 387, 5760, 81, 20, "Print"],
Cell[30696, 470, 5770, 81, 20, "Print"],
Cell[36469, 553, 5812, 82, 20, "Print"],
Cell[42284, 637, 5749, 81, 20, "Print"],
Cell[48036, 720, 5779, 81, 20, "Print"],
Cell[53818, 803, 5749, 81, 20, "Print"],
Cell[59570, 886, 5816, 82, 20, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[65435, 974, 213, 3, 76, "Title"],
Cell[CellGroupData[{
Cell[65673, 981, 572, 9, 27, "Input"],
Cell[CellGroupData[{
Cell[66270, 994, 1734, 24, 20, "Print"],
Cell[68007, 1020, 1752, 24, 20, "Print"],
Cell[69762, 1046, 1736, 24, 20, "Print"],
Cell[71501, 1072, 1858, 28, 20, "Print"],
Cell[73362, 1102, 1723, 24, 20, "Print"],
Cell[75088, 1128, 1748, 24, 20, "Print"],
Cell[76839, 1154, 1773, 25, 20, "Print"],
Cell[78615, 1181, 1760, 25, 20, "Print"],
Cell[80378, 1208, 1711, 24, 20, "Print"],
Cell[82092, 1234, 1742, 24, 20, "Print"],
Cell[83837, 1260, 1745, 24, 20, "Print"],
Cell[85585, 1286, 1743, 24, 20, "Print"],
Cell[87331, 1312, 1900, 29, 36, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[89280, 1347, 150, 3, 27, "Input"],
Cell[CellGroupData[{
Cell[89455, 1354, 936, 15, 20, "Print"],
Cell[90394, 1371, 942, 15, 20, "Print"],
Cell[91339, 1388, 938, 15, 20, "Print"],
Cell[92280, 1405, 805, 11, 20, "Print"],
Cell[93088, 1418, 824, 11, 20, "Print"],
Cell[93915, 1431, 810, 11, 20, "Print"],
Cell[94728, 1444, 825, 11, 20, "Print"],
Cell[95556, 1457, 804, 11, 20, "Print"],
Cell[96363, 1470, 826, 11, 20, "Print"],
Cell[97192, 1483, 810, 11, 20, "Print"],
Cell[98005, 1496, 836, 11, 20, "Print"],
Cell[98844, 1509, 803, 11, 20, "Print"],
Cell[99650, 1522, 860, 12, 20, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[100559, 1540, 296, 6, 27, "Input"],
Cell[CellGroupData[{
Cell[100880, 1550, 3261, 50, 20, "Print"],
Cell[104144, 1602, 3266, 50, 20, "Print"],
Cell[107413, 1654, 2799, 40, 20, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[110261, 1700, 287, 5, 27, "Input"],
Cell[CellGroupData[{
Cell[110573, 1709, 1002, 14, 20, "Print"],
Cell[111578, 1725, 996, 14, 20, "Print"],
Cell[112577, 1741, 1193, 21, 20, "Print"],
Cell[113773, 1764, 946, 13, 20, "Print"],
Cell[114722, 1779, 1119, 18, 20, "Print"],
Cell[115844, 1799, 981, 14, 20, "Print"],
Cell[116828, 1815, 1456, 25, 20, "Print"],
Cell[118287, 1842, 1059, 17, 20, "Print"],
Cell[119349, 1861, 947, 13, 20, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[120345, 1880, 469, 9, 27, "Input"],
Cell[CellGroupData[{
Cell[120839, 1893, 257, 4, 20, "Print"],
Cell[121099, 1899, 284, 5, 20, "Print"],
Cell[121386, 1906, 448, 9, 20, "Print"],
Cell[121837, 1917, 252, 4, 20, "Print"],
Cell[122092, 1923, 268, 5, 26, "Print"],
Cell[122363, 1930, 367, 8, 20, "Print"],
Cell[122733, 1940, 296, 5, 20, "Print"],
Cell[123032, 1947, 339, 8, 20, "Print"],
Cell[123374, 1957, 528, 10, 20, "Print"],
Cell[123905, 1969, 528, 10, 20, "Print"],
Cell[124436, 1981, 530, 10, 20, "Print"],
Cell[124969, 1993, 230, 4, 20, "Print"],
Cell[125202, 1999, 1839, 47, 74, "Print"],
Cell[127044, 2048, 298, 5, 20, "Print"],
Cell[127345, 2055, 339, 8, 20, "Print"],
Cell[127687, 2065, 527, 10, 20, "Print"],
Cell[128217, 2077, 525, 10, 20, "Print"],
Cell[128745, 2089, 530, 10, 20, "Print"],
Cell[129278, 2101, 232, 4, 20, "Print"],
Cell[129513, 2107, 6045, 161, 151, "Print"],
Cell[135561, 2270, 295, 5, 20, "Print"],
Cell[135859, 2277, 339, 8, 20, "Print"],
Cell[136201, 2287, 527, 10, 20, "Print"],
Cell[136731, 2299, 564, 11, 23, "Print"],
Cell[137298, 2312, 530, 10, 20, "Print"],
Cell[137831, 2324, 230, 4, 20, "Print"],
Cell[138064, 2330, 3198, 86, 94, "Print"],
Cell[141265, 2418, 296, 5, 20, "Print"],
Cell[141564, 2425, 341, 8, 20, "Print"],
Cell[141908, 2435, 527, 10, 20, "Print"],
Cell[142438, 2447, 530, 10, 20, "Print"],
Cell[142971, 2459, 528, 10, 20, "Print"],
Cell[143502, 2471, 230, 4, 20, "Print"],
Cell[143735, 2477, 2071, 54, 44, "Print"],
Cell[145809, 2533, 296, 5, 20, "Print"],
Cell[146108, 2540, 338, 8, 20, "Print"],
Cell[146449, 2550, 532, 10, 20, "Print"],
Cell[146984, 2562, 528, 10, 20, "Print"],
Cell[147515, 2574, 528, 10, 20, "Print"],
Cell[148046, 2586, 232, 4, 20, "Print"],
Cell[148281, 2592, 4441, 119, 144, "Print"],
Cell[152725, 2713, 295, 5, 20, "Print"],
Cell[153023, 2720, 341, 8, 20, "Print"],
Cell[153367, 2730, 524, 10, 20, "Print"],
Cell[153894, 2742, 568, 11, 23, "Print"],
Cell[154465, 2755, 532, 10, 20, "Print"],
Cell[155000, 2767, 230, 4, 20, "Print"],
Cell[155233, 2773, 818, 23, 28, "Print"],
Cell[156054, 2798, 298, 5, 20, "Print"],
Cell[156355, 2805, 339, 8, 20, "Print"],
Cell[156697, 2815, 527, 10, 20, "Print"],
Cell[157227, 2827, 525, 10, 20, "Print"],
Cell[157755, 2839, 525, 10, 20, "Print"],
Cell[158283, 2851, 232, 4, 20, "Print"],
Cell[158518, 2857, 2842, 83, 28, "Print"],
Cell[161363, 2942, 296, 5, 20, "Print"],
Cell[161662, 2949, 339, 8, 20, "Print"],
Cell[162004, 2959, 525, 10, 20, "Print"],
Cell[162532, 2971, 525, 10, 20, "Print"],
Cell[163060, 2983, 525, 10, 20, "Print"],
Cell[163588, 2995, 527, 10, 20, "Print"],
Cell[164118, 3007, 230, 4, 20, "Print"],
Cell[164351, 3013, 4024, 113, 71, "Print"],
Cell[168378, 3128, 296, 5, 20, "Print"],
Cell[168677, 3135, 339, 8, 20, "Print"],
Cell[169019, 3145, 525, 10, 20, "Print"],
Cell[169547, 3157, 525, 10, 20, "Print"],
Cell[170075, 3169, 525, 10, 20, "Print"],
Cell[170603, 3181, 530, 10, 20, "Print"],
Cell[171136, 3193, 232, 4, 20, "Print"],
Cell[171371, 3199, 5242, 149, 74, "Print"],
Cell[176616, 3350, 296, 5, 20, "Print"],
Cell[176915, 3357, 341, 8, 20, "Print"],
Cell[177259, 3367, 525, 10, 20, "Print"],
Cell[177787, 3379, 525, 10, 20, "Print"],
Cell[178315, 3391, 525, 10, 20, "Print"],
Cell[178843, 3403, 525, 10, 20, "Print"],
Cell[179371, 3415, 530, 10, 20, "Print"],
Cell[179904, 3427, 230, 4, 20, "Print"],
Cell[180137, 3433, 6816, 189, 115, "Print"],
Cell[186956, 3624, 295, 5, 20, "Print"],
Cell[187254, 3631, 340, 8, 20, "Print"],
Cell[187597, 3641, 525, 10, 20, "Print"],
Cell[188125, 3653, 560, 11, 28, "Print"],
Cell[188688, 3666, 530, 10, 20, "Print"],
Cell[189221, 3678, 232, 4, 20, "Print"],
Cell[189456, 3684, 1767, 54, 51, "Print"],
Cell[191226, 3740, 298, 5, 20, "Print"],
Cell[191527, 3747, 341, 8, 20, "Print"],
Cell[191871, 3757, 528, 10, 20, "Print"],
Cell[192402, 3769, 563, 11, 27, "Print"],
Cell[192968, 3782, 530, 10, 20, "Print"],
Cell[193501, 3794, 232, 4, 20, "Print"],
Cell[193736, 3800, 1363, 42, 51, "Print"],
Cell[195102, 3844, 295, 5, 20, "Print"],
Cell[195400, 3851, 340, 8, 20, "Print"],
Cell[195743, 3861, 525, 10, 20, "Print"],
Cell[196271, 3873, 561, 11, 27, "Print"],
Cell[196835, 3886, 530, 10, 20, "Print"],
Cell[197368, 3898, 232, 4, 20, "Print"],
Cell[197603, 3904, 1767, 54, 50, "Print"],
Cell[199373, 3960, 296, 5, 20, "Print"],
Cell[199672, 3967, 341, 8, 20, "Print"],
Cell[200016, 3977, 525, 10, 20, "Print"],
Cell[200544, 3989, 563, 11, 28, "Print"],
Cell[201110, 4002, 525, 10, 20, "Print"],
Cell[201638, 4014, 230, 4, 20, "Print"],
Cell[201871, 4020, 607, 16, 29, "Print"],
Cell[202481, 4038, 296, 5, 20, "Print"],
Cell[202780, 4045, 341, 8, 20, "Print"],
Cell[203124, 4055, 522, 10, 20, "Print"],
Cell[203649, 4067, 563, 11, 28, "Print"],
Cell[204215, 4080, 525, 10, 20, "Print"],
Cell[204743, 4092, 230, 4, 20, "Print"],
Cell[204976, 4098, 605, 16, 29, "Print"],
Cell[205584, 4116, 296, 5, 20, "Print"],
Cell[205883, 4123, 341, 8, 20, "Print"],
Cell[206227, 4133, 525, 10, 20, "Print"],
Cell[206755, 4145, 523, 10, 20, "Print"],
Cell[207281, 4157, 561, 11, 26, "Print"],
Cell[207845, 4170, 229, 4, 20, "Print"],
Cell[208077, 4176, 607, 16, 29, "Print"],
Cell[208687, 4194, 296, 5, 20, "Print"],
Cell[208986, 4201, 341, 8, 20, "Print"],
Cell[209330, 4211, 525, 10, 20, "Print"],
Cell[209858, 4223, 561, 11, 26, "Print"],
Cell[210422, 4236, 525, 10, 20, "Print"],
Cell[210950, 4248, 230, 4, 20, "Print"],
Cell[211183, 4254, 607, 16, 29, "Print"],
Cell[211793, 4272, 296, 5, 20, "Print"],
Cell[212092, 4279, 343, 8, 20, "Print"],
Cell[212438, 4289, 525, 10, 20, "Print"],
Cell[212966, 4301, 523, 10, 20, "Print"],
Cell[213492, 4313, 561, 11, 27, "Print"],
Cell[214056, 4326, 230, 4, 20, "Print"],
Cell[214289, 4332, 607, 16, 29, "Print"],
Cell[214899, 4350, 296, 5, 20, "Print"],
Cell[215198, 4357, 341, 8, 20, "Print"],
Cell[215542, 4367, 527, 10, 20, "Print"],
Cell[216072, 4379, 523, 10, 20, "Print"],
Cell[216598, 4391, 561, 11, 26, "Print"],
Cell[217162, 4404, 230, 4, 20, "Print"],
Cell[217395, 4410, 605, 16, 29, "Print"],
Cell[218003, 4428, 298, 5, 20, "Print"],
Cell[218304, 4435, 343, 8, 20, "Print"],
Cell[218650, 4445, 530, 10, 20, "Print"],
Cell[219183, 4457, 525, 10, 20, "Print"],
Cell[219711, 4469, 566, 11, 23, "Print"],
Cell[220280, 4482, 232, 4, 20, "Print"],
Cell[220515, 4488, 1851, 48, 28, "Print"],
Cell[222369, 4538, 296, 5, 20, "Print"],
Cell[222668, 4545, 341, 8, 20, "Print"],
Cell[223012, 4555, 525, 10, 20, "Print"],
Cell[223540, 4567, 564, 11, 23, "Print"],
Cell[224107, 4580, 529, 10, 20, "Print"],
Cell[224639, 4592, 530, 10, 20, "Print"],
Cell[225172, 4604, 230, 4, 20, "Print"],
Cell[225405, 4610, 575, 15, 50, "Print"],
Cell[225983, 4627, 298, 5, 20, "Print"],
Cell[226284, 4634, 341, 8, 20, "Print"],
Cell[226628, 4644, 528, 10, 20, "Print"],
Cell[227159, 4656, 528, 10, 20, "Print"],
Cell[227690, 4668, 525, 10, 20, "Print"],
Cell[228218, 4680, 564, 11, 23, "Print"],
Cell[228785, 4693, 229, 4, 20, "Print"],
Cell[229017, 4699, 1262, 35, 27, "Print"],
Cell[230282, 4736, 296, 5, 20, "Print"],
Cell[230581, 4743, 341, 8, 20, "Print"],
Cell[230925, 4753, 525, 10, 20, "Print"],
Cell[231453, 4765, 564, 11, 23, "Print"],
Cell[232020, 4778, 532, 10, 20, "Print"],
Cell[232555, 4790, 232, 4, 20, "Print"],
Cell[232790, 4796, 3759, 100, 51, "Print"],
Cell[236552, 4898, 296, 5, 20, "Print"],
Cell[236851, 4905, 341, 8, 20, "Print"],
Cell[237195, 4915, 525, 10, 20, "Print"],
Cell[237723, 4927, 566, 11, 23, "Print"],
Cell[238292, 4940, 527, 10, 20, "Print"],
Cell[238822, 4952, 230, 4, 20, "Print"],
Cell[239055, 4958, 2372, 66, 49, "Print"],
Cell[241430, 5026, 296, 5, 20, "Print"],
Cell[241729, 5033, 341, 8, 20, "Print"],
Cell[242073, 5043, 527, 10, 20, "Print"],
Cell[242603, 5055, 525, 10, 20, "Print"],
Cell[243131, 5067, 566, 11, 23, "Print"],
Cell[243700, 5080, 564, 11, 23, "Print"],
Cell[244267, 5093, 229, 4, 20, "Print"],
Cell[244499, 5099, 1482, 42, 50, "Print"],
Cell[245984, 5143, 296, 5, 20, "Print"],
Cell[246283, 5150, 341, 8, 20, "Print"],
Cell[246627, 5160, 523, 10, 20, "Print"],
Cell[247153, 5172, 563, 11, 28, "Print"],
Cell[247719, 5185, 530, 10, 20, "Print"],
Cell[248252, 5197, 230, 4, 20, "Print"],
Cell[248485, 5203, 1134, 32, 28, "Print"],
Cell[249622, 5237, 298, 5, 20, "Print"],
Cell[249923, 5244, 341, 8, 20, "Print"],
Cell[250267, 5254, 525, 10, 20, "Print"],
Cell[250795, 5266, 563, 11, 26, "Print"],
Cell[251361, 5279, 530, 10, 20, "Print"],
Cell[251894, 5291, 230, 4, 20, "Print"],
Cell[252127, 5297, 1112, 31, 28, "Print"],
Cell[253242, 5330, 296, 5, 20, "Print"],
Cell[253541, 5337, 341, 8, 20, "Print"],
Cell[253885, 5347, 523, 10, 20, "Print"],
Cell[254411, 5359, 563, 11, 28, "Print"],
Cell[254977, 5372, 532, 10, 20, "Print"],
Cell[255512, 5384, 230, 4, 20, "Print"],
Cell[255745, 5390, 1132, 32, 28, "Print"],
Cell[256880, 5424, 298, 5, 20, "Print"],
Cell[257181, 5431, 341, 8, 20, "Print"],
Cell[257525, 5441, 523, 10, 20, "Print"],
Cell[258051, 5453, 561, 11, 26, "Print"],
Cell[258615, 5466, 530, 10, 20, "Print"],
Cell[259148, 5478, 230, 4, 20, "Print"],
Cell[259381, 5484, 872, 24, 28, "Print"],
Cell[260256, 5510, 296, 5, 20, "Print"],
Cell[260555, 5517, 343, 8, 20, "Print"],
Cell[260901, 5527, 527, 10, 20, "Print"],
Cell[261431, 5539, 565, 11, 26, "Print"],
Cell[261999, 5552, 530, 10, 20, "Print"],
Cell[262532, 5564, 232, 4, 20, "Print"],
Cell[262767, 5570, 872, 24, 28, "Print"],
Cell[263642, 5596, 298, 5, 20, "Print"],
Cell[263943, 5603, 341, 8, 20, "Print"],
Cell[264287, 5613, 521, 10, 20, "Print"],
Cell[264811, 5625, 561, 11, 26, "Print"],
Cell[265375, 5638, 530, 10, 20, "Print"],
Cell[265908, 5650, 232, 4, 20, "Print"],
Cell[266143, 5656, 1134, 32, 28, "Print"],
Cell[267280, 5690, 296, 5, 20, "Print"],
Cell[267579, 5697, 341, 8, 20, "Print"],
Cell[267923, 5707, 527, 10, 20, "Print"],
Cell[268453, 5719, 563, 11, 27, "Print"],
Cell[269019, 5732, 532, 10, 20, "Print"],
Cell[269554, 5744, 230, 4, 20, "Print"],
Cell[269787, 5750, 870, 24, 28, "Print"],
Cell[270660, 5776, 298, 5, 20, "Print"],
Cell[270961, 5783, 341, 8, 20, "Print"],
Cell[271305, 5793, 523, 10, 20, "Print"],
Cell[271831, 5805, 561, 11, 27, "Print"],
Cell[272395, 5818, 532, 10, 20, "Print"],
Cell[272930, 5830, 232, 4, 20, "Print"],
Cell[273165, 5836, 1112, 31, 28, "Print"],
Cell[274280, 5869, 296, 5, 20, "Print"],
Cell[274579, 5876, 341, 8, 20, "Print"],
Cell[274923, 5886, 523, 10, 20, "Print"],
Cell[275449, 5898, 563, 11, 26, "Print"],
Cell[276015, 5911, 530, 10, 20, "Print"],
Cell[276548, 5923, 230, 4, 20, "Print"],
Cell[276781, 5929, 1112, 31, 28, "Print"],
Cell[277896, 5962, 296, 5, 20, "Print"],
Cell[278195, 5969, 343, 8, 20, "Print"],
Cell[278541, 5979, 528, 10, 20, "Print"],
Cell[279072, 5991, 563, 11, 26, "Print"],
Cell[279638, 6004, 530, 10, 20, "Print"],
Cell[280171, 6016, 230, 4, 20, "Print"],
Cell[280404, 6022, 850, 23, 28, "Print"],
Cell[281257, 6047, 296, 5, 20, "Print"],
Cell[281556, 6054, 341, 8, 20, "Print"],
Cell[281900, 6064, 528, 10, 20, "Print"],
Cell[282431, 6076, 565, 11, 26, "Print"],
Cell[282999, 6089, 530, 10, 20, "Print"],
Cell[283532, 6101, 230, 4, 20, "Print"],
Cell[283765, 6107, 848, 23, 28, "Print"],
Cell[284616, 6132, 296, 5, 20, "Print"],
Cell[284915, 6139, 341, 8, 20, "Print"],
Cell[285259, 6149, 528, 10, 20, "Print"],
Cell[285790, 6161, 563, 11, 27, "Print"],
Cell[286356, 6174, 530, 10, 20, "Print"],
Cell[286889, 6186, 230, 4, 20, "Print"],
Cell[287122, 6192, 848, 23, 28, "Print"],
Cell[287973, 6217, 296, 5, 20, "Print"],
Cell[288272, 6224, 341, 8, 20, "Print"],
Cell[288616, 6234, 528, 10, 20, "Print"],
Cell[289147, 6246, 528, 10, 20, "Print"],
Cell[289678, 6258, 532, 10, 20, "Print"],
Cell[290213, 6270, 230, 4, 20, "Print"],
Cell[290446, 6276, 8710, 236, 195, "Print"],
Cell[299159, 6514, 296, 5, 20, "Print"],
Cell[299458, 6521, 341, 8, 20, "Print"],
Cell[299802, 6531, 525, 10, 20, "Print"],
Cell[300330, 6543, 525, 10, 20, "Print"],
Cell[300858, 6555, 530, 10, 20, "Print"],
Cell[301391, 6567, 232, 4, 20, "Print"],
Cell[301626, 6573, 11012, 304, 237, "Print"],
Cell[312641, 6879, 298, 5, 20, "Print"],
Cell[312942, 6886, 341, 8, 20, "Print"],
Cell[313286, 6896, 527, 10, 20, "Print"],
Cell[313816, 6908, 566, 11, 23, "Print"],
Cell[314385, 6921, 530, 10, 20, "Print"],
Cell[314918, 6933, 229, 4, 20, "Print"],
Cell[315150, 6939, 6774, 187, 144, "Print"],
Cell[321927, 7128, 296, 5, 20, "Print"],
Cell[322226, 7135, 341, 8, 20, "Print"],
Cell[322570, 7145, 529, 10, 20, "Print"],
Cell[323102, 7157, 528, 10, 20, "Print"],
Cell[323633, 7169, 530, 10, 20, "Print"],
Cell[324166, 7181, 232, 4, 20, "Print"],
Cell[324401, 7187, 6755, 187, 144, "Print"],
Cell[331159, 7376, 296, 5, 20, "Print"],
Cell[331458, 7383, 341, 8, 20, "Print"],
Cell[331802, 7393, 525, 10, 20, "Print"],
Cell[332330, 7405, 525, 10, 20, "Print"],
Cell[332858, 7417, 525, 10, 20, "Print"],
Cell[333386, 7429, 529, 10, 20, "Print"],
Cell[333918, 7441, 230, 4, 20, "Print"],
Cell[334151, 7447, 21967, 636, 481, "Print"],
Cell[356121, 8085, 298, 5, 20, "Print"],
Cell[356422, 8092, 341, 8, 20, "Print"],
Cell[356766, 8102, 525, 10, 20, "Print"],
Cell[357294, 8114, 527, 10, 20, "Print"],
Cell[357824, 8126, 525, 10, 20, "Print"],
Cell[358352, 8138, 525, 10, 20, "Print"],
Cell[358880, 8150, 530, 10, 20, "Print"],
Cell[359413, 8162, 230, 4, 20, "Print"],
Cell[359646, 8168, 28000, 785, 677, "Print"],
Cell[387649, 8955, 296, 5, 20, "Print"],
Cell[387948, 8962, 341, 8, 20, "Print"],
Cell[388292, 8972, 523, 10, 20, "Print"],
Cell[388818, 8984, 561, 11, 28, "Print"],
Cell[389382, 8997, 530, 10, 20, "Print"],
Cell[389915, 9009, 230, 4, 20, "Print"],
Cell[390148, 9015, 4560, 131, 90, "Print"],
Cell[394711, 9148, 296, 5, 20, "Print"],
Cell[395010, 9155, 341, 8, 20, "Print"],
Cell[395354, 9165, 523, 10, 20, "Print"],
Cell[395880, 9177, 561, 11, 28, "Print"],
Cell[396444, 9190, 532, 10, 20, "Print"],
Cell[396979, 9202, 230, 4, 20, "Print"],
Cell[397212, 9208, 3971, 114, 94, "Print"],
Cell[401186, 9324, 296, 5, 20, "Print"],
Cell[401485, 9331, 341, 8, 20, "Print"],
Cell[401829, 9341, 523, 10, 20, "Print"],
Cell[402355, 9353, 561, 11, 26, "Print"],
Cell[402919, 9366, 530, 10, 20, "Print"],
Cell[403452, 9378, 232, 4, 20, "Print"],
Cell[403687, 9384, 3969, 114, 94, "Print"],
Cell[407659, 9500, 296, 5, 20, "Print"],
Cell[407958, 9507, 341, 8, 20, "Print"],
Cell[408302, 9517, 523, 10, 20, "Print"],
Cell[408828, 9529, 561, 11, 26, "Print"],
Cell[409392, 9542, 530, 10, 20, "Print"],
Cell[409925, 9554, 230, 4, 20, "Print"],
Cell[410158, 9560, 3155, 90, 48, "Print"],
Cell[413316, 9652, 296, 5, 20, "Print"],
Cell[413615, 9659, 341, 8, 20, "Print"],
Cell[413959, 9669, 524, 10, 20, "Print"],
Cell[414486, 9681, 563, 11, 26, "Print"],
Cell[415052, 9694, 530, 10, 20, "Print"],
Cell[415585, 9706, 230, 4, 20, "Print"],
Cell[415818, 9712, 3155, 90, 48, "Print"],
Cell[418976, 9804, 295, 5, 20, "Print"],
Cell[419274, 9811, 343, 8, 20, "Print"],
Cell[419620, 9821, 530, 10, 20, "Print"],
Cell[420153, 9833, 565, 11, 27, "Print"],
Cell[420721, 9846, 530, 10, 20, "Print"],
Cell[421254, 9858, 230, 4, 20, "Print"],
Cell[421487, 9864, 3612, 103, 90, "Print"],
Cell[425102, 9969, 296, 5, 20, "Print"],
Cell[425401, 9976, 343, 8, 20, "Print"],
Cell[425747, 9986, 523, 10, 20, "Print"],
Cell[426273, 9998, 561, 11, 26, "Print"],
Cell[426837, 10011, 529, 10, 20, "Print"],
Cell[427369, 10023, 230, 4, 20, "Print"],
Cell[427602, 10029, 3969, 114, 94, "Print"],
Cell[431574, 10145, 296, 5, 20, "Print"],
Cell[431873, 10152, 341, 8, 20, "Print"],
Cell[432217, 10162, 525, 10, 20, "Print"],
Cell[432745, 10174, 561, 11, 27, "Print"],
Cell[433309, 10187, 530, 10, 20, "Print"],
Cell[433842, 10199, 230, 4, 20, "Print"],
Cell[434075, 10205, 4560, 131, 90, "Print"],
Cell[438638, 10338, 296, 5, 20, "Print"],
Cell[438937, 10345, 341, 8, 20, "Print"],
Cell[439281, 10355, 523, 10, 20, "Print"],
Cell[439807, 10367, 561, 11, 26, "Print"],
Cell[440371, 10380, 530, 10, 20, "Print"],
Cell[440904, 10392, 230, 4, 20, "Print"],
Cell[441137, 10398, 3971, 114, 94, "Print"],
Cell[445111, 10514, 295, 5, 20, "Print"],
Cell[445409, 10521, 341, 8, 20, "Print"],
Cell[445753, 10531, 528, 10, 20, "Print"],
Cell[446284, 10543, 563, 11, 26, "Print"],
Cell[446850, 10556, 530, 10, 20, "Print"],
Cell[447383, 10568, 232, 4, 20, "Print"],
Cell[447618, 10574, 3154, 90, 48, "Print"],
Cell[450775, 10666, 296, 5, 20, "Print"],
Cell[451074, 10673, 341, 8, 20, "Print"],
Cell[451418, 10683, 528, 10, 20, "Print"],
Cell[451949, 10695, 565, 11, 26, "Print"],
Cell[452517, 10708, 530, 10, 20, "Print"],
Cell[453050, 10720, 230, 4, 20, "Print"],
Cell[453283, 10726, 3155, 90, 48, "Print"],
Cell[456441, 10818, 298, 5, 20, "Print"],
Cell[456742, 10825, 343, 8, 20, "Print"],
Cell[457088, 10835, 528, 10, 20, "Print"],
Cell[457619, 10847, 563, 11, 27, "Print"],
Cell[458185, 10860, 530, 10, 20, "Print"],
Cell[458718, 10872, 230, 4, 20, "Print"],
Cell[458951, 10878, 3157, 90, 48, "Print"],
Cell[462111, 10970, 296, 5, 20, "Print"],
Cell[462410, 10977, 341, 8, 20, "Print"],
Cell[462754, 10987, 522, 10, 20, "Print"],
Cell[463279, 10999, 561, 11, 26, "Print"],
Cell[463843, 11012, 525, 10, 20, "Print"],
Cell[464371, 11024, 530, 10, 20, "Print"],
Cell[464904, 11036, 230, 4, 20, "Print"],
Cell[465137, 11042, 2394, 68, 50, "Print"],
Cell[467534, 11112, 295, 5, 20, "Print"],
Cell[467832, 11119, 343, 8, 20, "Print"],
Cell[468178, 11129, 525, 10, 20, "Print"],
Cell[468706, 11141, 523, 10, 20, "Print"],
Cell[469232, 11153, 561, 11, 27, "Print"],
Cell[469796, 11166, 532, 10, 20, "Print"],
Cell[470331, 11178, 232, 4, 20, "Print"],
Cell[470566, 11184, 2396, 68, 50, "Print"],
Cell[472965, 11254, 296, 5, 20, "Print"],
Cell[473264, 11261, 341, 8, 20, "Print"],
Cell[473608, 11271, 527, 10, 20, "Print"],
Cell[474138, 11283, 523, 10, 20, "Print"],
Cell[474664, 11295, 561, 11, 26, "Print"],
Cell[475228, 11308, 530, 10, 20, "Print"],
Cell[475761, 11320, 229, 4, 20, "Print"],
Cell[475993, 11326, 2394, 68, 50, "Print"],
Cell[478390, 11396, 295, 5, 20, "Print"],
Cell[478688, 11403, 343, 8, 20, "Print"],
Cell[479034, 11413, 523, 10, 20, "Print"],
Cell[479560, 11425, 561, 11, 28, "Print"],
Cell[480124, 11438, 525, 10, 20, "Print"],
Cell[480652, 11450, 530, 10, 20, "Print"],
Cell[481185, 11462, 232, 4, 20, "Print"],
Cell[481420, 11468, 2394, 68, 50, "Print"],
Cell[483817, 11538, 298, 5, 20, "Print"],
Cell[484118, 11545, 343, 8, 20, "Print"],
Cell[484464, 11555, 523, 10, 20, "Print"],
Cell[484990, 11567, 561, 11, 28, "Print"],
Cell[485554, 11580, 527, 10, 20, "Print"],
Cell[486084, 11592, 532, 10, 20, "Print"],
Cell[486619, 11604, 230, 4, 20, "Print"],
Cell[486852, 11610, 2393, 68, 50, "Print"],
Cell[489248, 11680, 296, 5, 20, "Print"],
Cell[489547, 11687, 340, 8, 20, "Print"],
Cell[489890, 11697, 525, 10, 20, "Print"],
Cell[490418, 11709, 523, 10, 20, "Print"],
Cell[490944, 11721, 563, 11, 26, "Print"],
Cell[491510, 11734, 532, 10, 20, "Print"],
Cell[492045, 11746, 230, 4, 20, "Print"],
Cell[492278, 11752, 2394, 68, 50, "Print"],
Cell[494675, 11822, 296, 5, 20, "Print"],
Cell[494974, 11829, 340, 8, 20, "Print"],
Cell[495317, 11839, 528, 10, 20, "Print"],
Cell[495848, 11851, 525, 10, 20, "Print"],
Cell[496376, 11863, 564, 11, 23, "Print"],
Cell[496943, 11876, 530, 10, 20, "Print"],
Cell[497476, 11888, 230, 4, 20, "Print"],
Cell[497709, 11894, 1555, 45, 48, "Print"],
Cell[499267, 11941, 296, 5, 20, "Print"],
Cell[499566, 11948, 341, 8, 20, "Print"],
Cell[499910, 11958, 530, 10, 20, "Print"],
Cell[500443, 11970, 528, 10, 20, "Print"],
Cell[500974, 11982, 528, 10, 20, "Print"],
Cell[501505, 11994, 230, 4, 20, "Print"],
Cell[501738, 12000, 2510, 69, 51, "Print"],
Cell[504251, 12071, 298, 5, 20, "Print"],
Cell[504552, 12078, 341, 8, 20, "Print"],
Cell[504896, 12088, 530, 10, 20, "Print"],
Cell[505429, 12100, 530, 10, 20, "Print"],
Cell[505962, 12112, 528, 10, 20, "Print"],
Cell[506493, 12124, 528, 10, 20, "Print"],
Cell[507024, 12136, 230, 4, 20, "Print"],
Cell[507257, 12142, 1353, 37, 50, "Print"],
Cell[508613, 12181, 296, 5, 20, "Print"],
Cell[508912, 12188, 343, 8, 20, "Print"],
Cell[509258, 12198, 525, 10, 20, "Print"],
Cell[509786, 12210, 564, 11, 23, "Print"],
Cell[510353, 12223, 530, 10, 20, "Print"],
Cell[510886, 12235, 528, 10, 20, "Print"],
Cell[511417, 12247, 230, 4, 20, "Print"],
Cell[511650, 12253, 1586, 44, 50, "Print"],
Cell[513239, 12299, 298, 5, 20, "Print"],
Cell[513540, 12306, 341, 8, 20, "Print"],
Cell[513884, 12316, 528, 10, 20, "Print"],
Cell[514415, 12328, 520, 10, 20, "Print"],
Cell[514938, 12340, 561, 11, 28, "Print"],
Cell[515502, 12353, 230, 4, 20, "Print"],
Cell[515735, 12359, 599, 16, 40, "Print"],
Cell[516337, 12377, 296, 5, 20, "Print"],
Cell[516636, 12384, 343, 8, 20, "Print"],
Cell[516982, 12394, 530, 10, 20, "Print"],
Cell[517515, 12406, 522, 10, 20, "Print"],
Cell[518040, 12418, 561, 11, 28, "Print"],
Cell[518604, 12431, 230, 4, 20, "Print"],
Cell[518837, 12437, 599, 16, 40, "Print"],
Cell[519439, 12455, 296, 5, 20, "Print"],
Cell[519738, 12462, 343, 8, 20, "Print"],
Cell[520084, 12472, 530, 10, 20, "Print"],
Cell[520617, 12484, 522, 10, 20, "Print"],
Cell[521142, 12496, 561, 11, 26, "Print"],
Cell[521706, 12509, 230, 4, 20, "Print"],
Cell[521939, 12515, 599, 16, 40, "Print"],
Cell[522541, 12533, 296, 5, 20, "Print"],
Cell[522840, 12540, 343, 8, 20, "Print"],
Cell[523186, 12550, 530, 10, 20, "Print"],
Cell[523719, 12562, 525, 10, 20, "Print"],
Cell[524247, 12574, 561, 11, 26, "Print"],
Cell[524811, 12587, 232, 4, 20, "Print"],
Cell[525046, 12593, 439, 11, 28, "Print"],
Cell[525488, 12606, 296, 5, 20, "Print"],
Cell[525787, 12613, 341, 8, 20, "Print"],
Cell[526131, 12623, 528, 10, 20, "Print"],
Cell[526662, 12635, 527, 10, 20, "Print"],
Cell[527192, 12647, 563, 11, 26, "Print"],
Cell[527758, 12660, 230, 4, 20, "Print"],
Cell[527991, 12666, 440, 11, 28, "Print"],
Cell[528434, 12679, 296, 5, 20, "Print"],
Cell[528733, 12686, 343, 8, 20, "Print"],
Cell[529079, 12696, 528, 10, 20, "Print"],
Cell[529610, 12708, 528, 10, 20, "Print"],
Cell[530141, 12720, 563, 11, 27, "Print"],
Cell[530707, 12733, 232, 4, 20, "Print"],
Cell[530942, 12739, 440, 11, 28, "Print"],
Cell[531385, 12752, 296, 5, 20, "Print"],
Cell[531684, 12759, 341, 8, 20, "Print"],
Cell[532028, 12769, 530, 10, 20, "Print"],
Cell[532561, 12781, 525, 10, 20, "Print"],
Cell[533089, 12793, 563, 11, 26, "Print"],
Cell[533655, 12806, 230, 4, 20, "Print"],
Cell[533888, 12812, 580, 15, 40, "Print"],
Cell[534471, 12829, 296, 5, 20, "Print"],
Cell[534770, 12836, 341, 8, 20, "Print"],
Cell[535114, 12846, 528, 10, 20, "Print"],
Cell[535645, 12858, 523, 10, 20, "Print"],
Cell[536171, 12870, 560, 11, 27, "Print"],
Cell[536734, 12883, 230, 4, 20, "Print"],
Cell[536967, 12889, 580, 15, 40, "Print"],
Cell[537550, 12906, 296, 5, 20, "Print"],
Cell[537849, 12913, 341, 8, 20, "Print"],
Cell[538193, 12923, 528, 10, 20, "Print"],
Cell[538724, 12935, 525, 10, 20, "Print"],
Cell[539252, 12947, 563, 11, 26, "Print"],
Cell[539818, 12960, 230, 4, 20, "Print"],
Cell[540051, 12966, 580, 15, 40, "Print"],
Cell[540634, 12983, 295, 5, 20, "Print"],
Cell[540932, 12990, 341, 8, 20, "Print"],
Cell[541276, 13000, 561, 11, 26, "Print"],
Cell[541840, 13013, 525, 10, 20, "Print"],
Cell[542368, 13025, 527, 10, 20, "Print"],
Cell[542898, 13037, 230, 4, 20, "Print"],
Cell[543131, 13043, 821, 25, 50, "Print"],
Cell[543955, 13070, 295, 5, 20, "Print"],
Cell[544253, 13077, 343, 8, 20, "Print"],
Cell[544599, 13087, 561, 11, 26, "Print"],
Cell[545163, 13100, 525, 10, 20, "Print"],
Cell[545691, 13112, 525, 10, 20, "Print"],
Cell[546219, 13124, 230, 4, 20, "Print"],
Cell[546452, 13130, 821, 25, 50, "Print"],
Cell[547276, 13157, 296, 5, 20, "Print"],
Cell[547575, 13164, 343, 8, 20, "Print"],
Cell[547921, 13174, 523, 10, 20, "Print"],
Cell[548447, 13186, 563, 11, 27, "Print"],
Cell[549013, 13199, 525, 10, 20, "Print"],
Cell[549541, 13211, 230, 4, 20, "Print"],
Cell[549774, 13217, 715, 21, 48, "Print"],
Cell[550492, 13240, 296, 5, 20, "Print"],
Cell[550791, 13247, 343, 8, 20, "Print"],
Cell[551137, 13257, 525, 10, 20, "Print"],
Cell[551665, 13269, 561, 11, 26, "Print"],
Cell[552229, 13282, 525, 10, 20, "Print"],
Cell[552757, 13294, 230, 4, 20, "Print"],
Cell[552990, 13300, 821, 25, 50, "Print"],
Cell[553814, 13327, 298, 5, 20, "Print"],
Cell[554115, 13334, 343, 8, 20, "Print"],
Cell[554461, 13344, 525, 10, 20, "Print"],
Cell[554989, 13356, 561, 11, 26, "Print"],
Cell[555553, 13369, 525, 10, 20, "Print"],
Cell[556081, 13381, 230, 4, 20, "Print"],
Cell[556314, 13387, 821, 25, 50, "Print"],
Cell[557138, 13414, 298, 5, 20, "Print"],
Cell[557439, 13421, 343, 8, 20, "Print"],
Cell[557785, 13431, 523, 10, 20, "Print"],
Cell[558311, 13443, 563, 11, 26, "Print"],
Cell[558877, 13456, 525, 10, 20, "Print"],
Cell[559405, 13468, 230, 4, 20, "Print"],
Cell[559638, 13474, 584, 17, 48, "Print"],
Cell[560225, 13493, 296, 5, 20, "Print"],
Cell[560524, 13500, 341, 8, 20, "Print"],
Cell[560868, 13510, 525, 10, 20, "Print"],
Cell[561396, 13522, 563, 11, 26, "Print"],
Cell[561962, 13535, 527, 10, 20, "Print"],
Cell[562492, 13547, 229, 4, 20, "Print"],
Cell[562724, 13553, 584, 17, 48, "Print"],
Cell[563311, 13572, 296, 5, 20, "Print"],
Cell[563610, 13579, 343, 8, 20, "Print"],
Cell[563956, 13589, 528, 10, 20, "Print"],
Cell[564487, 13601, 563, 11, 27, "Print"],
Cell[565053, 13614, 525, 10, 20, "Print"],
Cell[565581, 13626, 230, 4, 20, "Print"],
Cell[565814, 13632, 584, 17, 48, "Print"],
Cell[566401, 13651, 296, 5, 20, "Print"],
Cell[566700, 13658, 340, 8, 20, "Print"],
Cell[567043, 13668, 561, 11, 26, "Print"],
Cell[567607, 13681, 528, 10, 20, "Print"],
Cell[568138, 13693, 564, 11, 23, "Print"],
Cell[568705, 13706, 230, 4, 20, "Print"],
Cell[568938, 13712, 584, 17, 48, "Print"],
Cell[569525, 13731, 295, 5, 20, "Print"],
Cell[569823, 13738, 343, 8, 20, "Print"],
Cell[570169, 13748, 562, 11, 26, "Print"],
Cell[570734, 13761, 530, 10, 20, "Print"],
Cell[571267, 13773, 564, 11, 23, "Print"],
Cell[571834, 13786, 230, 4, 20, "Print"],
Cell[572067, 13792, 586, 17, 48, "Print"],
Cell[572656, 13811, 296, 5, 20, "Print"],
Cell[572955, 13818, 343, 8, 20, "Print"],
Cell[573301, 13828, 562, 11, 27, "Print"],
Cell[573866, 13841, 530, 10, 20, "Print"],
Cell[574399, 13853, 564, 11, 23, "Print"],
Cell[574966, 13866, 230, 4, 20, "Print"],
Cell[575199, 13872, 583, 17, 48, "Print"],
Cell[575785, 13891, 296, 5, 20, "Print"],
Cell[576084, 13898, 341, 8, 20, "Print"],
Cell[576428, 13908, 561, 11, 28, "Print"],
Cell[576992, 13921, 525, 10, 20, "Print"],
Cell[577520, 13933, 564, 11, 23, "Print"],
Cell[578087, 13946, 232, 4, 20, "Print"],
Cell[578322, 13952, 714, 21, 48, "Print"],
Cell[579039, 13975, 296, 5, 20, "Print"],
Cell[579338, 13982, 341, 8, 20, "Print"],
Cell[579682, 13992, 523, 10, 20, "Print"],
Cell[580208, 14004, 560, 11, 28, "Print"],
Cell[580771, 14017, 564, 11, 23, "Print"],
Cell[581338, 14030, 230, 4, 20, "Print"],
Cell[581571, 14036, 864, 26, 52, "Print"],
Cell[582438, 14064, 295, 5, 20, "Print"],
Cell[582736, 14071, 341, 8, 20, "Print"],
Cell[583080, 14081, 561, 11, 28, "Print"],
Cell[583644, 14094, 523, 10, 20, "Print"],
Cell[584170, 14106, 564, 11, 23, "Print"],
Cell[584737, 14119, 232, 4, 20, "Print"],
Cell[584972, 14125, 866, 26, 52, "Print"],
Cell[585841, 14153, 296, 5, 20, "Print"],
Cell[586140, 14160, 341, 8, 20, "Print"],
Cell[586484, 14170, 523, 10, 20, "Print"],
Cell[587010, 14182, 561, 11, 26, "Print"],
Cell[587574, 14195, 566, 11, 23, "Print"],
Cell[588143, 14208, 230, 4, 20, "Print"],
Cell[588376, 14214, 864, 26, 52, "Print"],
Cell[589243, 14242, 296, 5, 20, "Print"],
Cell[589542, 14249, 343, 8, 20, "Print"],
Cell[589888, 14259, 561, 11, 26, "Print"],
Cell[590452, 14272, 523, 10, 20, "Print"],
Cell[590978, 14284, 564, 11, 23, "Print"],
Cell[591545, 14297, 229, 4, 20, "Print"],
Cell[591777, 14303, 864, 26, 52, "Print"],
Cell[592644, 14331, 296, 5, 20, "Print"],
Cell[592943, 14338, 341, 8, 20, "Print"],
Cell[593287, 14348, 530, 10, 20, "Print"],
Cell[593820, 14360, 523, 10, 20, "Print"],
Cell[594346, 14372, 561, 11, 28, "Print"],
Cell[594910, 14385, 530, 10, 20, "Print"],
Cell[595443, 14397, 229, 4, 20, "Print"],
Cell[595675, 14403, 4710, 138, 94, "Print"],
Cell[600388, 14543, 296, 5, 20, "Print"],
Cell[600687, 14550, 341, 8, 20, "Print"],
Cell[601031, 14560, 528, 10, 20, "Print"],
Cell[601562, 14572, 523, 10, 20, "Print"],
Cell[602088, 14584, 561, 11, 28, "Print"],
Cell[602652, 14597, 530, 10, 20, "Print"],
Cell[603185, 14609, 230, 4, 20, "Print"],
Cell[603418, 14615, 4708, 138, 94, "Print"],
Cell[608129, 14755, 296, 5, 20, "Print"],
Cell[608428, 14762, 343, 8, 20, "Print"],
Cell[608774, 14772, 527, 10, 20, "Print"],
Cell[609304, 14784, 523, 10, 20, "Print"],
Cell[609830, 14796, 563, 11, 26, "Print"],
Cell[610396, 14809, 530, 10, 20, "Print"],
Cell[610929, 14821, 232, 4, 20, "Print"],
Cell[611164, 14827, 4708, 138, 94, "Print"],
Cell[615875, 14967, 296, 5, 20, "Print"],
Cell[616174, 14974, 341, 8, 20, "Print"],
Cell[616518, 14984, 528, 10, 20, "Print"],
Cell[617049, 14996, 523, 10, 20, "Print"],
Cell[617575, 15008, 561, 11, 26, "Print"],
Cell[618139, 15021, 530, 10, 20, "Print"],
Cell[618672, 15033, 232, 4, 20, "Print"],
Cell[618907, 15039, 3845, 112, 92, "Print"],
Cell[622755, 15153, 296, 5, 20, "Print"],
Cell[623054, 15160, 341, 8, 20, "Print"],
Cell[623398, 15170, 530, 10, 20, "Print"],
Cell[623931, 15182, 527, 10, 20, "Print"],
Cell[624461, 15194, 565, 11, 26, "Print"],
Cell[625029, 15207, 530, 10, 20, "Print"],
Cell[625562, 15219, 230, 4, 20, "Print"],
Cell[625795, 15225, 3845, 112, 92, "Print"],
Cell[629643, 15339, 296, 5, 20, "Print"],
Cell[629942, 15346, 343, 8, 20, "Print"],
Cell[630288, 15356, 530, 10, 20, "Print"],
Cell[630821, 15368, 530, 10, 20, "Print"],
Cell[631354, 15380, 563, 11, 27, "Print"],
Cell[631920, 15393, 530, 10, 20, "Print"],
Cell[632453, 15405, 230, 4, 20, "Print"],
Cell[632686, 15411, 3847, 112, 92, "Print"],
Cell[636536, 15525, 296, 5, 20, "Print"],
Cell[636835, 15532, 340, 8, 20, "Print"],
Cell[637178, 15542, 528, 10, 20, "Print"],
Cell[637709, 15554, 523, 10, 20, "Print"],
Cell[638235, 15566, 561, 11, 26, "Print"],
Cell[638799, 15579, 530, 10, 20, "Print"],
Cell[639332, 15591, 230, 4, 20, "Print"],
Cell[639565, 15597, 4690, 137, 94, "Print"],
Cell[644258, 15736, 296, 5, 20, "Print"],
Cell[644557, 15743, 341, 8, 20, "Print"],
Cell[644901, 15753, 530, 10, 20, "Print"],
Cell[645434, 15765, 525, 10, 20, "Print"],
Cell[645962, 15777, 563, 11, 27, "Print"],
Cell[646528, 15790, 530, 10, 20, "Print"],
Cell[647061, 15802, 230, 4, 20, "Print"],
Cell[647294, 15808, 4688, 137, 94, "Print"],
Cell[651985, 15947, 298, 5, 20, "Print"],
Cell[652286, 15954, 341, 8, 20, "Print"],
Cell[652630, 15964, 528, 10, 20, "Print"],
Cell[653161, 15976, 523, 10, 20, "Print"],
Cell[653687, 15988, 561, 11, 26, "Print"],
Cell[654251, 16001, 532, 10, 20, "Print"],
Cell[654786, 16013, 230, 4, 20, "Print"],
Cell[655019, 16019, 4687, 137, 94, "Print"],
Cell[659709, 16158, 298, 5, 20, "Print"],
Cell[660010, 16165, 343, 8, 20, "Print"],
Cell[660356, 16175, 523, 10, 20, "Print"],
Cell[660882, 16187, 565, 11, 26, "Print"],
Cell[661450, 16200, 525, 10, 20, "Print"],
Cell[661978, 16212, 530, 10, 20, "Print"],
Cell[662511, 16224, 230, 4, 20, "Print"],
Cell[662744, 16230, 2202, 65, 52, "Print"],
Cell[664949, 16297, 296, 5, 20, "Print"],
Cell[665248, 16304, 345, 8, 20, "Print"],
Cell[665596, 16314, 525, 10, 20, "Print"],
Cell[666124, 16326, 563, 11, 26, "Print"],
Cell[666690, 16339, 525, 10, 20, "Print"],
Cell[667218, 16351, 530, 10, 20, "Print"],
Cell[667751, 16363, 232, 4, 20, "Print"],
Cell[667986, 16369, 2202, 65, 52, "Print"],
Cell[670191, 16436, 296, 5, 20, "Print"],
Cell[670490, 16443, 343, 8, 20, "Print"],
Cell[670836, 16453, 528, 10, 20, "Print"],
Cell[671367, 16465, 563, 11, 27, "Print"],
Cell[671933, 16478, 525, 10, 20, "Print"],
Cell[672461, 16490, 530, 10, 20, "Print"],
Cell[672994, 16502, 230, 4, 20, "Print"],
Cell[673227, 16508, 2202, 65, 52, "Print"],
Cell[675432, 16575, 296, 5, 20, "Print"],
Cell[675731, 16582, 343, 8, 20, "Print"],
Cell[676077, 16592, 561, 11, 26, "Print"],
Cell[676641, 16605, 525, 10, 20, "Print"],
Cell[677169, 16617, 525, 10, 20, "Print"],
Cell[677697, 16629, 528, 10, 20, "Print"],
Cell[678228, 16641, 230, 4, 20, "Print"],
Cell[678461, 16647, 2931, 89, 52, "Print"],
Cell[681395, 16738, 296, 5, 20, "Print"],
Cell[681694, 16745, 345, 8, 20, "Print"],
Cell[682042, 16755, 563, 11, 26, "Print"],
Cell[682608, 16768, 523, 10, 20, "Print"],
Cell[683134, 16780, 521, 10, 20, "Print"],
Cell[683658, 16792, 530, 10, 20, "Print"],
Cell[684191, 16804, 230, 4, 20, "Print"],
Cell[684424, 16810, 2931, 89, 52, "Print"],
Cell[687358, 16901, 296, 5, 20, "Print"],
Cell[687657, 16908, 343, 8, 20, "Print"],
Cell[688003, 16918, 523, 10, 20, "Print"],
Cell[688529, 16930, 561, 11, 27, "Print"],
Cell[689093, 16943, 527, 10, 20, "Print"],
Cell[689623, 16955, 532, 10, 20, "Print"],
Cell[690158, 16967, 230, 4, 20, "Print"],
Cell[690391, 16973, 2607, 77, 52, "Print"],
Cell[693001, 17052, 296, 5, 20, "Print"],
Cell[693300, 17059, 343, 8, 20, "Print"],
Cell[693646, 17069, 525, 10, 20, "Print"],
Cell[694174, 17081, 561, 11, 26, "Print"],
Cell[694738, 17094, 525, 10, 20, "Print"],
Cell[695266, 17106, 530, 10, 20, "Print"],
Cell[695799, 17118, 230, 4, 20, "Print"],
Cell[696032, 17124, 2931, 89, 52, "Print"],
Cell[698966, 17215, 296, 5, 20, "Print"],
Cell[699265, 17222, 343, 8, 20, "Print"],
Cell[699611, 17232, 523, 10, 20, "Print"],
Cell[700137, 17244, 561, 11, 26, "Print"],
Cell[700701, 17257, 527, 10, 20, "Print"],
Cell[701231, 17269, 529, 10, 20, "Print"],
Cell[701763, 17281, 232, 4, 20, "Print"],
Cell[701998, 17287, 2931, 89, 52, "Print"],
Cell[704932, 17378, 296, 5, 20, "Print"],
Cell[705231, 17385, 343, 8, 20, "Print"],
Cell[705577, 17395, 561, 11, 26, "Print"],
Cell[706141, 17408, 528, 10, 20, "Print"],
Cell[706672, 17420, 564, 11, 23, "Print"],
Cell[707239, 17433, 532, 10, 20, "Print"],
Cell[707774, 17445, 230, 4, 20, "Print"],
Cell[708007, 17451, 2202, 65, 52, "Print"],
Cell[710212, 17518, 298, 5, 20, "Print"],
Cell[710513, 17525, 345, 8, 20, "Print"],
Cell[710861, 17535, 562, 11, 26, "Print"],
Cell[711426, 17548, 528, 10, 20, "Print"],
Cell[711957, 17560, 564, 11, 23, "Print"],
Cell[712524, 17573, 530, 10, 20, "Print"],
Cell[713057, 17585, 229, 4, 20, "Print"],
Cell[713289, 17591, 2204, 65, 52, "Print"],
Cell[715496, 17658, 296, 5, 20, "Print"],
Cell[715795, 17665, 343, 8, 20, "Print"],
Cell[716141, 17675, 563, 11, 27, "Print"],
Cell[716707, 17688, 528, 10, 20, "Print"],
Cell[717238, 17700, 564, 11, 23, "Print"],
Cell[717805, 17713, 530, 10, 20, "Print"],
Cell[718338, 17725, 230, 4, 20, "Print"],
Cell[718571, 17731, 2201, 65, 52, "Print"],
Cell[720775, 17798, 296, 5, 20, "Print"],
Cell[721074, 17805, 345, 8, 20, "Print"],
Cell[721422, 17815, 563, 11, 28, "Print"],
Cell[721988, 17828, 525, 10, 20, "Print"],
Cell[722516, 17840, 564, 11, 23, "Print"],
Cell[723083, 17853, 530, 10, 20, "Print"],
Cell[723616, 17865, 230, 4, 20, "Print"],
Cell[723849, 17871, 2606, 77, 52, "Print"],
Cell[726458, 17950, 296, 5, 20, "Print"],
Cell[726757, 17957, 343, 8, 20, "Print"],
Cell[727103, 17967, 523, 10, 20, "Print"],
Cell[727629, 17979, 561, 11, 28, "Print"],
Cell[728193, 17992, 566, 11, 23, "Print"],
Cell[728762, 18005, 530, 10, 20, "Print"],
Cell[729295, 18017, 230, 4, 20, "Print"],
Cell[729528, 18023, 3069, 92, 52, "Print"],
Cell[732600, 18117, 296, 5, 20, "Print"],
Cell[732899, 18124, 343, 8, 20, "Print"],
Cell[733245, 18134, 561, 11, 28, "Print"],
Cell[733809, 18147, 523, 10, 20, "Print"],
Cell[734335, 18159, 564, 11, 23, "Print"],
Cell[734902, 18172, 530, 10, 20, "Print"],
Cell[735435, 18184, 230, 4, 20, "Print"],
Cell[735668, 18190, 3071, 92, 52, "Print"],
Cell[738742, 18284, 296, 5, 20, "Print"],
Cell[739041, 18291, 343, 8, 20, "Print"],
Cell[739387, 18301, 523, 10, 20, "Print"],
Cell[739913, 18313, 561, 11, 26, "Print"],
Cell[740477, 18326, 566, 11, 23, "Print"],
Cell[741046, 18339, 530, 10, 20, "Print"],
Cell[741579, 18351, 232, 4, 20, "Print"],
Cell[741814, 18357, 3069, 92, 52, "Print"],
Cell[744886, 18451, 296, 5, 20, "Print"],
Cell[745185, 18458, 345, 8, 20, "Print"],
Cell[745533, 18468, 561, 11, 26, "Print"],
Cell[746097, 18481, 523, 10, 20, "Print"],
Cell[746623, 18493, 564, 11, 23, "Print"],
Cell[747190, 18506, 532, 10, 20, "Print"],
Cell[747725, 18518, 230, 4, 20, "Print"],
Cell[747958, 18524, 3071, 92, 52, "Print"],
Cell[751032, 18618, 295, 5, 20, "Print"],
Cell[751330, 18625, 342, 8, 20, "Print"],
Cell[751675, 18635, 525, 10, 20, "Print"],
Cell[752203, 18647, 559, 11, 28, "Print"],
Cell[752765, 18660, 530, 10, 20, "Print"],
Cell[753298, 18672, 230, 4, 20, "Print"],
Cell[753531, 18678, 1893, 57, 46, "Print"],
Cell[755427, 18737, 298, 5, 20, "Print"],
Cell[755728, 18744, 345, 8, 20, "Print"],
Cell[756076, 18754, 525, 10, 20, "Print"],
Cell[756604, 18766, 561, 11, 28, "Print"],
Cell[757168, 18779, 528, 10, 20, "Print"],
Cell[757699, 18791, 230, 4, 20, "Print"],
Cell[757932, 18797, 1893, 57, 46, "Print"],
Cell[759828, 18856, 296, 5, 20, "Print"],
Cell[760127, 18863, 343, 8, 20, "Print"],
Cell[760473, 18873, 523, 10, 20, "Print"],
Cell[760999, 18885, 563, 11, 26, "Print"],
Cell[761565, 18898, 528, 10, 20, "Print"],
Cell[762096, 18910, 232, 4, 20, "Print"],
Cell[762331, 18916, 1891, 57, 46, "Print"],
Cell[764225, 18975, 296, 5, 20, "Print"],
Cell[764524, 18982, 343, 8, 20, "Print"],
Cell[764870, 18992, 523, 10, 20, "Print"],
Cell[765396, 19004, 561, 11, 26, "Print"],
Cell[765960, 19017, 530, 10, 20, "Print"],
Cell[766493, 19029, 230, 4, 20, "Print"],
Cell[766726, 19035, 1457, 44, 46, "Print"],
Cell[768186, 19081, 296, 5, 20, "Print"],
Cell[768485, 19088, 343, 8, 20, "Print"],
Cell[768831, 19098, 525, 10, 20, "Print"],
Cell[769359, 19110, 563, 11, 26, "Print"],
Cell[769925, 19123, 528, 10, 20, "Print"],
Cell[770456, 19135, 230, 4, 20, "Print"],
Cell[770689, 19141, 1457, 44, 46, "Print"],
Cell[772149, 19187, 298, 5, 20, "Print"],
Cell[772450, 19194, 343, 8, 20, "Print"],
Cell[772796, 19204, 528, 10, 20, "Print"],
Cell[773327, 19216, 565, 11, 27, "Print"],
Cell[773895, 19229, 528, 10, 20, "Print"],
Cell[774426, 19241, 230, 4, 20, "Print"],
Cell[774659, 19247, 1457, 44, 46, "Print"],
Cell[776119, 19293, 296, 5, 20, "Print"],
Cell[776418, 19300, 343, 8, 20, "Print"],
Cell[776764, 19310, 522, 10, 20, "Print"],
Cell[777289, 19322, 563, 11, 26, "Print"],
Cell[777855, 19335, 528, 10, 20, "Print"],
Cell[778386, 19347, 230, 4, 20, "Print"],
Cell[778619, 19353, 1866, 56, 46, "Print"],
Cell[780488, 19411, 298, 5, 20, "Print"],
Cell[780789, 19418, 343, 8, 20, "Print"],
Cell[781135, 19428, 523, 10, 20, "Print"],
Cell[781661, 19440, 561, 11, 27, "Print"],
Cell[782225, 19453, 530, 10, 20, "Print"],
Cell[782758, 19465, 232, 4, 20, "Print"],
Cell[782993, 19471, 1865, 56, 46, "Print"],
Cell[784861, 19529, 298, 5, 20, "Print"],
Cell[785162, 19536, 342, 8, 20, "Print"],
Cell[785507, 19546, 523, 10, 20, "Print"],
Cell[786033, 19558, 563, 11, 26, "Print"],
Cell[786599, 19571, 526, 10, 20, "Print"],
Cell[787128, 19583, 230, 4, 20, "Print"],
Cell[787361, 19589, 1866, 56, 46, "Print"],
Cell[789230, 19647, 298, 5, 20, "Print"],
Cell[789531, 19654, 343, 8, 20, "Print"],
Cell[789877, 19664, 528, 10, 20, "Print"],
Cell[790408, 19676, 563, 11, 26, "Print"],
Cell[790974, 19689, 530, 10, 20, "Print"],
Cell[791507, 19701, 230, 4, 20, "Print"],
Cell[791740, 19707, 1040, 31, 46, "Print"],
Cell[792783, 19740, 296, 5, 20, "Print"],
Cell[793082, 19747, 343, 8, 20, "Print"],
Cell[793428, 19757, 528, 10, 20, "Print"],
Cell[793959, 19769, 563, 11, 26, "Print"],
Cell[794525, 19782, 528, 10, 20, "Print"],
Cell[795056, 19794, 230, 4, 20, "Print"],
Cell[795289, 19800, 1040, 31, 46, "Print"],
Cell[796332, 19833, 296, 5, 20, "Print"],
Cell[796631, 19840, 343, 8, 20, "Print"],
Cell[796977, 19850, 528, 10, 20, "Print"],
Cell[797508, 19862, 563, 11, 27, "Print"],
Cell[798074, 19875, 528, 10, 20, "Print"],
Cell[798605, 19887, 232, 4, 20, "Print"],
Cell[798840, 19893, 1040, 31, 46, "Print"],
Cell[799883, 19926, 295, 5, 20, "Print"],
Cell[800181, 19933, 343, 8, 20, "Print"],
Cell[800527, 19943, 523, 10, 20, "Print"],
Cell[801053, 19955, 561, 11, 28, "Print"],
Cell[801617, 19968, 530, 10, 20, "Print"],
Cell[802150, 19980, 528, 10, 20, "Print"],
Cell[802681, 19992, 230, 4, 20, "Print"],
Cell[802914, 19998, 7548, 222, 146, "Print"],
Cell[810465, 20222, 296, 5, 20, "Print"],
Cell[810764, 20229, 345, 8, 20, "Print"],
Cell[811112, 20239, 523, 10, 20, "Print"],
Cell[811638, 20251, 561, 11, 28, "Print"],
Cell[812202, 20264, 530, 10, 20, "Print"],
Cell[812735, 20276, 530, 10, 20, "Print"],
Cell[813268, 20288, 230, 4, 20, "Print"],
Cell[813501, 20294, 7549, 222, 146, "Print"],
Cell[821053, 20518, 296, 5, 20, "Print"],
Cell[821352, 20525, 343, 8, 20, "Print"],
Cell[821698, 20535, 523, 10, 20, "Print"],
Cell[822224, 20547, 561, 11, 26, "Print"],
Cell[822788, 20560, 532, 10, 20, "Print"],
Cell[823323, 20572, 530, 10, 20, "Print"],
Cell[823856, 20584, 230, 4, 20, "Print"],
Cell[824089, 20590, 7549, 222, 146, "Print"],
Cell[831641, 20814, 296, 5, 20, "Print"],
Cell[831940, 20821, 343, 8, 20, "Print"],
Cell[832286, 20831, 523, 10, 20, "Print"],
Cell[832812, 20843, 561, 11, 26, "Print"],
Cell[833376, 20856, 530, 10, 20, "Print"],
Cell[833909, 20868, 527, 10, 20, "Print"],
Cell[834439, 20880, 230, 4, 20, "Print"],
Cell[834672, 20886, 6318, 186, 146, "Print"],
Cell[840993, 21074, 296, 5, 20, "Print"],
Cell[841292, 21081, 343, 8, 20, "Print"],
Cell[841638, 21091, 525, 10, 20, "Print"],
Cell[842166, 21103, 562, 11, 26, "Print"],
Cell[842731, 21116, 530, 10, 20, "Print"],
Cell[843264, 21128, 527, 10, 20, "Print"],
Cell[843794, 21140, 229, 4, 20, "Print"],
Cell[844026, 21146, 6318, 186, 146, "Print"],
Cell[850347, 21334, 296, 5, 20, "Print"],
Cell[850646, 21341, 343, 8, 20, "Print"],
Cell[850992, 21351, 528, 10, 20, "Print"],
Cell[851523, 21363, 565, 11, 27, "Print"],
Cell[852091, 21376, 530, 10, 20, "Print"],
Cell[852624, 21388, 528, 10, 20, "Print"],
Cell[853155, 21400, 230, 4, 20, "Print"],
Cell[853388, 21406, 6318, 186, 146, "Print"],
Cell[859709, 21594, 298, 5, 20, "Print"],
Cell[860010, 21601, 343, 8, 20, "Print"],
Cell[860356, 21611, 525, 10, 20, "Print"],
Cell[860884, 21623, 563, 11, 26, "Print"],
Cell[861450, 21636, 532, 10, 20, "Print"],
Cell[861985, 21648, 528, 10, 20, "Print"],
Cell[862516, 21660, 230, 4, 20, "Print"],
Cell[862749, 21666, 7519, 221, 146, "Print"],
Cell[870271, 21889, 296, 5, 20, "Print"],
Cell[870570, 21896, 345, 8, 20, "Print"],
Cell[870918, 21906, 523, 10, 20, "Print"],
Cell[871444, 21918, 561, 11, 27, "Print"],
Cell[872008, 21931, 530, 10, 20, "Print"],
Cell[872541, 21943, 527, 10, 20, "Print"],
Cell[873071, 21955, 230, 4, 20, "Print"],
Cell[873304, 21961, 7517, 221, 146, "Print"],
Cell[880824, 22184, 296, 5, 20, "Print"],
Cell[881123, 22191, 343, 8, 20, "Print"],
Cell[881469, 22201, 523, 10, 20, "Print"],
Cell[881995, 22213, 561, 11, 26, "Print"],
Cell[882559, 22226, 532, 10, 20, "Print"],
Cell[883094, 22238, 528, 10, 20, "Print"],
Cell[883625, 22250, 230, 4, 20, "Print"],
Cell[883858, 22256, 7517, 221, 146, "Print"],
Cell[891378, 22479, 296, 5, 20, "Print"],
Cell[891677, 22486, 343, 8, 20, "Print"],
Cell[892023, 22496, 528, 10, 20, "Print"],
Cell[892554, 22508, 562, 11, 26, "Print"],
Cell[893119, 22521, 530, 10, 20, "Print"],
Cell[893652, 22533, 528, 10, 20, "Print"],
Cell[894183, 22545, 232, 4, 20, "Print"],
Cell[894418, 22551, 4266, 125, 99, "Print"],
Cell[898687, 22678, 298, 5, 20, "Print"],
Cell[898988, 22685, 343, 8, 20, "Print"],
Cell[899334, 22695, 528, 10, 20, "Print"],
Cell[899865, 22707, 563, 11, 26, "Print"],
Cell[900431, 22720, 532, 10, 20, "Print"],
Cell[900966, 22732, 530, 10, 20, "Print"],
Cell[901499, 22744, 232, 4, 20, "Print"],
Cell[901734, 22750, 4266, 125, 99, "Print"],
Cell[906003, 22877, 296, 5, 20, "Print"],
Cell[906302, 22884, 342, 8, 20, "Print"],
Cell[906647, 22894, 530, 10, 20, "Print"],
Cell[907180, 22906, 563, 11, 27, "Print"],
Cell[907746, 22919, 530, 10, 20, "Print"],
Cell[908279, 22931, 528, 10, 20, "Print"],
Cell[908810, 22943, 230, 4, 20, "Print"],
Cell[909043, 22949, 4268, 125, 99, "Print"],
Cell[913314, 23076, 298, 5, 20, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[913661, 23087, 1184, 18, 21, "Input"],
Cell[CellGroupData[{
Cell[914870, 23109, 676, 13, 20, "Print"],
Cell[915549, 23124, 899, 20, 20, "Print"],
Cell[916451, 23146, 654, 12, 20, "Print"],
Cell[917108, 23160, 828, 17, 20, "Print"],
Cell[917939, 23179, 687, 13, 20, "Print"],
Cell[918629, 23194, 1172, 24, 20, "Print"],
Cell[919804, 23220, 769, 16, 20, "Print"],
Cell[920576, 23238, 1123, 23, 20, "Print"],
Cell[921702, 23263, 668, 12, 20, "Print"],
Cell[922373, 23277, 921, 20, 20, "Print"],
Cell[923297, 23299, 651, 12, 20, "Print"],
Cell[923951, 23313, 675, 13, 20, "Print"],
Cell[924629, 23328, 866, 17, 20, "Print"],
Cell[925498, 23347, 1025, 20, 20, "Print"],
Cell[926526, 23369, 647, 12, 20, "Print"],
Cell[927176, 23383, 632, 12, 20, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
