(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    437648,      10263]
NotebookOptionsPosition[    397813,       9244]
NotebookOutlinePosition[    398188,       9261]
CellTagsIndexPosition[    398145,       9258]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["The generic two higgs doublet model", "Title",
 CellChangeTimes->{{3.6065656931486387`*^9, 3.606565712926631*^9}}],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.4921467751527157`*^9, 3.492146812657303*^9}, {
  3.539492578139636*^9, 3.539492578833693*^9}, {3.5394960574052753`*^9, 
  3.5394960582979517`*^9}, {3.56467554373663*^9, 3.564675544646311*^9}, {
  3.569085556441617*^9, 3.5690855574068832`*^9}}],

Cell[CellGroupData[{

Cell["Load", "Subtitle",
 CellChangeTimes->{{3.569240724009398*^9, 3.569240725028233*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$FeynRulesPath", "=", 
   RowBox[{
   "SetDirectory", "[", "\"\<~/feynrules/branch/feynrules-current\>\"", 
    RowBox[{"(*", "\"\<< FeynRules directory >\>\"", "*)"}], "]"}]}], ";", 
  RowBox[{"<<", "FeynRules`"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", "\"\<~/feynrules/trunk/models/2HDM\>\"", "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LoadModel", "[", "\"\<2HDM.fr\>\"", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.4921612550837307`*^9, 3.4921612558826723`*^9}, {
   3.564675564049155*^9, 3.56467558391989*^9}, {3.569149902702346*^9, 
   3.569149921105254*^9}, {3.5691499625696*^9, 3.5691499974241467`*^9}, {
   3.569150063753419*^9, 3.5691500661452637`*^9}, {3.569150117940557*^9, 
   3.56915013702269*^9}, 3.569342628498753*^9, 3.569342676941334*^9, {
   3.5961118094490843`*^9, 3.596111819502709*^9}, {3.596111966048716*^9, 
   3.596111976438624*^9}, {3.596188097704665*^9, 3.5961881002739973`*^9}, {
   3.596363223016675*^9, 3.596363225310499*^9}, {3.606025848812273*^9, 
   3.60602585794803*^9}, {3.6065656520325127`*^9, 3.606565661429777*^9}, {
   3.606635463705255*^9, 3.606635505642956*^9}, {3.6277312289511757`*^9, 
   3.6277313213232*^9}, {3.6538989354241056`*^9, 3.6538989422496967`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190471688272*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.13\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"\<\" (\"\>", " ", "\<\"29 October 2015\"\>"}], 
   "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm["Version: ", "2.3.13", " (" "29 October 2015", ")."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904716910543`*^9}],

Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
B. Fuks\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904716991777`*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190471701125*^9}],

Cell[BoxData["\<\"Please cite:\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904717030497`*^9}],

Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
(arXiv:1310.1921);\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904717048817`*^9}],

Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
(arXiv:0806.4194).\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190471707156*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904717096233`*^9}],

Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190471712204*^9}],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190471714752*^9}],

Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
FRPalette[].\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190471716756*^9}],

Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190477755784*^9}],

Cell[BoxData["\<\"C. Duhr\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190477758497*^9}],

Cell[BoxData["\<\"M. Herquet\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904777609987`*^9}],

Cell[BoxData["\<\"C. Degrande\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190477763521*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.2\"\>"}],
  SequenceForm["Model Version: ", "1.2"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190477765869*^9}],

Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be/view/Main/2HDM\"\>"], \
"Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190477767865*^9}],

Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
"Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190477769981*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.65519047777192*^9}],

Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904777739487`*^9}],

Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.6551904779530478`*^9}],

Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190478003882*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"2HDM\"\>", 
   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
  SequenceForm["\nModel ", "2HDM", " loaded."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.599677985408943*^9, 3.599678707023395*^9, 3.599679165695548*^9, 
   3.599680603128478*^9, 3.5996813850524397`*^9, 3.599681601181428*^9, 
   3.599717094396729*^9, 3.599717563483385*^9, 3.5997224680729837`*^9, 
   3.599724792089162*^9, 3.5997435110540657`*^9, 3.599743812991242*^9, 
   3.599743921715763*^9, 3.5998271234757843`*^9, 3.5999855545529003`*^9, 
   3.6000043448583317`*^9, 3.6000726567066927`*^9, 3.6000735198135843`*^9, {
   3.600083145597363*^9, 3.6000831605780907`*^9}, 3.600084316155864*^9, 
   3.600089974561925*^9, 3.600090950557659*^9, 3.600092064559516*^9, 
   3.600100602984819*^9, 3.600101008010455*^9, 3.600109484835745*^9, {
   3.600172677758924*^9, 3.6001727063301573`*^9}, 3.6005858491299763`*^9, 
   3.600595810687324*^9, {3.600605922497615*^9, 3.600605938725721*^9}, 
   3.600606561858705*^9, 3.603198480147326*^9, 3.6036228255247383`*^9, 
   3.604214831237197*^9, {3.604643226235898*^9, 3.604643241927499*^9}, 
   3.604662574536908*^9, 3.604727135014131*^9, 3.604728981810227*^9, 
   3.604900161276497*^9, 3.605264425520192*^9, 3.605272119959942*^9, 
   3.605318497189351*^9, 3.605340660779813*^9, 3.605352374628652*^9, 
   3.6053530490107517`*^9, 3.60535374112171*^9, 3.605354011197509*^9, 
   3.605355823660616*^9, 3.6053563278558702`*^9, 3.605356359056538*^9, 
   3.605356619455432*^9, 3.605413583972188*^9, 3.605413863461948*^9, 
   3.60541433510712*^9, 3.605415159309909*^9, 3.60541575059159*^9, 
   3.6054188619582367`*^9, 3.6065656641849747`*^9, 3.6065657217340403`*^9, 
   3.606631712964849*^9, 3.627731358097951*^9, 3.627734785705361*^9, 
   3.627817570328416*^9, 3.62781805673774*^9, 3.627819533993778*^9, 
   3.6278208727015944`*^9, 3.627821617391777*^9, 3.627825820319025*^9, 
   3.627826351062611*^9, 3.627827258931745*^9, 3.6278300150459127`*^9, 
   3.627830314444665*^9, 3.6278802496457787`*^9, 3.6278803311567507`*^9, 
   3.627883766965234*^9, 3.627893984139439*^9, 3.627909996897521*^9, 
   3.6279101193014107`*^9, 3.6279110317433558`*^9, 3.6538989460783033`*^9, {
   3.6539006583601303`*^9, 3.6539006865910673`*^9}, 3.6539007593417053`*^9, 
   3.653901450197373*^9, 3.653903156689816*^9, 3.654842210366913*^9, 
   3.654849232675024*^9, 3.6548503332863703`*^9, 3.654850495537333*^9, 
   3.654857352392907*^9, 3.654950309730733*^9, 3.6549518194603558`*^9, 
   3.654952313289115*^9, 3.654952437858667*^9, 3.654952914748783*^9, 
   3.654953006650334*^9, 3.654953051772233*^9, 3.655190478238326*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadRestriction", "[", "\"\<Masslessbuttb.rst\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.606631605206788*^9, 3.606631637034782*^9}, 
   3.6066355125445433`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Loading restrictions from \"\>", 
   "\[InvisibleSpace]", "\<\"Masslessbuttb.rst\"\>", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "21"}],
  SequenceForm["Loading restrictions from ", "Masslessbuttb.rst", " : ", 
   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 21],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.627731363470016*^9, 3.627734790146563*^9, 3.627817579041278*^9, 
   3.627818062977867*^9, 3.627819538768237*^9, 3.627820877224578*^9, 
   3.627821622199861*^9, 3.627825825735676*^9, 3.627826355932469*^9, 
   3.627827264058908*^9, 3.627830020629446*^9, 3.627830319528097*^9, 
   3.6278802556290627`*^9, 3.62788033602254*^9, 3.627883771614822*^9, 
   3.627893989012804*^9, 3.6279100063607607`*^9, 3.627910124324683*^9, 
   3.627911036814773*^9, 3.65389895372441*^9, {3.6539006643240957`*^9, 
   3.653900690325498*^9}, 3.6539007662459583`*^9, 3.65390145549323*^9, 
   3.653903163884425*^9, 3.654842216203476*^9, 3.654849236906515*^9, 
   3.654850336642887*^9, 3.654850498980588*^9, 3.65485736019982*^9, 
   3.6549503164062033`*^9, 3.6549518243813677`*^9, 3.65495231801512*^9, 
   3.6549524427030783`*^9, 3.654952919060877*^9, 3.6549530115095654`*^9, 
   3.6549530564565153`*^9, 3.655190479454441*^9}],

Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
 CellChangeTimes->{
  3.627731363470016*^9, 3.627734790146563*^9, 3.627817579041278*^9, 
   3.627818062977867*^9, 3.627819538768237*^9, 3.627820877224578*^9, 
   3.627821622199861*^9, 3.627825825735676*^9, 3.627826355932469*^9, 
   3.627827264058908*^9, 3.627830020629446*^9, 3.627830319528097*^9, 
   3.6278802556290627`*^9, 3.62788033602254*^9, 3.627883771614822*^9, 
   3.627893989012804*^9, 3.6279100063607607`*^9, 3.627910124324683*^9, 
   3.627911036814773*^9, 3.65389895372441*^9, {3.6539006643240957`*^9, 
   3.653900690325498*^9}, 3.6539007662459583`*^9, 3.65390145549323*^9, 
   3.653903163884425*^9, 3.654842216203476*^9, 3.654849236906515*^9, 
   3.654850336642887*^9, 3.654850498980588*^9, 3.65485736019982*^9, 
   3.6549503164062033`*^9, 3.6549518243813677`*^9, 3.65495231801512*^9, 
   3.6549524427030783`*^9, 3.654952919060877*^9, 3.6549530115095654`*^9, 
   3.6549530564565153`*^9, 3.6551904802858686`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadRestriction", "[", "\"\<FlavorSym.rst\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.57642962723387*^9, 3.576429631423997*^9}, {
   3.5962184038453217`*^9, 3.5962184047858152`*^9}, {3.596437456441763*^9, 
   3.59643749351665*^9}, 3.606025870993246*^9, {3.606565741659004*^9, 
   3.6065657430649443`*^9}, 3.6066355175769587`*^9, {3.627893983454527*^9, 
   3.62789399290574*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Loading restrictions from \"\>", 
   "\[InvisibleSpace]", "\<\"FlavorSym.rst\"\>", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "12"}],
  SequenceForm["Loading restrictions from ", "FlavorSym.rst", " : ", 
   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 12],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6277313642355633`*^9, 3.627734790876503*^9, 3.6278175800391073`*^9, 
   3.62781806394445*^9, 3.627819539719757*^9, 3.627820878127697*^9, 
   3.627821623245056*^9, 3.6278258269929132`*^9, 3.627826357277272*^9, 
   3.627827265135848*^9, 3.627830021719227*^9, 3.627830320577775*^9, 
   3.627880256632204*^9, 3.627880337068672*^9, 3.6278837725421057`*^9, 
   3.6278939900187902`*^9, 3.62791000733996*^9, 3.627910125294846*^9, 
   3.627911037779027*^9, 3.653898954925337*^9, {3.6539006654752617`*^9, 
   3.653900691364588*^9}, 3.6539007673900537`*^9, 3.654842217227129*^9, 
   3.654849237856778*^9, 3.654850338008253*^9, 3.654850499972781*^9, 
   3.654857361307753*^9, 3.654950317568956*^9, 3.65495182554195*^9, 
   3.654952319182435*^9, 3.654952443857732*^9, 3.654952920279011*^9, 
   3.65495301281643*^9, 3.654953057613742*^9, 3.655190480642058*^9}],

Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
 CellChangeTimes->{
  3.6277313642355633`*^9, 3.627734790876503*^9, 3.6278175800391073`*^9, 
   3.62781806394445*^9, 3.627819539719757*^9, 3.627820878127697*^9, 
   3.627821623245056*^9, 3.6278258269929132`*^9, 3.627826357277272*^9, 
   3.627827265135848*^9, 3.627830021719227*^9, 3.627830320577775*^9, 
   3.627880256632204*^9, 3.627880337068672*^9, 3.6278837725421057`*^9, 
   3.6278939900187902`*^9, 3.62791000733996*^9, 3.627910125294846*^9, 
   3.627911037779027*^9, 3.653898954925337*^9, {3.6539006654752617`*^9, 
   3.653900691364588*^9}, 3.6539007673900537`*^9, 3.654842217227129*^9, 
   3.654849237856778*^9, 3.654850338008253*^9, 3.654850499972781*^9, 
   3.654857361307753*^9, 3.654950317568956*^9, 3.65495182554195*^9, 
   3.654952319182435*^9, 3.654952443857732*^9, 3.654952920279011*^9, 
   3.65495301281643*^9, 3.654953057613742*^9, 3.655190481148137*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadRestriction", "[", "\"\<CPconserving.rst\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.594732842695395*^9, 3.5947328650290327`*^9}, {
   3.599985558037518*^9, 3.5999855616514053`*^9}, 3.6060258770173197`*^9, {
   3.606565745872488*^9, 3.606565747144857*^9}, 3.6066355320227957`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Loading restrictions from \"\>", 
   "\[InvisibleSpace]", "\<\"CPconserving.rst\"\>", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "13"}],
  SequenceForm["Loading restrictions from ", "CPconserving.rst", " : ", 
   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 13],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.627731364714395*^9, 3.627734791356848*^9, 3.627817580580311*^9, 
   3.627818064432496*^9, 3.627819540224031*^9, 3.627820878709158*^9, 
   3.627821624097713*^9, 3.627825827656622*^9, 3.62782635798005*^9, 
   3.627827265654965*^9, 3.627830022279565*^9, 3.627830321493363*^9, 
   3.627880257232462*^9, 3.627880337708626*^9, 3.627883773036158*^9, 
   3.627893995888242*^9, 3.627910007964456*^9, 3.627910125793729*^9, 
   3.627911038432085*^9, 3.653898955663381*^9, {3.65390066631213*^9, 
   3.653900692061092*^9}, 3.653900768170933*^9, 3.654842218011307*^9, 
   3.654849238681135*^9, 3.654850338658656*^9, 3.654850500677692*^9, 
   3.654857362317774*^9, 3.654950318521212*^9, 3.6549518263808327`*^9, 
   3.65495232000002*^9, 3.654952444701728*^9, 3.65495292108038*^9, 
   3.654953013483369*^9, 3.654953058430987*^9, 3.655190481447442*^9}],

Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
 CellChangeTimes->{
  3.627731364714395*^9, 3.627734791356848*^9, 3.627817580580311*^9, 
   3.627818064432496*^9, 3.627819540224031*^9, 3.627820878709158*^9, 
   3.627821624097713*^9, 3.627825827656622*^9, 3.62782635798005*^9, 
   3.627827265654965*^9, 3.627830022279565*^9, 3.627830321493363*^9, 
   3.627880257232462*^9, 3.627880337708626*^9, 3.627883773036158*^9, 
   3.627893995888242*^9, 3.627910007964456*^9, 3.627910125793729*^9, 
   3.627911038432085*^9, 3.653898955663381*^9, {3.65390066631213*^9, 
   3.653900692061092*^9}, 3.653900768170933*^9, 3.654842218011307*^9, 
   3.654849238681135*^9, 3.654850338658656*^9, 3.654850500677692*^9, 
   3.654857362317774*^9, 3.654950318521212*^9, 3.6549518263808327`*^9, 
   3.65495232000002*^9, 3.654952444701728*^9, 3.65495292108038*^9, 
   3.654953013483369*^9, 3.654953058430987*^9, 3.655190481810688*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Checks", "Subtitle",
 CellChangeTimes->{{3.56934251627102*^9, 3.569342534875886*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CheckHermiticity", "[", 
  RowBox[{"L2HDM", ",", 
   RowBox[{"FlavorExpand", "\[Rule]", "Higgs"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.56933242502278*^9, 3.569332481230145*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
contained in L-HC[L].\"\>"], "Print",
 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9, 
  3.6066317700760403`*^9, 3.653898968800343*^9}],

Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
should be zero.\"\>"], "Print",
 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9, 
  3.6066317700760403`*^9, 3.653898968819825*^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.569332490286311*^9, 3.606565769238183*^9, 
  3.6066317700760403`*^9, 3.653899078017605*^9}],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9, 
  3.6066317700760403`*^9, 3.653899078051853*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9, 
  3.6066317700760403`*^9, 3.653899078075037*^9}],

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

Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9, 
  3.6066317700760403`*^9, 3.6538990795504837`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[0, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9, 
  3.6066317700760403`*^9, 3.653899079567608*^9}],

Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
 CellChangeTimes->{3.569332490286311*^9, 3.606565769238183*^9, 
  3.6066317700760403`*^9, 3.653899079583893*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.569332499747506*^9, 3.6065659123510447`*^9, 
  3.606631909001973*^9, 3.6538990796006937`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CheckMassSpectrum", "[", 
  RowBox[{"L2HDM", ",", 
   RowBox[{"FlavorExpand", "\[Rule]", "Higgs"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.569330855977614*^9, 3.569330859368457*^9}, 
   3.56933116102186*^9, {3.569332303316351*^9, 3.5693323069294987`*^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.569330893835693*^9, 3.569331127275221*^9, 
  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9, 
  3.60663198309888*^9}],

Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
 CellChangeTimes->{3.569330893835693*^9, 3.569331127275221*^9, 
  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9, 
  3.60663198415108*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Warning: mass term for \"\>", 
   "\[InvisibleSpace]", "\<\"{GP, GPbar}\"\>", 
   "\[InvisibleSpace]", "\<\"seems not to have the correct sign.\"\>"}],
  SequenceForm[
  "Warning: mass term for ", "{GP, GPbar}", 
   "seems not to have the correct sign."],
  Editable->False]], "Print",
 CellChangeTimes->{3.569330893835693*^9, 3.569331127275221*^9, 
  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9, 
  3.606632045926795*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Warning: mass term for \"\>", 
   "\[InvisibleSpace]", "\<\"{A, A}\"\>", 
   "\[InvisibleSpace]", "\<\"seems not to have the correct sign.\"\>"}],
  SequenceForm[
  "Warning: mass term for ", "{A, A}", "seems not to have the correct sign."],
  Editable->False]], "Print",
 CellChangeTimes->{3.569330893835693*^9, 3.569331127275221*^9, 
  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9, 
  3.606632045993162*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Warning: mass term for \"\>", 
   "\[InvisibleSpace]", "\<\"{ghA, ghAbar}\"\>", 
   "\[InvisibleSpace]", "\<\"seems not to have the correct sign.\"\>"}],
  SequenceForm[
  "Warning: mass term for ", "{ghA, ghAbar}", 
   "seems not to have the correct sign."],
  Editable->False]], "Print",
 CellChangeTimes->{3.569330893835693*^9, 3.569331127275221*^9, 
  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9, 
  3.6066320459999733`*^9}],

Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
 CellChangeTimes->{3.569330893835693*^9, 3.569331127275221*^9, 
  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9, 
  3.606632046034184*^9}],

Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
values.\"\>"], "Print",
 CellChangeTimes->{3.569330893835693*^9, 3.569331127275221*^9, 
  3.5693311937669983`*^9, 3.5693323755699863`*^9, 3.594386581957768*^9, 
  3.606632046067045*^9}]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
"\<\"Model-file value\"\>", "\<\"\"\>"},
    {"Hc", 
     SqrtBox[
      RowBox[{"mu2", "+", 
       FractionBox[
        RowBox[{
         SubscriptBox["\[Lambda]", "3"], " ", 
         SuperscriptBox["vev", "2"]}], "2"]}]], "150.`", "150.`", "\<\"\"\>"},
    {"ghWm", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SqrtBox[
       RowBox[{
        SubsuperscriptBox["g", "w", "2"], " ", 
        SuperscriptBox["vev", "2"]}]]}], "79.82466003605599`", 
     "79.82466003605597`", "\<\"\"\>"},
    {"ghWp", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SqrtBox[
       RowBox[{
        SubsuperscriptBox["g", "w", "2"], " ", 
        SuperscriptBox["vev", "2"]}]]}], "79.82466003605599`", 
     "79.82466003605597`", "\<\"\"\>"},
    {"ghZ", 
     SqrtBox[
      RowBox[{
       RowBox[{
        FractionBox["1", "4"], " ", 
        SubsuperscriptBox["c", "w", "2"], " ", 
        SubsuperscriptBox["g", "w", "2"], " ", 
        SuperscriptBox["vev", "2"]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SubscriptBox["c", "w"], " ", 
        SubscriptBox["g", "1"], " ", 
        SubscriptBox["g", "w"], " ", 
        SubscriptBox["s", "w"], " ", 
        SuperscriptBox["vev", "2"]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SubsuperscriptBox["g", "1", "2"], " ", 
        SubsuperscriptBox["s", "w", "2"], " ", 
        SuperscriptBox["vev", "2"]}]}]], "91.1876`", "91.1876`", "\<\"\"\>"},
    {"b", 
     RowBox[{
      FractionBox[
       RowBox[{"vev", " ", 
        SubsuperscriptBox[
         RowBox[{"(", 
          TemplateBox[{"y","d"},
           "Superscript"], ")"}], 
         RowBox[{"3", ",", "3"}], "\<\"*\"\>"]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"]}]], "+", 
      FractionBox[
       RowBox[{"vev", " ", 
        SubscriptBox[
         TemplateBox[{"y","d"},
          "Superscript"], 
         RowBox[{"3", ",", "3"}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"]}]]}], "4.700000000000001`", "4.7`", "\<\"\"\>"},
    {"ta", 
     RowBox[{
      FractionBox[
       RowBox[{"vev", " ", 
        SubsuperscriptBox[
         RowBox[{"(", 
          TemplateBox[{"y","l"},
           "Superscript"], ")"}], 
         RowBox[{"3", ",", "3"}], "\<\"*\"\>"]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"]}]], "+", 
      FractionBox[
       RowBox[{"vev", " ", 
        SubscriptBox[
         TemplateBox[{"y","l"},
          "Superscript"], 
         RowBox[{"3", ",", "3"}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"]}]]}], "1.7770000000000001`", "0.`", 
     TagBox[
      StyleBox["\<\"Discrepency!\"\>",
       FontColor->RGBColor[1, 0, 0]],
      StyleForm[#, FontColor -> RGBColor[1, 0, 0]]& ]},
    {"t", 
     RowBox[{
      FractionBox[
       RowBox[{"vev", " ", 
        SubsuperscriptBox[
         RowBox[{"(", 
          TemplateBox[{"y","u"},
           "Superscript"], ")"}], 
         RowBox[{"3", ",", "3"}], "\<\"*\"\>"]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"]}]], "+", 
      FractionBox[
       RowBox[{"vev", " ", 
        SubscriptBox[
         TemplateBox[{"y","u"},
          "Superscript"], 
         RowBox[{"3", ",", "3"}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"]}]]}], "172.`", "172.`", "\<\"\"\>"},
    {"h1", 
     RowBox[{
      SqrtBox["2"], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "mu1", " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"1", ",", "1"}], "2"]}], "+", 
        RowBox[{
         FractionBox["3", "2"], " ", 
         SubscriptBox["\[Lambda]", "1"], " ", 
         SuperscriptBox["vev", "2"], " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"1", ",", "1"}], "2"]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "mu3", " ", 
         SubscriptBox[
          SubscriptBox["T", "H"], 
          RowBox[{"1", ",", "1"}]], " ", 
         SubscriptBox[
          SubscriptBox["T", "H"], 
          RowBox[{"2", ",", "1"}]]}], "+", 
        RowBox[{
         FractionBox["3", "2"], " ", 
         SubscriptBox["\[Lambda]", "6"], " ", 
         SuperscriptBox["vev", "2"], " ", 
         SubscriptBox[
          SubscriptBox["T", "H"], 
          RowBox[{"1", ",", "1"}]], " ", 
         SubscriptBox[
          SubscriptBox["T", "H"], 
          RowBox[{"2", ",", "1"}]]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox["mu3", "\<\"*\"\>"], " ", 
         SubscriptBox[
          SubscriptBox["T", "H"], 
          RowBox[{"1", ",", "1"}]], " ", 
         SubscriptBox[
          SubscriptBox["T", "H"], 
          RowBox[{"2", ",", "1"}]]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "mu2", " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"2", ",", "1"}], "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SubscriptBox["\[Lambda]", "3"], " ", 
         SuperscriptBox["vev", "2"], " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"2", ",", "1"}], "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SubscriptBox["\[Lambda]", "4"], " ", 
         SuperscriptBox["vev", "2"], " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"2", ",", "1"}], "2"]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SubscriptBox["\[Lambda]", "5"], " ", 
         SuperscriptBox["vev", "2"], " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"2", ",", "1"}], "2"]}]}]]}], "120.00000000000001`", 
     "120.`", "\<\"\"\>"},
    {"h2", 
     RowBox[{
      SqrtBox["2"], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "mu1", " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"1", ",", "2"}], "2"]}], "+", 
        RowBox[{
         FractionBox["3", "2"], " ", 
         SubscriptBox["\[Lambda]", "1"], " ", 
         SuperscriptBox["vev", "2"], " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"1", ",", "2"}], "2"]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "mu3", " ", 
         SubscriptBox[
          SubscriptBox["T", "H"], 
          RowBox[{"1", ",", "2"}]], " ", 
         SubscriptBox[
          SubscriptBox["T", "H"], 
          RowBox[{"2", ",", "2"}]]}], "+", 
        RowBox[{
         FractionBox["3", "2"], " ", 
         SubscriptBox["\[Lambda]", "6"], " ", 
         SuperscriptBox["vev", "2"], " ", 
         SubscriptBox[
          SubscriptBox["T", "H"], 
          RowBox[{"1", ",", "2"}]], " ", 
         SubscriptBox[
          SubscriptBox["T", "H"], 
          RowBox[{"2", ",", "2"}]]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox["mu3", "\<\"*\"\>"], " ", 
         SubscriptBox[
          SubscriptBox["T", "H"], 
          RowBox[{"1", ",", "2"}]], " ", 
         SubscriptBox[
          SubscriptBox["T", "H"], 
          RowBox[{"2", ",", "2"}]]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "mu2", " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"2", ",", "2"}], "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SubscriptBox["\[Lambda]", "3"], " ", 
         SuperscriptBox["vev", "2"], " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"2", ",", "2"}], "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SubscriptBox["\[Lambda]", "4"], " ", 
         SuperscriptBox["vev", "2"], " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"2", ",", "2"}], "2"]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SubscriptBox["\[Lambda]", "5"], " ", 
         SuperscriptBox["vev", "2"], " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"2", ",", "2"}], "2"]}]}]]}], "130.`", "130.`", "\<\"\"\>"},
    {"h3", 
     RowBox[{
      SqrtBox["2"], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "mu2", " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"3", ",", "3"}], "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SubscriptBox["\[Lambda]", "3"], " ", 
         SuperscriptBox["vev", "2"], " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"3", ",", "3"}], "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SubscriptBox["\[Lambda]", "4"], " ", 
         SuperscriptBox["vev", "2"], " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"3", ",", "3"}], "2"]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SubscriptBox["\[Lambda]", "5"], " ", 
         SuperscriptBox["vev", "2"], " ", 
         SubsuperscriptBox[
          RowBox[{"(", 
           SubscriptBox["T", "H"], ")"}], 
          RowBox[{"3", ",", "3"}], "2"]}]}]]}], "140.00000000000003`", 
     "140.`", "\<\"\"\>"},
    {"W", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SqrtBox[
       RowBox[{
        SubsuperscriptBox["g", "w", "2"], " ", 
        SuperscriptBox["vev", "2"]}]]}], "79.82466003605599`", 
     "79.82466003605597`", "\<\"\"\>"},
    {"Z", 
     RowBox[{
      SqrtBox["2"], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{
         FractionBox["1", "8"], " ", 
         SubsuperscriptBox["c", "w", "2"], " ", 
         SubsuperscriptBox["g", "w", "2"], " ", 
         SuperscriptBox["vev", "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SubscriptBox["c", "w"], " ", 
         SubscriptBox["g", "1"], " ", 
         SubscriptBox["g", "w"], " ", 
         SubscriptBox["s", "w"], " ", 
         SuperscriptBox["vev", "2"]}], "+", 
        RowBox[{
         FractionBox["1", "8"], " ", 
         SubsuperscriptBox["g", "1", "2"], " ", 
         SubsuperscriptBox["s", "w", "2"], " ", 
         SuperscriptBox["vev", "2"]}]}]]}], "91.1876`", "91.1876`", "\<\"\"\>"}
   },
   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" -> {}}],
  TableForm[{{
    "Particle", "Analytic value", "Numerical value", 
     "Model-file value"}, {$CellContext`Hc, (
      FeynRules`mu2 + (Rational[1, 2] $CellContext`l3) $CellContext`vev^2)^
     Rational[1, 2], 150., 150.}, {$CellContext`ghWm, 
     Rational[1, 2] ($CellContext`gw^2 $CellContext`vev^2)^Rational[1, 2], 
     79.82466003605599, 79.82466003605597}, {$CellContext`ghWp, 
     Rational[1, 2] ($CellContext`gw^2 $CellContext`vev^2)^Rational[1, 2], 
     79.82466003605599, 
     79.82466003605597}, {$CellContext`ghZ, (((
         Rational[
          1, 4] $CellContext`cw^2) $CellContext`gw^2) $CellContext`vev^2 + \
((((Rational[1, 2] $CellContext`cw) 
          FeynRules`g1) $CellContext`gw) $CellContext`sw) $CellContext`vev^2 + \
((Rational[1, 4] FeynRules`g1^2) $CellContext`sw^2) $CellContext`vev^2)^
     Rational[1, 2], 91.1876, 91.1876}, {
    FeynRules`b, ((Rational[1, 2] 2^Rational[-1, 2]) $CellContext`vev) 
      Conjugate[
        $CellContext`yd[
         FeynRules`Index[$CellContext`Generation, 3], 
         FeynRules`Index[$CellContext`Generation, 3]]] + ((Rational[1, 2] 
        2^Rational[-1, 2]) $CellContext`vev) $CellContext`yd[
        FeynRules`Index[$CellContext`Generation, 3], 
        FeynRules`Index[$CellContext`Generation, 3]], 4.700000000000001, 
     4.7}, {$CellContext`ta, ((Rational[1, 2] 
        2^Rational[-1, 2]) $CellContext`vev) Conjugate[
        $CellContext`yl[
         FeynRules`Index[$CellContext`Generation, 3], 
         FeynRules`Index[$CellContext`Generation, 3]]] + ((Rational[1, 2] 
        2^Rational[-1, 2]) $CellContext`vev) $CellContext`yl[
        FeynRules`Index[$CellContext`Generation, 3], 
        FeynRules`Index[$CellContext`Generation, 3]], 1.7770000000000001`, 0., 
     StyleForm["Discrepency!", FontColor -> RGBColor[1, 0, 0]]}, {
    FeynRules`t, ((Rational[1, 2] 2^Rational[-1, 2]) $CellContext`vev) 
      Conjugate[
        $CellContext`yu[
         FeynRules`Index[$CellContext`Generation, 3], 
         FeynRules`Index[$CellContext`Generation, 3]]] + ((Rational[1, 2] 
        2^Rational[-1, 2]) $CellContext`vev) $CellContext`yu[
        FeynRules`Index[$CellContext`Generation, 3], 
        FeynRules`Index[$CellContext`Generation, 3]], 172., 
     172.}, {$CellContext`h1, 
     2^Rational[1, 2] ((Rational[1, 2] FeynRules`mu1) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 1], 
           FeynRules`Index[$CellContext`Higgs, 1]]^2 + ((Rational[3, 2] 
          FeynRules`l1) $CellContext`vev^2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 1], 
           FeynRules`Index[$CellContext`Higgs, 1]]^2 + ((
          Rational[1, 2] $CellContext`mu3) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 1], 
           FeynRules`Index[$CellContext`Higgs, 1]]) $CellContext`TH[
          FeynRules`Index[$CellContext`Higgs, 2], 
          
          FeynRules`Index[$CellContext`Higgs, 1]] + (((
           Rational[3, 2] $CellContext`l6) $CellContext`vev^2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 1], 
           FeynRules`Index[$CellContext`Higgs, 1]]) $CellContext`TH[
          FeynRules`Index[$CellContext`Higgs, 2], 
          FeynRules`Index[$CellContext`Higgs, 1]] + ((Rational[1, 2] 
          Conjugate[$CellContext`mu3]) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 1], 
           FeynRules`Index[$CellContext`Higgs, 1]]) $CellContext`TH[
          FeynRules`Index[$CellContext`Higgs, 2], 
          FeynRules`Index[$CellContext`Higgs, 1]] + (Rational[1, 2] 
         FeynRules`mu2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 2], 
           FeynRules`Index[$CellContext`Higgs, 1]]^2 + ((
          Rational[1, 4] $CellContext`l3) $CellContext`vev^2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 2], 
           FeynRules`Index[$CellContext`Higgs, 1]]^2 + ((
          Rational[1, 4] $CellContext`l4) $CellContext`vev^2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 2], 
           FeynRules`Index[$CellContext`Higgs, 1]]^2 + ((
          Rational[1, 2] $CellContext`l5) $CellContext`vev^2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 2], 
           FeynRules`Index[$CellContext`Higgs, 1]]^2)^Rational[1, 2], 
     120.00000000000001`, 120.}, {$CellContext`h2, 
     2^Rational[1, 2] ((Rational[1, 2] FeynRules`mu1) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 1], 
           FeynRules`Index[$CellContext`Higgs, 2]]^2 + ((Rational[3, 2] 
          FeynRules`l1) $CellContext`vev^2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 1], 
           FeynRules`Index[$CellContext`Higgs, 2]]^2 + ((
          Rational[1, 2] $CellContext`mu3) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 1], 
           FeynRules`Index[$CellContext`Higgs, 2]]) $CellContext`TH[
          FeynRules`Index[$CellContext`Higgs, 2], 
          
          FeynRules`Index[$CellContext`Higgs, 2]] + (((
           Rational[3, 2] $CellContext`l6) $CellContext`vev^2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 1], 
           FeynRules`Index[$CellContext`Higgs, 2]]) $CellContext`TH[
          FeynRules`Index[$CellContext`Higgs, 2], 
          FeynRules`Index[$CellContext`Higgs, 2]] + ((Rational[1, 2] 
          Conjugate[$CellContext`mu3]) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 1], 
           FeynRules`Index[$CellContext`Higgs, 2]]) $CellContext`TH[
          FeynRules`Index[$CellContext`Higgs, 2], 
          FeynRules`Index[$CellContext`Higgs, 2]] + (Rational[1, 2] 
         FeynRules`mu2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 2], 
           FeynRules`Index[$CellContext`Higgs, 2]]^2 + ((
          Rational[1, 4] $CellContext`l3) $CellContext`vev^2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 2], 
           FeynRules`Index[$CellContext`Higgs, 2]]^2 + ((
          Rational[1, 4] $CellContext`l4) $CellContext`vev^2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 2], 
           FeynRules`Index[$CellContext`Higgs, 2]]^2 + ((
          Rational[1, 2] $CellContext`l5) $CellContext`vev^2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 2], 
           FeynRules`Index[$CellContext`Higgs, 2]]^2)^Rational[1, 2], 130., 
     130.}, {$CellContext`h3, 
     2^Rational[1, 2] ((Rational[1, 2] FeynRules`mu2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 3], 
           FeynRules`Index[$CellContext`Higgs, 3]]^2 + ((
          Rational[1, 4] $CellContext`l3) $CellContext`vev^2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 3], 
           FeynRules`Index[$CellContext`Higgs, 3]]^2 + ((
          Rational[1, 4] $CellContext`l4) $CellContext`vev^2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 3], 
           FeynRules`Index[$CellContext`Higgs, 3]]^2 + ((
          Rational[-1, 2] $CellContext`l5) $CellContext`vev^2) $CellContext`TH[
           FeynRules`Index[$CellContext`Higgs, 3], 
           FeynRules`Index[$CellContext`Higgs, 3]]^2)^Rational[1, 2], 
     140.00000000000003`, 140.}, {
    FeynRules`W, 
     Rational[1, 2] ($CellContext`gw^2 $CellContext`vev^2)^Rational[1, 2], 
     79.82466003605599, 79.82466003605597}, {$CellContext`Z, 
     2^Rational[
       1, 2] (((
          Rational[
           1, 8] $CellContext`cw^2) $CellContext`gw^2) $CellContext`vev^2 + \
((((Rational[1, 4] $CellContext`cw) 
           FeynRules`g1) $CellContext`gw) $CellContext`sw) $CellContext`vev^2 + \
((Rational[1, 8] FeynRules`g1^2) $CellContext`sw^2) $CellContext`vev^2)^
      Rational[1, 2], 91.1876, 91.1876}}]]], "Output",
 CellChangeTimes->{3.569331152697446*^9, 3.569331219676342*^9, 
  3.569332445754335*^9, 3.594386647610293*^9, 3.6066320463511*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Renormalization and FeynArts output", "Subtitle",
 CellChangeTimes->{{3.569240498668885*^9, 3.569240515331468*^9}, 
   3.595236774037018*^9, 3.596180370744793*^9, {3.606025776884673*^9, 
   3.606025783616241*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Only", " ", "QCD", " ", "corrections"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Lren", "=", 
     RowBox[{"OnShellRenormalization", "[", 
      RowBox[{"L2HDM", ",", 
       RowBox[{"QCDOnly", "\[Rule]", "True"}], ",", 
       RowBox[{"FlavorMixing", "\[Rule]", "False"}]}], "]"}]}], ";"}], "//", 
   "Timing"}]}]], "Input",
 CellChangeTimes->{{3.597920638474764*^9, 3.597920642824625*^9}, {
   3.597920919213044*^9, 3.5979209246604347`*^9}, {3.5979213458204403`*^9, 
   3.5979213461959553`*^9}, {3.597921906223185*^9, 3.5979219247182903`*^9}, 
   3.59826693283288*^9, {3.599726694548938*^9, 3.599726709332283*^9}, {
   3.600073533715087*^9, 3.600073550943606*^9}, {3.600100821847949*^9, 
   3.600100822078888*^9}, {3.600100905677856*^9, 3.6001009077169743`*^9}, {
   3.600101019301407*^9, 3.600101019521409*^9}, {3.6001011061449337`*^9, 
   3.600101109830374*^9}, {3.60060597893237*^9, 3.600605979456867*^9}, {
   3.600606571605412*^9, 3.600606574681816*^9}, {3.600606720461048*^9, 
   3.600606722538821*^9}, 3.606025620741485*^9, {3.606025706251973*^9, 
   3.606025727354734*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
them\"\>"], "Print",
 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9, 
  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9, 
  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9, 
  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9, 
  3.653901538871557*^9}],

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.6000737019202414`*^9, 3.600084487487627*^9, 
  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9, 
  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9, 
  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9, 
  3.653901603241919*^9}],

Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9, 
  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9, 
  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9, 
  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9, 
  3.6539017629238853`*^9}],

Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9, 
  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9, 
  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9, 
  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9, 
  3.653901763083969*^9}],

Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9, 
  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9, 
  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9, 
  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9, 
  3.65390176311108*^9}],

Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9, 
  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9, 
  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9, 
  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9, 
  3.65390176316675*^9}],

Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9, 
  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9, 
  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9, 
  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9, 
  3.653901763192334*^9}],

Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9, 
  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9, 
  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9, 
  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9, 
  3.6539017632144527`*^9}],

Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9, 
  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9, 
  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9, 
  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9, 
  3.653901913692226*^9}],

Cell[BoxData["\<\"with the parameters\"\>"], "Print",
 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9, 
  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9, 
  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9, 
  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9, 
  3.653901913923394*^9}],

Cell[BoxData["\<\"with the fields\"\>"], "Print",
 CellChangeTimes->{3.6000737019202414`*^9, 3.600084487487627*^9, 
  3.6000901382046003`*^9, 3.600091029143468*^9, 3.6000921490189342`*^9, 
  3.600100823839426*^9, 3.600101082065839*^9, 3.6001013567354717`*^9, 
  3.600606128354238*^9, 3.600606586619111*^9, 3.6538991394306107`*^9, 
  3.653901924556141*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"634.972038`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.600074084905156*^9, 3.600089516729875*^9, 
  3.600090538890633*^9, 3.600091497780901*^9, 3.6000926205881147`*^9, 
  3.6001008248246517`*^9, 3.600101082619677*^9, 3.600101634522843*^9, 
  3.600606553709322*^9, 3.600606599364315*^9, 3.653899285502495*^9, 
  3.653902092138749*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", "\"\<~/FeynArts-3.9\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"WriteFeynArtsOutput", "[", 
  RowBox[{"Lren", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<2HDM\>\""}], ",", 
   RowBox[{"GenericFile", "\[Rule]", "False"}], ",", 
   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.564700372817255*^9, 3.5647004413939466`*^9}, {
   3.564700472793775*^9, 3.564700489137748*^9}, {3.56470103135526*^9, 
   3.564701032144533*^9}, {3.564761878886104*^9, 3.564761883179635*^9}, {
   3.564817985983468*^9, 3.564818004973386*^9}, {3.5667493061356773`*^9, 
   3.5667493090757227`*^9}, {3.566840298580666*^9, 3.5668403021044083`*^9}, 
   3.566840422615706*^9, 3.566842153568747*^9, 3.56684341802089*^9, {
   3.5693427292444363`*^9, 3.56934273346803*^9}, {3.595757872443129*^9, 
   3.595757872990183*^9}, {3.595926997672106*^9, 3.5959269985182056`*^9}, {
   3.59592757677836*^9, 3.59592757730344*^9}, {3.596175021700604*^9, 
   3.596175027780533*^9}, {3.596365794756915*^9, 3.596365796494033*^9}, {
   3.596388276838932*^9, 3.596388277581387*^9}, {3.596423057886693*^9, 
   3.596423064528386*^9}, {3.596423285683466*^9, 3.596423300122218*^9}, {
   3.596427653237583*^9, 3.5964276549870377`*^9}, {3.596427914770174*^9, 
   3.596427946152913*^9}, {3.596428008333082*^9, 3.596428009193137*^9}, {
   3.596428193445437*^9, 3.596428194155259*^9}, {3.5964287047105618`*^9, 
   3.5964287055259647`*^9}, {3.596429864013536*^9, 3.596429864610759*^9}, {
   3.596442429316771*^9, 3.596442458111861*^9}, {3.596443083159437*^9, 
   3.5964430846612377`*^9}, 3.596457217748049*^9, {3.596458198112561*^9, 
   3.596458198990324*^9}, 3.5964712361531982`*^9, {3.5965448029683027`*^9, 
   3.596544815873913*^9}, {3.596547719420516*^9, 3.5965477199629097`*^9}, {
   3.596553223499798*^9, 3.596553224474061*^9}, 3.596564371263818*^9, 
   3.599724168493658*^9, 3.5997242009301558`*^9, 3.5997242537940073`*^9, {
   3.599744743869116*^9, 3.599744744458776*^9}, {3.600073581637103*^9, 
   3.600073593918627*^9}, {3.606025626719825*^9, 3.606025647141613*^9}, {
   3.606025733359462*^9, 3.6060257343177843`*^9}, {3.6066355442371893`*^9, 
   3.6066355733960743`*^9}, {3.653899002553916*^9, 3.653899010209284*^9}}],

Cell[CellGroupData[{

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

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

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

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

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

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

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.653899285996964*^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.6538992946207027`*^9}],

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

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

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

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

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

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"All", " ", "corrections"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Lren", "=", 
     RowBox[{"OnShellRenormalization", "[", 
      RowBox[{"L2HDM", ",", 
       RowBox[{"QCDOnly", "\[Rule]", "False"}], ",", 
       RowBox[{"FlavorMixing", "\[Rule]", "True"}], ",", 
       RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}]}], ";"}], "//",
    "Timing"}]}]], "Input",
 CellChangeTimes->{{3.564514024973831*^9, 3.5645140757633343`*^9}, {
   3.564515251670082*^9, 3.564515259090262*^9}, 3.564743238911811*^9, {
   3.564743315761744*^9, 3.56474332285568*^9}, 3.5647433860883627`*^9, {
   3.564743451899*^9, 3.564743458934826*^9}, {3.564743489791627*^9, 
   3.564743522022538*^9}, {3.5647436308689537`*^9, 3.564743633283614*^9}, {
   3.564743678005272*^9, 3.564743716912929*^9}, {3.564748539805533*^9, 
   3.56474854388021*^9}, {3.564749079364633*^9, 3.564749079489629*^9}, {
   3.56476087935155*^9, 3.564760883091728*^9}, {3.564761780250856*^9, 
   3.564761785822854*^9}, 3.5647618316921577`*^9, {3.5647824598755207`*^9, 
   3.5647824642337523`*^9}, {3.564787157067603*^9, 3.5647871980279827`*^9}, {
   3.564787935500413*^9, 3.564787937865177*^9}, {3.5648229420582027`*^9, 
   3.564822988254724*^9}, 3.5648235376129837`*^9, {3.5648275376516037`*^9, 
   3.5648275381811237`*^9}, {3.564831518657062*^9, 3.564831521567285*^9}, {
   3.564831716351776*^9, 3.5648317171582327`*^9}, {3.564945970385146*^9, 
   3.564946023871234*^9}, {3.564946086655884*^9, 3.564946086741197*^9}, {
   3.566839779463044*^9, 3.566839782596681*^9}, {3.566839867439942*^9, 
   3.566839919584077*^9}, {3.566840173751217*^9, 3.5668401826466427`*^9}, {
   3.566842131895069*^9, 3.566842132470367*^9}, {3.566913838467654*^9, 
   3.566913895655745*^9}, {3.566914452032465*^9, 3.5669144642775497`*^9}, {
   3.568736986853777*^9, 3.568737001903592*^9}, {3.568737085929701*^9, 
   3.5687370896958647`*^9}, {3.568737281046568*^9, 3.56873728642734*^9}, {
   3.568738058212694*^9, 3.568738068322414*^9}, {3.5687481209318953`*^9, 
   3.5687481248405037`*^9}, {3.5687481570103807`*^9, 3.568748174847719*^9}, 
   3.568748636009015*^9, {3.568749015730638*^9, 3.568749028709589*^9}, {
   3.568750836772822*^9, 3.568750841657319*^9}, {3.568751009096486*^9, 
   3.56875101661443*^9}, {3.568985779944077*^9, 3.568985783653063*^9}, {
   3.568986191922492*^9, 3.568986192024469*^9}, {3.5689872137392473`*^9, 
   3.5689872171358967`*^9}, 3.5689980050726423`*^9, {3.569084669609191*^9, 
   3.569084672560041*^9}, {3.569086716337036*^9, 3.5690867191321383`*^9}, {
   3.5691501723933496`*^9, 3.5691501745326433`*^9}, 3.5693427201730433`*^9, {
   3.569348150448511*^9, 3.56934818336827*^9}, {3.569348381991968*^9, 
   3.569348441908313*^9}, {3.5693492232530193`*^9, 3.569349252648958*^9}, 
   3.56934939813468*^9, {3.569349619377768*^9, 3.569349620191347*^9}, {
   3.569349664791795*^9, 3.56934975671489*^9}, {3.5693498562503*^9, 
   3.569349859448492*^9}, {3.569349925625503*^9, 3.569349929152988*^9}, {
   3.56934999726747*^9, 3.569350009235647*^9}, {3.5693504865736933`*^9, 
   3.569350496793866*^9}, {3.569350664987414*^9, 3.569350678642851*^9}, {
   3.569360662188109*^9, 3.569360684192335*^9}, {3.569360958644943*^9, 
   3.5693609608554564`*^9}, {3.569361624763565*^9, 3.569361626353609*^9}, 
   3.569501633329406*^9, 3.569502110847106*^9, {3.5695022454556828`*^9, 
   3.569502256253265*^9}, {3.5789078363356237`*^9, 3.5789078470025673`*^9}, {
   3.594552175815646*^9, 3.594552227507558*^9}, {3.594553359947174*^9, 
   3.5945533828260393`*^9}, {3.594555074432263*^9, 3.594555082052123*^9}, {
   3.594715586145198*^9, 3.594715593319536*^9}, {3.595333000837369*^9, 
   3.595333055462247*^9}, {3.59576534024349*^9, 3.5957653428076077`*^9}, {
   3.595842713806188*^9, 3.5958427174052753`*^9}, {3.595846156919591*^9, 
   3.595846192972678*^9}, {3.595848685062187*^9, 3.5958486882026033`*^9}, {
   3.595855106131076*^9, 3.595855120656362*^9}, {3.595927609067635*^9, 
   3.595927612072925*^9}, {3.595938514326168*^9, 3.595938531012648*^9}, {
   3.596180555966103*^9, 3.596180556431263*^9}, {3.5961807483646708`*^9, 
   3.596180753874673*^9}, {3.596255719718598*^9, 3.596255726423046*^9}, {
   3.596345700886137*^9, 3.596345702055586*^9}, {3.596361886770438*^9, 
   3.596361889415525*^9}, {3.596365760142906*^9, 3.5963657757201557`*^9}, {
   3.596388244373166*^9, 3.596388249459565*^9}, {3.59642869566556*^9, 
   3.596428696166581*^9}, {3.596455886672084*^9, 3.596455891366675*^9}, 
   3.598266937137663*^9, {3.6060256764644613`*^9, 3.60602570114121*^9}, {
   3.606631989556072*^9, 3.6066320002381067`*^9}, {3.627819870035407*^9, 
   3.62781987151068*^9}, {3.654951279470537*^9, 3.6549512880441313`*^9}, {
   3.654951642673502*^9, 3.654951647312804*^9}, 3.6549518351523848`*^9, {
   3.654952121469139*^9, 3.65495212307616*^9}, {3.654953061701249*^9, 
   3.6549530632922297`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Putting 4 scalars term aside for the renormalization\"\>"], \
"Print",
 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9, 
  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9, 
  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9, 
  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9, 
  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9, 
  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9, 
  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9, 
  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9, 
  3.654952936569571*^9, 3.654953015056675*^9, 3.654953080652999*^9}],

Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
them\"\>"], "Print",
 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9, 
  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9, 
  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9, 
  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9, 
  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9, 
  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9, 
  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9, 
  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9, 
  3.654952936569571*^9, 3.654953015056675*^9, 3.654953116863653*^9}],

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.627819886539587*^9, 3.627820902701251*^9, 
  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9, 
  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9, 
  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9, 
  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9, 
  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9, 
  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9, 
  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9, 
  3.654952936569571*^9, 3.654953015056675*^9, 3.654953134466219*^9}],

Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9, 
  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9, 
  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9, 
  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9, 
  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9, 
  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9, 
  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9, 
  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9, 
  3.654952936569571*^9, 3.654953015056675*^9, 3.654953175493515*^9}],

Cell[BoxData["\<\"All mixing allowed for the renormalization\"\>"], "Print",
 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9, 
  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9, 
  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9, 
  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9, 
  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9, 
  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9, 
  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9, 
  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9, 
  3.654952936569571*^9, 3.654953015056675*^9, 3.6549531756307077`*^9}],

Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9, 
  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9, 
  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9, 
  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9, 
  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9, 
  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9, 
  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9, 
  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9, 
  3.654952936569571*^9, 3.654953015056675*^9, 3.6549531756324673`*^9}],

Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9, 
  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9, 
  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9, 
  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9, 
  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9, 
  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9, 
  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9, 
  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9, 
  3.654952936569571*^9, 3.654953015056675*^9, 3.6549531756992617`*^9}],

Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9, 
  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9, 
  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9, 
  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9, 
  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9, 
  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9, 
  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9, 
  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9, 
  3.654952936569571*^9, 3.654953015056675*^9, 3.654953175701283*^9}],

Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9, 
  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9, 
  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9, 
  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9, 
  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9, 
  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9, 
  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9, 
  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9, 
  3.654952936569571*^9, 3.654953015056675*^9, 3.654953175704159*^9}],

Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9, 
  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9, 
  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9, 
  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9, 
  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9, 
  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9, 
  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9, 
  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9, 
  3.654952936569571*^9, 3.654953015056675*^9, 3.654953261807089*^9}],

Cell[BoxData["\<\"with the parameters\"\>"], "Print",
 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9, 
  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9, 
  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9, 
  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9, 
  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9, 
  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9, 
  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9, 
  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9, 
  3.654952936569571*^9, 3.654953015056675*^9, 3.654953261903611*^9}],

Cell[BoxData["\<\"with the tadpoles\"\>"], "Print",
 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9, 
  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9, 
  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9, 
  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9, 
  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9, 
  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9, 
  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9, 
  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9, 
  3.654952936569571*^9, 3.654953015056675*^9, 3.6549532746822367`*^9}],

Cell[BoxData["\<\"with the fields\"\>"], "Print",
 CellChangeTimes->{3.627819886539587*^9, 3.627820902701251*^9, 
  3.627821648108768*^9, 3.627825859507841*^9, 3.6278263838402777`*^9, 
  3.627827307346344*^9, 3.62783004031518*^9, 3.62783033783112*^9, 
  3.627880358708267*^9, 3.627883792391986*^9, 3.6278940223067102`*^9, 
  3.627910154105303*^9, 3.627911064710252*^9, 3.654842279200305*^9, 
  3.6548492577549686`*^9, 3.65485738519493*^9, 3.654950341764106*^9, 
  3.654951332395451*^9, 3.654951699513832*^9, 3.65495183853514*^9, 
  3.654952128288862*^9, 3.654952328734977*^9, 3.654952449055499*^9, 
  3.654952936569571*^9, 3.654953015056675*^9, 3.65495356958069*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1261.814858`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.627884236423593*^9, 3.627894763848317*^9, 
  3.6279108936106243`*^9, 3.627912257428281*^9, 3.6548431155289*^9, 
  3.65485005691616*^9, 3.65485845754136*^9, 3.654951200388493*^9, 
  3.654951388446023*^9, 3.6549518075990677`*^9, 3.654951906907552*^9, 
  3.654952129148139*^9, 3.654952339437887*^9, 3.654952459240699*^9, 
  3.65495294728941*^9, 3.654953025635594*^9, 3.6549543881416597`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Lren", ">>", "Lrenfull.reno"}]], "Input",
 CellChangeTimes->{{3.6548489936603527`*^9, 3.65484902358394*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Lren", "=", 
   RowBox[{"<<", "Lrenfull.reno"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.654849110291217*^9, 3.654849148384429*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", "\"\<~/FeynArts-3.9\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteFeynArtsOutput", "[", 
   RowBox[{"Lren", ",", 
    RowBox[{"Output", "\[Rule]", "\"\<2HDMfull\>\""}], ",", 
    RowBox[{"GenericFile", "\[Rule]", "False"}], ",", 
    RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}], "//", 
  "Timing"}]}], "Input",
 CellChangeTimes->{{3.6551904163659678`*^9, 3.655190424213563*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Counterterms Computation", "Subtitle",
 CellChangeTimes->{{3.6060266792561483`*^9, 3.6060266874455223`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", "\"\<~/FeynArts-3.9\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"<<", " ", "FeynArts`"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "SetDirectory", "[", "\"\<~/feynrules/branch/feynrules-current\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"<<", " ", "NLOCT`"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", "\"\<~/feynrules/trunk/models/2HDM\>\"", "]"}],
   ";"}]}], "Input",
 CellChangeTimes->{{3.606635589576776*^9, 3.606635615927095*^9}, {
  3.653899652663455*^9, 3.653899721855009*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.6538996867285757`*^9, 3.653899727126597*^9, 3.653902194684259*^9, 
   3.6539022886062326`*^9, 3.655103796738694*^9, {3.6551042252439003`*^9, 
   3.655104246992024*^9}}],

Cell[BoxData["\<\"FeynArts 3.9 (23 Sep 2015)\"\>"], "Print",
 CellChangeTimes->{
  3.6538996867285757`*^9, 3.653899727126597*^9, 3.653902194684259*^9, 
   3.6539022886062326`*^9, 3.655103796738694*^9, {3.6551042252439003`*^9, 
   3.6551042469934883`*^9}}],

Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print",
 CellChangeTimes->{
  3.6538996867285757`*^9, 3.653899727126597*^9, 3.653902194684259*^9, 
   3.6539022886062326`*^9, 3.655103796738694*^9, {3.6551042252439003`*^9, 
   3.655104246994882*^9}}],

Cell[BoxData["\<\" - NLOCT - \"\>"], "Print",
 CellChangeTimes->{
  3.6538996867285757`*^9, 3.653899727126597*^9, 3.653902194684259*^9, 
   3.6539022886062326`*^9, 3.655103796738694*^9, {3.6551042252439003`*^9, 
   3.6551042471768847`*^9}}],

Cell[BoxData["\<\"Version: 1.02\"\>"], "Print",
 CellChangeTimes->{
  3.6538996867285757`*^9, 3.653899727126597*^9, 3.653902194684259*^9, 
   3.6539022886062326`*^9, 3.655103796738694*^9, {3.6551042252439003`*^9, 
   3.655104247178282*^9}}],

Cell[BoxData["\<\"Authors: C. Degrande\"\>"], "Print",
 CellChangeTimes->{
  3.6538996867285757`*^9, 3.653899727126597*^9, 3.653902194684259*^9, 
   3.6539022886062326`*^9, 3.655103796738694*^9, {3.6551042252439003`*^9, 
   3.655104247179542*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"QCD", " ", "only"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"WriteCT", "[", 
   RowBox[{"\"\<2HDM/2HDM\>\"", ",", "\"\<Lorentz\>\"", ",", 
    RowBox[{"Output", "->", "\"\<2HDM\>\""}], ",", 
    RowBox[{"LabelInternal", "\[Rule]", "True"}], ",", 
    RowBox[{"QCDOnly", "\[Rule]", "True"}], ",", 
    RowBox[{"KeptIndices", "\[Rule]", 
     RowBox[{"{", "}"}]}], ",", 
    RowBox[{"ZeroMom", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"aS", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"F", "[", "7", "]"}], ",", 
          RowBox[{"V", "[", "4", "]"}], ",", 
          RowBox[{"-", 
           RowBox[{"F", "[", "7", "]"}]}]}], "}"}], ",", "0"}], "}"}], 
      "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.606631812026607*^9, 3.606631844533699*^9}, {
  3.653899740083197*^9, 3.65389974397073*^9}, {3.653902965564106*^9, 
  3.6539029900016127`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902289454327*^9}],

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

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

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

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"classes\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", "\<\"/Users/degrande/FeynArts-3.9/2HDM/2HDM.mod\"\>"}],
  SequenceForm[
  "", "loading ", "classes", " model file ", 
   "/Users/degrande/FeynArts-3.9/2HDM/2HDM.mod"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902289569743*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "47", 
   "\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>", 
   "\[InvisibleSpace]", "27", "\[InvisibleSpace]", "\<\" classes\"\>"}],
  SequenceForm[
  "> ", 47, " particles (incl. antiparticles) in ", 27, " classes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902289589074*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "296", 
   "\[InvisibleSpace]", "\<\" vertices\"\>"}],
  SequenceForm["> ", 296, " vertices"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902289632277*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"2HDM/2HDM\"\>", "}"}], 
   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
  SequenceForm["classes model ", {"2HDM/2HDM"}, " initialized"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902289671197*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902289690765*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022897089787`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902289764379*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902289787118*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390228980886*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 0.291337\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902289868082*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902289905097*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902289925486*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902289945816*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022899651327`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902289982687*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902290002974*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022900221043`*^9}],

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

Cell[BoxData["\<\"SU3 algebra finished after 0.293682\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022900621567`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
0.293728\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022900783453`*^9}],

Cell[BoxData["\<\"Vertices {S} finished after 0.293776\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022900999403`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902290121793*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902290141358*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902290159793*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390229017689*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022902314377`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902290284072*^9}],

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

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

Cell[BoxData["\<\"Writing amplitude finished after 0.777195\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902290339889*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902290585849*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022906056356`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902290661268*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902290682967*^9}],

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

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

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

Cell[BoxData["\<\"SU3 algebra finished after 2.093350\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902291530168*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
2.507370\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902291928293*^9}],

Cell[BoxData["\<\"Vertices {F, F} finished after 2.507596\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022919481773`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902291970439*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022919897327`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902292009995*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902292664753*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902292689378*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022927148533`*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 3.257187\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022927400637`*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902292790415*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902292815873*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902292841083*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902292866082*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022928879147`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902292913468*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902292938732*^9}],

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

Cell[BoxData["\<\"SU3 algebra finished after 3.262367\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902292986289*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
3.262428\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902293011773*^9}],

Cell[BoxData["\<\"Vertices {S, S} finished after 3.262569\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902293031931*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022930503407`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902293070887*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902293127606*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902293218767*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902293240498*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022932631683`*^9}],

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

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

Cell[BoxData["\<\"Writing amplitude finished after 3.774286\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022933279533`*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902294290916*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539022943138514`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390229433416*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902294355925*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902294376693*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902294402026*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390229442723*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902294452126*^9}],

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

Cell[BoxData["\<\"SU3 algebra finished after 5.540863\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902294940599*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
6.063148\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902295472583*^9}],

Cell[BoxData["\<\"Vertices {V, V} finished after 6.063296\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902295497939*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902295523147*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902295547814*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902295570744*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 2554 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 2554 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390231168752*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539023117092037`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390231172847*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902311748126*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902312155223*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902312180252*^9}],

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

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

Cell[BoxData["\<\"Writing amplitude finished after 22.886535\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902312316649*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902312686737*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902312709567*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902312775249*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902312792144*^9}],

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

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

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

Cell[BoxData["\<\"SU3 algebra finished after 25.156721\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539023145562153`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
26.117973\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902315515895*^9}],

Cell[BoxData["\<\"Vertices {F, F, S} finished after 26.118334\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902315532372*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902315549739*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902315568922*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902315592683*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 1456 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 1456 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390232634699*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539023263690166`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902326391417*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902326413886*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902326639786*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902326662307*^9}],

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

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

Cell[BoxData["\<\"Writing amplitude finished after 37.562942\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902326985931*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902327691259*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902327714426*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539023277728662`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539023277926903`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902327810649*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390232782804*^9}],

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

Cell[BoxData["\<\"SU3 algebra finished after 40.351159\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539023297506323`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
40.911142\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539023303101587`*^9}],

Cell[BoxData["\<\"Vertices {F, F, V} finished after 40.911719\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902330330585*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902330350552*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902330367569*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902330386086*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390233372441*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539023337459917`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 267 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "3 Generic, 267 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390233428881*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902334308909*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902334327889*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539023343486547`*^9}],

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

Cell[BoxData["\<\"Writing amplitude finished after 44.938393\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902334392414*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902494305883*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902494328787*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539024943461237`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902494369822*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902494393978*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902494413447*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539024944329967`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902494455559*^9}],

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

Cell[BoxData["\<\"SU3 algebra finished after 208.116074\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902497518922*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
209.215681\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539024986163054`*^9}],

Cell[BoxData["\<\"Vertices {V, V, V} finished after 209.216040\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902498640654*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902498666757*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902498693837*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902498717939*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902503923058*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902503948015*^9}],

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

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

Cell[BoxData["\<\"Writing amplitude finished after 215.003758\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902504429309*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902505148953*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902505166503*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902505185252*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902505202094*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390250522421*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902505244823*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902505267291*^9}],

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

Cell[BoxData["\<\"SU3 algebra finished after 215.910436\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902505311152*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
216.009346\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902505408737*^9}],

Cell[BoxData["\<\"Vertices {V, V, S} finished after 216.009592\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539025054297657`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539025054520817`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902505470027*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902505494072*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902514346775*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902514370113*^9}],

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

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

Cell[BoxData["\<\"Writing amplitude finished after 225.283706\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902514707863*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902531609886*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390253163236*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902531653533*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539025316791677`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902531700411*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902531721929*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390253174135*^9}],

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

Cell[BoxData["\<\"SU3 algebra finished after 242.193452\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539025317820063`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
242.193499\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902531805709*^9}],

Cell[BoxData["\<\"Vertices {V, S, S} finished after 242.193640\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539025318267307`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902531846912*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539025318708*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902531888685*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539025485413733`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390254856649*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539025485885563`*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 259.144568\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539025486132917`*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902548660583*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902548680203*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902548704644*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902548723716*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539025487443666`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539025487655773`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902548790184*^9}],

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

Cell[BoxData["\<\"SU3 algebra finished after 259.148124\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539025488381243`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
259.148192\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902548862105*^9}],

Cell[BoxData["\<\"Vertices {S, S, S} finished after 259.148376\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902548886385*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902548906227*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902548983284*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902549002308*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902602101392*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902602122822*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539026024439573`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902602467801*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902602486664*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902602505417*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390260252877*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539026025488358`*^9}],

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1143 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "3 Generic, 1143 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539026104891577`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539026105142612`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902610537921*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902610558537*^9}],

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

Cell[BoxData["\<\"Writing amplitude finished after 321.595467\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902610994285*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902626468522*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902626492723*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902626516856*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902626535207*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902626557528*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902626578865*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539026265984087`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902626616054*^9}],

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

Cell[BoxData["\<\"SU3 algebra finished after 388.658964\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539026780591087`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
395.394563\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539026847947493`*^9}],

Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 395.394905\"\>"], \
"Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902684815289*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539026848368998`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902684900145*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539026849215393`*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902794869437*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539027948900146`*^9}],

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

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

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

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

Cell[BoxData["\<\"Writing amplitude finished after 513.070067\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390280247183*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902806211073*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902806230466*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390280625113*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539028062759647`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902806297217*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539028063199883`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902806345134*^9}],

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

Cell[BoxData["\<\"SU3 algebra finished after 518.315191\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902807715163*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
518.611475\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902808009754*^9}],

Cell[BoxData["\<\"Vertices {V, V, S, S} finished after 518.611772\"\>"], \
"Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902808029722*^9}],

Cell[BoxData[
 StyleBox["\<\"Computing CT for the {S, 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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539028080526867`*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
  SequenceForm[
  "Excluding ", 1, " Generic, ", 10, " Classes, and ", 10, 
   " Particles fields"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902808094123*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902808162341*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539028081797447`*^9}],

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

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

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

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

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 16346 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 7, ": ", "3 Generic, 16346 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653902970142941*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 16346 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "3 Generic, 16346 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903019258524*^9}],

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

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

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

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
  SequenceForm[
  "Restoring ", 1, " Generic, ", 10, " Classes, and ", 10, 
   " Particles fields"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903110077116*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903133184351*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903133207246*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903133224951*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 843.815465\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903133244523*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903133287169*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903133310523*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903133332613*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539031333555098`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539031333748693`*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903133396422*^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.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539031334192247`*^9}],

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

Cell[BoxData["\<\"SU3 algebra finished after 843.819656\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903133463565*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
843.819702\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.65390313348703*^9}],

Cell[BoxData["\<\"Vertices {S, S, S, S} finished after 843.819878\"\>"], \
"Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903133508039*^9}],

Cell[BoxData["\<\"before merge 843.830284 temp=1.138044\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903133528922*^9}],

Cell[BoxData["\<\"merging done 843.878845\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903133546526*^9}],

Cell[BoxData["\<\"Writing R2 and UV counterterms from 2HDM/2HDM and Lorentz \
in 2HDM.nlo\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.653903133566532*^9}],

Cell[BoxData["\<\"done\"\>"], "Print",
 CellChangeTimes->{3.6538997472182302`*^9, 3.6539021973709307`*^9, 
  3.6539031337646923`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"All", " ", "Corrections"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"WriteCT", "[", 
    RowBox[{"\"\<2HDMfull/2HDMfull\>\"", ",", "\"\<LorentzTadpole\>\"", ",", 
     RowBox[{"Output", "->", "\"\<2HDMfull\>\""}], ",", 
     RowBox[{"LabelInternal", "\[Rule]", "False"}], ",", 
     RowBox[{"QCDOnly", "\[Rule]", "False"}], ",", 
     RowBox[{"KeptIndices", "\[Rule]", 
      RowBox[{"{", "}"}]}], ",", 
     RowBox[{"CTparameters", "\[Rule]", "True"}], ",", 
     RowBox[{"ComplexMass", "\[Rule]", "True"}], ",", 
     RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"mhc", "!=", "0"}], ",", 
        RowBox[{"mh1", "!=", "0"}], ",", 
        RowBox[{"mh2", "!=", "0"}], ",", 
        RowBox[{"mh3", "!=", "0"}], ",", 
        RowBox[{"mh3", "\[NotEqual]", "mh2"}], ",", 
        RowBox[{"mh2", "\[NotEqual]", " ", "mh1"}], ",", 
        RowBox[{"MT", "!=", "0"}], ",", 
        RowBox[{"MZ", "!=", "0"}], ",", 
        RowBox[{"MW", "!=", "0"}], ",", 
        RowBox[{"mh1", "!=", "MT"}], ",", 
        RowBox[{"mh2", "!=", "MT"}], ",", 
        RowBox[{"mh3", "!=", "MT"}], ",", 
        RowBox[{"mhc", "\[NotEqual]", "MT"}], ",", 
        RowBox[{"MB", "\[NotEqual]", "MZ"}], ",", 
        RowBox[{"MB", "\[NotEqual]", "MW"}], ",", 
        RowBox[{"MT", "\[NotEqual]", "MZ"}], ",", 
        RowBox[{"MT", "\[NotEqual]", "MW"}], ",", 
        RowBox[{"mh1", "!=", "MB"}], ",", 
        RowBox[{"mh2", "!=", "MB"}], ",", 
        RowBox[{"mh3", "!=", "MB"}], ",", 
        RowBox[{"mhc", "\[NotEqual]", "MB"}], ",", 
        RowBox[{"mh1", "!=", "MW"}], ",", 
        RowBox[{"mh2", "!=", "MW"}], ",", 
        RowBox[{"mh3", "!=", "MW"}], ",", 
        RowBox[{"mhc", "\[NotEqual]", "MW"}], ",", 
        RowBox[{"mh1", "!=", "MZ"}], ",", 
        RowBox[{"mh2", "!=", "MZ"}], ",", 
        RowBox[{"mh3", "!=", "MZ"}], ",", 
        RowBox[{"mhc", "\[NotEqual]", "MZ"}], ",", 
        RowBox[{"MZ", "\[NotEqual]", "MW"}], ",", 
        RowBox[{"MB", "\[NotEqual]", "MT"}], ",", 
        RowBox[{"mh1", "\[NotEqual]", "mhc"}], ",", 
        RowBox[{"mh1", "\[NotEqual]", "mh3"}], ",", 
        RowBox[{"mh2", "\[NotEqual]", "mhc"}], ",", 
        RowBox[{"mh2", "\[NotEqual]", "mh3"}]}], "}"}]}]}], "]"}], "//", 
   "Timing", " "}]}]], "Input",
 CellChangeTimes->{
  3.546018039263568*^9, {3.5601098875522738`*^9, 3.560109890790258*^9}, {
   3.5601645050049543`*^9, 3.560164515386466*^9}, {3.5601645731365957`*^9, 
   3.5601645751252623`*^9}, {3.560164930476576*^9, 3.560164939163472*^9}, {
   3.560172693395529*^9, 3.560172694233309*^9}, 3.560172732410458*^9, {
   3.560621602972011*^9, 3.560621603564934*^9}, 3.563203454652876*^9, {
   3.56329268340104*^9, 3.563292688989945*^9}, {3.5649448910258837`*^9, 
   3.56494490267134*^9}, 3.567255126196335*^9, {3.569597023095971*^9, 
   3.5695970352850122`*^9}, 3.586791511225779*^9, 3.5912732058391314`*^9, {
   3.59264937098359*^9, 3.5926493720957603`*^9}, 3.594388622979652*^9, {
   3.595758608728765*^9, 3.5957586271510277`*^9}, {3.59790572042809*^9, 
   3.59790574406031*^9}, {3.597905775923222*^9, 3.5979057763950787`*^9}, {
   3.597906057276328*^9, 3.5979061020281487`*^9}, {3.598078934507669*^9, 
   3.598078944570553*^9}, {3.5980801884206467`*^9, 3.5980801889955683`*^9}, {
   3.598080477878993*^9, 3.598080505622426*^9}, {3.59808062223773*^9, 
   3.598080634374485*^9}, {3.5980808773492002`*^9, 3.598080959941841*^9}, {
   3.598081000733921*^9, 3.598081023430237*^9}, {3.5980812307270823`*^9, 
   3.59808123126088*^9}, {3.598081376839285*^9, 3.598081379165015*^9}, {
   3.598084785272973*^9, 3.598084812080247*^9}, {3.5980990859530373`*^9, 
   3.598099091230956*^9}, 3.598340950263831*^9, {3.599286411852786*^9, 
   3.5992865096805763`*^9}, {3.599293710897251*^9, 3.599293714969101*^9}, {
   3.599295066837051*^9, 3.599295234551105*^9}, {3.5992952686363153`*^9, 
   3.5992954193634367`*^9}, {3.599295891554522*^9, 3.599296019016604*^9}, {
   3.599302968973659*^9, 3.599303005216393*^9}, {3.599303485018878*^9, 
   3.599303491655465*^9}, {3.599478249905939*^9, 3.599478268730959*^9}, {
   3.599478364546812*^9, 3.5994783827801332`*^9}, {3.599479003569324*^9, 
   3.599479034455926*^9}, {3.5994791945446367`*^9, 3.599479268017482*^9}, {
   3.599804419465233*^9, 3.5998044202469254`*^9}, {3.599807138683332*^9, 
   3.599807140160709*^9}, {3.600496131706255*^9, 3.600496134911491*^9}, {
   3.600839164547018*^9, 3.600839165005457*^9}, {3.6060265573834057`*^9, 
   3.606026567494478*^9}, {3.606026633105403*^9, 3.6060266598135138`*^9}, {
   3.606631849134161*^9, 3.606631856557191*^9}, {3.6066318957732353`*^9, 
   3.6066319088734913`*^9}, {3.655103808520124*^9, 3.655103843895529*^9}, {
   3.655103875959846*^9, 3.655103877702527*^9}, 3.6551042405563707`*^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.65510381878344*^9, 3.65510384808044*^9}, {
  3.6551042290456038`*^9, 3.655104249706235*^9}}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, {
  3.6551042290456038`*^9, 3.655104249710682*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"generic\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/mt/home/degrande/FeynArts-3.9/Models/LorentzTadpole.gen\"\>"}],
  SequenceForm[
  "", "loading ", "generic", " model file ", 
   "/mt/home/degrande/FeynArts-3.9/Models/LorentzTadpole.gen"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, {
  3.6551042290456038`*^9, 3.6551042497120237`*^9}}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"LorentzTadpole\"\>", "}"}], 
   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
  SequenceForm["generic model ", {"LorentzTadpole"}, " initialized"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, {
  3.6551042290456038`*^9, 3.655104249714588*^9}}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, {
  3.6551042290456038`*^9, 3.6551042497158546`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"classes\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/mt/home/degrande/FeynArts-3.9/Models/2HDMfull/2HDMfull.mod\"\>"}],
  SequenceForm[
  "", "loading ", "classes", " model file ", 
   "/mt/home/degrande/FeynArts-3.9/Models/2HDMfull/2HDMfull.mod"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, {
  3.6551042290456038`*^9, 3.655104249717092*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "47", 
   "\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>", 
   "\[InvisibleSpace]", "27", "\[InvisibleSpace]", "\<\" classes\"\>"}],
  SequenceForm[
  "> ", 47, " particles (incl. antiparticles) in ", 27, " classes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551042607861137`*^9}],

Cell[BoxData["\<\"> $CounterTerms are ON\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551042615220423`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "296", 
   "\[InvisibleSpace]", "\<\" vertices\"\>"}],
  SequenceForm["> ", 296, " vertices"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551042615332813`*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"2HDMfull/2HDMfull\"\>", "}"}], 
   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
  SequenceForm["classes model ", {"2HDMfull/2HDMfull"}, " initialized"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104261708804*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551042617183*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551042617195187`*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 57 Classes insertions\"\>"}],
  SequenceForm["in total: ", "4 Generic, 57 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104261807912*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551042618091497`*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104261810411*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 57 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "4 Generic, 57 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104261813038*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 12.152976\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104261814283*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104262011723*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104262014886*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104262018754*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104262019978*^9}],

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

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

Cell[BoxData["\<\"Writing the symbolic CT finished after 12.331959\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551042620237827`*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 12.494939\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104262157837*^9}],

Cell[BoxData["\<\"Remove the following tadpole because it cannot be absorded \
in a tadpole counterterm :\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551042622731*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"S", "[", "6", "]"}], ",", "1"}], "}"}], "}"}], ",", 
   RowBox[{
    FractionBox[
     RowBox[{"3", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["MB", "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"GD3x3", " ", "TH3x3"}], 
         SqrtBox["2"]], "-", 
        FractionBox[
         RowBox[{"TH3x3", " ", 
          TemplateBox[{"GD3x3","\"*\""},
           "Superscript"]}], 
         SqrtBox["2"]]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"2", "-", "FR$Eps", "+", 
        RowBox[{"FR$Eps", " ", 
         RowBox[{"Log", "[", 
          FractionBox[
           SuperscriptBox["MB", "2"], 
           SuperscriptBox["FR$MU", "2"]], "]"}]}]}], ")"}]}], 
     RowBox[{"8", " ", "FR$Eps", " ", 
      SuperscriptBox["\[Pi]", "2"]}]], "+", 
    FractionBox[
     RowBox[{"3", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["MT", "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"GU3x3", " ", "TH3x3"}], 
          SqrtBox["2"]]}], "+", 
        FractionBox[
         RowBox[{"TH3x3", " ", 
          TemplateBox[{"GU3x3","\"*\""},
           "Superscript"]}], 
         SqrtBox["2"]]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"2", "-", "FR$Eps", "+", 
        RowBox[{"FR$Eps", " ", 
         RowBox[{"Log", "[", 
          FractionBox[
           SuperscriptBox["MT", "2"], 
           SuperscriptBox["FR$MU", "2"]], "]"}]}]}], ")"}]}], 
     RowBox[{"8", " ", "FR$Eps", " ", 
      SuperscriptBox["\[Pi]", "2"]}]]}]}], "}"}]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104262276703*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
13.002616\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551042626738367`*^9}],

Cell[BoxData["\<\"Vertices {S} finished after 13.002768\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551042626752977`*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104262676588*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104262677842*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104262679099*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104262680389*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 170 Classes insertions\"\>"}],
  SequenceForm["in total: ", "2 Generic, 170 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65510426323809*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104263342146*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551042633500423`*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 170 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "2 Generic, 170 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104263599633*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 13.940131\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104263600955*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104265321912*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104265330124*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104265423543*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104265424852*^9}],

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

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

Cell[BoxData["\<\"Writing the symbolic CT finished after 16.065617\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551042657964087`*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 21.428572\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551042710886793`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
81.500303\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104331170129*^9}],

Cell[BoxData["\<\"Vertices {F, F} finished after 81.500590\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551043311718073`*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104331173361*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551043311747103`*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104331178789*^9}],

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"7 Generic, 499 Classes insertions\"\>"}],
  SequenceForm["in total: ", "7 Generic, 499 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551043319982443`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104332079919*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104332082402*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"5 Generic, 373 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "5 Generic, 373 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104332665976*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"7 Generic, 499 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "7 Generic, 499 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104332677916*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 83.020505\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104332759913*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104335378146*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551043354733877`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551043354834833`*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551043354849*^9}],

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

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

Cell[BoxData["\<\"Writing the symbolic CT finished after 85.838572\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551043355792093`*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 93.412105\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551043430717077`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
621.020713\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104870680304*^9}],

Cell[BoxData["\<\"Vertices {S, S} finished after 621.024003\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104870750292*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104870752182*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551048707537003`*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551048707551622`*^9}],

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"7 Generic, 231 Classes insertions\"\>"}],
  SequenceForm["in total: ", "7 Generic, 231 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551048711103897`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104871111951*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65510487111341*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"5 Generic, 184 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "5 Generic, 184 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104871394013*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"7 Generic, 231 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "7 Generic, 231 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551048713982277`*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 621.743805\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104871484498*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551048753973627`*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104875399125*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104875475788*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551048754772577`*^9}],

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

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

Cell[BoxData["\<\"Writing the symbolic CT finished after 625.798933\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104875491592*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 630.888855\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655104880548502*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
801.829287\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105051488925*^9}],

Cell[BoxData["\<\"Vertices {V, V} finished after 801.832554\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105051659734*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65510505166152*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551050516740513`*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105051675692*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 2554 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 2554 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105073378087*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105073390253*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105073391985*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105073398354*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 2554 Classes insertions\"\>"}],
  SequenceForm["in total: ", "6 Generic, 2554 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105073400037*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105073534009*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105073542077*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 2554 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "6 Generic, 2554 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105080690195*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 830.951174\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105080692114*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65510509478388*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105094785707*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105094980134*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65510509498168*^9}],

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

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

Cell[BoxData["\<\"Writing the symbolic CT finished after 849.503667\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105099163725*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 896.162284\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655105145821959*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after 8140.094217\"\
\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65511238975421*^9}],

Cell[BoxData["\<\"Vertices {F, F, S} finished after 8140.095366\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112389756419*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112389758395*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65511238975998*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551123897616987`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 1456 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 1456 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112403968974*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112403971324*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112403973259*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112403975576*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 1456 Classes insertions\"\>"}],
  SequenceForm["in total: ", "6 Generic, 1456 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112404050989*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112404127316*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112404129114*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 1456 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "6 Generic, 1456 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112407738523*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 8158.107269\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112407813909*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112413802351*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551124138048677`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112414025957*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112414027697*^9}],

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

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

Cell[BoxData["\<\"Writing the symbolic CT finished after 8165.619256\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551124152789707`*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 8181.761310\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551124314210577`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after 8211.614418\"\
\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112461274207*^9}],

Cell[BoxData["\<\"Vertices {F, F, V} finished after 8211.616148\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551124612766542`*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112461278655*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65511246128084*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112461282794*^9}],

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

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

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"16 Generic, 1658 Classes insertions\"\>"}],
  SequenceForm["in total: ", "16 Generic, 1658 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112465631268*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112465707364*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112465709401*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 101 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 101 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551124683938007`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 101 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 101 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112468505312*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 101 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 101 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112468617386*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"16 Generic, 1658 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "16 Generic, 1658 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112468692494*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 8219.028058\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112468694426*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112668235626*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112668237862*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112668316476*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112668318272*^9}],

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

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

Cell[BoxData["\<\"Writing the symbolic CT finished after 8418.631612\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112668323658*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 8423.214302\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112672874083*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after 8431.561376\"\
\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551126812211437`*^9}],

Cell[BoxData["\<\"Vertices {V, V, V} finished after 8431.562631\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112681223752*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65511268122582*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112681227912*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112681229801*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112687645158*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112687647078*^9}],

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

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 196 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 196 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112692887383*^9}],

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

Cell[BoxData["\<\"Writing amplitude finished after 8443.338264\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112693038144*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551127002538643`*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551127002564087`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112700334091*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112700335938*^9}],

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

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

Cell[BoxData["\<\"Writing the symbolic CT finished after 8451.830082\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655112701489894*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 8467.149635\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551127168094807`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after 9019.462922\"\
\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551132691227818`*^9}],

Cell[BoxData["\<\"Vertices {V, V, S} finished after 9019.463685\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113269125484*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551132691275387`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113269129496*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113269131472*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113280040245*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551132800429897`*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 372 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 372 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113288955209*^9}],

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

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

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

Cell[BoxData["\<\"Writing amplitude finished after 9039.971180\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113289631042*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113329503747*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113329506446*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113329588324*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551133295903053`*^9}],

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

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

Cell[BoxData["\<\"Writing the symbolic CT finished after 9082.123941\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113331783801*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 9109.530056\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113359190016*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after 9682.245300\"\
\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113931905501*^9}],

Cell[BoxData["\<\"Vertices {V, S, S} finished after 9682.246882\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113931907756*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113931909935*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65511393191188*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113931914029*^9}],

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

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

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"16 Generic, 10236 Classes insertions\"\>"}],
  SequenceForm["in total: ", "16 Generic, 10236 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551139537966213`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113954205271*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113954208076*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 864 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 864 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113973025064*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 864 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 864 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551139742579813`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 864 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 864 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113975494171*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"16 Generic, 10236 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "16 Generic, 10236 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113975573678*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 9726.218504\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113975878409*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65511398195569*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113981958115*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655113982040547*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551139820425663`*^9}],

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

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

Cell[BoxData["\<\"Writing the symbolic CT finished after 9830.704900\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551140803648357`*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 10614.988891\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655114864648897*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
45255.745515\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551495054236298`*^9}],

Cell[BoxData["\<\"Vertices {S, S, S} finished after 45255.765076\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149505426402*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149505428886*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551495055709867`*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149505575863*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65514950557836*^9}],

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

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

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

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

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

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 4383 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "4 Generic, 4383 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551495489793453`*^9}],

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 11, ": ", "2 Generic, 559 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65514956762533*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 12, ": ", "2 Generic, 559 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149568844359*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551495688474092`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551495701426067`*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149570145685*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 1181 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149574800009*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 1181 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149576418223*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 1181 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551495780540037`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 5, ": ", "2 Generic, 1181 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551495796974382`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 1181 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 6, ": ", "2 Generic, 1181 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65514958133498*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 4383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 7, ": ", "4 Generic, 4383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551495927164917`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 4383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "4 Generic, 4383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149604334764*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 4383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "4 Generic, 4383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149615783753*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 10, ": ", "2 Generic, 559 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149616398129*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 11, ": ", "2 Generic, 559 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149617012302*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 559 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 12, ": ", "2 Generic, 559 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551496176267433`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"30 Generic, 21912 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "30 Generic, 21912 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149617756374*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 45368.938355\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65514961859836*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149650619125*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551496506221657`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551496507049847`*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149650707143*^9}],

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

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

Cell[BoxData["\<\"Writing the symbolic CT finished after 45401.156140\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149650841187*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 45424.541408\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65514967420152*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
45441.803878\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551496914638567`*^9}],

Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 45441.805051\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149691466604*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149691468948*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551496915953608`*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149691600925*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149691603375*^9}],

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

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

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

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

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

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 7190 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "4 Generic, 7190 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65514978990795*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149823760747*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"28 Generic, 40364 Classes insertions\"\>"}],
  SequenceForm["in total: ", "28 Generic, 40364 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551498239781513`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551498264124823`*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149826415572*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 2340 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149837880108*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 2340 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149840903366*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 2340 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551498439520283`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 2340 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 5, ": ", "2 Generic, 2340 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149847027347*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 2724 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 6, ": ", "2 Generic, 2724 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149851175487*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 7190 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 7, ": ", "4 Generic, 7190 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149868920782*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 7190 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "4 Generic, 7190 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149886979392*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 6164 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "4 Generic, 6164 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149903051091*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 1560 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 10, ": ", "2 Generic, 1560 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149904569626*^9}],

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"28 Generic, 40364 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "28 Generic, 40364 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551499062173986`*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 45657.872784\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655149907532879*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655150016124667*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655150016127879*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655150016353207*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551500163556223`*^9}],

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

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

Cell[BoxData["\<\"Writing the symbolic CT finished after 45772.301761\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655150021962407*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 45854.907933\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551501045680513`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
48301.781554\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655152551441763*^9}],

Cell[BoxData["\<\"Vertices {V, V, S, S} finished after 48301.785756\"\>"], \
"Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.65515255152418*^9}],

Cell[BoxData["\<\"before merge 48301.862432 temp=4.321274\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655152551526741*^9}],

Cell[BoxData["\<\"merging done 48314.073015\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.655152563733143*^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.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551525640325613`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "aEWM1", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", 
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "aS", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", 
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "GDR1x1", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", 
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "GDR2x2", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", 
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "GDR3x3", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", 
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "GLR1x1", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", 
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "GLR2x2", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", 
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "GLR3x3", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", 
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "GUR1x1", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", 
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "GUR2x2", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", 
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "GUR3x3", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", 
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "l3", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", 
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "lR7", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", 
   RowBox[{"FR$delta", "[", 
    RowBox[{
     RowBox[{"{", "mixh", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551525640361023`*^9}],

Cell[BoxData["\<\"Writing R2 and UV counterterms from 2HDMfull/2HDMfull and \
LorentzTadpole in 2HDMfull.nlo\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551525925456953`*^9}],

Cell[BoxData["\<\"done\"\>"], "Print",
 CellChangeTimes->{{3.65510381878344*^9, 3.65510384808044*^9}, 
   3.6551042290456038`*^9, 3.6551526059302073`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"48414.493717`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.655103801649384*^9, 3.655103824980661*^9}, 
   3.65510387358714*^9, 3.65510422933871*^9, 3.655152606479745*^9}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The 2HDM UFO", "Subtitle",
 CellChangeTimes->{{3.5692406355325527`*^9, 3.569240649591064*^9}}],

Cell["We first load FeynRules and the 2HDM model-file", "Text",
 CellChangeTimes->{{3.606632031679335*^9, 3.6066320541975517`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Leading", " ", "order", " ", "only"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"WriteUFO", "[", 
    RowBox[{"L2HDM", ",", 
     RowBox[{"Output", "\[Rule]", "\"\<2HDM\>\""}]}], "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.4921598836918983`*^9, 3.4921598930602713`*^9}, {
   3.518717107647251*^9, 3.5187171284510603`*^9}, {3.518923040425396*^9, 
   3.5189230414329653`*^9}, {3.518923142134761*^9, 3.5189231442588797`*^9}, {
   3.5189240537198353`*^9, 3.518924054445438*^9}, {3.5200814006715508`*^9, 
   3.520081421853283*^9}, {3.538814053499845*^9, 3.538814062035089*^9}, {
   3.5394903931424522`*^9, 3.53949042140246*^9}, {3.539491327680583*^9, 
   3.5394913331726923`*^9}, {3.539491617221081*^9, 3.5394916173239403`*^9}, {
   3.539491653329705*^9, 3.539491655169097*^9}, {3.539491689856505*^9, 
   3.53949169080725*^9}, 3.5394928186835957`*^9, 3.5394938700858097`*^9, {
   3.5394973863667994`*^9, 3.5394973953879347`*^9}, {3.539500346534834*^9, 
   3.539500346894058*^9}, {3.542425772720405*^9, 3.542425775647977*^9}, {
   3.553411799718648*^9, 3.5534118132146187`*^9}, {3.55341190749333*^9, 
   3.5534119090329437`*^9}, {3.563298033874341*^9, 3.563298058272737*^9}, {
   3.563298320359173*^9, 3.563298324229212*^9}, {3.5632992237531*^9, 
   3.563299239127314*^9}, {3.5640507810434923`*^9, 3.564050808154093*^9}, {
   3.564051439846299*^9, 3.564051442676675*^9}, {3.569240599437001*^9, 
   3.5692406011789837`*^9}, {3.569673115293296*^9, 3.569673128930167*^9}, {
   3.5696734651309032`*^9, 3.569673469670471*^9}, {3.569689575592909*^9, 
   3.56968957873048*^9}, {3.5765974358425207`*^9, 3.576597441869588*^9}, {
   3.578952678138735*^9, 3.578952725424076*^9}, {3.592659982479932*^9, 
   3.5926600006207047`*^9}, {3.595855989166492*^9, 3.595855998669067*^9}, 
   3.598002318864501*^9, {3.605353058707179*^9, 3.605353061778391*^9}, {
   3.606025564088594*^9, 3.6060255755323877`*^9}, {3.606025981760201*^9, 
   3.6060259829596653`*^9}, {3.60663206569558*^9, 3.606632086455121*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.598002322965044*^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.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.598002334728902*^9}],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.5980023347341833`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.598002334738999*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "311", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{225., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "311", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  311, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 311, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.598002426971385*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"307", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[307, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.598002483660603*^9}],

Cell[BoxData["\<\"before return of FR 187.001099\"\>"], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.598002483666133*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{171., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "307"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 2, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 307],
  Editable->False]], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.5980025028754377`*^9}],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.598002519666737*^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.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.598002519792296*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{153., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "113"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 113],
  Editable->False]], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.5980025198412733`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "1.2481680000000068`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm[
  "Squared matrix elent compute in ", 1.2481680000000068`, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.598002527868059*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{153., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "111"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 111],
  Editable->False]], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.598002527919911*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "1.0152269999999959`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 1.0152269999999959`, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.598002530352463*^9}],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.5980025304007196`*^9}],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.5980025310301723`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.598002531157934*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{261., {3., 11.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "361", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 361, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.59585601201167*^9, 3.595856673897977*^9, 
  3.598002218870007*^9, 3.5980025343753357`*^9}],

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

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"87.605474`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.595856235597649*^9, 3.595862438617464*^9, 
  3.598002220749357*^9, 3.5980025417341843`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"With", " ", "NLO", " ", "QCD", " ", "counterterms"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Get", "[", "\"\<2HDM.nlo\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"WriteUFO", "[", 
      RowBox[{"L2HDM", ",", 
       RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",", 
       RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", 
       RowBox[{"AddDecays", "\[Rule]", "True"}], ",", 
       RowBox[{"Output", "\[Rule]", "\"\<2HDM_NLO\>\""}]}], "]"}], ";"}], "//",
     "Timing"}]}]}]], "Input",
 CellChangeTimes->{{3.4921598836918983`*^9, 3.4921598930602713`*^9}, {
   3.518717107647251*^9, 3.5187171284510603`*^9}, {3.518923040425396*^9, 
   3.5189230414329653`*^9}, {3.518923142134761*^9, 3.5189231442588797`*^9}, {
   3.5189240537198353`*^9, 3.518924054445438*^9}, {3.5200814006715508`*^9, 
   3.520081421853283*^9}, {3.538814053499845*^9, 3.538814062035089*^9}, {
   3.5394903931424522`*^9, 3.53949042140246*^9}, {3.539491327680583*^9, 
   3.5394913331726923`*^9}, {3.539491617221081*^9, 3.5394916173239403`*^9}, {
   3.539491653329705*^9, 3.539491655169097*^9}, {3.539491689856505*^9, 
   3.53949169080725*^9}, 3.5394928186835957`*^9, 3.5394938700858097`*^9, {
   3.5394973863667994`*^9, 3.5394973953879347`*^9}, {3.539500346534834*^9, 
   3.539500346894058*^9}, {3.542425772720405*^9, 3.542425775647977*^9}, {
   3.553411799718648*^9, 3.5534118132146187`*^9}, {3.55341190749333*^9, 
   3.5534119090329437`*^9}, {3.563298033874341*^9, 3.563298058272737*^9}, {
   3.563298320359173*^9, 3.563298324229212*^9}, {3.5632992237531*^9, 
   3.563299239127314*^9}, {3.5640507810434923`*^9, 3.564050808154093*^9}, {
   3.564051439846299*^9, 3.564051442676675*^9}, {3.569240599437001*^9, 
   3.5692406011789837`*^9}, {3.569673115293296*^9, 3.569673128930167*^9}, {
   3.5696734651309032`*^9, 3.569673469670471*^9}, {3.569689575592909*^9, 
   3.56968957873048*^9}, {3.5765974358425207`*^9, 3.576597441869588*^9}, {
   3.578952678138735*^9, 3.578952725424076*^9}, {3.592659982479932*^9, 
   3.5926600006207047`*^9}, {3.603198608068701*^9, 3.60319860900089*^9}, {
   3.605264518245154*^9, 3.60526451862433*^9}, {3.6053530651164827`*^9, 
   3.605353078428363*^9}, {3.605413902957405*^9, 3.605413908970736*^9}, {
   3.6060255520616093`*^9, 3.606025601649279*^9}, {3.606025985431686*^9, 
   3.606025986488542*^9}, {3.60663207985837*^9, 3.606632092400641*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.6539031718740263`*^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.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.653903179736124*^9}],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.653903179746482*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.653903179754738*^9}],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.653903208935589*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "176", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "176", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  176, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 176, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.6539032092042093`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"148", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[148, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.653903226195139*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "230"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 2, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 230],
  Editable->False]], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.6539032454359407`*^9}],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.653903297020376*^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.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.653903298151157*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "206"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 206],
  Editable->False]], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.653903298200186*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "25.447502`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 25.447502, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.6539034328154993`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{20., {0., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "203"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 203],
  Editable->False]], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.6539034328251038`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "53.81798`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 53.81798, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.653903490269908*^9}],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.653903490281638*^9}],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.653903492773464*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.653903494032815*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{291., {2., 11.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "490", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 490, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.6539035112325172`*^9}],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.6539035180155497`*^9}],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.596385875785219*^9, 3.6031986227583637`*^9, 
  3.603622861771392*^9, 3.6052645322261887`*^9, 3.605340726844709*^9, 
  3.605352401978788*^9, 3.605353101806911*^9, 3.6053567559722767`*^9, 
  3.605413919440337*^9, 3.605414356332066*^9, 3.6054151863607683`*^9, 
  3.6054157755365877`*^9, 3.605418923179934*^9, 3.653900784736306*^9, 
  3.653903524447064*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"203.816891`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.592660648743602*^9, 3.5927165596272*^9, 
  3.594450178755789*^9, 3.5945626437675533`*^9, 3.5946415037213097`*^9, 
  3.5963857895989923`*^9, 3.596386987366722*^9, 3.6031992709061737`*^9, 
  3.60362352981682*^9, 3.6052650343153133`*^9, 3.605341148980257*^9, 
  3.6053528285282497`*^9, 3.6053531411828413`*^9, 3.605406988735208*^9, 
  3.605414175547304*^9, 3.605414611553437*^9, 3.605415418501418*^9, 
  3.605416019504331*^9, 3.605419182945566*^9, 3.6539009472044897`*^9, 
  3.6539035244576817`*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
WindowSize->{1276, 756},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
Magnification->1.25,
FrontEndVersion->"10.2 for Linux x86 (64-bit) (July 29, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 120, 1, 120, "Title"],
Cell[690, 25, 318, 5, 38, "Input"],
Cell[CellGroupData[{
Cell[1033, 34, 90, 1, 65, "Subtitle"],
Cell[CellGroupData[{
Cell[1148, 39, 1289, 22, 114, "Input"],
Cell[CellGroupData[{
Cell[2462, 65, 2512, 35, 28, "Print"],
Cell[4977, 102, 2793, 42, 28, "Print"],
Cell[7773, 146, 2566, 36, 28, "Print"],
Cell[10342, 184, 2498, 35, 28, "Print"],
Cell[12843, 221, 2511, 35, 28, "Print"],
Cell[15357, 258, 2563, 36, 28, "Print"],
Cell[17923, 296, 2561, 36, 28, "Print"],
Cell[20487, 334, 2500, 35, 28, "Print"],
Cell[22990, 371, 2528, 35, 28, "Print"],
Cell[25521, 408, 2498, 35, 28, "Print"],
Cell[28022, 445, 2565, 36, 28, "Print"],
Cell[30590, 483, 2537, 35, 28, "Print"],
Cell[33130, 520, 2504, 35, 28, "Print"],
Cell[35637, 557, 2509, 35, 28, "Print"],
Cell[38149, 594, 2508, 35, 28, "Print"],
Cell[40660, 631, 2643, 39, 28, "Print"],
Cell[43306, 672, 2545, 36, 28, "Print"],
Cell[45854, 710, 2545, 36, 28, "Print"],
Cell[48402, 748, 2496, 35, 28, "Print"],
Cell[50901, 785, 2529, 35, 28, "Print"],
Cell[53433, 822, 2532, 35, 28, "Print"],
Cell[55968, 859, 2528, 35, 28, "Print"],
Cell[58499, 896, 2689, 40, 52, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[61237, 942, 186, 3, 38, "Input"],
Cell[CellGroupData[{
Cell[61448, 949, 1454, 24, 28, "Print"],
Cell[62905, 975, 978, 14, 28, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[63932, 995, 403, 6, 38, "Input"],
Cell[CellGroupData[{
Cell[64360, 1005, 1395, 23, 28, "Print"],
Cell[65758, 1030, 925, 13, 28, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[66732, 1049, 309, 4, 38, "Input"],
Cell[CellGroupData[{
Cell[67066, 1057, 1389, 23, 28, "Print"],
Cell[68458, 1082, 913, 13, 28, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[69432, 1102, 91, 1, 65, "Subtitle"],
Cell[CellGroupData[{
Cell[69548, 1107, 206, 4, 70, "Input"],
Cell[CellGroupData[{
Cell[69779, 1115, 228, 3, 50, "Print"],
Cell[70010, 1120, 224, 3, 50, "Print"],
Cell[70237, 1125, 419, 10, 50, "Print"],
Cell[70659, 1137, 174, 2, 50, "Print"],
Cell[70836, 1141, 356, 7, 50, "Print"],
Cell[71195, 1150, 206, 3, 50, "Print"],
Cell[71404, 1155, 167, 2, 50, "Print"],
Cell[71574, 1159, 287, 6, 50, "Print"],
Cell[71864, 1167, 175, 2, 50, "Print"]
}, Open  ]],
Cell[72054, 1172, 160, 3, 66, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72251, 1180, 281, 5, 70, "Input"],
Cell[CellGroupData[{
Cell[72557, 1189, 446, 9, 50, "Print"],
Cell[73006, 1200, 223, 3, 50, "Print"],
Cell[73232, 1205, 496, 11, 50, "Print"],
Cell[73731, 1218, 482, 10, 50, "Print"],
Cell[74216, 1230, 502, 11, 50, "Print"],
Cell[74721, 1243, 218, 3, 50, "Print"],
Cell[74942, 1248, 259, 4, 50, "Print"]
}, Open  ]],
Cell[75216, 1255, 19123, 475, 1213, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[94388, 1736, 219, 3, 65, "Subtitle"],
Cell[CellGroupData[{
Cell[94632, 1743, 1167, 23, 64, "Input"],
Cell[CellGroupData[{
Cell[95824, 1770, 396, 6, 28, "Print"],
Cell[96223, 1778, 591, 11, 28, "Print"],
Cell[96817, 1791, 366, 5, 28, "Print"],
Cell[97186, 1798, 381, 5, 28, "Print"],
Cell[97570, 1805, 367, 5, 28, "Print"],
Cell[97940, 1812, 363, 5, 28, "Print"],
Cell[98306, 1819, 383, 5, 28, "Print"],
Cell[98692, 1826, 376, 5, 28, "Print"],
Cell[99071, 1833, 368, 5, 28, "Print"],
Cell[99442, 1840, 359, 5, 28, "Print"],
Cell[99804, 1847, 355, 5, 28, "Print"]
}, Open  ]],
Cell[100174, 1855, 386, 7, 38, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[100597, 1867, 2275, 34, 56, "Input"],
Cell[CellGroupData[{
Cell[102897, 1905, 120, 1, 28, "Print"],
Cell[103020, 1908, 107, 1, 28, "Print"],
Cell[103130, 1911, 109, 1, 28, "Print"],
Cell[103242, 1914, 254, 6, 28, "Print"],
Cell[103499, 1922, 254, 6, 28, "Print"],
Cell[103756, 1930, 162, 2, 28, "Print"],
Cell[103921, 1934, 142, 2, 28, "Print"],
Cell[104066, 1938, 144, 2, 28, "Print"],
Cell[104213, 1942, 254, 6, 28, "Print"],
Cell[104470, 1950, 358, 9, 28, "Print"],
Cell[104831, 1961, 103, 1, 28, "Print"],
Cell[104937, 1964, 287, 6, 28, "Print"],
Cell[105227, 1972, 136, 2, 28, "Print"],
Cell[105366, 1976, 621, 13, 28, "Print"],
Cell[105990, 1991, 220, 5, 28, "Print"],
Cell[106213, 1998, 284, 6, 28, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[106546, 2010, 4909, 73, 81, "Input"],
Cell[CellGroupData[{
Cell[111480, 2087, 706, 10, 28, "Print"],
Cell[112189, 2099, 708, 10, 28, "Print"],
Cell[112900, 2111, 903, 15, 28, "Print"],
Cell[113806, 2128, 676, 9, 28, "Print"],
Cell[114485, 2139, 696, 9, 28, "Print"],
Cell[115184, 2150, 682, 9, 28, "Print"],
Cell[115869, 2161, 678, 9, 28, "Print"],
Cell[116550, 2172, 695, 9, 28, "Print"],
Cell[117248, 2183, 686, 9, 28, "Print"],
Cell[117937, 2194, 680, 9, 28, "Print"],
Cell[118620, 2205, 671, 9, 28, "Print"],
Cell[119294, 2216, 671, 9, 28, "Print"],
Cell[119968, 2227, 666, 9, 28, "Print"]
}, Open  ]],
Cell[120649, 2239, 497, 8, 38, "Output"]
}, Open  ]],
Cell[121161, 2250, 132, 2, 38, "Input"],
Cell[121296, 2254, 168, 4, 38, "Input"],
Cell[121467, 2260, 470, 11, 89, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[121974, 2276, 114, 1, 65, "Subtitle"],
Cell[122091, 2279, 120, 2, 38, "Input"],
Cell[CellGroupData[{
Cell[122236, 2285, 595, 14, 139, "Input"],
Cell[CellGroupData[{
Cell[122856, 2303, 227, 4, 28, "Print"],
Cell[123086, 2309, 255, 4, 28, "Print"],
Cell[123344, 2315, 272, 4, 28, "Print"],
Cell[123619, 2321, 240, 4, 28, "Print"],
Cell[123862, 2327, 240, 4, 28, "Print"],
Cell[124105, 2333, 247, 4, 28, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[124401, 2343, 954, 24, 89, "Input"],
Cell[CellGroupData[{
Cell[125380, 2371, 369, 9, 50, "Print"],
Cell[125752, 2382, 129, 2, 50, "Print"],
Cell[125884, 2386, 519, 12, 50, "Print"],
Cell[126406, 2400, 150, 2, 50, "Print"],
Cell[126559, 2404, 370, 8, 50, "Print"],
Cell[126932, 2414, 126, 2, 50, "Print"],
Cell[127061, 2418, 505, 11, 50, "Print"],
Cell[127569, 2431, 439, 9, 50, "Print"],
Cell[128011, 2442, 149, 2, 50, "Print"],
Cell[128163, 2446, 296, 7, 50, "Print"],
Cell[128462, 2455, 326, 7, 50, "Print"],
Cell[128791, 2464, 374, 8, 50, "Print"],
Cell[129168, 2474, 127, 2, 50, "Print"],
Cell[129298, 2478, 362, 8, 50, "Print"],
Cell[129663, 2488, 393, 8, 50, "Print"],
Cell[130059, 2498, 325, 7, 50, "Print"],
Cell[130387, 2507, 127, 2, 50, "Print"],
Cell[130517, 2511, 383, 9, 50, "Print"],
Cell[130903, 2522, 322, 7, 50, "Print"],
Cell[131228, 2531, 168, 2, 50, "Print"],
Cell[131399, 2535, 201, 3, 50, "Print"],
Cell[131603, 2540, 127, 2, 50, "Print"],
Cell[131733, 2544, 360, 8, 50, "Print"],
Cell[132096, 2554, 391, 8, 50, "Print"],
Cell[132490, 2564, 325, 7, 50, "Print"],
Cell[132818, 2573, 127, 2, 50, "Print"],
Cell[132948, 2577, 383, 9, 50, "Print"],
Cell[133334, 2588, 325, 7, 50, "Print"],
Cell[133662, 2597, 176, 3, 50, "Print"],
Cell[133841, 2602, 164, 2, 50, "Print"],
Cell[134008, 2606, 185, 3, 50, "Print"],
Cell[134196, 2611, 165, 2, 50, "Print"],
Cell[134364, 2615, 372, 9, 50, "Print"],
Cell[134739, 2626, 127, 2, 50, "Print"],
Cell[134869, 2630, 360, 8, 50, "Print"],
Cell[135232, 2640, 390, 8, 50, "Print"],
Cell[135625, 2650, 395, 8, 50, "Print"],
Cell[136023, 2660, 329, 7, 50, "Print"],
Cell[136355, 2669, 129, 2, 50, "Print"],
Cell[136487, 2673, 383, 9, 50, "Print"],
Cell[136873, 2684, 393, 8, 50, "Print"],
Cell[137269, 2694, 327, 7, 50, "Print"],
Cell[137599, 2703, 168, 2, 50, "Print"],
Cell[137770, 2707, 198, 3, 50, "Print"],
Cell[137971, 2712, 127, 2, 50, "Print"],
Cell[138101, 2716, 362, 8, 50, "Print"],
Cell[138466, 2726, 393, 8, 50, "Print"],
Cell[138862, 2736, 327, 7, 50, "Print"],
Cell[139192, 2745, 127, 2, 50, "Print"],
Cell[139322, 2749, 383, 9, 50, "Print"],
Cell[139708, 2760, 393, 8, 50, "Print"],
Cell[140104, 2770, 327, 7, 50, "Print"],
Cell[140434, 2779, 178, 3, 50, "Print"],
Cell[140615, 2784, 162, 2, 50, "Print"],
Cell[140780, 2788, 183, 3, 50, "Print"],
Cell[140966, 2793, 168, 2, 50, "Print"],
Cell[141137, 2797, 372, 9, 50, "Print"],
Cell[141512, 2808, 129, 2, 50, "Print"],
Cell[141644, 2812, 360, 8, 50, "Print"],
Cell[142007, 2822, 395, 8, 50, "Print"],
Cell[142405, 2832, 395, 8, 50, "Print"],
Cell[142803, 2842, 327, 7, 50, "Print"],
Cell[143133, 2851, 127, 2, 50, "Print"],
Cell[143263, 2855, 383, 9, 50, "Print"],
Cell[143649, 2866, 325, 7, 50, "Print"],
Cell[143977, 2875, 170, 2, 50, "Print"],
Cell[144150, 2879, 199, 3, 50, "Print"],
Cell[144352, 2884, 127, 2, 50, "Print"],
Cell[144482, 2888, 360, 8, 50, "Print"],
Cell[144845, 2898, 391, 8, 50, "Print"],
Cell[145239, 2908, 323, 7, 50, "Print"],
Cell[145565, 2917, 129, 2, 50, "Print"],
Cell[145697, 2921, 383, 9, 50, "Print"],
Cell[146083, 2932, 323, 7, 50, "Print"],
Cell[146409, 2941, 176, 3, 50, "Print"],
Cell[146588, 2946, 162, 2, 50, "Print"],
Cell[146753, 2950, 183, 3, 50, "Print"],
Cell[146939, 2955, 166, 2, 50, "Print"],
Cell[147108, 2959, 374, 9, 50, "Print"],
Cell[147485, 2970, 127, 2, 50, "Print"],
Cell[147615, 2974, 360, 8, 50, "Print"],
Cell[147978, 2984, 393, 8, 50, "Print"],
Cell[148374, 2994, 395, 8, 50, "Print"],
Cell[148772, 3004, 327, 7, 50, "Print"],
Cell[149102, 3013, 127, 2, 50, "Print"],
Cell[149232, 3017, 383, 9, 50, "Print"],
Cell[149618, 3028, 393, 8, 50, "Print"],
Cell[150014, 3038, 393, 8, 50, "Print"],
Cell[150410, 3048, 327, 7, 50, "Print"],
Cell[150740, 3057, 170, 2, 50, "Print"],
Cell[150913, 3061, 199, 3, 50, "Print"],
Cell[151115, 3066, 127, 2, 50, "Print"],
Cell[151245, 3070, 362, 8, 50, "Print"],
Cell[151610, 3080, 390, 8, 50, "Print"],
Cell[152003, 3090, 323, 7, 50, "Print"],
Cell[152329, 3099, 127, 2, 50, "Print"],
Cell[152459, 3103, 383, 9, 50, "Print"],
Cell[152845, 3114, 390, 8, 50, "Print"],
Cell[153238, 3124, 323, 7, 50, "Print"],
Cell[153564, 3133, 178, 3, 50, "Print"],
Cell[153745, 3138, 162, 2, 50, "Print"],
Cell[153910, 3142, 183, 3, 50, "Print"],
Cell[154096, 3147, 166, 2, 50, "Print"],
Cell[154265, 3151, 375, 9, 50, "Print"],
Cell[154643, 3162, 127, 2, 50, "Print"],
Cell[154773, 3166, 360, 8, 50, "Print"],
Cell[155136, 3176, 396, 8, 50, "Print"],
Cell[155535, 3186, 393, 8, 50, "Print"],
Cell[155931, 3196, 390, 8, 50, "Print"],
Cell[156324, 3206, 391, 8, 50, "Print"],
Cell[156718, 3216, 329, 7, 50, "Print"],
Cell[157050, 3225, 127, 2, 50, "Print"],
Cell[157180, 3229, 383, 9, 50, "Print"],
Cell[157566, 3240, 392, 8, 50, "Print"],
Cell[157961, 3250, 325, 7, 50, "Print"],
Cell[158289, 3259, 169, 2, 50, "Print"],
Cell[158461, 3263, 200, 3, 50, "Print"],
Cell[158664, 3268, 127, 2, 50, "Print"],
Cell[158794, 3272, 360, 8, 50, "Print"],
Cell[159157, 3282, 395, 8, 50, "Print"],
Cell[159555, 3292, 325, 7, 50, "Print"],
Cell[159883, 3301, 127, 2, 50, "Print"],
Cell[160013, 3305, 383, 9, 50, "Print"],
Cell[160399, 3316, 393, 8, 50, "Print"],
Cell[160795, 3326, 325, 7, 50, "Print"],
Cell[161123, 3335, 176, 3, 50, "Print"],
Cell[161302, 3340, 165, 2, 50, "Print"],
Cell[161470, 3344, 184, 3, 50, "Print"],
Cell[161657, 3349, 170, 2, 50, "Print"],
Cell[161830, 3353, 375, 9, 50, "Print"],
Cell[162208, 3364, 127, 2, 50, "Print"],
Cell[162338, 3368, 360, 8, 50, "Print"],
Cell[162701, 3378, 396, 8, 50, "Print"],
Cell[163100, 3388, 393, 8, 50, "Print"],
Cell[163496, 3398, 391, 8, 50, "Print"],
Cell[163890, 3408, 391, 8, 50, "Print"],
Cell[164284, 3418, 331, 7, 50, "Print"],
Cell[164618, 3427, 127, 2, 50, "Print"],
Cell[164748, 3431, 383, 9, 50, "Print"],
Cell[165134, 3442, 397, 8, 50, "Print"],
Cell[165534, 3452, 329, 7, 50, "Print"],
Cell[165866, 3461, 169, 2, 50, "Print"],
Cell[166038, 3465, 200, 3, 50, "Print"],
Cell[166241, 3470, 127, 2, 50, "Print"],
Cell[166371, 3474, 360, 8, 50, "Print"],
Cell[166734, 3484, 393, 8, 50, "Print"],
Cell[167130, 3494, 324, 7, 50, "Print"],
Cell[167457, 3503, 129, 2, 50, "Print"],
Cell[167589, 3507, 385, 9, 50, "Print"],
Cell[167977, 3518, 393, 8, 50, "Print"],
Cell[168373, 3528, 324, 7, 50, "Print"],
Cell[168700, 3537, 177, 3, 50, "Print"],
Cell[168880, 3542, 165, 2, 50, "Print"],
Cell[169048, 3546, 186, 3, 50, "Print"],
Cell[169237, 3551, 170, 2, 50, "Print"],
Cell[169410, 3555, 375, 9, 50, "Print"],
Cell[169788, 3566, 127, 2, 50, "Print"],
Cell[169918, 3570, 360, 8, 50, "Print"],
Cell[170281, 3580, 399, 8, 50, "Print"],
Cell[170683, 3590, 395, 8, 50, "Print"],
Cell[171081, 3600, 395, 8, 50, "Print"],
Cell[171479, 3610, 397, 8, 50, "Print"],
Cell[171879, 3620, 333, 7, 50, "Print"],
Cell[172215, 3629, 126, 2, 50, "Print"],
Cell[172344, 3633, 385, 9, 50, "Print"],
Cell[172732, 3644, 394, 8, 50, "Print"],
Cell[173129, 3654, 391, 8, 50, "Print"],
Cell[173523, 3664, 391, 8, 50, "Print"],
Cell[173917, 3674, 393, 8, 50, "Print"],
Cell[174313, 3684, 329, 7, 50, "Print"],
Cell[174645, 3693, 169, 2, 50, "Print"],
Cell[174817, 3697, 201, 3, 50, "Print"],
Cell[175021, 3702, 127, 2, 50, "Print"],
Cell[175151, 3706, 360, 8, 50, "Print"],
Cell[175514, 3716, 393, 8, 50, "Print"],
Cell[175910, 3726, 323, 7, 50, "Print"],
Cell[176236, 3735, 127, 2, 50, "Print"],
Cell[176366, 3739, 383, 9, 50, "Print"],
Cell[176752, 3750, 393, 8, 50, "Print"],
Cell[177148, 3760, 323, 7, 50, "Print"],
Cell[177474, 3769, 178, 3, 50, "Print"],
Cell[177655, 3774, 164, 2, 50, "Print"],
Cell[177822, 3778, 187, 3, 50, "Print"],
Cell[178012, 3783, 171, 2, 50, "Print"],
Cell[178186, 3787, 375, 9, 50, "Print"],
Cell[178564, 3798, 127, 2, 50, "Print"],
Cell[178694, 3802, 360, 8, 50, "Print"],
Cell[179057, 3812, 399, 8, 50, "Print"],
Cell[179459, 3822, 397, 8, 50, "Print"],
Cell[179859, 3832, 397, 8, 50, "Print"],
Cell[180259, 3842, 397, 8, 50, "Print"],
Cell[180659, 3852, 331, 7, 50, "Print"],
Cell[180993, 3861, 127, 2, 50, "Print"],
Cell[181123, 3865, 383, 9, 50, "Print"],
Cell[181509, 3876, 397, 8, 50, "Print"],
Cell[181909, 3886, 327, 7, 50, "Print"],
Cell[182239, 3895, 170, 2, 50, "Print"],
Cell[182412, 3899, 201, 3, 50, "Print"],
Cell[182616, 3904, 127, 2, 50, "Print"],
Cell[182746, 3908, 360, 8, 50, "Print"],
Cell[183109, 3918, 391, 8, 50, "Print"],
Cell[183503, 3928, 323, 7, 50, "Print"],
Cell[183829, 3937, 126, 2, 50, "Print"],
Cell[183958, 3941, 383, 9, 50, "Print"],
Cell[184344, 3952, 323, 7, 50, "Print"],
Cell[184670, 3961, 180, 3, 50, "Print"],
Cell[184853, 3966, 164, 2, 50, "Print"],
Cell[185020, 3970, 185, 3, 50, "Print"],
Cell[185208, 3975, 173, 2, 50, "Print"],
Cell[185384, 3979, 377, 9, 50, "Print"],
Cell[185764, 3990, 127, 2, 50, "Print"],
Cell[185894, 3994, 360, 8, 50, "Print"],
Cell[186257, 4004, 401, 8, 50, "Print"],
Cell[186661, 4014, 392, 8, 50, "Print"],
Cell[187056, 4024, 397, 8, 50, "Print"],
Cell[187456, 4034, 397, 8, 50, "Print"],
Cell[187856, 4044, 333, 7, 50, "Print"],
Cell[188192, 4053, 127, 2, 50, "Print"],
Cell[188322, 4057, 383, 9, 50, "Print"],
Cell[188708, 4068, 395, 8, 50, "Print"],
Cell[189106, 4078, 327, 7, 50, "Print"],
Cell[189436, 4087, 170, 2, 50, "Print"],
Cell[189609, 4091, 201, 3, 50, "Print"],
Cell[189813, 4096, 127, 2, 50, "Print"],
Cell[189943, 4100, 359, 8, 50, "Print"],
Cell[190305, 4110, 391, 8, 50, "Print"],
Cell[190699, 4120, 325, 7, 50, "Print"],
Cell[191027, 4129, 127, 2, 50, "Print"],
Cell[191157, 4133, 383, 9, 50, "Print"],
Cell[191543, 4144, 322, 7, 50, "Print"],
Cell[191868, 4153, 178, 3, 50, "Print"],
Cell[192049, 4158, 166, 2, 50, "Print"],
Cell[192218, 4162, 185, 3, 50, "Print"],
Cell[192406, 4167, 173, 2, 50, "Print"],
Cell[192582, 4171, 375, 9, 50, "Print"],
Cell[192960, 4182, 125, 2, 50, "Print"],
Cell[193088, 4186, 360, 8, 50, "Print"],
Cell[193451, 4196, 399, 8, 50, "Print"],
Cell[193853, 4206, 395, 8, 50, "Print"],
Cell[194251, 4216, 395, 8, 50, "Print"],
Cell[194649, 4226, 395, 8, 50, "Print"],
Cell[195047, 4236, 333, 7, 50, "Print"],
Cell[195383, 4245, 129, 2, 50, "Print"],
Cell[195515, 4249, 382, 9, 50, "Print"],
Cell[195900, 4260, 325, 7, 50, "Print"],
Cell[196228, 4269, 172, 2, 50, "Print"],
Cell[196403, 4273, 201, 3, 50, "Print"],
Cell[196607, 4278, 127, 2, 50, "Print"],
Cell[196737, 4282, 360, 8, 50, "Print"],
Cell[197100, 4292, 391, 8, 50, "Print"],
Cell[197494, 4302, 323, 7, 50, "Print"],
Cell[197820, 4311, 129, 2, 50, "Print"],
Cell[197952, 4315, 385, 9, 50, "Print"],
Cell[198340, 4326, 323, 7, 50, "Print"],
Cell[198666, 4335, 180, 3, 50, "Print"],
Cell[198849, 4340, 166, 2, 50, "Print"],
Cell[199018, 4344, 185, 3, 50, "Print"],
Cell[199206, 4349, 171, 2, 50, "Print"],
Cell[199380, 4353, 378, 9, 50, "Print"],
Cell[199761, 4364, 127, 2, 50, "Print"],
Cell[199891, 4368, 389, 9, 50, "Print"],
Cell[200283, 4379, 127, 2, 50, "Print"],
Cell[200413, 4383, 360, 8, 50, "Print"],
Cell[200776, 4393, 397, 8, 50, "Print"],
Cell[201176, 4403, 396, 8, 50, "Print"],
Cell[201575, 4413, 397, 8, 50, "Print"],
Cell[201975, 4423, 397, 8, 50, "Print"],
Cell[202375, 4433, 397, 8, 50, "Print"],
Cell[202775, 4443, 396, 8, 50, "Print"],
Cell[203174, 4453, 397, 8, 50, "Print"],
Cell[203574, 4463, 397, 8, 50, "Print"],
Cell[203974, 4473, 397, 8, 50, "Print"],
Cell[204374, 4483, 397, 8, 50, "Print"],
Cell[204774, 4493, 399, 8, 50, "Print"],
Cell[205176, 4503, 397, 8, 50, "Print"],
Cell[205576, 4513, 127, 2, 50, "Print"],
Cell[205706, 4517, 322, 7, 50, "Print"],
Cell[206031, 4526, 332, 7, 50, "Print"],
Cell[206366, 4535, 127, 2, 50, "Print"],
Cell[206496, 4539, 383, 9, 50, "Print"],
Cell[206882, 4550, 393, 8, 50, "Print"],
Cell[207278, 4560, 391, 8, 50, "Print"],
Cell[207672, 4570, 391, 8, 50, "Print"],
Cell[208066, 4580, 391, 8, 50, "Print"],
Cell[208460, 4590, 390, 8, 50, "Print"],
Cell[208853, 4600, 393, 8, 50, "Print"],
Cell[209249, 4610, 397, 8, 50, "Print"],
Cell[209649, 4620, 397, 8, 50, "Print"],
Cell[210049, 4630, 399, 8, 50, "Print"],
Cell[210451, 4640, 395, 8, 50, "Print"],
Cell[210849, 4650, 393, 8, 50, "Print"],
Cell[211245, 4660, 393, 8, 50, "Print"],
Cell[211641, 4670, 333, 7, 50, "Print"],
Cell[211977, 4679, 170, 2, 50, "Print"],
Cell[212150, 4683, 203, 3, 50, "Print"],
Cell[212356, 4688, 127, 2, 50, "Print"],
Cell[212486, 4692, 360, 8, 50, "Print"],
Cell[212849, 4702, 391, 8, 50, "Print"],
Cell[213243, 4712, 323, 7, 50, "Print"],
Cell[213569, 4721, 127, 2, 50, "Print"],
Cell[213699, 4725, 383, 9, 50, "Print"],
Cell[214085, 4736, 393, 8, 50, "Print"],
Cell[214481, 4746, 323, 7, 50, "Print"],
Cell[214807, 4755, 178, 3, 50, "Print"],
Cell[214988, 4760, 166, 2, 50, "Print"],
Cell[215157, 4764, 187, 3, 50, "Print"],
Cell[215347, 4769, 176, 3, 50, "Print"],
Cell[215526, 4774, 380, 9, 50, "Print"],
Cell[215909, 4785, 129, 2, 50, "Print"],
Cell[216041, 4789, 389, 9, 50, "Print"],
Cell[216433, 4800, 127, 2, 50, "Print"],
Cell[216563, 4804, 362, 8, 50, "Print"],
Cell[216928, 4814, 396, 8, 50, "Print"],
Cell[217327, 4824, 397, 8, 50, "Print"],
Cell[217727, 4834, 397, 8, 50, "Print"],
Cell[218127, 4844, 399, 8, 50, "Print"],
Cell[218529, 4854, 397, 8, 50, "Print"],
Cell[218929, 4864, 397, 8, 50, "Print"],
Cell[219329, 4874, 397, 8, 50, "Print"],
Cell[219729, 4884, 397, 8, 50, "Print"],
Cell[220129, 4894, 399, 8, 50, "Print"],
Cell[220531, 4904, 399, 8, 50, "Print"],
Cell[220933, 4914, 399, 8, 50, "Print"],
Cell[221335, 4924, 396, 8, 50, "Print"],
Cell[221734, 4934, 127, 2, 50, "Print"],
Cell[221864, 4938, 322, 7, 50, "Print"],
Cell[222189, 4947, 333, 7, 50, "Print"],
Cell[222525, 4956, 127, 2, 50, "Print"],
Cell[222655, 4960, 385, 9, 50, "Print"],
Cell[223043, 4971, 397, 8, 50, "Print"],
Cell[223443, 4981, 397, 8, 50, "Print"],
Cell[223843, 4991, 397, 8, 50, "Print"],
Cell[224243, 5001, 329, 7, 50, "Print"],
Cell[224575, 5010, 169, 2, 50, "Print"],
Cell[224747, 5014, 201, 3, 50, "Print"],
Cell[224951, 5019, 127, 2, 50, "Print"],
Cell[225081, 5023, 360, 8, 50, "Print"],
Cell[225444, 5033, 390, 8, 50, "Print"],
Cell[225837, 5043, 325, 7, 50, "Print"],
Cell[226165, 5052, 127, 2, 50, "Print"],
Cell[226295, 5056, 385, 9, 50, "Print"],
Cell[226683, 5067, 323, 7, 50, "Print"],
Cell[227009, 5076, 178, 3, 50, "Print"],
Cell[227190, 5081, 164, 2, 50, "Print"],
Cell[227357, 5085, 185, 3, 50, "Print"],
Cell[227545, 5090, 176, 3, 50, "Print"],
Cell[227724, 5095, 380, 9, 50, "Print"],
Cell[228107, 5106, 127, 2, 50, "Print"],
Cell[228237, 5110, 523, 11, 50, "Print"],
Cell[228763, 5123, 129, 2, 50, "Print"],
Cell[228895, 5127, 389, 9, 50, "Print"],
Cell[229287, 5138, 127, 2, 50, "Print"],
Cell[229417, 5142, 362, 8, 50, "Print"],
Cell[229782, 5152, 399, 8, 50, "Print"],
Cell[230184, 5162, 399, 8, 50, "Print"],
Cell[230586, 5172, 399, 8, 50, "Print"],
Cell[230988, 5182, 401, 8, 50, "Print"],
Cell[231392, 5192, 399, 8, 50, "Print"],
Cell[231794, 5202, 401, 8, 50, "Print"],
Cell[232198, 5212, 399, 8, 50, "Print"],
Cell[232600, 5222, 399, 8, 50, "Print"],
Cell[233002, 5232, 398, 8, 50, "Print"],
Cell[233403, 5242, 399, 8, 50, "Print"],
Cell[233805, 5252, 399, 8, 50, "Print"],
Cell[234207, 5262, 401, 8, 50, "Print"],
Cell[234611, 5272, 129, 2, 50, "Print"],
Cell[234743, 5276, 523, 11, 50, "Print"],
Cell[235269, 5289, 127, 2, 50, "Print"],
Cell[235399, 5293, 324, 7, 50, "Print"],
Cell[235726, 5302, 335, 7, 50, "Print"],
Cell[236064, 5311, 127, 2, 50, "Print"],
Cell[236194, 5315, 383, 9, 50, "Print"],
Cell[236580, 5326, 323, 7, 50, "Print"],
Cell[236906, 5335, 170, 2, 50, "Print"],
Cell[237079, 5339, 201, 3, 50, "Print"],
Cell[237283, 5344, 127, 2, 50, "Print"],
Cell[237413, 5348, 360, 8, 50, "Print"],
Cell[237776, 5358, 391, 8, 50, "Print"],
Cell[238170, 5368, 325, 7, 50, "Print"],
Cell[238498, 5377, 129, 2, 50, "Print"],
Cell[238630, 5381, 383, 9, 50, "Print"],
Cell[239016, 5392, 325, 7, 50, "Print"],
Cell[239344, 5401, 178, 3, 50, "Print"],
Cell[239525, 5406, 164, 2, 50, "Print"],
Cell[239692, 5410, 184, 3, 50, "Print"],
Cell[239879, 5415, 176, 3, 50, "Print"],
Cell[240058, 5420, 164, 2, 50, "Print"],
Cell[240225, 5424, 150, 2, 50, "Print"],
Cell[240378, 5428, 198, 3, 50, "Print"],
Cell[240579, 5433, 133, 2, 50, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[240761, 5441, 4910, 88, 206, "Input"],
Cell[CellGroupData[{
Cell[245696, 5533, 391, 9, 28, "Print"],
Cell[246090, 5544, 149, 2, 28, "Print"],
Cell[246242, 5548, 559, 12, 28, "Print"],
Cell[246804, 5562, 172, 2, 28, "Print"],
Cell[246979, 5566, 406, 8, 28, "Print"],
Cell[247388, 5576, 151, 2, 28, "Print"],
Cell[247542, 5580, 563, 12, 28, "Print"],
Cell[248108, 5594, 462, 9, 28, "Print"],
Cell[248573, 5605, 172, 2, 28, "Print"],
Cell[248748, 5609, 319, 7, 28, "Print"],
Cell[249070, 5618, 349, 7, 28, "Print"],
Cell[249422, 5627, 411, 8, 28, "Print"],
Cell[249836, 5637, 146, 2, 28, "Print"],
Cell[249985, 5641, 383, 8, 28, "Print"],
Cell[250371, 5651, 414, 8, 28, "Print"],
Cell[250788, 5661, 346, 7, 28, "Print"],
Cell[251137, 5670, 150, 2, 28, "Print"],
Cell[251290, 5674, 404, 9, 28, "Print"],
Cell[251697, 5685, 414, 8, 28, "Print"],
Cell[252114, 5695, 346, 7, 28, "Print"],
Cell[252463, 5704, 190, 2, 28, "Print"],
Cell[252656, 5708, 223, 3, 28, "Print"],
Cell[252882, 5713, 148, 2, 28, "Print"],
Cell[253033, 5717, 381, 8, 28, "Print"],
Cell[253417, 5727, 414, 8, 28, "Print"],
Cell[253834, 5737, 344, 7, 28, "Print"],
Cell[254181, 5746, 148, 2, 28, "Print"],
Cell[254332, 5750, 404, 9, 28, "Print"],
Cell[254739, 5761, 412, 8, 28, "Print"],
Cell[255154, 5771, 344, 7, 28, "Print"],
Cell[255501, 5780, 200, 3, 28, "Print"],
Cell[255704, 5785, 184, 2, 28, "Print"],
Cell[255891, 5789, 233, 3, 28, "Print"],
Cell[256127, 5794, 1778, 54, 141, "Print"],
Cell[257908, 5850, 207, 3, 28, "Print"],
Cell[258118, 5855, 187, 2, 28, "Print"],
Cell[258308, 5859, 393, 9, 28, "Print"],
Cell[258704, 5870, 148, 2, 28, "Print"],
Cell[258855, 5874, 381, 8, 28, "Print"],
Cell[259239, 5884, 412, 8, 28, "Print"],
Cell[259654, 5894, 415, 8, 28, "Print"],
Cell[260072, 5904, 347, 7, 28, "Print"],
Cell[260422, 5913, 148, 2, 28, "Print"],
Cell[260573, 5917, 406, 9, 28, "Print"],
Cell[260982, 5928, 416, 8, 28, "Print"],
Cell[261401, 5938, 348, 7, 28, "Print"],
Cell[261752, 5947, 190, 2, 28, "Print"],
Cell[261945, 5951, 223, 3, 28, "Print"],
Cell[262171, 5956, 148, 2, 28, "Print"],
Cell[262322, 5960, 381, 8, 28, "Print"],
Cell[262706, 5970, 416, 8, 28, "Print"],
Cell[263125, 5980, 348, 7, 28, "Print"],
Cell[263476, 5989, 148, 2, 28, "Print"],
Cell[263627, 5993, 404, 9, 28, "Print"],
Cell[264034, 6004, 414, 8, 28, "Print"],
Cell[264451, 6014, 346, 7, 28, "Print"],
Cell[264800, 6023, 200, 3, 28, "Print"],
Cell[265003, 6028, 186, 2, 28, "Print"],
Cell[265192, 6032, 205, 3, 28, "Print"],
Cell[265400, 6037, 190, 2, 28, "Print"],
Cell[265593, 6041, 393, 9, 28, "Print"],
Cell[265989, 6052, 150, 2, 28, "Print"],
Cell[266142, 6056, 381, 8, 28, "Print"],
Cell[266526, 6066, 418, 8, 28, "Print"],
Cell[266947, 6076, 416, 8, 28, "Print"],
Cell[267366, 6086, 350, 7, 28, "Print"],
Cell[267719, 6095, 148, 2, 28, "Print"],
Cell[267870, 6099, 404, 9, 28, "Print"],
Cell[268277, 6110, 415, 8, 28, "Print"],
Cell[268695, 6120, 416, 8, 28, "Print"],
Cell[269114, 6130, 348, 7, 28, "Print"],
Cell[269465, 6139, 190, 2, 28, "Print"],
Cell[269658, 6143, 221, 3, 28, "Print"],
Cell[269882, 6148, 148, 2, 28, "Print"],
Cell[270033, 6152, 383, 8, 28, "Print"],
Cell[270419, 6162, 413, 8, 28, "Print"],
Cell[270835, 6172, 345, 7, 28, "Print"],
Cell[271183, 6181, 150, 2, 28, "Print"],
Cell[271336, 6185, 402, 9, 28, "Print"],
Cell[271741, 6196, 416, 8, 28, "Print"],
Cell[272160, 6206, 346, 7, 28, "Print"],
Cell[272509, 6215, 200, 3, 28, "Print"],
Cell[272712, 6220, 186, 2, 28, "Print"],
Cell[272901, 6224, 206, 3, 28, "Print"],
Cell[273110, 6229, 189, 2, 28, "Print"],
Cell[273302, 6233, 393, 9, 28, "Print"],
Cell[273698, 6244, 150, 2, 28, "Print"],
Cell[273851, 6248, 383, 8, 28, "Print"],
Cell[274237, 6258, 416, 8, 28, "Print"],
Cell[274656, 6268, 418, 8, 28, "Print"],
Cell[275077, 6278, 350, 7, 28, "Print"],
Cell[275430, 6287, 148, 2, 28, "Print"],
Cell[275581, 6291, 403, 9, 28, "Print"],
Cell[275987, 6302, 414, 8, 28, "Print"],
Cell[276404, 6312, 416, 8, 28, "Print"],
Cell[276823, 6322, 350, 7, 28, "Print"],
Cell[277176, 6331, 191, 2, 28, "Print"],
Cell[277370, 6335, 224, 3, 28, "Print"],
Cell[277597, 6340, 150, 2, 28, "Print"],
Cell[277750, 6344, 381, 8, 28, "Print"],
Cell[278134, 6354, 412, 8, 28, "Print"],
Cell[278549, 6364, 344, 7, 28, "Print"],
Cell[278896, 6373, 148, 2, 28, "Print"],
Cell[279047, 6377, 406, 9, 28, "Print"],
Cell[279456, 6388, 412, 8, 28, "Print"],
Cell[279871, 6398, 346, 7, 28, "Print"],
Cell[280220, 6407, 199, 3, 28, "Print"],
Cell[280422, 6412, 185, 2, 28, "Print"],
Cell[280610, 6416, 206, 3, 28, "Print"],
Cell[280819, 6421, 189, 2, 28, "Print"],
Cell[281011, 6425, 395, 9, 28, "Print"],
Cell[281409, 6436, 150, 2, 28, "Print"],
Cell[281562, 6440, 381, 8, 28, "Print"],
Cell[281946, 6450, 418, 8, 28, "Print"],
Cell[282367, 6460, 412, 8, 28, "Print"],
Cell[282782, 6470, 412, 8, 28, "Print"],
Cell[283197, 6480, 412, 8, 28, "Print"],
Cell[283612, 6490, 350, 7, 28, "Print"],
Cell[283965, 6499, 148, 2, 28, "Print"],
Cell[284116, 6503, 404, 9, 28, "Print"],
Cell[284523, 6514, 418, 8, 28, "Print"],
Cell[284944, 6524, 350, 7, 28, "Print"],
Cell[285297, 6533, 191, 2, 28, "Print"],
Cell[285491, 6537, 224, 3, 28, "Print"],
Cell[285718, 6542, 147, 2, 28, "Print"],
Cell[285868, 6546, 381, 8, 28, "Print"],
Cell[286252, 6556, 416, 8, 28, "Print"],
Cell[286671, 6566, 348, 7, 28, "Print"],
Cell[287022, 6575, 148, 2, 28, "Print"],
Cell[287173, 6579, 403, 9, 28, "Print"],
Cell[287579, 6590, 416, 8, 28, "Print"],
Cell[287998, 6600, 348, 7, 28, "Print"],
Cell[288349, 6609, 199, 3, 28, "Print"],
Cell[288551, 6614, 185, 2, 28, "Print"],
Cell[288739, 6618, 206, 3, 28, "Print"],
Cell[288948, 6623, 193, 2, 28, "Print"],
Cell[289144, 6627, 396, 9, 28, "Print"],
Cell[289543, 6638, 147, 2, 28, "Print"],
Cell[289693, 6642, 383, 8, 28, "Print"],
Cell[290079, 6652, 418, 8, 28, "Print"],
Cell[290500, 6662, 412, 8, 28, "Print"],
Cell[290915, 6672, 412, 8, 28, "Print"],
Cell[291330, 6682, 412, 8, 28, "Print"],
Cell[291745, 6692, 350, 7, 28, "Print"],
Cell[292098, 6701, 148, 2, 28, "Print"],
Cell[292249, 6705, 404, 9, 28, "Print"],
Cell[292656, 6716, 420, 8, 28, "Print"],
Cell[293079, 6726, 350, 7, 28, "Print"],
Cell[293432, 6735, 192, 2, 28, "Print"],
Cell[293627, 6739, 223, 3, 28, "Print"],
Cell[293853, 6744, 148, 2, 28, "Print"],
Cell[294004, 6748, 383, 8, 28, "Print"],
Cell[294390, 6758, 416, 8, 28, "Print"],
Cell[294809, 6768, 348, 7, 28, "Print"],
Cell[295160, 6777, 148, 2, 28, "Print"],
Cell[295311, 6781, 404, 9, 28, "Print"],
Cell[295718, 6792, 415, 8, 28, "Print"],
Cell[296136, 6802, 350, 7, 28, "Print"],
Cell[296489, 6811, 202, 3, 28, "Print"],
Cell[296694, 6816, 188, 2, 28, "Print"],
Cell[296885, 6820, 207, 3, 28, "Print"],
Cell[297095, 6825, 195, 2, 28, "Print"],
Cell[297293, 6829, 396, 9, 28, "Print"],
Cell[297692, 6840, 147, 2, 28, "Print"],
Cell[297842, 6844, 381, 8, 28, "Print"],
Cell[298226, 6854, 420, 8, 28, "Print"],
Cell[298649, 6864, 416, 8, 28, "Print"],
Cell[299068, 6874, 415, 8, 28, "Print"],
Cell[299486, 6884, 415, 8, 28, "Print"],
Cell[299904, 6894, 352, 7, 28, "Print"],
Cell[300259, 6903, 148, 2, 28, "Print"],
Cell[300410, 6907, 404, 9, 28, "Print"],
Cell[300817, 6918, 420, 8, 28, "Print"],
Cell[301240, 6928, 418, 8, 28, "Print"],
Cell[301661, 6938, 416, 8, 28, "Print"],
Cell[302080, 6948, 416, 8, 28, "Print"],
Cell[302499, 6958, 352, 7, 28, "Print"],
Cell[302854, 6967, 192, 2, 28, "Print"],
Cell[303049, 6971, 225, 3, 28, "Print"],
Cell[303277, 6976, 148, 2, 28, "Print"],
Cell[303428, 6980, 381, 8, 28, "Print"],
Cell[303812, 6990, 414, 8, 28, "Print"],
Cell[304229, 7000, 346, 7, 28, "Print"],
Cell[304578, 7009, 148, 2, 28, "Print"],
Cell[304729, 7013, 404, 9, 28, "Print"],
Cell[305136, 7024, 416, 8, 28, "Print"],
Cell[305555, 7034, 348, 7, 28, "Print"],
Cell[305906, 7043, 200, 3, 28, "Print"],
Cell[306109, 7048, 186, 2, 28, "Print"],
Cell[306298, 7052, 209, 3, 28, "Print"],
Cell[306510, 7057, 193, 2, 28, "Print"],
Cell[306706, 7061, 395, 9, 28, "Print"],
Cell[307104, 7072, 148, 2, 28, "Print"],
Cell[307255, 7076, 381, 8, 28, "Print"],
Cell[307639, 7086, 422, 8, 28, "Print"],
Cell[308064, 7096, 416, 8, 28, "Print"],
Cell[308483, 7106, 416, 8, 28, "Print"],
Cell[308902, 7116, 418, 8, 28, "Print"],
Cell[309323, 7126, 352, 7, 28, "Print"],
Cell[309678, 7135, 148, 2, 28, "Print"],
Cell[309829, 7139, 404, 9, 28, "Print"],
Cell[310236, 7150, 420, 8, 28, "Print"],
Cell[310659, 7160, 416, 8, 28, "Print"],
Cell[311078, 7170, 416, 8, 28, "Print"],
Cell[311497, 7180, 416, 8, 28, "Print"],
Cell[311916, 7190, 354, 7, 28, "Print"],
Cell[312273, 7199, 192, 2, 28, "Print"],
Cell[312468, 7203, 225, 3, 28, "Print"],
Cell[312696, 7208, 150, 2, 28, "Print"],
Cell[312849, 7212, 383, 8, 28, "Print"],
Cell[313235, 7222, 414, 8, 28, "Print"],
Cell[313652, 7232, 346, 7, 28, "Print"],
Cell[314001, 7241, 148, 2, 28, "Print"],
Cell[314152, 7245, 404, 9, 28, "Print"],
Cell[314559, 7256, 414, 8, 28, "Print"],
Cell[314976, 7266, 346, 7, 28, "Print"],
Cell[315325, 7275, 200, 3, 28, "Print"],
Cell[315528, 7280, 188, 2, 28, "Print"],
Cell[315719, 7284, 209, 3, 28, "Print"],
Cell[315931, 7289, 193, 2, 28, "Print"],
Cell[316127, 7293, 398, 9, 28, "Print"],
Cell[316528, 7304, 148, 2, 28, "Print"],
Cell[316679, 7308, 381, 8, 28, "Print"],
Cell[317063, 7318, 422, 8, 28, "Print"],
Cell[317488, 7328, 418, 8, 28, "Print"],
Cell[317909, 7338, 416, 8, 28, "Print"],
Cell[318328, 7348, 418, 8, 28, "Print"],
Cell[318749, 7358, 354, 7, 28, "Print"],
Cell[319106, 7367, 148, 2, 28, "Print"],
Cell[319257, 7371, 406, 9, 28, "Print"],
Cell[319666, 7382, 422, 8, 28, "Print"],
Cell[320091, 7392, 416, 8, 28, "Print"],
Cell[320510, 7402, 416, 8, 28, "Print"],
Cell[320929, 7412, 418, 8, 28, "Print"],
Cell[321350, 7422, 352, 7, 28, "Print"],
Cell[321705, 7431, 192, 2, 28, "Print"],
Cell[321900, 7435, 223, 3, 28, "Print"],
Cell[322126, 7440, 148, 2, 28, "Print"],
Cell[322277, 7444, 381, 8, 28, "Print"],
Cell[322661, 7454, 414, 8, 28, "Print"],
Cell[323078, 7464, 346, 7, 28, "Print"],
Cell[323427, 7473, 148, 2, 28, "Print"],
Cell[323578, 7477, 406, 9, 28, "Print"],
Cell[323987, 7488, 414, 8, 28, "Print"],
Cell[324404, 7498, 346, 7, 28, "Print"],
Cell[324753, 7507, 200, 3, 28, "Print"],
Cell[324956, 7512, 186, 2, 28, "Print"],
Cell[325145, 7516, 207, 3, 28, "Print"],
Cell[325355, 7521, 193, 2, 28, "Print"],
Cell[325551, 7525, 396, 9, 28, "Print"],
Cell[325950, 7536, 147, 2, 28, "Print"],
Cell[326100, 7540, 381, 8, 28, "Print"],
Cell[326484, 7550, 420, 8, 28, "Print"],
Cell[326907, 7560, 416, 8, 28, "Print"],
Cell[327326, 7570, 416, 8, 28, "Print"],
Cell[327745, 7580, 416, 8, 28, "Print"],
Cell[328164, 7590, 356, 7, 28, "Print"],
Cell[328523, 7599, 148, 2, 28, "Print"],
Cell[328674, 7603, 404, 9, 28, "Print"],
Cell[329081, 7614, 420, 8, 28, "Print"],
Cell[329504, 7624, 416, 8, 28, "Print"],
Cell[329923, 7634, 418, 8, 28, "Print"],
Cell[330344, 7644, 416, 8, 28, "Print"],
Cell[330763, 7654, 354, 7, 28, "Print"],
Cell[331120, 7663, 192, 2, 28, "Print"],
Cell[331315, 7667, 225, 3, 28, "Print"],
Cell[331543, 7672, 147, 2, 28, "Print"],
Cell[331693, 7676, 381, 8, 28, "Print"],
Cell[332077, 7686, 418, 8, 28, "Print"],
Cell[332498, 7696, 348, 7, 28, "Print"],
Cell[332849, 7705, 148, 2, 28, "Print"],
Cell[333000, 7709, 406, 9, 28, "Print"],
Cell[333409, 7720, 418, 8, 28, "Print"],
Cell[333830, 7730, 348, 7, 28, "Print"],
Cell[334181, 7739, 202, 3, 28, "Print"],
Cell[334386, 7744, 187, 2, 28, "Print"],
Cell[334576, 7748, 210, 3, 28, "Print"],
Cell[334789, 7753, 196, 3, 28, "Print"],
Cell[334988, 7758, 399, 9, 28, "Print"],
Cell[335390, 7769, 150, 2, 28, "Print"],
Cell[335543, 7773, 410, 9, 28, "Print"],
Cell[335956, 7784, 148, 2, 28, "Print"],
Cell[336107, 7788, 380, 8, 28, "Print"],
Cell[336490, 7798, 418, 8, 28, "Print"],
Cell[336911, 7808, 420, 8, 28, "Print"],
Cell[337334, 7818, 420, 8, 28, "Print"],
Cell[337757, 7828, 418, 8, 28, "Print"],
Cell[338178, 7838, 418, 8, 28, "Print"],
Cell[338599, 7848, 418, 8, 28, "Print"],
Cell[339020, 7858, 418, 8, 28, "Print"],
Cell[339441, 7868, 420, 8, 28, "Print"],
Cell[339864, 7878, 418, 8, 28, "Print"],
Cell[340285, 7888, 418, 8, 28, "Print"],
Cell[340706, 7898, 417, 8, 28, "Print"],
Cell[341126, 7908, 418, 8, 28, "Print"],
Cell[341547, 7918, 150, 2, 28, "Print"],
Cell[341700, 7922, 343, 7, 28, "Print"],
Cell[342046, 7931, 354, 7, 28, "Print"],
Cell[342403, 7940, 150, 2, 28, "Print"],
Cell[342556, 7944, 404, 9, 28, "Print"],
Cell[342963, 7955, 420, 8, 28, "Print"],
Cell[343386, 7965, 418, 8, 28, "Print"],
Cell[343807, 7975, 418, 8, 28, "Print"],
Cell[344228, 7985, 420, 8, 28, "Print"],
Cell[344651, 7995, 420, 8, 28, "Print"],
Cell[345074, 8005, 417, 8, 28, "Print"],
Cell[345494, 8015, 420, 8, 28, "Print"],
Cell[345917, 8025, 418, 8, 28, "Print"],
Cell[346338, 8035, 418, 8, 28, "Print"],
Cell[346759, 8045, 418, 8, 28, "Print"],
Cell[347180, 8055, 418, 8, 28, "Print"],
Cell[347601, 8065, 420, 8, 28, "Print"],
Cell[348024, 8075, 354, 7, 28, "Print"],
Cell[348381, 8084, 192, 2, 28, "Print"],
Cell[348576, 8088, 226, 3, 28, "Print"],
Cell[348805, 8093, 148, 2, 28, "Print"],
Cell[348956, 8097, 383, 8, 28, "Print"],
Cell[349342, 8107, 414, 8, 28, "Print"],
Cell[349759, 8117, 348, 7, 28, "Print"],
Cell[350110, 8126, 150, 2, 28, "Print"],
Cell[350263, 8130, 404, 9, 28, "Print"],
Cell[350670, 8141, 414, 8, 28, "Print"],
Cell[351087, 8151, 346, 7, 28, "Print"],
Cell[351436, 8160, 201, 3, 28, "Print"],
Cell[351640, 8165, 186, 2, 28, "Print"],
Cell[351829, 8169, 210, 3, 28, "Print"],
Cell[352042, 8174, 199, 3, 28, "Print"],
Cell[352244, 8179, 399, 9, 28, "Print"],
Cell[352646, 8190, 150, 2, 28, "Print"],
Cell[352799, 8194, 408, 9, 28, "Print"],
Cell[353210, 8205, 148, 2, 28, "Print"],
Cell[353361, 8209, 381, 8, 28, "Print"],
Cell[353745, 8219, 420, 8, 28, "Print"],
Cell[354168, 8229, 418, 8, 28, "Print"],
Cell[354589, 8239, 418, 8, 28, "Print"],
Cell[355010, 8249, 420, 8, 28, "Print"],
Cell[355433, 8259, 420, 8, 28, "Print"],
Cell[355856, 8269, 418, 8, 28, "Print"],
Cell[356277, 8279, 418, 8, 28, "Print"],
Cell[356698, 8289, 417, 8, 28, "Print"],
Cell[357118, 8299, 418, 8, 28, "Print"],
Cell[357539, 8309, 420, 8, 28, "Print"],
Cell[357962, 8319, 420, 8, 28, "Print"],
Cell[358385, 8329, 418, 8, 28, "Print"],
Cell[358806, 8339, 148, 2, 28, "Print"],
Cell[358957, 8343, 343, 7, 28, "Print"],
Cell[359303, 8352, 356, 7, 28, "Print"],
Cell[359662, 8361, 150, 2, 28, "Print"],
Cell[359815, 8365, 404, 9, 28, "Print"],
Cell[360222, 8376, 420, 8, 28, "Print"],
Cell[360645, 8386, 418, 8, 28, "Print"],
Cell[361066, 8396, 418, 8, 28, "Print"],
Cell[361487, 8406, 420, 8, 28, "Print"],
Cell[361910, 8416, 418, 8, 28, "Print"],
Cell[362331, 8426, 418, 8, 28, "Print"],
Cell[362752, 8436, 418, 8, 28, "Print"],
Cell[363173, 8446, 418, 8, 28, "Print"],
Cell[363594, 8456, 418, 8, 28, "Print"],
Cell[364015, 8466, 420, 8, 28, "Print"],
Cell[364438, 8476, 418, 8, 28, "Print"],
Cell[364859, 8486, 418, 8, 28, "Print"],
Cell[365280, 8496, 356, 7, 28, "Print"],
Cell[365639, 8505, 193, 2, 28, "Print"],
Cell[365835, 8509, 226, 3, 28, "Print"],
Cell[366064, 8514, 148, 2, 28, "Print"],
Cell[366215, 8518, 381, 8, 28, "Print"],
Cell[366599, 8528, 416, 8, 28, "Print"],
Cell[367018, 8538, 348, 7, 28, "Print"],
Cell[367369, 8547, 148, 2, 28, "Print"],
Cell[367520, 8551, 406, 9, 28, "Print"],
Cell[367929, 8562, 416, 8, 28, "Print"],
Cell[368348, 8572, 348, 7, 28, "Print"],
Cell[368699, 8581, 201, 3, 28, "Print"],
Cell[368903, 8586, 189, 2, 28, "Print"],
Cell[369095, 8590, 208, 3, 28, "Print"],
Cell[369306, 8595, 198, 3, 28, "Print"],
Cell[369507, 8600, 187, 2, 28, "Print"],
Cell[369697, 8604, 173, 2, 28, "Print"],
Cell[369873, 8608, 425, 9, 28, "Print"],
Cell[370301, 8619, 1876, 60, 75, "Print"],
Cell[372180, 8681, 240, 3, 28, "Print"],
Cell[372423, 8686, 154, 2, 28, "Print"]
}, Open  ]],
Cell[372592, 8691, 222, 4, 38, "Output"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[372863, 8701, 100, 1, 65, "Subtitle"],
Cell[372966, 8704, 131, 1, 38, "Text"],
Cell[CellGroupData[{
Cell[373122, 8709, 2054, 32, 64, "Input"],
Cell[CellGroupData[{
Cell[375201, 8745, 193, 3, 218, "Print"],
Cell[375397, 8750, 416, 10, 218, "Print"],
Cell[375816, 8762, 173, 2, 218, "Print"],
Cell[375992, 8766, 345, 7, 218, "Print"],
Cell[376340, 8775, 204, 3, 218, "Print"],
Cell[376547, 8780, 691, 14, 218, "Print"],
Cell[377241, 8796, 288, 6, 218, "Print"],
Cell[377532, 8804, 174, 2, 218, "Print"],
Cell[377709, 8808, 646, 13, 218, "Print"],
Cell[378358, 8823, 185, 2, 218, "Print"],
Cell[378546, 8827, 452, 11, 218, "Print"],
Cell[379001, 8840, 412, 10, 218, "Print"],
Cell[379416, 8852, 408, 8, 218, "Print"],
Cell[379827, 8862, 410, 10, 218, "Print"],
Cell[380240, 8874, 391, 7, 218, "Print"],
Cell[380634, 8883, 170, 2, 218, "Print"],
Cell[380807, 8887, 194, 3, 218, "Print"],
Cell[381004, 8892, 383, 7, 218, "Print"],
Cell[381390, 8901, 546, 10, 218, "Print"],
Cell[381939, 8913, 164, 2, 218, "Print"],
Cell[382106, 8917, 149, 2, 218, "Print"]
}, Open  ]],
Cell[382270, 8922, 198, 4, 293, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[382505, 8931, 2484, 42, 106, "Input"],
Cell[CellGroupData[{
Cell[385014, 8977, 460, 7, 28, "Print"],
Cell[385477, 8986, 681, 14, 28, "Print"],
Cell[386161, 9002, 436, 6, 28, "Print"],
Cell[386600, 9010, 618, 11, 28, "Print"],
Cell[387221, 9023, 469, 7, 28, "Print"],
Cell[387693, 9032, 957, 18, 28, "Print"],
Cell[388653, 9052, 553, 10, 28, "Print"],
Cell[389209, 9064, 910, 17, 28, "Print"],
Cell[390122, 9083, 450, 6, 28, "Print"],
Cell[390575, 9091, 717, 15, 28, "Print"],
Cell[391295, 9108, 674, 14, 28, "Print"],
Cell[391972, 9124, 653, 11, 28, "Print"],
Cell[392628, 9137, 676, 14, 28, "Print"],
Cell[393307, 9153, 635, 11, 28, "Print"],
Cell[393945, 9166, 433, 6, 28, "Print"],
Cell[394381, 9174, 457, 7, 28, "Print"],
Cell[394841, 9183, 648, 11, 28, "Print"],
Cell[395492, 9196, 811, 14, 28, "Print"],
Cell[396306, 9212, 431, 6, 28, "Print"],
Cell[396740, 9220, 414, 6, 28, "Print"]
}, Open  ]],
Cell[397169, 9229, 604, 10, 38, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
