(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    261141,       6979]
NotebookOptionsPosition[    234178,       6249]
NotebookOutlinePosition[    234730,       6269]
CellTagsIndexPosition[    234687,       6266]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[" Tutorial", "Title",
 CellChangeTimes->{{3.539317450114971*^9, 3.5393174577917767`*^9}, 
   3.5559442666324883`*^9}],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.5393174647226133`*^9, 3.5393174655928297`*^9}}],

Cell[CellGroupData[{

Cell["Loading FeynRules", "Section",
 CellChangeTimes->{{3.539317474608481*^9, 3.5393174784154987`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$FeynRulesPath", " ", "=", " ", 
  RowBox[{
  "SetDirectory", "[", "\"\<~/feynrules/tags/feynrules-2.1\>\"", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5393174792335243`*^9, 3.539317505486512*^9}, {
  3.5780999932057743`*^9, 3.578099993939001*^9}, {3.578100105316533*^9, 
  3.5781001104184732`*^9}, {3.579349162263041*^9, 3.5793491976568537`*^9}, {
  3.579349302055018*^9, 3.57934930213306*^9}, {3.614226881066931*^9, 
  3.614226898369299*^9}, {3.620531946341423*^9, 3.6205319483171577`*^9}, {
  3.62053209799714*^9, 3.620532101899506*^9}}],

Cell[BoxData["\<\"/Users/degrande/feynrules/tags/feynrules-2.1\"\>"], "Output",
 CellChangeTimes->{
  3.5393175059082603`*^9, 3.539317637249185*^9, 3.539317710216969*^9, 
   3.53931836320551*^9, 3.539318857008144*^9, {3.555944274657331*^9, 
   3.5559442982248707`*^9}, 3.5559443774661837`*^9, 3.5559446049920673`*^9, 
   3.555944681188205*^9, 3.577373428262697*^9, 3.577374281796172*^9, {
   3.578100112630537*^9, 3.5781001499397497`*^9}, 3.57934927304145*^9, 
   3.579349304490674*^9, 3.579350283582839*^9, 3.579350512924067*^9, 
   3.579350634423061*^9, 3.579358789644754*^9, {3.57935921014121*^9, 
   3.5793592370286303`*^9}, 3.579359528417985*^9, 3.57936106637228*^9, 
   3.579361288219393*^9, 3.579882686241864*^9, 3.579882984714159*^9, 
   3.579955782353389*^9, 3.614226900065674*^9, 3.614227196689986*^9, 
   3.6204847826240187`*^9, 3.620532113772676*^9, 3.620532277632306*^9, 
   3.620534355531006*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "FeynRules`"}]], "Input",
 CellChangeTimes->{{3.5393175083150997`*^9, 3.5393175100537786`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
 CellChangeTimes->{
  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9, 
   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9, 
   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9, 
   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9, 
   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9, 
   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9, 
   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9, 
   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9, 
   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9, 
   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9, 
   3.620532277797534*^9, 3.620534356366291*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"=.2.2\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"\<\" (\"\>", " ", "\<\"08 July 2014\"\>"}], 
   "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm["Version: ", "=.2.2", " (" "08 July 2014", ")."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9, 
   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9, 
   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9, 
   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9, 
   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9, 
   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9, 
   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9, 
   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9, 
   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9, 
   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9, 
   3.620532277797534*^9, 3.620534356369363*^9}],

Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
B. Fuks\"\>"], "Print",
 CellChangeTimes->{
  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9, 
   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9, 
   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9, 
   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9, 
   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9, 
   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9, 
   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9, 
   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9, 
   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9, 
   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9, 
   3.620532277797534*^9, 3.620534356371933*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9, 
   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9, 
   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9, 
   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9, 
   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9, 
   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9, 
   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9, 
   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9, 
   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9, 
   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9, 
   3.620532277797534*^9, 3.620534356374524*^9}],

Cell[BoxData["\<\"Please cite:\"\>"], "Print",
 CellChangeTimes->{
  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9, 
   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9, 
   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9, 
   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9, 
   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9, 
   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9, 
   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9, 
   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9, 
   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9, 
   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9, 
   3.620532277797534*^9, 3.620534356377061*^9}],

Cell[BoxData["\<\"    - arXiv:1310.1921;\"\>"], "Print",
 CellChangeTimes->{
  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9, 
   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9, 
   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9, 
   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9, 
   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9, 
   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9, 
   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9, 
   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9, 
   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9, 
   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9, 
   3.620532277797534*^9, 3.620534356379595*^9}],

Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
(arXiv:0806.4194).\"\>"], "Print",
 CellChangeTimes->{
  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9, 
   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9, 
   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9, 
   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9, 
   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9, 
   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9, 
   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9, 
   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9, 
   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9, 
   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9, 
   3.620532277797534*^9, 3.620534356381975*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9, 
   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9, 
   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9, 
   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9, 
   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9, 
   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9, 
   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9, 
   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9, 
   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9, 
   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9, 
   3.620532277797534*^9, 3.6205343563845863`*^9}],

Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
 CellChangeTimes->{
  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9, 
   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9, 
   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9, 
   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9, 
   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9, 
   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9, 
   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9, 
   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9, 
   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9, 
   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9, 
   3.620532277797534*^9, 3.6205343563869963`*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9, 
   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9, 
   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9, 
   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9, 
   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9, 
   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9, 
   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9, 
   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9, 
   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9, 
   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9, 
   3.620532277797534*^9, 3.620534356389428*^9}],

Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
FRPalette[].\"\>"], "Print",
 CellChangeTimes->{
  3.53931751083799*^9, 3.539317637583722*^9, 3.539317710401309*^9, 
   3.539318367080615*^9, 3.539318857563046*^9, {3.5559442763044662`*^9, 
   3.555944298931198*^9}, 3.555944377919302*^9, 3.5559446052682056`*^9, 
   3.555944681456799*^9, 3.577373391273698*^9, {3.577373428852648*^9, 
   3.5773734513303223`*^9}, 3.5773742883918943`*^9, {3.578100113697337*^9, 
   3.5781001512116632`*^9}, 3.579349307063857*^9, 3.579350284229608*^9, 
   3.579350513044907*^9, 3.579350634908613*^9, 3.579358789778343*^9, {
   3.579359210417015*^9, 3.579359238091683*^9}, 3.5793595291764708`*^9, 
   3.579361067924972*^9, 3.579361288919224*^9, 3.579882686436294*^9, 
   3.579882985016074*^9, 3.5799557837408743`*^9, 3.6142269017242403`*^9, 
   3.614227200332449*^9, 3.620484782810604*^9, 3.6205321139554043`*^9, 
   3.620532277797534*^9, 3.620534356391774*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Loading the model", "Section",
 CellChangeTimes->{{3.539317514565621*^9, 3.539317517827942*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetDirectory", "[", 
  RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.5393175793604097`*^9, 3.539317604969696*^9}, {
  3.5559442808384323`*^9, 3.5559442817000427`*^9}, {3.5773734202527857`*^9, 
  3.577373422619042*^9}, {3.579349331911512*^9, 3.579349394474436*^9}, {
  3.579361615574547*^9, 3.5793616313979177`*^9}, {3.579882727446802*^9, 
  3.5798827505288*^9}, {3.579883380265169*^9, 3.579883386157868*^9}, {
  3.579955791202548*^9, 3.579955816296172*^9}, {3.579958189936842*^9, 
  3.579958196374*^9}, {3.614226921305686*^9, 3.614226934448045*^9}, {
  3.614227154675522*^9, 3.614227186038155*^9}, {3.620532229753017*^9, 
  3.6205322513797207`*^9}}],

Cell[BoxData["\<\"/Users/degrande/feynrules/tags/feynrules-2.1/Models/SM\"\>"]\
, "Output",
 CellChangeTimes->{
  3.539317605382585*^9, 3.5393176390688963`*^9, 3.539317711322501*^9, 
   3.539318369381093*^9, 3.539318860145067*^9, {3.555944282499632*^9, 
   3.5559443001776247`*^9}, 3.555944378775016*^9, 3.5559446066309633`*^9, 
   3.555944683120018*^9, 3.577373454442539*^9, 3.5773742914690447`*^9, 
   3.578100155167124*^9, {3.579349388978545*^9, 3.579349395200293*^9}, 
   3.579350289156604*^9, 3.5793505173865347`*^9, 3.5793506389325314`*^9, 
   3.5793587910217247`*^9, 3.579359242533073*^9, 3.579359532748375*^9, 
   3.579361072123502*^9, 3.579361293397084*^9, 3.579882754989637*^9, 
   3.579882990732761*^9, 3.5799558183623962`*^9, 3.614226935661278*^9, {
   3.614227187078137*^9, 3.614227211205055*^9}, 3.6204847912022753`*^9, 
   3.620532124644866*^9, 3.620532280016633*^9, 3.6205343608009577`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadModel", "[", 
  RowBox[{"\"\<SM.fr\>\"", ",", "\"\<~/Talks/TASI2013/Tutorial.fr\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.539317608005052*^9, 3.539317616212493*^9}, {
  3.555944290574006*^9, 3.555944292699313*^9}, {3.57737340515932*^9, 
  3.577373409019948*^9}, {3.579349400449449*^9, 3.579349402253819*^9}, {
  3.6142271566600933`*^9, 3.6142271794397287`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9}, 
   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9, 
   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9, 
   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9, 
   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9, 
   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9, 
   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9, 
   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9, 
   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9, 
   3.620534362386828*^9}],

Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9}, 
   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9, 
   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9, 
   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9, 
   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9, 
   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9, 
   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9, 
   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9, 
   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9, 
   3.620534362413682*^9}],

Cell[BoxData["\<\"C. Duhr\"\>"], "Print",
 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9}, 
   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9, 
   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9, 
   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9, 
   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9, 
   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9, 
   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9, 
   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9, 
   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9, 
   3.620534362416098*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
  SequenceForm["Model Version: ", "1.0"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9}, 
   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9, 
   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9, 
   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9, 
   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9, 
   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9, 
   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9, 
   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9, 
   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9, 
   3.620534362418599*^9}],

Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
"Print",
 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9}, 
   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9, 
   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9, 
   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9, 
   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9, 
   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9, 
   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9, 
   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9, 
   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9, 
   3.620534362421133*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9}, 
   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9, 
   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9, 
   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9, 
   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9, 
   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9, 
   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9, 
   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9, 
   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9, 
   3.620534362423609*^9}],

Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9}, 
   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9, 
   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9, 
   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9, 
   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9, 
   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9, 
   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9, 
   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9, 
   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9, 
   3.6205343624260473`*^9}],

Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9}, 
   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9, 
   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9, 
   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9, 
   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9, 
   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9, 
   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9, 
   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9, 
   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9, 
   3.620534362571432*^9}],

Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9}, 
   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9, 
   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9, 
   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9, 
   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9, 
   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9, 
   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9, 
   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9, 
   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9, 
   3.6205343625972843`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"Tutorial\"\>", 
   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
  SequenceForm["\nModel ", "Tutorial", " loaded."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.539317616899459*^9, 3.53931763972353*^9}, 
   3.539317711767226*^9, 3.539318370032514*^9, 3.53931886085401*^9, {
   3.555944284318446*^9, 3.555944300911276*^9}, 3.555944379117711*^9, 
   3.555944608282445*^9, 3.555944684535471*^9, 3.577373414696068*^9, {
   3.577373444854903*^9, 3.577373455221212*^9}, 3.577374292331169*^9, 
   3.578100156044696*^9, 3.579349403734391*^9, 3.5793502900702133`*^9, 
   3.579350518187063*^9, 3.579350639663134*^9, 3.579358791096305*^9, 
   3.579359243796385*^9, 3.579359533695651*^9, 3.579361073489555*^9, 
   3.579361294460967*^9, 3.579882757761602*^9, 3.579882991463509*^9, 
   3.579955819623869*^9, 3.614226941669352*^9, 3.614227213388626*^9, 
   3.620484792976914*^9, 3.6205321278896627`*^9, 3.6205322818567142`*^9, 
   3.620534362649466*^9}]
}, Open  ]]
}, Open  ]],

Cell["\<\
\[LineSeparator]Restriction files, to make the quarks massless, and the CKM \
matrix diagonal:\
\>", "Text",
 CellChangeTimes->{{3.539317826891835*^9, 3.539317839321149*^9}, 
   3.539318861815209*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadRestriction", "[", 
  RowBox[{"\"\<DiagonalCKM.rst\>\"", ",", "\"\<Massless.rst\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.539317840243554*^9, 3.53931785155518*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Loading restrictions from \"\>", 
   "\[InvisibleSpace]", "\<\"DiagonalCKM.rst\"\>", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "3"}],
  SequenceForm["Loading restrictions from ", "DiagonalCKM.rst", " : ", 
   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 3],
  Editable->False]], "Print",
 CellChangeTimes->{3.539317852149496*^9, 3.5393183725017023`*^9, 
  3.5393188635676622`*^9, 3.555944382559485*^9, 3.5559446108120213`*^9, 
  3.5559446867107964`*^9, 3.57737345755239*^9, 3.577374294631625*^9, 
  3.578100158857573*^9, 3.579349409804182*^9, 3.579350295931012*^9, 
  3.5793505209064093`*^9, 3.5793506425014772`*^9, 3.579358794923716*^9, 
  3.579359214019527*^9, 3.57935924743237*^9, 3.5793595386756287`*^9, 
  3.579361075960133*^9, 3.579361297098818*^9, 3.579882761262206*^9, 
  3.579882994106968*^9, 3.579955824463958*^9, 3.61422695186008*^9, 
  3.614227219473942*^9, 3.620484799757265*^9, 3.620532132716523*^9, 
  3.6205322850684032`*^9, 3.620534365715355*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Loading restrictions from \"\>", 
   "\[InvisibleSpace]", "\<\"Massless.rst\"\>", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "18"}],
  SequenceForm["Loading restrictions from ", "Massless.rst", " : ", 
   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
  Editable->False]], "Print",
 CellChangeTimes->{3.539317852149496*^9, 3.5393183725017023`*^9, 
  3.5393188635676622`*^9, 3.555944382559485*^9, 3.5559446108120213`*^9, 
  3.5559446867107964`*^9, 3.57737345755239*^9, 3.577374294631625*^9, 
  3.578100158857573*^9, 3.579349409804182*^9, 3.579350295931012*^9, 
  3.5793505209064093`*^9, 3.5793506425014772`*^9, 3.579358794923716*^9, 
  3.579359214019527*^9, 3.57935924743237*^9, 3.5793595386756287`*^9, 
  3.579361075960133*^9, 3.579361297098818*^9, 3.579882761262206*^9, 
  3.579882994106968*^9, 3.579955824463958*^9, 3.61422695186008*^9, 
  3.614227219473942*^9, 3.620484799757265*^9, 3.620532132716523*^9, 
  3.6205322850684032`*^9, 3.620534365828209*^9}],

Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
 CellChangeTimes->{3.539317852149496*^9, 3.5393183725017023`*^9, 
  3.5393188635676622`*^9, 3.555944382559485*^9, 3.5559446108120213`*^9, 
  3.5559446867107964`*^9, 3.57737345755239*^9, 3.577374294631625*^9, 
  3.578100158857573*^9, 3.579349409804182*^9, 3.579350295931012*^9, 
  3.5793505209064093`*^9, 3.5793506425014772`*^9, 3.579358794923716*^9, 
  3.579359214019527*^9, 3.57935924743237*^9, 3.5793595386756287`*^9, 
  3.579361075960133*^9, 3.579361297098818*^9, 3.579882761262206*^9, 
  3.579882994106968*^9, 3.579955824463958*^9, 3.61422695186008*^9, 
  3.614227219473942*^9, 3.620484799757265*^9, 3.620532132716523*^9, 
  3.6205322850684032`*^9, 3.620534365916108*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The Lagrangian", "Section",
 CellChangeTimes->{{3.539317863455777*^9, 3.5393178650954237`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LScalarKin", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "2"}], 
    RowBox[{"del", "[", 
     RowBox[{"pi1", ",", "mu"}], "]"}], 
    RowBox[{"del", "[", 
     RowBox[{"pi1", ",", "mu"}], "]"}]}], "+", 
   RowBox[{
    RowBox[{"1", "/", "2"}], 
    RowBox[{"del", "[", 
     RowBox[{"pi2", ",", "mu"}], "]"}], 
    RowBox[{"del", "[", 
     RowBox[{"pi2", ",", "mu"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{
     RowBox[{"MM1", "^", "2"}], "/", "2"}], 
    RowBox[{"pi1", "^", "2"}]}], "-", 
   RowBox[{
    RowBox[{
     RowBox[{"MM2", "^", "2"}], "/", "2"}], 
    RowBox[{"pi2", "^", "2"}]}], "-", 
   RowBox[{
    RowBox[{"MM12", "^", "2"}], "pi1", " ", "pi2"}]}]}]], "Input",
 CellChangeTimes->{{3.5393178657972727`*^9, 3.539317921175536*^9}, {
  3.539318477867846*^9, 3.539318481606659*^9}, {3.5393189015055037`*^9, 
  3.539318908479196*^9}, {3.5793591059670963`*^9, 3.5793591107344847`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", 
   SuperscriptBox["MM1", "2"], " ", 
   SuperscriptBox["pi1", "2"]}], "-", 
  RowBox[{
   SuperscriptBox["MM12", "2"], " ", "pi1", " ", "pi2"}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["MM2", "2"], " ", 
    SuperscriptBox["pi2", "2"]}], "2"], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "pi1", "]"}], "2"]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "pi2", "]"}], 
    "2"]}]}]], "Output",
 CellChangeTimes->{3.539317921603055*^9, 3.539318374039912*^9, 
  3.53931848187812*^9, 3.539318864769656*^9, 3.539318909041028*^9, 
  3.555944385931329*^9, 3.555944612372089*^9, 3.555944688216881*^9, 
  3.577373459175234*^9, 3.5773742965846777`*^9, 3.578100162546414*^9, 
  3.5793494145868607`*^9, 3.57935029915375*^9, 3.579350524477511*^9, 
  3.5793506450603523`*^9, 3.579358798361402*^9, 3.5793591128689413`*^9, 
  3.5793592513840733`*^9, 3.579359541815214*^9, 3.579361078567272*^9, 
  3.579361300753628*^9, 3.579882765103462*^9, 3.579882999682539*^9, 
  3.579955826749527*^9, 3.61422696297958*^9, 3.614227223957199*^9, 
  3.62048480259227*^9, 3.620532174175105*^9, 3.620532289820366*^9, 
  3.620534370128654*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LFermionKin", "=", 
  RowBox[{
   RowBox[{"I", " ", 
    RowBox[{"uvbar", ".", 
     RowBox[{"Ga", "[", "mu", "]"}], ".", 
     RowBox[{"DC", "[", 
      RowBox[{"uv", ",", "mu"}], "]"}]}]}], "-", 
   RowBox[{"Muv", " ", 
    RowBox[{"uvbar", ".", "uv"}]}], "+", 
   RowBox[{"I", " ", 
    RowBox[{"evbar", ".", 
     RowBox[{"Ga", "[", "mu", "]"}], ".", 
     RowBox[{"DC", "[", 
      RowBox[{"ev", ",", "mu"}], "]"}]}]}], "-", 
   RowBox[{"Mev", " ", 
    RowBox[{"evbar", ".", "ev"}]}]}]}]], "Input",
 CellChangeTimes->{{3.53931793307228*^9, 3.539317979893841*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "Mev"}], " ", 
   RowBox[{
    OverscriptBox["ev", "\<\"-\"\>"], ".", "ev"}]}], "-", 
  RowBox[{"Muv", " ", 
   RowBox[{
    OverscriptBox["uv", "\<\"-\"\>"], ".", "uv"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    OverscriptBox["ev", "\<\"-\"\>"], ".", 
    SuperscriptBox["\[Gamma]", "mu"], ".", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "ev", " ", 
       SubscriptBox["g", "1"], " ", 
       SubscriptBox["B", "mu"]}], "+", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "ev", "]"}]}], 
     ")"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    OverscriptBox["uv", "\<\"-\"\>"], ".", 
    SuperscriptBox["\[Gamma]", "mu"], ".", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["2", "3"]}], " ", "\[ImaginaryI]", " ", 
       SubscriptBox["g", "1"], " ", "uv", " ", 
       SubscriptBox["B", "mu"]}], "+", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "uv", "]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SubscriptBox["g", "s"], " ", 
       RowBox[{
        SuperscriptBox["T", "a$3667"], ".", "uv"}], " ", 
       SubscriptBox["G", 
        RowBox[{"mu", ",", "a$3667"}]]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.539317980933099*^9, 3.539318374673298*^9, 
  3.5393188655258207`*^9, 3.55594438840161*^9, 3.555944613159431*^9, 
  3.555944688946253*^9, 3.577373459938418*^9, 3.577374297687181*^9, 
  3.578100163601769*^9, 3.579349419437807*^9, 3.579350300083214*^9, 
  3.5793505254085903`*^9, 3.579350646554434*^9, 3.5793588007912607`*^9, 
  3.579359255802463*^9, 3.579359542895461*^9, 3.579361079781403*^9, 
  3.5793613017508173`*^9, 3.579882767926231*^9, 3.579883001062243*^9, 
  3.579955830269313*^9, 3.614226964940504*^9, 3.614227225237988*^9, 
  3.6204848032902927`*^9, 3.620532174776319*^9, 3.62053229051711*^9, 
  3.620534371276582*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"LDecays", "=", 
  RowBox[{
   RowBox[{"lam1", " ", "pi1", " ", 
    RowBox[{
     RowBox[{"uvbar", "[", 
      RowBox[{"ss1", ",", "ii"}], "]"}], ".", 
     RowBox[{"uq", "[", 
      RowBox[{"ss2", ",", "3", ",", "ii"}], "]"}]}], 
    RowBox[{"ProjP", "[", 
     RowBox[{"ss1", ",", "ss2"}], "]"}]}], "+", 
   RowBox[{"lam2", " ", "pi2", " ", 
    RowBox[{
     RowBox[{"uvbar", "[", 
      RowBox[{"ss1", ",", "ii"}], "]"}], ".", 
     RowBox[{"uq", "[", 
      RowBox[{"ss2", ",", "3", ",", "ii"}], "]"}]}], 
    RowBox[{"ProjP", "[", 
     RowBox[{"ss1", ",", "ss2"}], "]"}]}], "+", 
   RowBox[{"lam1p", " ", "pi1", " ", 
    RowBox[{
     RowBox[{"evbar", "[", "ss1", "]"}], ".", 
     RowBox[{"l", "[", 
      RowBox[{"ss2", ",", "1"}], "]"}]}], 
    RowBox[{"ProjP", "[", 
     RowBox[{"ss1", ",", "ss2"}], "]"}]}], "+", 
   RowBox[{"lam2p", " ", "pi2", " ", 
    RowBox[{
     RowBox[{"evbar", "[", "ss1", "]"}], ".", 
     RowBox[{"l", "[", 
      RowBox[{"ss2", ",", "1"}], "]"}]}], 
    RowBox[{"ProjP", "[", 
     RowBox[{"ss1", ",", "ss2"}], "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"LDecays", "=", 
  RowBox[{"LDecays", "+", 
   RowBox[{"HC", "[", "LDecays", "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.5393179924355803`*^9, 3.5393180812160053`*^9}, {
  3.539318112141931*^9, 3.5393181200908337`*^9}, {3.555944392672977*^9, 
  3.555944544909051*^9}, {3.5798827743589373`*^9, 3.5798828027591953`*^9}, {
  3.579955834704596*^9, 3.579955838470811*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"lam1p", " ", "pi1", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["ev", "\<\"-\"\>"], "ss1"], ".", 
    SubscriptBox["l", 
     RowBox[{"ss2", ",", "1"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"+\"\>"], 
    RowBox[{"ss1", ",", "ss2"}]]}], "+", 
  RowBox[{"lam2p", " ", "pi2", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["ev", "\<\"-\"\>"], "ss1"], ".", 
    SubscriptBox["l", 
     RowBox[{"ss2", ",", "1"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"+\"\>"], 
    RowBox[{"ss1", ",", "ss2"}]]}], "+", 
  RowBox[{"lam1", " ", "pi1", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["uv", "\<\"-\"\>"], 
     RowBox[{"ss1", ",", "ii"}]], ".", 
    SubscriptBox["uq", 
     RowBox[{"ss2", ",", "3", ",", "ii"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"+\"\>"], 
    RowBox[{"ss1", ",", "ss2"}]]}], "+", 
  RowBox[{"lam2", " ", "pi2", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["uv", "\<\"-\"\>"], 
     RowBox[{"ss1", ",", "ii"}]], ".", 
    SubscriptBox["uq", 
     RowBox[{"ss2", ",", "3", ",", "ii"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"+\"\>"], 
    RowBox[{"ss1", ",", "ss2"}]]}]}]], "Output",
 CellChangeTimes->{3.539318081693873*^9, 3.53931812063649*^9, 
  3.53931837527557*^9, 3.539318866186824*^9, 3.555944615341813*^9, 
  3.555944690785212*^9, 3.577373460709169*^9, 3.5773742984859943`*^9, 
  3.578100164435671*^9, 3.579349420510026*^9, 3.579350301178184*^9, 
  3.5793505263540382`*^9, 3.579350647449521*^9, 3.579358801648719*^9, 
  3.579359257144423*^9, 3.579359544057259*^9, 3.579361081206567*^9, 
  3.579361302645125*^9, 3.579882813206955*^9, 3.579883002139476*^9, 
  3.579955869220771*^9, 3.614226966320546*^9, 3.614227226617613*^9, 
  3.6204848039385433`*^9, 3.620532175840642*^9, 3.620532291366743*^9, 
  3.6205343726902*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"lam1p", " ", "pi1", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["l", "\<\"-\"\>"], 
     RowBox[{"r$3706", ",", "1"}]], ".", 
    SubscriptBox["ev", "r$3707"]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"-\"\>"], 
    RowBox[{"r$3706", ",", "r$3707"}]]}], "+", 
  RowBox[{"lam2p", " ", "pi2", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["l", "\<\"-\"\>"], 
     RowBox[{"r$3708", ",", "1"}]], ".", 
    SubscriptBox["ev", "r$3709"]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"-\"\>"], 
    RowBox[{"r$3708", ",", "r$3709"}]]}], "+", 
  RowBox[{"lam1", " ", "pi1", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["uq", "\<\"-\"\>"], 
     RowBox[{"r$3710", ",", "3", ",", "ii"}]], ".", 
    SubscriptBox["uv", 
     RowBox[{"r$3711", ",", "ii"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"-\"\>"], 
    RowBox[{"r$3710", ",", "r$3711"}]]}], "+", 
  RowBox[{"lam2", " ", "pi2", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["uq", "\<\"-\"\>"], 
     RowBox[{"r$3712", ",", "3", ",", "ii"}]], ".", 
    SubscriptBox["uv", 
     RowBox[{"r$3713", ",", "ii"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"-\"\>"], 
    RowBox[{"r$3712", ",", "r$3713"}]]}], "+", 
  RowBox[{"lam1p", " ", "pi1", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["ev", "\<\"-\"\>"], "ss1"], ".", 
    SubscriptBox["l", 
     RowBox[{"ss2", ",", "1"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"+\"\>"], 
    RowBox[{"ss1", ",", "ss2"}]]}], "+", 
  RowBox[{"lam2p", " ", "pi2", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["ev", "\<\"-\"\>"], "ss1"], ".", 
    SubscriptBox["l", 
     RowBox[{"ss2", ",", "1"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"+\"\>"], 
    RowBox[{"ss1", ",", "ss2"}]]}], "+", 
  RowBox[{"lam1", " ", "pi1", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["uv", "\<\"-\"\>"], 
     RowBox[{"ss1", ",", "ii"}]], ".", 
    SubscriptBox["uq", 
     RowBox[{"ss2", ",", "3", ",", "ii"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"+\"\>"], 
    RowBox[{"ss1", ",", "ss2"}]]}], "+", 
  RowBox[{"lam2", " ", "pi2", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["uv", "\<\"-\"\>"], 
     RowBox[{"ss1", ",", "ii"}]], ".", 
    SubscriptBox["uq", 
     RowBox[{"ss2", ",", "3", ",", "ii"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"+\"\>"], 
    RowBox[{"ss1", ",", "ss2"}]]}]}]], "Output",
 CellChangeTimes->{3.539318081693873*^9, 3.53931812063649*^9, 
  3.53931837527557*^9, 3.539318866186824*^9, 3.555944615341813*^9, 
  3.555944690785212*^9, 3.577373460709169*^9, 3.5773742984859943`*^9, 
  3.578100164435671*^9, 3.579349420510026*^9, 3.579350301178184*^9, 
  3.5793505263540382`*^9, 3.579350647449521*^9, 3.579358801648719*^9, 
  3.579359257144423*^9, 3.579359544057259*^9, 3.579361081206567*^9, 
  3.579361302645125*^9, 3.579882813206955*^9, 3.579883002139476*^9, 
  3.579955869220771*^9, 3.614226966320546*^9, 3.614227226617613*^9, 
  3.6204848039385433`*^9, 3.620532175840642*^9, 3.620532291366743*^9, 
  3.6205343726948566`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LNew", "=", 
  RowBox[{"LScalarKin", "+", "LFermionKin", "+", "LDecays"}]}]], "Input",
 CellChangeTimes->{{3.5393180928264513`*^9, 3.539318101951029*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", 
   SuperscriptBox["MM1", "2"], " ", 
   SuperscriptBox["pi1", "2"]}], "-", 
  RowBox[{
   SuperscriptBox["MM12", "2"], " ", "pi1", " ", "pi2"}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["MM2", "2"], " ", 
    SuperscriptBox["pi2", "2"]}], "2"], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "pi1", "]"}], "2"]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "pi2", "]"}], "2"]}], 
  "-", 
  RowBox[{"Mev", " ", 
   RowBox[{
    OverscriptBox["ev", "\<\"-\"\>"], ".", "ev"}]}], "-", 
  RowBox[{"Muv", " ", 
   RowBox[{
    OverscriptBox["uv", "\<\"-\"\>"], ".", "uv"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    OverscriptBox["ev", "\<\"-\"\>"], ".", 
    SuperscriptBox["\[Gamma]", "mu"], ".", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "ev", " ", 
       SubscriptBox["g", "1"], " ", 
       SubscriptBox["B", "mu"]}], "+", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "ev", "]"}]}], 
     ")"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    OverscriptBox["uv", "\<\"-\"\>"], ".", 
    SuperscriptBox["\[Gamma]", "mu"], ".", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["2", "3"]}], " ", "\[ImaginaryI]", " ", 
       SubscriptBox["g", "1"], " ", "uv", " ", 
       SubscriptBox["B", "mu"]}], "+", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "uv", "]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SubscriptBox["g", "s"], " ", 
       RowBox[{
        SuperscriptBox["T", "a$3667"], ".", "uv"}], " ", 
       SubscriptBox["G", 
        RowBox[{"mu", ",", "a$3667"}]]}]}], ")"}]}]}], "+", 
  RowBox[{"lam1p", " ", "pi1", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["l", "\<\"-\"\>"], 
     RowBox[{"r$3706", ",", "1"}]], ".", 
    SubscriptBox["ev", "r$3707"]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"-\"\>"], 
    RowBox[{"r$3706", ",", "r$3707"}]]}], "+", 
  RowBox[{"lam2p", " ", "pi2", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["l", "\<\"-\"\>"], 
     RowBox[{"r$3708", ",", "1"}]], ".", 
    SubscriptBox["ev", "r$3709"]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"-\"\>"], 
    RowBox[{"r$3708", ",", "r$3709"}]]}], "+", 
  RowBox[{"lam1", " ", "pi1", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["uq", "\<\"-\"\>"], 
     RowBox[{"r$3710", ",", "3", ",", "ii"}]], ".", 
    SubscriptBox["uv", 
     RowBox[{"r$3711", ",", "ii"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"-\"\>"], 
    RowBox[{"r$3710", ",", "r$3711"}]]}], "+", 
  RowBox[{"lam2", " ", "pi2", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["uq", "\<\"-\"\>"], 
     RowBox[{"r$3712", ",", "3", ",", "ii"}]], ".", 
    SubscriptBox["uv", 
     RowBox[{"r$3713", ",", "ii"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"-\"\>"], 
    RowBox[{"r$3712", ",", "r$3713"}]]}], "+", 
  RowBox[{"lam1p", " ", "pi1", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["ev", "\<\"-\"\>"], "ss1"], ".", 
    SubscriptBox["l", 
     RowBox[{"ss2", ",", "1"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"+\"\>"], 
    RowBox[{"ss1", ",", "ss2"}]]}], "+", 
  RowBox[{"lam2p", " ", "pi2", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["ev", "\<\"-\"\>"], "ss1"], ".", 
    SubscriptBox["l", 
     RowBox[{"ss2", ",", "1"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"+\"\>"], 
    RowBox[{"ss1", ",", "ss2"}]]}], "+", 
  RowBox[{"lam1", " ", "pi1", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["uv", "\<\"-\"\>"], 
     RowBox[{"ss1", ",", "ii"}]], ".", 
    SubscriptBox["uq", 
     RowBox[{"ss2", ",", "3", ",", "ii"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"+\"\>"], 
    RowBox[{"ss1", ",", "ss2"}]]}], "+", 
  RowBox[{"lam2", " ", "pi2", " ", 
   RowBox[{
    SubscriptBox[
     OverscriptBox["uv", "\<\"-\"\>"], 
     RowBox[{"ss1", ",", "ii"}]], ".", 
    SubscriptBox["uq", 
     RowBox[{"ss2", ",", "3", ",", "ii"}]]}], " ", 
   SubscriptBox[
    SubscriptBox["P", "\<\"+\"\>"], 
    RowBox[{"ss1", ",", "ss2"}]]}]}]], "Output",
 CellChangeTimes->{{3.5393181032144747`*^9, 3.539318124801681*^9}, 
   3.539318376704116*^9, 3.539318868615995*^9, 3.5393189114404373`*^9, 
   3.5559447357518663`*^9, 3.577373461914164*^9, 3.5773742995246153`*^9, 
   3.5781001665407763`*^9, 3.579349422580274*^9, 3.5793503056076612`*^9, 
   3.5793505293823853`*^9, 3.579350649975281*^9, 3.5793588066536427`*^9, 
   3.579359141817561*^9, 3.579359259902369*^9, 3.579359547500091*^9, 
   3.579361082767495*^9, 3.57936130745341*^9, 3.5798828207523727`*^9, 
   3.579883006053547*^9, 3.5799558758662443`*^9, 3.614226967884952*^9, 
   3.614227229262*^9, 3.62048481020807*^9, 3.6205321770548267`*^9, 
   3.6205322923145733`*^9, 3.620534376464304*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Checking the model", "Section",
 CellChangeTimes->{{3.5393178553626547`*^9, 3.539317857239614*^9}, {
  3.539318951729939*^9, 3.539318953814794*^9}, {3.620484827265339*^9, 
  3.620484829160314*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CheckMassSpectrum", "[", "LNew", "]"}]], "Input",
 CellChangeTimes->{{3.579350411293748*^9, 3.579350415283794*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with more than \"\>", 
   "\[InvisibleSpace]", "\<\"2\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5793504171576357`*^9, 3.5793505336303453`*^9, 3.57935065439296*^9, 
   3.579358811124146*^9, {3.579359119161418*^9, 3.579359145870646*^9}, 
   3.5793592657591133`*^9, 3.5793595516192408`*^9, 3.579361091411455*^9, 
   3.579882864653352*^9, 3.579883010247345*^9, 3.579955882985557*^9, 
   3.614226974878377*^9, 3.614227237152254*^9}],

Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
 CellChangeTimes->{
  3.5793504171576357`*^9, 3.5793505336303453`*^9, 3.57935065439296*^9, 
   3.579358811124146*^9, {3.579359119161418*^9, 3.579359145870646*^9}, 
   3.5793592657591133`*^9, 3.5793595516192408`*^9, 3.579361091411455*^9, 
   3.579882864653352*^9, 3.579883010247345*^9, 3.579955882985557*^9, 
   3.614226974878377*^9, 3.614227237175366*^9}],

Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
 CellChangeTimes->{
  3.5793504171576357`*^9, 3.5793505336303453`*^9, 3.57935065439296*^9, 
   3.579358811124146*^9, {3.579359119161418*^9, 3.579359145870646*^9}, 
   3.5793592657591133`*^9, 3.5793595516192408`*^9, 3.579361091411455*^9, 
   3.579882864653352*^9, 3.579883010247345*^9, 3.579955882985557*^9, 
   3.614226974878377*^9, 3.614227237425606*^9}],

Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
values.\"\>"], "Print",
 CellChangeTimes->{
  3.5793504171576357`*^9, 3.5793505336303453`*^9, 3.57935065439296*^9, 
   3.579358811124146*^9, {3.579359119161418*^9, 3.579359145870646*^9}, 
   3.5793592657591133`*^9, 3.5793595516192408`*^9, 3.579361091411455*^9, 
   3.579882864653352*^9, 3.579883010247345*^9, 3.579955882985557*^9, 
   3.614226974878377*^9, 3.6142272374270678`*^9}]
}, Open  ]],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
"\<\"Model-file value\"\>"},
    {"p1", 
     RowBox[{
      SqrtBox["2"], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox["MM2", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "th", "]"}], "2"]}], "-", 
        RowBox[{
         SuperscriptBox["MM12", "2"], " ", 
         RowBox[{"Cos", "[", "th", "]"}], " ", 
         RowBox[{"Sin", "[", "th", "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox["MM1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "th", "]"}], "2"]}]}]]}], "0.9999968746825869`",
      "0.9999968746825563`"},
    {"p2", 
     RowBox[{
      SqrtBox["2"], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox["MM1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "th", "]"}], "2"]}], "+", 
        RowBox[{
         SuperscriptBox["MM12", "2"], " ", 
         RowBox[{"Cos", "[", "th", "]"}], " ", 
         RowBox[{"Sin", "[", "th", "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox["MM2", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "th", "]"}], "2"]}]}]]}], "100.00000003125314`",
      "100.00000003125312`"},
    {"ev", "Mev", "50.`", "50.`"},
    {"uv", "Muv", "400.`", "400.`"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.579359266696863*^9, 3.579359552626623*^9, 
  3.5793610923537407`*^9, 3.5798828652033567`*^9, 3.579883010753553*^9, 
  3.579955883507883*^9, 3.6142269754416637`*^9, 3.614227237429613*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["The Feynman rules", "Section",
 CellChangeTimes->{{3.5393189582943993`*^9, 3.5393189603102827`*^9}, 
   3.577374302527355*^9, 3.614226983421431*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"vertices", "=", 
  RowBox[{"FeynmanRules", "[", "LNew", "]"}]}]], "Input",
 CellChangeTimes->{{3.5393189611068983`*^9, 3.539318966823897*^9}, {
  3.578100172014543*^9, 3.578100173567128*^9}}],

Cell[CellGroupData[{

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.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.620484837782795*^9}],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.6204848377843*^9}],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.62048483807887*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "13", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  13, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 13, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.620484838120513*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"QN", "::", "NonConserv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.57935967692867*^9, 3.57936109709974*^9, 
  3.579882876172476*^9, 3.579883015113233*^9, 3.579955925731978*^9, 
  3.614226990346407*^9, 3.614227244355294*^9, 3.620484838458645*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p2"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
$CellContext`p2}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.620484838459844*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"QN", "::", "NonConserv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.57935967692867*^9, 3.57936109709974*^9, 
  3.579882876172476*^9, 3.579883015113233*^9, 3.579955925731978*^9, 
  3.614226990346407*^9, 3.614227244355294*^9, 3.620484838555184*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p2"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
$CellContext`p2}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.620484838556353*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"QN", "::", "NonConserv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.57935967692867*^9, 3.57936109709974*^9, 
  3.579882876172476*^9, 3.579883015113233*^9, 3.579955925731978*^9, 
  3.614226990346407*^9, 3.614227244355294*^9, 3.6204848386493683`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(QN :: \
NonConserv\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.57935967692867*^9, 3.57936109709974*^9, 
  3.579882876172476*^9, 3.579883015113233*^9, 3.579955925731978*^9, 
  3.614226990346407*^9, 3.614227244355294*^9, 3.620484838672554*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p1"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
$CellContext`p1}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.620484838673321*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p1"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
$CellContext`p1}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.620484838674183*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["t", "\<\"-\"\>"], ",", "uv", ",", "p2"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`tbar, $CellContext`uv, \
$CellContext`p2}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.6204848386754913`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["t", "\<\"-\"\>"], ",", "uv", ",", "p1"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`tbar, $CellContext`uv, \
$CellContext`p1}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.620484838676784*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p1"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`evbar, 
    FeynRules`e, $CellContext`p1}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.620484838678142*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p1"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`evbar, 
    FeynRules`e, $CellContext`p1}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.620484838679428*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p2"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`evbar, 
    FeynRules`e, $CellContext`p2}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.620484838680726*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p2"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`evbar, 
    FeynRules`e, $CellContext`p2}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.620484838682094*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["uv", "\<\"-\"\>"], ",", "t", ",", "p1"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`uvbar, 
    FeynRules`t, $CellContext`p1}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.6204848386834307`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["uv", "\<\"-\"\>"], ",", "t", ",", "p2"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`uvbar, 
    FeynRules`t, $CellContext`p2}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.6204848386847343`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"13", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[13, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5393189671984*^9, 3.5559447465349827`*^9, 
  3.5773734655358477`*^9, 3.578100176569536*^9, 3.579359675837954*^9, 
  3.579361096122386*^9, 3.579882875210784*^9, 3.5798830142493563`*^9, 
  3.579955924820272*^9, 3.6142269897167387`*^9, 3.6142272437433357`*^9, 
  3.620484838686007*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["ev", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ev", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"A", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ", 
      SubsuperscriptBox["\[Gamma]", 
       RowBox[{
        SubscriptBox["\<\"s\"\>", "1"], ",", 
        SubscriptBox["\<\"s\"\>", "2"]}], 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["uv", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"uv", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"A", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{
      FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "e", " ", 
      SubsuperscriptBox["\[Gamma]", 
       RowBox[{
        SubscriptBox["\<\"s\"\>", "1"], ",", 
        SubscriptBox["\<\"s\"\>", "2"]}], 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
      SubscriptBox["\[Delta]", 
       RowBox[{
        SubscriptBox["\<\"m\"\>", "1"], ",", 
        SubscriptBox["\<\"m\"\>", "2"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["e", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ev", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "lam1p", " ", 
       RowBox[{"Cos", "[", "th", "]"}], " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"-\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "lam2p", " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"-\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["e", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ev", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p1", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "lam2p", " ", 
       RowBox[{"Cos", "[", "th", "]"}], " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"-\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "lam1p", " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"-\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["t", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"uv", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "lam1", " ", 
       RowBox[{"Cos", "[", "th", "]"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"-\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "lam2", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"-\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["t", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"uv", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p1", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "lam2", " ", 
       RowBox[{"Cos", "[", "th", "]"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"-\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "lam1", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"-\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["ev", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"e", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p1", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "lam2p", " ", 
       RowBox[{"Cos", "[", "th", "]"}], " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"+\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "lam1p", " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"+\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["ev", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"e", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "lam1p", " ", 
       RowBox[{"Cos", "[", "th", "]"}], " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"+\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "lam2p", " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"+\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["uv", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p1", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "lam2", " ", 
       RowBox[{"Cos", "[", "th", "]"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"+\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "lam1", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"+\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["uv", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "lam1", " ", 
       RowBox[{"Cos", "[", "th", "]"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"+\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "lam2", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       SubscriptBox[
        SubscriptBox["P", "\<\"+\"\>"], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
       RowBox[{"Sin", "[", "th", "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["uv", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"uv", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"G", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["g", "s"], " ", 
      SubsuperscriptBox["\[Gamma]", 
       RowBox[{
        SubscriptBox["\<\"s\"\>", "1"], ",", 
        SubscriptBox["\<\"s\"\>", "2"]}], 
       SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
      SubsuperscriptBox["T", 
       RowBox[{
        SubscriptBox["\<\"m\"\>", "1"], ",", 
        SubscriptBox["\<\"m\"\>", "2"]}], 
       SubscriptBox["\<\"a\"\>", "3"]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["ev", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ev", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Z", ",", "3"}], "}"}]}], "}"}], ",", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "e", " ", 
       SubscriptBox["s", "w"], " ", 
       SubsuperscriptBox["\[Gamma]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}], 
        SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], 
      SubscriptBox["c", "w"]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["uv", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"uv", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Z", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["s", "w"], " ", 
        SubsuperscriptBox["\[Gamma]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}], 
         SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]]}], 
       RowBox[{"3", " ", 
        SubscriptBox["c", "w"]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.539318968485745*^9, 3.555944748124181*^9, 
  3.577373467002137*^9, 3.578100178320201*^9, 3.579359677559607*^9, 
  3.579361097674306*^9, 3.5798828767189703`*^9, 3.579883015711761*^9, 
  3.579955926297202*^9, 3.614226990639884*^9, 3.614227244578875*^9, 
  3.620484838688407*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Computing decays", "Section",
 CellChangeTimes->{{3.5781006310351267`*^9, 3.578100633256648*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"decays", "=", 
   RowBox[{"ComputeWidths", "[", "vertices", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.578100182561545*^9, 3.57810020224467*^9}, 
   3.5781019603591213`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "13"}],
  SequenceForm["Flavor expansion of the vertices: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 13],
  Editable->False]], "Print",
 CellChangeTimes->{3.5799559328896837`*^9, 3.6142270008489513`*^9, 
  3.6204849701379957`*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
decays: \"\>",
  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.5799559328896837`*^9, 3.6142270008489513`*^9, 
  3.620484970233635*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "10"}],
  SequenceForm[
   Dynamic[FeynRules`FR$DecayCounter], " / ", 10],
  Editable->False]], "Print",
 CellChangeTimes->{3.5799559328896837`*^9, 3.6142270008489513`*^9, 
  3.620484970235491*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"x1", "=", 
  RowBox[{"PartialWidth", "[", 
   RowBox[{"{", 
    RowBox[{"uv", ",", "t", ",", "p1"}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"x2", "=", 
  RowBox[{"PartialWidth", "[", 
   RowBox[{"{", 
    RowBox[{"uv", ",", "t", ",", "p2"}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"x3", "=", 
  RowBox[{"PartialWidth", "[", 
   RowBox[{"{", 
    RowBox[{"p2", ",", "e", ",", "evbar"}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"x4", "=", 
  RowBox[{"PartialWidth", "[", 
   RowBox[{"{", 
    RowBox[{"ev", ",", "e", ",", "p1"}], "}"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.578100256478664*^9, 3.578100389458416*^9}, {
  3.578100496453477*^9, 3.578100496643045*^9}, {3.5781006406864853`*^9, 
  3.578100657875001*^9}, {3.578101047163535*^9, 3.578101063202585*^9}, {
  3.578101099217561*^9, 3.578101110441593*^9}, {3.579955894464841*^9, 
  3.579955895661914*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"32", " ", "\[Pi]", " ", 
     SuperscriptBox[
      RowBox[{"Abs", "[", "Muv", "]"}], "3"]}]], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["MPe1", "2"], "-", 
      SuperscriptBox["MT", "2"], "-", 
      SuperscriptBox["Muv", "2"]}], ")"}], " ", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["MPe1", "4"], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["MPe1", "2"], " ", 
       SuperscriptBox["MT", "2"]}], "+", 
      SuperscriptBox["MT", "4"], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["MPe1", "2"], " ", 
       SuperscriptBox["Muv", "2"]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["MT", "2"], " ", 
       SuperscriptBox["Muv", "2"]}], "+", 
      SuperscriptBox["Muv", "4"]}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"lam2", " ", 
        RowBox[{"Cos", "[", "th", "]"}]}], "-", 
       RowBox[{"lam1", " ", 
        RowBox[{"Sin", "[", "th", "]"}]}]}], ")"}], "2"]}]}]}]], "Output",
 CellChangeTimes->{{3.578100267712432*^9, 3.578100306961565*^9}, {
   3.578100337491872*^9, 3.578100389938218*^9}, 3.5781004969919157`*^9, {
   3.578100649784704*^9, 3.5781006582507563`*^9}, 3.5781010640586987`*^9, 
   3.578101111331161*^9, 3.5793596917372513`*^9, 3.579882886900486*^9, 
   3.579883025786955*^9, 3.5799558989419003`*^9, 3.579955935260817*^9, 
   3.6142270029337683`*^9, 3.6204849723375387`*^9}],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"32", " ", "\[Pi]", " ", 
     SuperscriptBox[
      RowBox[{"Abs", "[", "Muv", "]"}], "3"]}]], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["MPe2", "2"], "-", 
      SuperscriptBox["MT", "2"], "-", 
      SuperscriptBox["Muv", "2"]}], ")"}], " ", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["MPe2", "4"], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["MPe2", "2"], " ", 
       SuperscriptBox["MT", "2"]}], "+", 
      SuperscriptBox["MT", "4"], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["MPe2", "2"], " ", 
       SuperscriptBox["Muv", "2"]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["MT", "2"], " ", 
       SuperscriptBox["Muv", "2"]}], "+", 
      SuperscriptBox["Muv", "4"]}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"lam1", " ", 
        RowBox[{"Cos", "[", "th", "]"}]}], "+", 
       RowBox[{"lam2", " ", 
        RowBox[{"Sin", "[", "th", "]"}]}]}], ")"}], "2"]}]}]}]], "Output",
 CellChangeTimes->{{3.578100267712432*^9, 3.578100306961565*^9}, {
   3.578100337491872*^9, 3.578100389938218*^9}, 3.5781004969919157`*^9, {
   3.578100649784704*^9, 3.5781006582507563`*^9}, 3.5781010640586987`*^9, 
   3.578101111331161*^9, 3.5793596917372513`*^9, 3.579882886900486*^9, 
   3.579883025786955*^9, 3.5799558989419003`*^9, 3.579955935260817*^9, 
   3.6142270029337683`*^9, 3.620484972339891*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"Mev", "-", "MPe2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"Mev", "+", "MPe2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"lam1p", " ", 
        RowBox[{"Cos", "[", "th", "]"}]}], "+", 
       RowBox[{"lam2p", " ", 
        RowBox[{"Sin", "[", "th", "]"}]}]}], ")"}], "2"]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"16", " ", "\[Pi]", " ", 
    SuperscriptBox[
     RowBox[{"Abs", "[", "MPe2", "]"}], "3"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.578100267712432*^9, 3.578100306961565*^9}, {
   3.578100337491872*^9, 3.578100389938218*^9}, 3.5781004969919157`*^9, {
   3.578100649784704*^9, 3.5781006582507563`*^9}, 3.5781010640586987`*^9, 
   3.578101111331161*^9, 3.5793596917372513`*^9, 3.579882886900486*^9, 
   3.579883025786955*^9, 3.5799558989419003`*^9, 3.579955935260817*^9, 
   3.6142270029337683`*^9, 3.620484972341585*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"32", " ", "\[Pi]", " ", 
    SuperscriptBox[
     RowBox[{"Abs", "[", "Mev", "]"}], "3"]}]], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"Mev", "-", "MPe1"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"Mev", "+", "MPe1"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"lam2p", " ", 
       RowBox[{"Cos", "[", "th", "]"}]}], "-", 
      RowBox[{"lam1p", " ", 
       RowBox[{"Sin", "[", "th", "]"}]}]}], ")"}], "2"]}]}]], "Output",
 CellChangeTimes->{{3.578100267712432*^9, 3.578100306961565*^9}, {
   3.578100337491872*^9, 3.578100389938218*^9}, 3.5781004969919157`*^9, {
   3.578100649784704*^9, 3.5781006582507563`*^9}, 3.5781010640586987`*^9, 
   3.578101111331161*^9, 3.5793596917372513`*^9, 3.579882886900486*^9, 
   3.579883025786955*^9, 3.5799558989419003`*^9, 3.579955935260817*^9, 
   3.6142270029337683`*^9, 3.620484972342988*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%16", "//", "InputForm"}]], "Input",
 CellChangeTimes->{{3.6204849920353603`*^9, 3.620485001418481*^9}, {
  3.620485063146112*^9, 3.6204850666128397`*^9}}],

Cell["\<\
((Mev - MPe1)^2*(Mev + MPe1)^2*
  (lam2p*Cos[th] - lam1p*Sin[th])^
   2)/(32*Pi*Abs[Mev]^3)\
\>", "Output",
 CellChangeTimes->{3.6204850027051353`*^9, 3.620485067195485*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"NumericalValue", "[", "x1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"NumericalValue", "[", "x2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"NumericalValue", "[", "x3", "]"}], "\[IndentingNewLine]", 
 RowBox[{"NumericalValue", "[", "x4", "]"}]}], "Input",
 CellChangeTimes->{{3.5781006598477917`*^9, 3.5781006665443563`*^9}, {
  3.578101066979349*^9, 3.5781010707919703`*^9}, {3.578101188434381*^9, 
  3.57810118966578*^9}}],

Cell[BoxData["0.038425885456201785`"], "Output",
 CellChangeTimes->{3.57810066702802*^9, 3.578101071234214*^9, 
  3.578101189891306*^9, 3.579359698611641*^9, 3.579882889407324*^9, 
  3.5798830277150307`*^9, 3.579955939561494*^9, 3.614227006142589*^9}],

Cell[BoxData["0.032211212617791904`"], "Output",
 CellChangeTimes->{3.57810066702802*^9, 3.578101071234214*^9, 
  3.578101189891306*^9, 3.579359698611641*^9, 3.579882889407324*^9, 
  3.5798830277150307`*^9, 3.579955939561494*^9, 3.614227006144225*^9}],

Cell[BoxData["0.01119114152936453`"], "Output",
 CellChangeTimes->{3.57810066702802*^9, 3.578101071234214*^9, 
  3.578101189891306*^9, 3.579359698611641*^9, 3.579882889407324*^9, 
  3.5798830277150307`*^9, 3.579955939561494*^9, 3.614227006145389*^9}],

Cell[BoxData["0.004969365413133469`"], "Output",
 CellChangeTimes->{3.57810066702802*^9, 3.578101071234214*^9, 
  3.578101189891306*^9, 3.579359698611641*^9, 3.579882889407324*^9, 
  3.5798830277150307`*^9, 3.579955939561494*^9, 3.6142270061464643`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["UFO", "Section",
 CellChangeTimes->{{3.539319024076879*^9, 3.53931903003391*^9}, {
  3.578100803596233*^9, 3.578100804390173*^9}, {3.579359706634882*^9, 
  3.579359708801149*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SetDirectory", "[", "\"\<~/mg5amcnlo/models\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LSM", "+", "LNew"}], "]"}]}], "Input",
 CellChangeTimes->{{3.539319031354458*^9, 3.53931903608384*^9}, {
   3.579359719778757*^9, 3.579359744234468*^9}, {3.579361601368628*^9, 
   3.579361603527499*^9}, {3.579883038689376*^9, 3.579883070017232*^9}, {
   3.5798833617114*^9, 3.5798833680620728`*^9}, {3.579956090474226*^9, 
   3.5799561181857033`*^9}, {3.614227032838636*^9, 3.614227052300777*^9}, 
   3.614227254605687*^9}],

Cell[BoxData["\<\"/Users/degrande/mg5amcnlo/models\"\>"], "Output",
 CellChangeTimes->{3.6142270562894497`*^9, 3.614227255614313*^9}],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227257151779*^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.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227257427157*^9}],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227257428244*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.6142272574288683`*^9}],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.61422725998386*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "111", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "111", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  111, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 111, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227260040966*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"106", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[106, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227262633197*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "106"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 106],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227264645507*^9}],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227267424863*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"QN", "::", "NonConserv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.579359768176352*^9, 3.579361130076136*^9, 
  3.5793613334515333`*^9, 3.579883044648332*^9, 3.579956113866609*^9, 
  3.614227056284987*^9, 3.6142272675257683`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p2", ",", 
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`p2, $CellContext`ebar, \
$CellContext`ev}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227267527328*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"QN", "::", "NonConserv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.579359768176352*^9, 3.579361130076136*^9, 
  3.5793613334515333`*^9, 3.579883044648332*^9, 3.579956113866609*^9, 
  3.614227056284987*^9, 3.614227267622766*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p2", ",", 
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p2, $CellContext`ebar, \
$CellContext`ev}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.6142272676246223`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"QN", "::", "NonConserv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.579359768176352*^9, 3.579361130076136*^9, 
  3.5793613334515333`*^9, 3.579883044648332*^9, 3.579956113866609*^9, 
  3.614227056284987*^9, 3.614227267721179*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(QN :: \
NonConserv\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.579359768176352*^9, 3.579361130076136*^9, 
  3.5793613334515333`*^9, 3.579883044648332*^9, 3.579956113866609*^9, 
  3.614227056284987*^9, 3.614227267736979*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p1", ",", 
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`p1, $CellContext`ebar, \
$CellContext`ev}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227267738039*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p1", ",", 
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p1, $CellContext`ebar, \
$CellContext`ev}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227267738751*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p2", ",", 
     OverscriptBox["t", "\<\"-\"\>"], ",", "uv"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p2, $CellContext`tbar, \
$CellContext`uv}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227267740045*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p1", ",", 
     OverscriptBox["t", "\<\"-\"\>"], ",", "uv"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p1, $CellContext`tbar, \
$CellContext`uv}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227267740699*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p1", ",", 
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`p1, $CellContext`evbar, 
    FeynRules`e}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227267741377*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p1", ",", 
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p1, $CellContext`evbar, 
    FeynRules`e}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227267742029*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p2", ",", 
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`p2, $CellContext`evbar, 
    FeynRules`e}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227267742681*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p2", ",", 
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p2, $CellContext`evbar, 
    FeynRules`e}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.61422726774333*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p1", ",", 
     OverscriptBox["uv", "\<\"-\"\>"], ",", "t"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p1, $CellContext`uvbar, 
    FeynRules`t}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227267744012*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p2", ",", 
     OverscriptBox["uv", "\<\"-\"\>"], ",", "t"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p2, $CellContext`uvbar, 
    FeynRules`t}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.6142272677446747`*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
decays: \"\>",
  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.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227267770104*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{184., {4., 13.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "50"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 50],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227267787595*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "0.80327700000000001878674993349704891443`5.925465245391684", 
   "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm[
  "Squared matrix elent compute in ", 
   0.80327700000000001878674993349704891443`5.925465245391684, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227268923963*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{184., {4., 13.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "43"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 43],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227268949773*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "0.12919300000000000228084218178992159665`5.131838896414457", 
   "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm[
  "Decay widths computed in ", 
   0.12919300000000000228084218178992159665`5.131838896414457, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227269102338*^9}],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227269103894*^9}],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227269200268*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227269214905*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{313., {4., 13.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "132", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 132, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227269422758*^9}],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227269517147*^9}],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.539319036779101*^9, 3.555944767233947*^9, 
  3.5773734727639713`*^9, 3.577374315202577*^9, 3.578100794686623*^9, 
  3.579359751448289*^9, 3.57936111383105*^9, 3.579361316995659*^9, 
  3.579883047778696*^9, 3.579956098171582*^9, 3.614227057826811*^9, 
  3.614227269656445*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["NLO", "Subtitle",
 CellChangeTimes->{{3.620532141194763*^9, 3.620532141504681*^9}}],

Cell[CellGroupData[{

Cell["\<\
Renormalization and output to FeynArts\
\>", "Section",
 CellChangeTimes->{{3.620533137124589*^9, 3.620533153042384*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Lren", " ", "=", " ", 
    RowBox[{"OnShellRenormalization", "[", 
     RowBox[{
      RowBox[{"LSM", "+", "LNew"}], ",", 
      RowBox[{"QCDOnly", "\[Rule]", "True"}], ",", 
      RowBox[{"FlavorMixing", "\[Rule]", "False"}]}], "]"}]}], ";"}], "//", 
  "Timing"}]], "Input",
 CellChangeTimes->{{3.620532155504299*^9, 3.62053219019786*^9}, {
  3.620532347890162*^9, 3.620532355025401*^9}, {3.620532689767404*^9, 
  3.62053270843248*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
them\"\>"], "Print",
 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9, 
  3.620532412956456*^9, 3.620532716105023*^9}],

Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9, 
  3.620532412956456*^9, 3.620532725131181*^9}],

Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9, 
  3.620532412956456*^9, 3.620532725230619*^9}],

Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9, 
  3.620532412956456*^9, 3.620532725264434*^9}],

Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9, 
  3.620532412956456*^9, 3.620532725266629*^9}],

Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9, 
  3.620532412956456*^9, 3.620532725269038*^9}],

Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9, 
  3.620532412956456*^9, 3.620532725271412*^9}],

Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9, 
  3.620532412956456*^9, 3.620532954156363*^9}],

Cell[BoxData["\<\"with the parameters\"\>"], "Print",
 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9, 
  3.620532412956456*^9, 3.620532954177005*^9}],

Cell[BoxData["\<\"with the fields\"\>"], "Print",
 CellChangeTimes->{3.620532197393807*^9, 3.620532307232245*^9, 
  3.620532412956456*^9, 3.6205329552884617`*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "246.99903100000000222280505113303661346436`8.413295162765289", ",", 
   "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.6205324050946503`*^9, 3.620532657381234*^9, 
  3.620532958205011*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Union", "[", 
  RowBox[{"Cases", "[", 
   RowBox[{"Lren", ",", "_FR$delta", ",", "\[Infinity]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.620532500632022*^9, 3.620532515368764*^9}, {
  3.620532608401843*^9, 3.620532623761948*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox["\<\"\[Delta]\"\>", 
    SubscriptBox["\[Alpha]", "s"]], ",", 
   SubscriptBox["\<\"\[Delta]\"\>", "MB"], ",", 
   SubscriptBox["\<\"\[Delta]\"\>", "MT"], ",", 
   SubscriptBox["\<\"\[Delta]\"\>", "Muv"]}], "}"}]], "Output",
 CellChangeTimes->{3.620532660725692*^9, 3.620532958308196*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Union", "[", 
  RowBox[{"Cases", "[", 
   RowBox[{"Lren", ",", "_FR$deltaZ", ",", "\[Infinity]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{3.620532671015769*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox[
    SubscriptBox["\<\"\[Delta]Z\"\>", 
     RowBox[{"{", 
      RowBox[{"G", ",", "G"}], "}"}]], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"b", ",", "b"}], "}"}],"\"L\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"b", ",", "b"}], "}"}],"\"R\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"c", ",", "c"}], "}"}],"\"L\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"c", ",", "c"}], "}"}],"\"R\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"d", ",", "d"}], "}"}],"\"L\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"d", ",", "d"}], "}"}],"\"R\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"s", ",", "s"}], "}"}],"\"L\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"s", ",", "s"}], "}"}],"\"R\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"t", ",", "t"}], "}"}],"\"L\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"t", ",", "t"}], "}"}],"\"R\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"u", ",", "u"}], "}"}],"\"L\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"u", ",", "u"}], "}"}],"\"R\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"uv", ",", "uv"}], "}"}],"\"L\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]], ",", 
   SubscriptBox[
    TemplateBox[{"\"\[Delta]Z\"",RowBox[{"{", 
        RowBox[{"uv", ",", "uv"}], "}"}],"\"R\""},
     "Subsuperscript"], 
    RowBox[{"{", "}"}]]}], "}"}]], "Output",
 CellChangeTimes->{3.620532671938519*^9, 3.620532958341405*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", "\"\<~/FeynArts-3.8/Models\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"WriteFeynArtsOutput", "[", 
    RowBox[{"Lren", ",", 
     RowBox[{"GenericFile", "\[Rule]", "False"}], ",", 
     RowBox[{"Output", "\[Rule]", "\"\<Tutorial\>\""}]}], "]"}], ";"}], "//", 
  "Timing"}]}], "Input",
 CellChangeTimes->{{3.6205321978361588`*^9, 3.620532207114043*^9}, {
  3.6205323269143953`*^9, 3.620532388011119*^9}, {3.620532455009796*^9, 
  3.620532483632366*^9}, {3.620532739537777*^9, 3.6205327488884153`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
 CellChangeTimes->{3.6205330591520033`*^9}],

Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
 CellChangeTimes->{3.620533059152956*^9}],

Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
 CellChangeTimes->{3.62053305915477*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Creating output directory: \"\>", 
   "\[InvisibleSpace]", "\<\"Tutorial\"\>"}],
  SequenceForm["Creating output directory: ", "Tutorial"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205330591558237`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205330591569233`*^9}],

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rules calculation for L1.\"\>",
  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.620533062200246*^9}],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.620533062242281*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533062243113*^9}],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6205330759580393`*^9}],

Cell[BoxData[
 StyleBox["\<\"Warning: Class members in the Lagrangian! Not supported by \
FeynArts.\"\>",
  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.620533076089198*^9}],

Cell[BoxData["\<\"1 vertex obtained.\"\>"], "Print",
 CellChangeTimes->{3.62053307611152*^9}],

Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
separate FeynArts class.\"\>"], "Print",
 CellChangeTimes->{3.620533076112297*^9}],

Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
classes\"\>"], "Print",
 CellChangeTimes->{3.6205330761129513`*^9}],

Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
-> True.\"\>"], "Print",
 CellChangeTimes->{3.6205330761135883`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533076114242*^9}],

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rules calculation for L1.\"\>",
  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.620533079219558*^9}],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.620533079220386*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533079221037*^9}],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6205330932557783`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "182", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{32., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "182", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  182, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 182, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053309340466*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"QN", "::", "NonConserv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.620533104211378*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p2"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
$CellContext`p2}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533104213307*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"QN", "::", "NonConserv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.620533104309107*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p2"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
$CellContext`p2}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533104310087*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"QN", "::", "NonConserv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.620533104405764*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(QN :: \
NonConserv\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.620533104426856*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p1"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
$CellContext`p1}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533104428293*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev", ",", "p1"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`ebar, $CellContext`ev, \
$CellContext`p1}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533104429101*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["t", "\<\"-\"\>"], ",", "uv", ",", "p2"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`tbar, $CellContext`uv, \
$CellContext`p2}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205331044307003`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["t", "\<\"-\"\>"], ",", "uv", ",", "p1"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`tbar, $CellContext`uv, \
$CellContext`p1}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533104431435*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["uv", "\<\"-\"\>"], ",", "t", ",", "p1"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`uvbar, 
    FeynRules`t, $CellContext`p1}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533104432201*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["uv", "\<\"-\"\>"], ",", "t", ",", "p2"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`uvbar, 
    FeynRules`t, $CellContext`p2}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205331044329243`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p1"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`evbar, 
    FeynRules`e, $CellContext`p1}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205331044336433`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p1"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`evbar, 
    FeynRules`e, $CellContext`p1}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533104434381*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p2"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`evbar, 
    FeynRules`e, $CellContext`p2}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053310443561*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e", ",", "p2"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`evbar, 
    FeynRules`e, $CellContext`p2}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533104436792*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"167", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[167, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205331044379263`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writing FeynArts model file into directory \"\>", 
   "\[InvisibleSpace]", "\<\"Tutorial\"\>"}],
  SequenceForm["Writing FeynArts model file into directory ", "Tutorial"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533108101244*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "44.99032700000000062345861806534230709076`7.6737190630084156", ",", 
   "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.620533108102291*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Computation of the vertices", "Section",
 CellChangeTimes->{{3.620533176529969*^9, 3.6205331847695503`*^9}}],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.620533308839384*^9, 3.620533310452351*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", "\"\<~/FeynArts-3.8\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "FeynArts`"}], "\[IndentingNewLine]", 
 RowBox[{"SetDirectory", "[", "\"\<~/feynrules/tags/feynrules-2.1\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "NLOCT`"}]}], "Input",
 CellChangeTimes->{{3.6205331915021152`*^9, 3.6205333009698067`*^9}, {
  3.620535146500984*^9, 3.620535147332876*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9}, 
   3.620535149510318*^9}],

Cell[BoxData["\<\"FeynArts 3.8\"\>"], "Print",
 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9}, 
   3.6205351495176487`*^9}],

Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print",
 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9}, 
   3.620535149523645*^9}],

Cell[BoxData["\<\"last revised 9 Jul 13\"\>"], "Print",
 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9}, 
   3.62053514952705*^9}]
}, Open  ]],

Cell[BoxData["\<\"/Users/degrande/feynrules/tags/feynrules-2.1\"\>"], "Output",
 CellChangeTimes->{{3.620533305146145*^9, 3.620533324772601*^9}, 
   3.620535149617305*^9}],

Cell[CellGroupData[{

Cell[BoxData["\<\" - NLOCT - \"\>"], "Print",
 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9}, 
   3.620535149637269*^9}],

Cell[BoxData["\<\"Version: 1.0\"\>"], "Print",
 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9}, 
   3.620535149638682*^9}],

Cell[BoxData["\<\"Authors: C. Degrande\"\>"], "Print",
 CellChangeTimes->{{3.6205333026810293`*^9, 3.620533324687025*^9}, 
   3.620535149640574*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SetDirectory", "[", "\"\<~/Talks/TASI2013/\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteCT", "[", 
   RowBox[{"\"\<Tutorial/Tutorial\>\"", ",", "\"\<Lorentz\>\"", ",", 
    RowBox[{"QCDOnly", "\[Rule]", "True"}], ",", " ", 
    RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}], ",", 
    RowBox[{"ZeroMom", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"aS", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"F", "[", "14", "]"}], ",", 
          RowBox[{"V", "[", "4", "]"}], ",", 
          RowBox[{"-", 
           RowBox[{"F", "[", "14", "]"}]}]}], "}"}]}], "}"}], "}"}]}]}], 
   "]"}], "//", "Timing"}]}], "Input",
 CellChangeTimes->{{3.620533328891531*^9, 3.6205334461637373`*^9}, {
  3.62053349209654*^9, 3.620533494710122*^9}, {3.620535130278564*^9, 
  3.6205351573486853`*^9}, {3.620535201950944*^9, 3.620535204971959*^9}}],

Cell[BoxData["\<\"/Users/degrande/Talks/TASI2013\"\>"], "Output",
 CellChangeTimes->{3.620533498289444*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Computing CT for the {S} vertices.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{3.620533498290619*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205334982923594`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"generic\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/degrande/FeynArts-3.8/Models/Lorentz.gen\"\>"}],
  SequenceForm[
  "", "loading ", "generic", " model file ", 
   "/Users/degrande/FeynArts-3.8/Models/Lorentz.gen"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498293841*^9}],

Cell[BoxData["\<\"> $GenericMixing is OFF\"\>"], "Print",
 CellChangeTimes->{3.6205334983376493`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Lorentz\"\>", "}"}], 
   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
  SequenceForm["generic model ", {"Lorentz"}, " initialized"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205334983393517`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533498340768*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"classes\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/degrande/FeynArts-3.8/Models/Tutorial/Tutorial.mod\"\>"}],
  SequenceForm[
  "", "loading ", "classes", " model file ", 
   "/Users/degrande/FeynArts-3.8/Models/Tutorial/Tutorial.mod"],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053349834214*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "49", 
   "\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>", 
   "\[InvisibleSpace]", "28", "\[InvisibleSpace]", "\<\" classes\"\>"}],
  SequenceForm[
  "> ", 49, " particles (incl. antiparticles) in ", 28, " classes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498343732*^9}],

Cell[BoxData["\<\"> $CounterTerms are ON\"\>"], "Print",
 CellChangeTimes->{3.620533498377083*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "132", 
   "\[InvisibleSpace]", "\<\" vertices\"\>"}],
  SequenceForm["> ", 132, " vertices"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498377994*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "48", 
   "\[InvisibleSpace]", "\<\" counter terms of order 1\"\>"}],
  SequenceForm["> ", 48, " counter terms of order 1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205334984043217`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Tutorial/Tutorial\"\>", "}"}], 
   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
  SequenceForm["classes model ", {"Tutorial/Tutorial"}, " initialized"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498405266*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533498405909*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053349840653*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 16 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "4 Generic, 16 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205334984374*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 16 Classes insertions\"\>"}],
  SequenceForm["in total: ", "4 Generic, 16 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498438313*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533498438951*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498439578*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498440249*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 0.162638\"\>"], "Print",
 CellChangeTimes->{3.620533498440873*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 0.162799\"\>"], "Print",
 CellChangeTimes->{3.620533498441503*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533498442174*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498443029*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205334984442463`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498445415*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533498446512*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205334984476643`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498448811*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 0.164821\"\>"], \
"Print",
 CellChangeTimes->{3.620533498449912*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 0.165098\"\>"], "Print",
 CellChangeTimes->{3.620533498451009*^9}],

Cell[BoxData["\<\"Simpliication of the vertices finished after \
0.165139\"\>"], "Print",
 CellChangeTimes->{3.620533498452078*^9}],

Cell[BoxData["\<\"Vertices {S} finished after 0.165181\"\>"], "Print",
 CellChangeTimes->{3.620533498453163*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing CT for the {F, F} vertices.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{3.620533498454323*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533498455441*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498456551*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498457752*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 124 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 124 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498676602*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 124 Classes insertions\"\>"}],
  SequenceForm["in total: ", "2 Generic, 124 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498677512*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533498707855*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498708726*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 14 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 14 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533498737102*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 14 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 14 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205334987380543`*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 0.474052\"\>"], "Print",
 CellChangeTimes->{3.620533498738719*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 1.151059\"\>"], "Print",
 CellChangeTimes->{3.620533499409218*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533499474893*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533499475753*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 14 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 14 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533499501462*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 14 Classes insertions\"\>"}],
  SequenceForm["in total: ", "1 Generic, 14 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533499502688*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533499503642*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533499504695*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 14 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 14 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205334995058737`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 14 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 14 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533499507059*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 1.266844\"\>"], \
"Print",
 CellChangeTimes->{3.620533499534739*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 2.201579\"\>"], "Print",
 CellChangeTimes->{3.6205335004597397`*^9}],

Cell[BoxData["\<\"before CTSol close\"\>"], "Print",
 CellChangeTimes->{3.620533500527563*^9}],

Cell[BoxData["\<\"Simpliication of the vertices finished after \
2.795827\"\>"], "Print",
 CellChangeTimes->{3.620533501080803*^9}],

Cell[BoxData["\<\"Vertices {F, F} finished after 2.796093\"\>"], "Print",
 CellChangeTimes->{3.620533501082033*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing CT for the {S, S} vertices.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{3.620533501083296*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533501084587*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501085987*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 22 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "2 Generic, 22 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053350108746*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"5 Generic, 75 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "5 Generic, 75 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501213607*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"7 Generic, 97 Classes insertions\"\>"}],
  SequenceForm["in total: ", "7 Generic, 97 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501214518*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533501233451*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501234819*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501236038*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 2.976225\"\>"], "Print",
 CellChangeTimes->{3.620533501237166*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 2.976356\"\>"], "Print",
 CellChangeTimes->{3.620533501238275*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533501239415*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501240535*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335012417793`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335012439003`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533501245863*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335012470417`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335012482433`*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 2.980470\"\>"], \
"Print",
 CellChangeTimes->{3.620533501249374*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 2.980764\"\>"], "Print",
 CellChangeTimes->{3.620533501250476*^9}],

Cell[BoxData["\<\"Simpliication of the vertices finished after \
2.980817\"\>"], "Print",
 CellChangeTimes->{3.6205335012512217`*^9}],

Cell[BoxData["\<\"Vertices {S, S} finished after 2.980941\"\>"], "Print",
 CellChangeTimes->{3.620533501251872*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing CT for the {V, V} vertices.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{3.620533501252552*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205335012532377`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501253882*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 23 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "2 Generic, 23 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501281082*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"5 Generic, 144 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "5 Generic, 144 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501486546*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"7 Generic, 167 Classes insertions\"\>"}],
  SequenceForm["in total: ", "7 Generic, 167 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501487504*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533501546298*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501547203*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501547926*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 37 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "3 Generic, 37 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501613675*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 38 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "4 Generic, 38 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533501615144*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 3.327242\"\>"], "Print",
 CellChangeTimes->{3.6205335016162643`*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 4.082443\"\>"], "Print",
 CellChangeTimes->{3.620533502361013*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533502460844*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335024622297`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533502463388*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
  SequenceForm["in total: ", "1 Generic, 1 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053350246453*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533502465609*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533502466679*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533502467836*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533502469005*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 4.176326\"\>"], \
"Print",
 CellChangeTimes->{3.6205335024700947`*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 4.871199\"\>"], "Print",
 CellChangeTimes->{3.620533503129443*^9}],

Cell[BoxData["\<\"before CTSol close\"\>"], "Print",
 CellChangeTimes->{3.620533503243033*^9}],

Cell[BoxData["\<\"Simpliication of the vertices finished after \
5.315607\"\>"], "Print",
 CellChangeTimes->{3.620533503591157*^9}],

Cell[BoxData["\<\"Vertices {V, V} finished after 5.315780\"\>"], "Print",
 CellChangeTimes->{3.620533503592045*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing CT for the {F, F, S} vertices.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{3.620533503592814*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533503593501*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335035942698`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 472 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 472 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053350973956*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533509741322*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533509742446*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533509743408*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 472 Classes insertions\"\>"}],
  SequenceForm["in total: ", "6 Generic, 472 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533509744605*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533509913639*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533509914619*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 20 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 20 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053350995545*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 20 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 20 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533509956715*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 11.700716\"\>"], "Print",
 CellChangeTimes->{3.620533509976571*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 11.758448\"\>"], "Print",
 CellChangeTimes->{3.620533510016708*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533510066162*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533510067367*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 20 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 20 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335100925198`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 20 Classes insertions\"\>"}],
  SequenceForm["in total: ", "1 Generic, 20 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533510093487*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533510094182*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533510094859*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 20 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 20 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335101094503`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 20 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 20 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335101104183`*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 11.871598\"\>"], \
"Print",
 CellChangeTimes->{3.620533510143949*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 12.373353\"\>"], "Print",
 CellChangeTimes->{3.62053351063166*^9}],

Cell[BoxData["\<\"Simpliication of the vertices finished after \
12.819795\"\>"], "Print",
 CellChangeTimes->{3.620533511077936*^9}],

Cell[BoxData["\<\"Vertices {F, F, S} finished after 12.820026\"\>"], "Print",
 CellChangeTimes->{3.620533511078874*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing CT for the {F, F, V} vertices.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{3.620533511079598*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533511080554*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533511081311*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 646 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 646 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533517833626*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335178346033`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533517835372*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335178361073`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 646 Classes insertions\"\>"}],
  SequenceForm["in total: ", "6 Generic, 646 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533517858026*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533518060442*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533518061414*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 128 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "3 Generic, 128 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533518276401*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 128 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "3 Generic, 128 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533518277376*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 20.032111\"\>"], "Print",
 CellChangeTimes->{3.6205335183069677`*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 20.285192\"\>"], "Print",
 CellChangeTimes->{3.620533518543437*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533518765388*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335187663383`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 54 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 54 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533518788148*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 54 Classes insertions\"\>"}],
  SequenceForm["in total: ", "1 Generic, 54 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335187890987`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205335188052692`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335188061943`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 54 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 54 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533518838957*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 54 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 54 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335188399353`*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 20.665658\"\>"], \
"Print",
 CellChangeTimes->{3.620533518923821*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 22.685373\"\>"], "Print",
 CellChangeTimes->{3.620533520943645*^9}],

Cell[BoxData["\<\"Simpliication of the vertices finished after \
23.313367\"\>"], "Print",
 CellChangeTimes->{3.6205335215715637`*^9}],

Cell[BoxData["\<\"Vertices {F, F, V} finished after 23.314003\"\>"], "Print",
 CellChangeTimes->{3.620533521573031*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing CT for the {V, V, V} vertices.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{3.620533521574299*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205335215755053`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533521576757*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"10 Generic, 1013 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "10 Generic, 1013 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335235193787`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 57 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 57 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533523640192*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 57 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 57 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533523763357*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 57 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 57 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533523895194*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"16 Generic, 1184 Classes insertions\"\>"}],
  SequenceForm["in total: ", "16 Generic, 1184 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533523902635*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533524267242*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533524268228*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 305 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "3 Generic, 305 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335247867613`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053352479771*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205335248119698`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533524812951*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 308 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "6 Generic, 308 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533524813767*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 26.589317\"\>"], "Print",
 CellChangeTimes->{3.620533524847513*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 161.622532\"\>"], "Print",
 CellChangeTimes->{3.620533659880814*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533659927597*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205336599285603`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205336599293127`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
  SequenceForm["in total: ", "1 Generic, 1 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205336599300957`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205336599308033`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533659931497*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533659942054*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205336599436293`*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 161.697041\"\>"], \
"Print",
 CellChangeTimes->{3.62053365995516*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 163.982307\"\>"], "Print",
 CellChangeTimes->{3.620533662240662*^9}],

Cell[BoxData["\<\"Simpliication of the vertices finished after \
164.690988\"\>"], "Print",
 CellChangeTimes->{3.620533662949236*^9}],

Cell[BoxData["\<\"Vertices {V, V, V} finished after 164.691384\"\>"], "Print",
 CellChangeTimes->{3.620533662950366*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing CT for the {V, V, S} vertices.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{3.620533662951377*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.62053366295234*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533662953141*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"10 Generic, 506 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "10 Generic, 506 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533664499103*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 45 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "1 Generic, 45 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205336645629663`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 45 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "1 Generic, 45 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533664621202*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 44 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 44 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533664724595*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"14 Generic, 640 Classes insertions\"\>"}],
  SequenceForm["in total: ", "14 Generic, 640 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205336647368183`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533664918003*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533664919011*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 48 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 48 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533665002179*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 48 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 48 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533665003208*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 166.750130\"\>"], "Print",
 CellChangeTimes->{3.620533665011059*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 166.923604\"\>"], "Print",
 CellChangeTimes->{3.620533665181818*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205336651891203`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533665190075*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533665190857*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205336651915894`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533665192706*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205336651934843`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533665194292*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 166.931694\"\>"], \
"Print",
 CellChangeTimes->{3.620533665195076*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 166.957321\"\>"], "Print",
 CellChangeTimes->{3.62053366521546*^9}],

Cell[BoxData["\<\"Simpliication of the vertices finished after \
166.972779\"\>"], "Print",
 CellChangeTimes->{3.620533665231039*^9}],

Cell[BoxData["\<\"Vertices {V, V, S} finished after 166.972978\"\>"], "Print",
 CellChangeTimes->{3.6205336652325583`*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing CT for the {V, S, S} vertices.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{3.620533665233675*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533665234436*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533665235284*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"10 Generic, 534 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "10 Generic, 534 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533666404846*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 42 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 42 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533666522119*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 54 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "1 Generic, 54 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533666593855*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 54 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "1 Generic, 54 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533666668592*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"14 Generic, 684 Classes insertions\"\>"}],
  SequenceForm["in total: ", "14 Generic, 684 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533666678042*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533666880512*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533666881708*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 36 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 36 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533666944215*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 36 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 36 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205336669452868`*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 168.689521\"\>"], "Print",
 CellChangeTimes->{3.620533666953887*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 183.577527\"\>"], "Print",
 CellChangeTimes->{3.620533681835874*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.62053368183749*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533681838736*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533681840024*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533681841354*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533681842359*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533681843492*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533681844942*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 183.582008\"\>"], \
"Print",
 CellChangeTimes->{3.620533681846642*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 183.582377\"\>"], "Print",
 CellChangeTimes->{3.620533681847885*^9}],

Cell[BoxData["\<\"Simpliication of the vertices finished after \
183.582448\"\>"], "Print",
 CellChangeTimes->{3.6205336818493156`*^9}],

Cell[BoxData["\<\"Vertices {V, S, S} finished after 183.582613\"\>"], "Print",
 CellChangeTimes->{3.620533681850109*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing CT for the {S, S, S} vertices.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{3.6205336818509703`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205336818517017`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533681852416*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"10 Generic, 473 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "10 Generic, 473 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533683018244*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 42 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 42 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533683121312*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 42 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 42 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533683223481*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 42 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 42 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205336833223886`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"16 Generic, 599 Classes insertions\"\>"}],
  SequenceForm["in total: ", "16 Generic, 599 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533683331945*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205336835082817`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533683509823*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533683511209*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 185.251175\"\>"], "Print",
 CellChangeTimes->{3.6205336835124683`*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 185.251303\"\>"], "Print",
 CellChangeTimes->{3.6205336835136223`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533683514435*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533683515275*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533683516129*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053368351689*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205336835176077`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533683518322*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533683519112*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 185.255393\"\>"], \
"Print",
 CellChangeTimes->{3.620533683520059*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 185.255637\"\>"], "Print",
 CellChangeTimes->{3.620533683521029*^9}],

Cell[BoxData["\<\"Simpliication of the vertices finished after \
185.255681\"\>"], "Print",
 CellChangeTimes->{3.620533683521985*^9}],

Cell[BoxData["\<\"Vertices {S, S, S} finished after 185.255792\"\>"], "Print",
 CellChangeTimes->{3.620533683522743*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing CT for the {V, V, V, V} vertices.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{3.620533683523828*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533683579533*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
ones)\"\>"}],
  SequenceForm[
  "Excluding ", 11, " field point(s) (incl. charge-conjugate ones)"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533683580632*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205336835815687`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533683582945*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 343 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "2 Generic, 343 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533684361886*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 343 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 343 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533685172385*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 343 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 343 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533685962914*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 343 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 343 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205336867526903`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 343 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 5, ": ", "2 Generic, 343 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533687533038*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 343 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 6, ": ", "2 Generic, 343 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205336883014507`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 2673 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 7, ": ", "4 Generic, 2673 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205336966366177`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 2673 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "4 Generic, 2673 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533704438636*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 2673 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "4 Generic, 2673 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053371333604*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 233 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 10, ": ", "2 Generic, 233 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337138134604`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 233 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 11, ": ", "2 Generic, 233 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533714295521*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 233 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 12, ": ", "2 Generic, 233 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533714775399*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533714776513*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" field point(s)\"\>"}],
  SequenceForm["Restoring ", 11, " field point(s)"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337147773447`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"30 Generic, 10776 Classes insertions\"\>"}],
  SequenceForm["in total: ", "30 Generic, 10776 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337148257647`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205337192773027`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533719279035*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053372023309*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533720243617*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337202526293`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533720261359*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 5, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533720262567*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 6, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533720272498*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1273 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 7, ": ", "3 Generic, 1273 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533722718671*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1273 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "3 Generic, 1273 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053372524331*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1273 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "3 Generic, 1273 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533727687091*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 10, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533727695869*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 11, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337277057943`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 12, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533727716604*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"18 Generic, 3828 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "18 Generic, 3828 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337277382708`*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 229.819788\"\>"], "Print",
 CellChangeTimes->{3.62053372807804*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 240.748117\"\>"], "Print",
 CellChangeTimes->{3.620533739006413*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533739517323*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337395183372`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533739519177*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes insertions\"\>"}],
  SequenceForm["in total: ", "1 Generic, 1 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337395199623`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205337395207043`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337395214663`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533739531476*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 1 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337395331163`*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 241.280124\"\>"], \
"Print",
 CellChangeTimes->{3.620533739542612*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 272.564270\"\>"], "Print",
 CellChangeTimes->{3.6205337708225117`*^9}],

Cell[BoxData["\<\"Simpliication of the vertices finished after \
276.355951\"\>"], "Print",
 CellChangeTimes->{3.620533774614233*^9}],

Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 276.356227\"\>"], \
"Print",
 CellChangeTimes->{3.620533774615472*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing CT for the {V, V, S, S} vertices.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{3.62053377461658*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533774633222*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
ones)\"\>"}],
  SequenceForm[
  "Excluding ", 11, " field point(s) (incl. charge-conjugate ones)"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533774634218*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205337746350603`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533774636633*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 264 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "2 Generic, 264 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533775282461*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 326 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 326 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533776006898*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 326 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 326 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337767844973`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 326 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 326 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533777545149*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 326 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 5, ": ", "2 Generic, 326 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337783374434`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 378 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 6, ": ", "2 Generic, 378 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533779233583*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 1140 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 7, ": ", "4 Generic, 1140 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337849771547`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 1140 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "4 Generic, 1140 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533790722015*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 1116 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "4 Generic, 1116 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533795280583*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 184 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 10, ": ", "2 Generic, 184 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337956993837`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 178 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 11, ": ", "1 Generic, 178 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533795938168*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 178 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 12, ": ", "1 Generic, 178 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533796175745*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533796176793*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" field point(s)\"\>"}],
  SequenceForm["Restoring ", 11, " field point(s)"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533796177603*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"28 Generic, 5882 Classes insertions\"\>"}],
  SequenceForm["in total: ", "28 Generic, 5882 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533796199144*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533798344635*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337983461123`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 212 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 212 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053379888757*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 212 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "1 Generic, 212 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533799268561*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 212 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "1 Generic, 212 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337996404*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 636 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "3 Generic, 636 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205337996495047`*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 301.456067\"\>"], "Print",
 CellChangeTimes->{3.6205337997143917`*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 301.845155\"\>"], "Print",
 CellChangeTimes->{3.620533800103403*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.620533800131535*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm["inserting at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533800132568*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205338001334333`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes insertions\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053380013428*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6205338001350307`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {Generic, FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533800135762*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "0 Generic, 0 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620533800136541*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 301.875579\"\>"], \
"Print",
 CellChangeTimes->{3.620533800137289*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 302.006212\"\>"], "Print",
 CellChangeTimes->{3.620533800264456*^9}],

Cell[BoxData["\<\"Simpliication of the vertices finished after \
302.111518\"\>"], "Print",
 CellChangeTimes->{3.620533800369741*^9}],

Cell[BoxData["\<\"Vertices {V, V, S, S} finished after 302.111719\"\>"], \
"Print",
 CellChangeTimes->{3.6205338003707733`*^9}],

Cell[BoxData["\<\"before merge 302.113002 temp=175.721392\"\>"], "Print",
 CellChangeTimes->{3.6205338003715487`*^9}],

Cell[BoxData["\<\"merging done 302.139319\"\>"], "Print",
 CellChangeTimes->{3.6205338003975058`*^9}],

Cell[BoxData[
 StyleBox["\<\"The finite part of those counterterms will be set to zero\"\>",
  
  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],
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.620533800398593*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"FR$delta", "[", 
   RowBox[{
    RowBox[{"{", "aS", "}"}], ",", 
    RowBox[{"{", "}"}]}], "]"}], "}"}]], "Print",
 CellChangeTimes->{3.620533800400016*^9}],

Cell[BoxData["\<\"Writing R2 and UV counterterms from Tutorial/Tutorial and \
<>gen<> in Tutorial.nlo\"\>"], "Print",
 CellChangeTimes->{3.620533800518791*^9}],

Cell[BoxData["\<\"done\"\>"], "Print",
 CellChangeTimes->{3.620533800575181*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "303.1719630000000051950337365269660949707`8.502288949034503", ",", 
   "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.620533800584907*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["UFO at NLO", "Section",
 CellChangeTimes->{{3.620533176529969*^9, 3.6205331847695503`*^9}, {
  3.620534280759412*^9, 3.620534283350081*^9}}],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.620533308839384*^9, 3.620533310452351*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Reload", " ", "FR", " ", "and", " ", "the", " ", "model", " ", "first"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.620534290616774*^9, 3.620534303536079*^9}, {
  3.620534341493823*^9, 3.62053434272582*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", "\"\<~/Talks/TASI2013/\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Get", "[", "\"\<Tutorial.nlo\>\"", "]"}]}], "Input",
 CellChangeTimes->{{3.620533328891531*^9, 3.6205334461637373`*^9}, {
   3.62053349209654*^9, 3.620533494710122*^9}, {3.620534319382976*^9, 
   3.620534334806525*^9}, 3.620534389894402*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"WriteUFO", "[", 
   RowBox[{
    RowBox[{"LSM", "+", "LNew"}], ",", 
    RowBox[{"Output", "\[Rule]", "\"\<Tutorial_NLO\>\""}], ",", 
    RowBox[{"R2Vertices", "->", "R2$vertlist"}], ",", " ", 
    RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}]}], "]"}], "//", 
  "Timing"}]], "Input",
 CellChangeTimes->{{3.620534394253208*^9, 3.620534454492098*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.6205344646208677`*^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.620534465045022*^9}],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.620534465047619*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.620534465048986*^9}],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.620534469878598*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "111", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{32., {0., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "111", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  111, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 111, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620534469937046*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"106", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[106, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205344735966053`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{32., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "157"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 157],
  Editable->False]], "Print",
 CellChangeTimes->{3.620534482025218*^9}],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->{3.620534494595025*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"QN", "::", "NonConserv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6205344948040543`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p2", ",", 
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`p2, $CellContext`ebar, \
$CellContext`ev}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620534494806263*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"QN", "::", "NonConserv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.620534494906015*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p2", ",", 
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p2, $CellContext`ebar, \
$CellContext`ev}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205344949072657`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"QN", "::", "NonConserv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: non quantum number conserving vertex encountered!\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.620534495001082*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(QN :: \
NonConserv\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.620534495017672*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p1", ",", 
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`p1, $CellContext`ebar, \
$CellContext`ev}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053449501998*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p1", ",", 
     OverscriptBox["e", "\<\"-\"\>"], ",", "ev"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p1, $CellContext`ebar, \
$CellContext`ev}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205344950213614`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p2", ",", 
     OverscriptBox["t", "\<\"-\"\>"], ",", "uv"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p2, $CellContext`tbar, \
$CellContext`uv}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620534495022952*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p1", ",", 
     OverscriptBox["t", "\<\"-\"\>"], ",", "uv"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p1, $CellContext`tbar, \
$CellContext`uv}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205344950238113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p1", ",", 
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`p1, $CellContext`evbar, 
    FeynRules`e}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620534495024641*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p1", ",", 
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p1, $CellContext`evbar, 
    FeynRules`e}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620534495025477*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "LeptonNumber", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p2", ",", 
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", $CellContext`LeptonNumber, 
   " not conserved in vertex ", {$CellContext`p2, $CellContext`evbar, 
    FeynRules`e}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620534495026401*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p2", ",", 
     OverscriptBox["ev", "\<\"-\"\>"], ",", "e"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p2, $CellContext`evbar, 
    FeynRules`e}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053449502733*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p1", ",", 
     OverscriptBox["uv", "\<\"-\"\>"], ",", "t"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p1, $CellContext`uvbar, 
    FeynRules`t}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205344950282087`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Quantum number \"\>", "\[InvisibleSpace]", "Y", 
   "\[InvisibleSpace]", "\<\" not conserved in vertex \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"p2", ",", 
     OverscriptBox["uv", "\<\"-\"\>"], ",", "t"}], "}"}], 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "Quantum number ", FeynRules`Y, 
   " not conserved in vertex ", {$CellContext`p2, $CellContext`uvbar, 
    FeynRules`t}, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620534495029035*^9}],

Cell[BoxData["True"], "Print",
 CellChangeTimes->{3.620534495029829*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
decays: \"\>",
  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.620534495437851*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{11., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "51"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 51],
  Editable->False]], "Print",
 CellChangeTimes->{3.620534495471126*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "3.13619300000000000849809111969079822302`6.517002694414432", 
   "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm[
  "Squared matrix elent compute in ", 
   3.13619300000000000849809111969079822302`6.517002694414432, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053449997904*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {1., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "43"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 43],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205344999816103`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "0.31818299999999999361222080551669932902`5.523276885562469", 
   "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm[
  "Decay widths computed in ", 
   0.31818299999999999361222080551669932902`5.523276885562469, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.62053450039828*^9}],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.620534500400313*^9}],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.620534501404196*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6205345020248327`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{32., {1., 12.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "153", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 153, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.620534510106934*^9}],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.620534511389001*^9}],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.620534511865128*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "42.92346799999999973351805238053202629089`7.653294716797619", ",", 
   "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.6205345118739*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{800, 552},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[422, 15, 122, 2, 137, "Title"],
Cell[547, 19, 122, 2, 43, "Input"],
Cell[CellGroupData[{
Cell[694, 25, 104, 1, 119, "Section"],
Cell[CellGroupData[{
Cell[823, 30, 566, 10, 69, "Input"],
Cell[1392, 42, 910, 13, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2339, 60, 124, 2, 43, "Input"],
Cell[CellGroupData[{
Cell[2488, 66, 911, 13, 30, "Print"],
Cell[3402, 81, 1182, 20, 30, "Print"],
Cell[4587, 103, 963, 14, 54, "Print"],
Cell[5553, 119, 897, 13, 30, "Print"],
Cell[6453, 134, 908, 13, 30, "Print"],
Cell[7364, 149, 918, 13, 30, "Print"],
Cell[8285, 164, 960, 14, 54, "Print"],
Cell[9248, 180, 899, 13, 30, "Print"],
Cell[10150, 195, 929, 13, 30, "Print"],
Cell[11082, 210, 897, 13, 30, "Print"],
Cell[11982, 225, 964, 14, 54, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13007, 246, 102, 1, 119, "Section"],
Cell[CellGroupData[{
Cell[13134, 251, 722, 11, 43, "Input"],
Cell[13859, 264, 906, 13, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14802, 282, 397, 7, 43, "Input"],
Cell[CellGroupData[{
Cell[15224, 293, 856, 12, 30, "Print"],
Cell[16083, 307, 874, 12, 30, "Print"],
Cell[16960, 321, 841, 12, 30, "Print"],
Cell[17804, 335, 980, 16, 30, "Print"],
Cell[18787, 353, 882, 13, 30, "Print"],
Cell[19672, 368, 834, 12, 30, "Print"],
Cell[20509, 382, 866, 12, 30, "Print"],
Cell[21378, 396, 867, 12, 30, "Print"],
Cell[22248, 410, 867, 12, 30, "Print"],
Cell[23118, 424, 1034, 17, 54, "Print"]
}, Open  ]]
}, Open  ]],
Cell[24179, 445, 210, 5, 105, "Text"],
Cell[CellGroupData[{
Cell[24414, 454, 200, 4, 43, "Input"],
Cell[CellGroupData[{
Cell[24639, 462, 1202, 20, 30, "Print"],
Cell[25844, 484, 1198, 20, 30, "Print"],
Cell[27045, 506, 730, 10, 30, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27836, 523, 101, 1, 119, "Section"],
Cell[CellGroupData[{
Cell[27962, 528, 930, 27, 94, "Input"],
Cell[28895, 557, 1391, 35, 119, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30323, 597, 593, 17, 69, "Input"],
Cell[30919, 616, 1958, 49, 101, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32914, 670, 1492, 39, 194, "Input"],
Cell[34409, 711, 1869, 49, 166, "Output"],
Cell[36281, 762, 3117, 87, 323, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39435, 854, 178, 3, 43, "Input"],
Cell[39616, 859, 5066, 147, 514, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[44731, 1012, 203, 3, 119, "Section"],
Cell[CellGroupData[{
Cell[44959, 1019, 139, 2, 43, "Input"],
Cell[CellGroupData[{
Cell[45123, 1025, 641, 12, 30, "Print"],
Cell[45767, 1039, 418, 6, 30, "Print"],
Cell[46188, 1047, 412, 6, 30, "Print"],
Cell[46603, 1055, 455, 7, 54, "Print"]
}, Open  ]],
Cell[47073, 1065, 2199, 61, 223, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[49321, 1132, 154, 2, 72, "Section"],
Cell[CellGroupData[{
Cell[49500, 1138, 215, 4, 43, "Input"],
Cell[CellGroupData[{
Cell[49740, 1146, 610, 13, 30, "Print"],
Cell[50353, 1161, 363, 5, 30, "Print"],
Cell[50719, 1168, 397, 6, 30, "Print"],
Cell[51119, 1176, 880, 17, 54, "Print"]
}, Open  ]],
Cell[52014, 1196, 409, 9, 59, "Message"],
Cell[52426, 1207, 828, 18, 69, "Print"],
Cell[53257, 1227, 409, 9, 59, "Message"],
Cell[53669, 1238, 803, 18, 46, "Print"],
Cell[54475, 1258, 411, 9, 59, "Message"],
Cell[54889, 1269, 689, 13, 59, "Message"],
Cell[CellGroupData[{
Cell[55603, 1286, 828, 18, 69, "Print"],
Cell[56434, 1306, 803, 18, 46, "Print"],
Cell[57240, 1326, 805, 18, 48, "Print"],
Cell[58048, 1346, 803, 18, 48, "Print"],
Cell[58854, 1366, 828, 18, 69, "Print"],
Cell[59685, 1386, 803, 18, 46, "Print"],
Cell[60491, 1406, 828, 18, 69, "Print"],
Cell[61322, 1426, 803, 18, 46, "Print"],
Cell[62128, 1446, 805, 18, 46, "Print"],
Cell[62936, 1466, 805, 18, 46, "Print"],
Cell[63744, 1486, 480, 9, 30, "Print"]
}, Open  ]],
Cell[64239, 1498, 12259, 356, 976, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[76547, 1860, 103, 1, 72, "Section"],
Cell[CellGroupData[{
Cell[76675, 1865, 213, 5, 43, "Input"],
Cell[CellGroupData[{
Cell[76913, 1874, 501, 10, 30, "Print"],
Cell[77417, 1886, 435, 11, 54, "Print"],
Cell[77855, 1899, 406, 10, 30, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[78310, 1915, 930, 24, 119, "Input"],
Cell[79243, 1941, 1467, 39, 143, "Output"],
Cell[80713, 1982, 1465, 39, 143, "Output"],
Cell[82181, 2023, 1026, 26, 82, "Output"],
Cell[83210, 2051, 981, 25, 102, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84228, 2081, 179, 3, 43, "Input"],
Cell[84410, 2086, 183, 5, 102, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84630, 2096, 446, 7, 119, "Input"],
Cell[85079, 2105, 251, 3, 43, "Output"],
Cell[85333, 2110, 251, 3, 43, "Output"],
Cell[85587, 2115, 250, 3, 43, "Output"],
Cell[85840, 2120, 253, 3, 43, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[86142, 2129, 185, 3, 72, "Section"],
Cell[CellGroupData[{
Cell[86352, 2136, 570, 10, 69, "Input"],
Cell[86925, 2148, 133, 1, 43, "Output"],
Cell[CellGroupData[{
Cell[87083, 2153, 380, 6, 30, "Print"],
Cell[87466, 2161, 603, 13, 30, "Print"],
Cell[88072, 2176, 358, 5, 30, "Print"],
Cell[88433, 2183, 534, 10, 30, "Print"],
Cell[88970, 2195, 390, 6, 30, "Print"],
Cell[89363, 2203, 877, 17, 54, "Print"],
Cell[90243, 2222, 475, 9, 30, "Print"],
Cell[90721, 2233, 830, 16, 54, "Print"],
Cell[91554, 2251, 372, 5, 30, "Print"]
}, Open  ]],
Cell[91941, 2259, 393, 9, 59, "Message"],
Cell[92337, 2270, 821, 18, 69, "Print"],
Cell[93161, 2290, 391, 9, 59, "Message"],
Cell[93555, 2301, 798, 18, 46, "Print"],
Cell[94356, 2321, 391, 9, 59, "Message"],
Cell[94750, 2332, 671, 13, 59, "Message"],
Cell[CellGroupData[{
Cell[95446, 2349, 821, 18, 69, "Print"],
Cell[96270, 2369, 796, 18, 46, "Print"],
Cell[97069, 2389, 796, 18, 48, "Print"],
Cell[97868, 2409, 796, 18, 48, "Print"],
Cell[98667, 2429, 821, 18, 69, "Print"],
Cell[99491, 2449, 796, 18, 46, "Print"],
Cell[100290, 2469, 821, 18, 69, "Print"],
Cell[101114, 2489, 795, 18, 46, "Print"],
Cell[101912, 2509, 796, 18, 46, "Print"],
Cell[102711, 2529, 798, 18, 46, "Print"],
Cell[103512, 2549, 639, 14, 54, "Print"],
Cell[104154, 2565, 595, 13, 30, "Print"],
Cell[104752, 2580, 681, 13, 30, "Print"],
Cell[105436, 2595, 595, 13, 30, "Print"],
Cell[106034, 2610, 667, 13, 30, "Print"],
Cell[106704, 2625, 355, 5, 30, "Print"],
Cell[107062, 2632, 379, 6, 30, "Print"],
Cell[107444, 2640, 570, 10, 30, "Print"],
Cell[108017, 2652, 731, 13, 30, "Print"],
Cell[108751, 2667, 351, 5, 30, "Print"],
Cell[109105, 2674, 336, 5, 30, "Print"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[109502, 2686, 89, 1, 76, "Subtitle"],
Cell[CellGroupData[{
Cell[109616, 2691, 131, 3, 119, "Section"],
Cell[CellGroupData[{
Cell[109772, 2698, 484, 12, 94, "Input"],
Cell[CellGroupData[{
Cell[110281, 2714, 201, 3, 30, "Print"],
Cell[110485, 2719, 169, 2, 30, "Print"],
Cell[110657, 2723, 186, 2, 30, "Print"],
Cell[110846, 2727, 173, 2, 30, "Print"],
Cell[111022, 2731, 169, 2, 30, "Print"],
Cell[111194, 2735, 188, 2, 30, "Print"],
Cell[111385, 2739, 179, 2, 30, "Print"],
Cell[111567, 2743, 173, 2, 30, "Print"],
Cell[111743, 2747, 164, 2, 30, "Print"],
Cell[111910, 2751, 162, 2, 30, "Print"]
}, Closed]],
Cell[112087, 2756, 233, 6, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112357, 2767, 263, 6, 44, "Input"],
Cell[112623, 2775, 344, 8, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113004, 2788, 191, 5, 44, "Input"],
Cell[113198, 2795, 2633, 78, 111, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[115868, 2878, 592, 13, 94, "Input"],
Cell[CellGroupData[{
Cell[116485, 2895, 122, 1, 30, "Print"],
Cell[116610, 2898, 107, 1, 30, "Print"],
Cell[116720, 2901, 108, 1, 30, "Print"],
Cell[116831, 2904, 262, 6, 30, "Print"],
Cell[117096, 2912, 256, 6, 30, "Print"],
Cell[117355, 2920, 356, 9, 30, "Print"],
Cell[117714, 2931, 103, 1, 30, "Print"],
Cell[117820, 2934, 285, 6, 30, "Print"],
Cell[118108, 2942, 138, 2, 30, "Print"],
Cell[118249, 2946, 384, 10, 54, "Print"],
Cell[118636, 2958, 93, 1, 30, "Print"],
Cell[118732, 2961, 162, 2, 54, "Print"],
Cell[118897, 2965, 144, 2, 54, "Print"],
Cell[119044, 2969, 146, 2, 54, "Print"],
Cell[119193, 2973, 254, 6, 30, "Print"],
Cell[119450, 2981, 356, 9, 30, "Print"],
Cell[119809, 2992, 103, 1, 30, "Print"],
Cell[119915, 2995, 285, 6, 30, "Print"],
Cell[120203, 3003, 138, 2, 30, "Print"],
Cell[120344, 3007, 621, 13, 54, "Print"]
}, Closed]],
Cell[120980, 3023, 251, 7, 57, "Message"],
Cell[121234, 3032, 566, 14, 69, "Print"],
Cell[121803, 3048, 251, 7, 59, "Message"],
Cell[122057, 3057, 541, 14, 46, "Print"],
Cell[122601, 3073, 251, 7, 59, "Message"],
Cell[122855, 3082, 531, 11, 59, "Message"],
Cell[CellGroupData[{
Cell[123411, 3097, 566, 14, 69, "Print"],
Cell[123980, 3113, 541, 14, 46, "Print"],
Cell[124524, 3129, 543, 14, 48, "Print"],
Cell[125070, 3145, 541, 14, 48, "Print"],
Cell[125614, 3161, 541, 14, 46, "Print"],
Cell[126158, 3177, 543, 14, 46, "Print"],
Cell[126704, 3193, 568, 14, 69, "Print"],
Cell[127275, 3209, 541, 14, 46, "Print"],
Cell[127819, 3225, 565, 14, 69, "Print"],
Cell[128387, 3241, 541, 14, 46, "Print"],
Cell[128931, 3257, 222, 5, 30, "Print"],
Cell[129156, 3264, 292, 6, 30, "Print"]
}, Open  ]],
Cell[129463, 3273, 184, 5, 43, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[129696, 3284, 114, 1, 72, "Section"],
Cell[129813, 3287, 118, 2, 43, "Input"],
Cell[CellGroupData[{
Cell[129956, 3293, 439, 9, 119, "Input"],
Cell[CellGroupData[{
Cell[130420, 3306, 128, 2, 30, "Print"],
Cell[130551, 3310, 142, 2, 30, "Print"],
Cell[130696, 3314, 173, 2, 30, "Print"],
Cell[130872, 3318, 148, 2, 30, "Print"]
}, Open  ]],
Cell[131035, 3323, 171, 2, 43, "Output"],
Cell[CellGroupData[{
Cell[131231, 3329, 139, 2, 30, "Print"],
Cell[131373, 3333, 140, 2, 30, "Print"],
Cell[131516, 3337, 148, 2, 30, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[131713, 3345, 913, 21, 144, "Input"],
Cell[132629, 3368, 107, 1, 43, "Output"],
Cell[CellGroupData[{
Cell[132761, 3373, 318, 8, 30, "Print"],
Cell[133082, 3383, 78, 1, 30, "Print"],
Cell[133163, 3386, 466, 11, 54, "Print"],
Cell[133632, 3399, 101, 1, 30, "Print"],
Cell[133736, 3402, 321, 7, 30, "Print"],
Cell[134060, 3411, 76, 1, 30, "Print"],
Cell[134139, 3414, 485, 11, 54, "Print"],
Cell[134627, 3427, 388, 8, 30, "Print"],
Cell[135018, 3437, 98, 1, 30, "Print"],
Cell[135119, 3440, 245, 6, 30, "Print"],
Cell[135367, 3448, 277, 6, 30, "Print"],
Cell[135647, 3456, 339, 7, 30, "Print"],
Cell[135989, 3465, 76, 1, 30, "Print"],
Cell[136068, 3468, 308, 7, 30, "Print"],
Cell[136379, 3477, 340, 7, 30, "Print"],
Cell[136722, 3486, 274, 6, 30, "Print"],
Cell[136999, 3494, 76, 1, 30, "Print"],
Cell[137078, 3497, 332, 8, 30, "Print"],
Cell[137413, 3507, 272, 6, 30, "Print"],
Cell[137688, 3515, 117, 1, 30, "Print"],
Cell[137808, 3518, 148, 2, 54, "Print"],
Cell[137959, 3522, 76, 1, 30, "Print"],
Cell[138038, 3525, 309, 7, 30, "Print"],
Cell[138350, 3534, 342, 7, 30, "Print"],
Cell[138695, 3543, 272, 6, 30, "Print"],
Cell[138970, 3551, 76, 1, 30, "Print"],
Cell[139049, 3554, 334, 8, 30, "Print"],
Cell[139386, 3564, 272, 6, 30, "Print"],
Cell[139661, 3572, 125, 2, 30, "Print"],
Cell[139789, 3576, 111, 1, 30, "Print"],
Cell[139903, 3579, 131, 2, 30, "Print"],
Cell[140037, 3583, 112, 1, 30, "Print"],
Cell[140152, 3586, 321, 8, 30, "Print"],
Cell[140476, 3596, 76, 1, 30, "Print"],
Cell[140555, 3599, 309, 7, 30, "Print"],
Cell[140867, 3608, 340, 7, 30, "Print"],
Cell[141210, 3617, 344, 7, 30, "Print"],
Cell[141557, 3626, 276, 6, 30, "Print"],
Cell[141836, 3634, 76, 1, 30, "Print"],
Cell[141915, 3637, 332, 8, 30, "Print"],
Cell[142250, 3647, 342, 7, 30, "Print"],
Cell[142595, 3656, 276, 6, 30, "Print"],
Cell[142874, 3664, 117, 1, 30, "Print"],
Cell[142994, 3667, 148, 2, 54, "Print"],
Cell[143145, 3671, 76, 1, 30, "Print"],
Cell[143224, 3674, 309, 7, 30, "Print"],
Cell[143536, 3683, 342, 7, 30, "Print"],
Cell[143881, 3692, 274, 6, 30, "Print"],
Cell[144158, 3700, 76, 1, 30, "Print"],
Cell[144237, 3703, 332, 8, 30, "Print"],
Cell[144572, 3713, 344, 7, 30, "Print"],
Cell[144919, 3722, 274, 6, 30, "Print"],
Cell[145196, 3730, 125, 2, 30, "Print"],
Cell[145324, 3734, 113, 1, 30, "Print"],
Cell[145440, 3737, 94, 1, 30, "Print"],
Cell[145537, 3740, 131, 2, 30, "Print"],
Cell[145671, 3744, 115, 1, 30, "Print"],
Cell[145789, 3747, 321, 8, 30, "Print"],
Cell[146113, 3757, 76, 1, 30, "Print"],
Cell[146192, 3760, 309, 7, 30, "Print"],
Cell[146504, 3769, 341, 7, 30, "Print"],
Cell[146848, 3778, 342, 7, 30, "Print"],
Cell[147193, 3787, 274, 6, 30, "Print"],
Cell[147470, 3795, 76, 1, 30, "Print"],
Cell[147549, 3798, 332, 8, 30, "Print"],
Cell[147884, 3808, 272, 6, 30, "Print"],
Cell[148159, 3816, 117, 1, 30, "Print"],
Cell[148279, 3819, 148, 2, 54, "Print"],
Cell[148430, 3823, 76, 1, 30, "Print"],
Cell[148509, 3826, 309, 7, 30, "Print"],
Cell[148821, 3835, 342, 7, 30, "Print"],
Cell[149166, 3844, 274, 6, 30, "Print"],
Cell[149443, 3852, 76, 1, 30, "Print"],
Cell[149522, 3855, 334, 8, 30, "Print"],
Cell[149859, 3865, 274, 6, 30, "Print"],
Cell[150136, 3873, 125, 2, 30, "Print"],
Cell[150264, 3877, 111, 1, 30, "Print"],
Cell[150378, 3880, 133, 2, 30, "Print"],
Cell[150514, 3884, 115, 1, 30, "Print"],
Cell[150632, 3887, 321, 8, 30, "Print"],
Cell[150956, 3897, 78, 1, 30, "Print"],
Cell[151037, 3900, 309, 7, 30, "Print"],
Cell[151349, 3909, 342, 7, 30, "Print"],
Cell[151694, 3918, 344, 7, 30, "Print"],
Cell[152041, 3927, 276, 6, 30, "Print"],
Cell[152320, 3935, 76, 1, 30, "Print"],
Cell[152399, 3938, 332, 8, 30, "Print"],
Cell[152734, 3948, 340, 7, 30, "Print"],
Cell[153077, 3957, 342, 7, 30, "Print"],
Cell[153422, 3966, 274, 6, 30, "Print"],
Cell[153699, 3974, 119, 1, 30, "Print"],
Cell[153821, 3977, 148, 2, 54, "Print"],
Cell[153972, 3981, 76, 1, 30, "Print"],
Cell[154051, 3984, 311, 7, 30, "Print"],
Cell[154365, 3993, 340, 7, 30, "Print"],
Cell[154708, 4002, 271, 6, 30, "Print"],
Cell[154982, 4010, 76, 1, 30, "Print"],
Cell[155061, 4013, 332, 8, 30, "Print"],
Cell[155396, 4023, 340, 7, 30, "Print"],
Cell[155739, 4032, 272, 6, 30, "Print"],
Cell[156014, 4040, 127, 2, 30, "Print"],
Cell[156144, 4044, 111, 1, 30, "Print"],
Cell[156258, 4047, 94, 1, 30, "Print"],
Cell[156355, 4050, 131, 2, 30, "Print"],
Cell[156489, 4054, 115, 1, 30, "Print"],
Cell[156607, 4057, 324, 8, 30, "Print"],
Cell[156934, 4067, 76, 1, 30, "Print"],
Cell[157013, 4070, 311, 7, 30, "Print"],
Cell[157327, 4079, 343, 7, 30, "Print"],
Cell[157673, 4088, 340, 7, 30, "Print"],
Cell[158016, 4097, 340, 7, 30, "Print"],
Cell[158359, 4106, 340, 7, 30, "Print"],
Cell[158702, 4115, 276, 6, 30, "Print"],
Cell[158981, 4123, 76, 1, 30, "Print"],
Cell[159060, 4126, 332, 8, 30, "Print"],
Cell[159395, 4136, 341, 7, 30, "Print"],
Cell[159739, 4145, 274, 6, 30, "Print"],
Cell[160016, 4153, 118, 1, 30, "Print"],
Cell[160137, 4156, 149, 2, 54, "Print"],
Cell[160289, 4160, 76, 1, 30, "Print"],
Cell[160368, 4163, 309, 7, 30, "Print"],
Cell[160680, 4172, 344, 7, 30, "Print"],
Cell[161027, 4181, 274, 6, 30, "Print"],
Cell[161304, 4189, 76, 1, 30, "Print"],
Cell[161383, 4192, 332, 8, 30, "Print"],
Cell[161718, 4202, 344, 7, 30, "Print"],
Cell[162065, 4211, 276, 6, 30, "Print"],
Cell[162344, 4219, 126, 2, 30, "Print"],
Cell[162473, 4223, 111, 1, 30, "Print"],
Cell[162587, 4226, 132, 2, 30, "Print"],
Cell[162722, 4230, 119, 1, 30, "Print"],
Cell[162844, 4233, 324, 8, 30, "Print"],
Cell[163171, 4243, 76, 1, 30, "Print"],
Cell[163250, 4246, 309, 7, 30, "Print"],
Cell[163562, 4255, 344, 7, 30, "Print"],
Cell[163909, 4264, 342, 7, 30, "Print"],
Cell[164254, 4273, 340, 7, 30, "Print"],
Cell[164597, 4282, 342, 7, 30, "Print"],
Cell[164942, 4291, 276, 6, 30, "Print"],
Cell[165221, 4299, 76, 1, 30, "Print"],
Cell[165300, 4302, 332, 8, 30, "Print"],
Cell[165635, 4312, 344, 7, 30, "Print"],
Cell[165982, 4321, 276, 6, 30, "Print"],
Cell[166261, 4329, 120, 1, 30, "Print"],
Cell[166384, 4332, 149, 2, 54, "Print"],
Cell[166536, 4336, 76, 1, 30, "Print"],
Cell[166615, 4339, 311, 7, 30, "Print"],
Cell[166929, 4348, 342, 7, 30, "Print"],
Cell[167274, 4357, 276, 6, 30, "Print"],
Cell[167553, 4365, 78, 1, 30, "Print"],
Cell[167634, 4368, 334, 8, 30, "Print"],
Cell[167971, 4378, 342, 7, 30, "Print"],
Cell[168316, 4387, 276, 6, 30, "Print"],
Cell[168595, 4395, 126, 2, 30, "Print"],
Cell[168724, 4399, 112, 1, 30, "Print"],
Cell[168839, 4402, 134, 2, 30, "Print"],
Cell[168976, 4406, 119, 1, 30, "Print"],
Cell[169098, 4409, 324, 8, 30, "Print"],
Cell[169425, 4419, 78, 1, 30, "Print"],
Cell[169506, 4422, 309, 7, 30, "Print"],
Cell[169818, 4431, 350, 7, 30, "Print"],
Cell[170171, 4440, 342, 7, 30, "Print"],
Cell[170516, 4449, 342, 7, 30, "Print"],
Cell[170861, 4458, 342, 7, 30, "Print"],
Cell[171206, 4467, 280, 6, 30, "Print"],
Cell[171489, 4475, 76, 1, 30, "Print"],
Cell[171568, 4478, 332, 8, 30, "Print"],
Cell[171903, 4488, 346, 7, 30, "Print"],
Cell[172252, 4497, 339, 7, 30, "Print"],
Cell[172594, 4506, 342, 7, 30, "Print"],
Cell[172939, 4515, 340, 7, 30, "Print"],
Cell[173282, 4524, 276, 6, 30, "Print"],
Cell[173561, 4532, 118, 1, 30, "Print"],
Cell[173682, 4535, 150, 2, 54, "Print"],
Cell[173835, 4539, 76, 1, 30, "Print"],
Cell[173914, 4542, 311, 7, 30, "Print"],
Cell[174228, 4551, 342, 7, 30, "Print"],
Cell[174573, 4560, 274, 6, 30, "Print"],
Cell[174850, 4568, 78, 1, 30, "Print"],
Cell[174931, 4571, 332, 8, 30, "Print"],
Cell[175266, 4581, 340, 7, 30, "Print"],
Cell[175609, 4590, 274, 6, 30, "Print"],
Cell[175886, 4598, 126, 2, 30, "Print"],
Cell[176015, 4602, 113, 1, 30, "Print"],
Cell[176131, 4605, 133, 2, 30, "Print"],
Cell[176267, 4609, 120, 1, 30, "Print"],
Cell[176390, 4612, 324, 8, 30, "Print"],
Cell[176717, 4622, 75, 1, 30, "Print"],
Cell[176795, 4625, 309, 7, 30, "Print"],
Cell[177107, 4634, 346, 7, 30, "Print"],
Cell[177456, 4643, 344, 7, 30, "Print"],
Cell[177803, 4652, 342, 7, 30, "Print"],
Cell[178148, 4661, 342, 7, 30, "Print"],
Cell[178493, 4670, 280, 6, 30, "Print"],
Cell[178776, 4678, 76, 1, 30, "Print"],
Cell[178855, 4681, 332, 8, 30, "Print"],
Cell[179190, 4691, 342, 7, 30, "Print"],
Cell[179535, 4700, 274, 6, 30, "Print"],
Cell[179812, 4708, 119, 1, 30, "Print"],
Cell[179934, 4711, 150, 2, 54, "Print"],
Cell[180087, 4715, 78, 1, 30, "Print"],
Cell[180168, 4718, 309, 7, 30, "Print"],
Cell[180480, 4727, 340, 7, 30, "Print"],
Cell[180823, 4736, 274, 6, 30, "Print"],
Cell[181100, 4744, 76, 1, 30, "Print"],
Cell[181179, 4747, 334, 8, 30, "Print"],
Cell[181516, 4757, 272, 6, 30, "Print"],
Cell[181791, 4765, 127, 2, 30, "Print"],
Cell[181921, 4769, 112, 1, 30, "Print"],
Cell[182036, 4772, 133, 2, 30, "Print"],
Cell[182172, 4776, 122, 1, 30, "Print"],
Cell[182297, 4779, 324, 8, 30, "Print"],
Cell[182624, 4789, 76, 1, 30, "Print"],
Cell[182703, 4792, 309, 7, 30, "Print"],
Cell[183015, 4801, 346, 7, 30, "Print"],
Cell[183364, 4810, 342, 7, 30, "Print"],
Cell[183709, 4819, 342, 7, 30, "Print"],
Cell[184054, 4828, 342, 7, 30, "Print"],
Cell[184399, 4837, 278, 6, 30, "Print"],
Cell[184680, 4845, 76, 1, 30, "Print"],
Cell[184759, 4848, 332, 8, 30, "Print"],
Cell[185094, 4858, 342, 7, 30, "Print"],
Cell[185439, 4867, 276, 6, 30, "Print"],
Cell[185718, 4875, 119, 1, 30, "Print"],
Cell[185840, 4878, 150, 2, 54, "Print"],
Cell[185993, 4882, 75, 1, 30, "Print"],
Cell[186071, 4885, 309, 7, 30, "Print"],
Cell[186383, 4894, 340, 7, 30, "Print"],
Cell[186726, 4903, 272, 6, 30, "Print"],
Cell[187001, 4911, 76, 1, 30, "Print"],
Cell[187080, 4914, 332, 8, 30, "Print"],
Cell[187415, 4924, 272, 6, 30, "Print"],
Cell[187690, 4932, 127, 2, 30, "Print"],
Cell[187820, 4936, 113, 1, 30, "Print"],
Cell[187936, 4939, 135, 2, 30, "Print"],
Cell[188074, 4943, 120, 1, 30, "Print"],
Cell[188197, 4946, 326, 8, 30, "Print"],
Cell[188526, 4956, 78, 1, 30, "Print"],
Cell[188607, 4959, 309, 7, 30, "Print"],
Cell[188919, 4968, 346, 7, 30, "Print"],
Cell[189268, 4977, 342, 7, 30, "Print"],
Cell[189613, 4986, 342, 7, 30, "Print"],
Cell[189958, 4995, 344, 7, 30, "Print"],
Cell[190305, 5004, 278, 6, 30, "Print"],
Cell[190586, 5012, 78, 1, 30, "Print"],
Cell[190667, 5015, 332, 8, 30, "Print"],
Cell[191002, 5025, 272, 6, 30, "Print"],
Cell[191277, 5033, 121, 1, 30, "Print"],
Cell[191401, 5036, 152, 2, 54, "Print"],
Cell[191556, 5040, 76, 1, 30, "Print"],
Cell[191635, 5043, 309, 7, 30, "Print"],
Cell[191947, 5052, 340, 7, 30, "Print"],
Cell[192290, 5061, 271, 6, 30, "Print"],
Cell[192564, 5069, 78, 1, 30, "Print"],
Cell[192645, 5072, 332, 8, 30, "Print"],
Cell[192980, 5082, 272, 6, 30, "Print"],
Cell[193255, 5090, 127, 2, 30, "Print"],
Cell[193385, 5094, 113, 1, 30, "Print"],
Cell[193501, 5097, 133, 2, 30, "Print"],
Cell[193637, 5101, 120, 1, 30, "Print"],
Cell[193760, 5104, 327, 8, 30, "Print"],
Cell[194090, 5114, 76, 1, 30, "Print"],
Cell[194169, 5117, 336, 8, 30, "Print"],
Cell[194508, 5127, 78, 1, 30, "Print"],
Cell[194589, 5130, 309, 7, 30, "Print"],
Cell[194901, 5139, 344, 7, 30, "Print"],
Cell[195248, 5148, 344, 7, 30, "Print"],
Cell[195595, 5157, 344, 7, 30, "Print"],
Cell[195942, 5166, 346, 7, 30, "Print"],
Cell[196291, 5175, 344, 7, 30, "Print"],
Cell[196638, 5184, 346, 7, 30, "Print"],
Cell[196987, 5193, 348, 7, 30, "Print"],
Cell[197338, 5202, 346, 7, 30, "Print"],
Cell[197687, 5211, 345, 7, 30, "Print"],
Cell[198035, 5220, 348, 7, 30, "Print"],
Cell[198386, 5229, 346, 7, 30, "Print"],
Cell[198735, 5238, 346, 7, 30, "Print"],
Cell[199084, 5247, 76, 1, 30, "Print"],
Cell[199163, 5250, 273, 6, 30, "Print"],
Cell[199439, 5258, 284, 6, 30, "Print"],
Cell[199726, 5266, 78, 1, 30, "Print"],
Cell[199807, 5269, 332, 8, 30, "Print"],
Cell[200142, 5279, 339, 7, 30, "Print"],
Cell[200484, 5288, 340, 7, 30, "Print"],
Cell[200827, 5297, 342, 7, 30, "Print"],
Cell[201172, 5306, 340, 7, 30, "Print"],
Cell[201515, 5315, 340, 7, 30, "Print"],
Cell[201858, 5324, 340, 7, 30, "Print"],
Cell[202201, 5333, 346, 7, 30, "Print"],
Cell[202550, 5342, 345, 7, 30, "Print"],
Cell[202898, 5351, 346, 7, 30, "Print"],
Cell[203247, 5360, 342, 7, 30, "Print"],
Cell[203592, 5369, 344, 7, 30, "Print"],
Cell[203939, 5378, 342, 7, 30, "Print"],
Cell[204284, 5387, 282, 6, 30, "Print"],
Cell[204569, 5395, 118, 1, 30, "Print"],
Cell[204690, 5398, 150, 2, 54, "Print"],
Cell[204843, 5402, 76, 1, 30, "Print"],
Cell[204922, 5405, 311, 7, 30, "Print"],
Cell[205236, 5414, 340, 7, 30, "Print"],
Cell[205579, 5423, 274, 6, 30, "Print"],
Cell[205856, 5431, 78, 1, 30, "Print"],
Cell[205937, 5434, 334, 8, 30, "Print"],
Cell[206274, 5444, 340, 7, 30, "Print"],
Cell[206617, 5453, 274, 6, 30, "Print"],
Cell[206894, 5461, 127, 2, 30, "Print"],
Cell[207024, 5465, 115, 1, 30, "Print"],
Cell[207142, 5468, 133, 2, 30, "Print"],
Cell[207278, 5472, 125, 2, 30, "Print"],
Cell[207406, 5476, 326, 8, 30, "Print"],
Cell[207735, 5486, 76, 1, 30, "Print"],
Cell[207814, 5489, 336, 8, 30, "Print"],
Cell[208153, 5499, 78, 1, 30, "Print"],
Cell[208234, 5502, 309, 7, 30, "Print"],
Cell[208546, 5511, 344, 7, 30, "Print"],
Cell[208893, 5520, 344, 7, 30, "Print"],
Cell[209240, 5529, 346, 7, 30, "Print"],
Cell[209589, 5538, 344, 7, 30, "Print"],
Cell[209936, 5547, 346, 7, 30, "Print"],
Cell[210285, 5556, 344, 7, 30, "Print"],
Cell[210632, 5565, 348, 7, 30, "Print"],
Cell[210983, 5574, 346, 7, 30, "Print"],
Cell[211332, 5583, 346, 7, 30, "Print"],
Cell[211681, 5592, 348, 7, 30, "Print"],
Cell[212032, 5601, 346, 7, 30, "Print"],
Cell[212381, 5610, 346, 7, 30, "Print"],
Cell[212730, 5619, 76, 1, 30, "Print"],
Cell[212809, 5622, 271, 6, 30, "Print"],
Cell[213083, 5630, 280, 6, 30, "Print"],
Cell[213366, 5638, 76, 1, 30, "Print"],
Cell[213445, 5641, 334, 8, 30, "Print"],
Cell[213782, 5651, 343, 7, 30, "Print"],
Cell[214128, 5660, 344, 7, 30, "Print"],
Cell[214475, 5669, 342, 7, 30, "Print"],
Cell[214820, 5678, 278, 6, 30, "Print"],
Cell[215101, 5686, 121, 1, 30, "Print"],
Cell[215225, 5689, 150, 2, 54, "Print"],
Cell[215378, 5693, 76, 1, 30, "Print"],
Cell[215457, 5696, 309, 7, 30, "Print"],
Cell[215769, 5705, 342, 7, 30, "Print"],
Cell[216114, 5714, 271, 6, 30, "Print"],
Cell[216388, 5722, 78, 1, 30, "Print"],
Cell[216469, 5725, 332, 8, 30, "Print"],
Cell[216804, 5735, 272, 6, 30, "Print"],
Cell[217079, 5743, 127, 2, 30, "Print"],
Cell[217209, 5747, 113, 1, 30, "Print"],
Cell[217325, 5750, 133, 2, 30, "Print"],
Cell[217461, 5754, 127, 2, 30, "Print"],
Cell[217591, 5758, 117, 1, 30, "Print"],
Cell[217711, 5761, 101, 1, 30, "Print"],
Cell[217815, 5764, 354, 9, 30, "Print"],
Cell[218172, 5775, 196, 6, 30, "Print"],
Cell[218371, 5783, 159, 2, 54, "Print"],
Cell[218533, 5787, 80, 1, 30, "Print"]
}, Closed]],
Cell[218628, 5791, 183, 5, 40, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[218860, 5802, 146, 2, 119, "Section"],
Cell[219009, 5806, 118, 2, 43, "Input"],
Cell[219130, 5810, 252, 6, 43, "Input"],
Cell[219385, 5818, 377, 7, 69, "Input"],
Cell[CellGroupData[{
Cell[219787, 5829, 392, 9, 94, "Input"],
Cell[CellGroupData[{
Cell[220204, 5842, 127, 2, 30, "Print"],
Cell[220334, 5846, 348, 9, 30, "Print"],
Cell[220685, 5857, 103, 1, 30, "Print"],
Cell[220791, 5860, 285, 6, 30, "Print"],
Cell[221079, 5868, 136, 2, 30, "Print"],
Cell[221218, 5872, 622, 13, 54, "Print"],
Cell[221843, 5887, 222, 5, 30, "Print"],
Cell[222068, 5894, 575, 12, 54, "Print"],
Cell[222646, 5908, 117, 1, 30, "Print"]
}, Open  ]],
Cell[222778, 5912, 253, 7, 59, "Message"],
Cell[223034, 5921, 566, 14, 69, "Print"],
Cell[223603, 5937, 251, 7, 59, "Message"],
Cell[223857, 5946, 543, 14, 46, "Print"],
Cell[224403, 5962, 251, 7, 59, "Message"],
Cell[224657, 5971, 531, 11, 59, "Message"],
Cell[CellGroupData[{
Cell[225213, 5986, 565, 14, 69, "Print"],
Cell[225781, 6002, 543, 14, 46, "Print"],
Cell[226327, 6018, 541, 14, 48, "Print"],
Cell[226871, 6034, 543, 14, 48, "Print"],
Cell[227417, 6050, 566, 14, 69, "Print"],
Cell[227986, 6066, 541, 14, 46, "Print"],
Cell[228530, 6082, 566, 14, 69, "Print"],
Cell[229099, 6098, 540, 14, 46, "Print"],
Cell[229642, 6114, 543, 14, 46, "Print"],
Cell[230188, 6130, 541, 14, 46, "Print"],
Cell[230732, 6146, 72, 1, 30, "Print"],
Cell[230807, 6149, 384, 10, 54, "Print"],
Cell[231194, 6161, 339, 9, 30, "Print"],
Cell[231536, 6172, 425, 9, 30, "Print"],
Cell[231964, 6183, 341, 9, 30, "Print"],
Cell[232308, 6194, 411, 9, 30, "Print"],
Cell[232722, 6205, 100, 1, 30, "Print"],
Cell[232825, 6208, 124, 2, 30, "Print"],
Cell[232952, 6212, 317, 6, 30, "Print"],
Cell[233272, 6220, 475, 9, 30, "Print"],
Cell[233750, 6231, 96, 1, 30, "Print"],
Cell[233849, 6234, 81, 1, 30, "Print"]
}, Open  ]],
Cell[233945, 6238, 181, 5, 43, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}
]
*)

