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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[   1251763,      31825]
NotebookOptionsPosition[   1109184,      28275]
NotebookOutlinePosition[   1109540,      28291]
CellTagsIndexPosition[   1109497,      28288]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.6035389591727333`*^9, 3.6035389606320753`*^9}, {
  3.608281672604871*^9, 3.608281673651908*^9}, {3.6097575541555*^9, 
  3.609757557300255*^9}, {3.676335303896755*^9, 3.676335334246355*^9}, {
  3.676335385626495*^9, 3.6763353861604567`*^9}},
 ExpressionUUID -> "25d87cd0-c9d8-4939-a8dc-ac4a56cb570e"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Use", " ", "LTypeI", " ", "for", " ", "Type", " ", "I", " ", "2", "HDM"}],
    ",", " ", 
   RowBox[{"LTypeII", " ", "for", " ", "Type", " ", "II"}], ",", " ", 
   "LTypeZ", ",", " ", 
   RowBox[{"for", " ", "Type", " ", "X"}], ",", " ", 
   RowBox[{"LTypeY", " ", "for", " ", "type", " ", "Y"}], ",", " ", 
   RowBox[{"LInert", " ", "for", " ", "Inert"}], ",", " ", 
   RowBox[{"LAlign", " ", "for", " ", "Aligned"}], ",", " ", 
   RowBox[{
    RowBox[{"and", " ", "L2gen", " ", "for", " ", "2"}], "-", "gen"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.6906047948558187`*^9, 3.690604795042328*^9}, {
  3.6906048399064865`*^9, 3.69060489197194*^9}, {3.6906049368775277`*^9, 
  3.6906049803226256`*^9}},ExpressionUUID->"5d1b9710-816a-4dc8-b87e-\
4b31be8bb0a2"],

Cell[CellGroupData[{

Cell["Load", "Chapter",
 CellChangeTimes->{{3.653342759310401*^9, 
  3.6533427599244843`*^9}},ExpressionUUID->"3142da3e-be40-4cfc-a821-\
3a9e6bf8ec84"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   StyleBox[
    RowBox[{"LaunchKernels", "::", "nodef"}], "MessageName"], 
   StyleBox["]", "MessageName"]}], 
  StyleBox[";", "MessageName"]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$WinDir", "=", 
   "\"\<C:\\\\Users\\\\giorgiobusoni\\\\OneDrive\\\\Documenti\\\\NumericTools\
\\\\feynrules\\\\feynrules-current\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$MacDir", "=", 
   "\"\</Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
current\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$MdlWinDir", "=", "\"\<\\\\Models\\\\S2HDM\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$MdlMacDir", "=", "\"\</Models/S2HDM\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$FeynArtsMdlWinDir", "=", 
   "\"\<C:\\\\Users\\\\giorgiobusoni\\\\OneDrive\\\\Documenti\\\\NumericTools\
\\\\FeynArts\\\\Models\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$FeynArtsMdlMacDir", "=", 
   "\"\</Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models\>\""}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Win", "=", 
   RowBox[{"(", 
    RowBox[{"$OperatingSystem", "\[Equal]", "\"\<Windows\>\""}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{"Win", ",", 
    RowBox[{"$FeynRulesPath", "=", 
     RowBox[{"SetDirectory", "[", "$WinDir", "]"}]}], ",", 
    RowBox[{"$FeynRulesPath", "=", 
     RowBox[{"SetDirectory", "[", "$MacDir", "]"}]}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.60353897829296*^9, 3.603539043421093*^9}, {
   3.633332218679607*^9, 3.6333322194542303`*^9}, 3.633333796845446*^9, {
   3.64301873415166*^9, 3.64301873665499*^9}, {3.6452720966860647`*^9, 
   3.645272098076991*^9}, {3.647076372652458*^9, 3.647076373114575*^9}, 
   3.653342717270969*^9, 3.675137081154721*^9, {3.676084282701885*^9, 
   3.676084294904183*^9}, {3.676100972910183*^9, 3.6761010336739855`*^9}, {
   3.676103336774192*^9, 3.6761033538826265`*^9}, {3.6763353421414833`*^9, 
   3.67633534662798*^9}, {3.67633539144937*^9, 3.676335439151947*^9}, {
   3.676336791519855*^9, 3.676336837723803*^9}, {3.676340778137195*^9, 
   3.676340785151307*^9}},ExpressionUUID->"9c815ce5-d6fc-47fd-8968-\
e63bbf6963db"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "FeynRules`"}]], "Input",
 CellChangeTimes->{{3.603539048879374*^9, 3.603539054382785*^9}, {
  3.630748915770712*^9, 
  3.630748916976617*^9}},ExpressionUUID->"c4e14d30-ea79-4266-849a-\
5b179a21df15"],

Cell[CellGroupData[{

Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwdyGkowwEcxvFZrZBGzPWPxYuFKHnhmNqYbPZiuYs31GZqtJLSXhBqb0jO
JG0oaSU50pIsQjFHKWtrZdncEqOkNcYcv8eLp0/PN1XVVt0cwmKxCmg37Ip+
Ua9XYo/Sz8GscaUFpicqP2GaOSgWk7IdQTf8SH61QGOO8Riq1e8eyGiKA3CJ
rWOKSFvbfAbcX69zw1298Bbqa+0pxaT/qisfligsK6Xkw6/iFF5OiYVScqCo
nicjE0xaAWzVFHDLyNEJTzTUrp65lGRgWTSgIo94e4uwNTZog4znQtaEPmh5
GSZHHNcfcHv3IHGc7Avnyg3knDOmkzF4JRN3kdNwUKe9hY2cex/UReb9wIf1
sa0kMsLHd8yQJ7a9zfNVryRoNVthuVn4+P+lrjcYljsb5yYLK0Oz4ZPpcwP2
MOJt6BsyHMKlplwn/HZl3sObZPkzDOVP+mF1TUeYh6ziBOJhy4KuARq/StsV
a17JHwzY8ys=
  "],ExpressionUUID->"c0188b0a-c7b1-4581-985d-fce232c037cb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.29\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"\<\" (\"\>", " ", "\<\"06 July 2017\"\>"}], 
   "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm["Version: ", "2.3.29", " (" "06 July 2017", ")."],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwdyGkowwEcxvFZrUwyuf1D82IhSl4MU9tMNnux3MUbao4arZbSXhBqb0jO
JM1R0kpytJaWRSjmKGVtKcvmlhglLTbN8Xu8ePr0fNObdNWtYSwWq5B2y64Y
EPf5ZM5owwLMmVDbYGay+gtmWEISCanYEfTAQOqbDU7nTR/DlpZPL2Q0xUG4
wtYzUtKhW8yC+9Y6D9w1iO6godbJLyY/rrsLYInKtlZKPv6qTuHVjEQkJwel
9XEKMsmkFcB2TWFUGTk26Y2BWvO5W00GV8WDTeRR3N4ybI8POSDjvVQ0ow/Z
XkfIUddNAG7vHiRPkP0RUUojuXAW28UYfbLJe94sHNJr72Aj58EP9bz8H/ho
Hd9KISP9aa458sSxt3lh9slCdosdlltET/9f7n6HXOF8gocsqgzPhc+mrw3Y
y0i2oX/YeAhXmoVn8Nud/QBvU5UvMDxt6gNW13RyvWQVJ5gI25b0DZDfJ+9Q
rftkfwWq8jY=
  "],ExpressionUUID->"95ee9bcf-0a53-4db4-a99c-63d858f2b992"],

Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
B. Fuks\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwdyGkowwEcxvFRq01r5N4/W7wQouQFNmUz2Xix3MUbao4arZbSXhBqb0hz
taQNpbWSHGlpWYRyl7JIWcw1EqOkNaY5fo8XT5+eb0qTrro1jMViiWl34RUD
hX0++UmUwQqzTGonTBeov2CaPSSVksrN1B74KXxzQkuO5RC2tHx4IKMpCsKF
cD0jI1262Qy446i7hFsGiRcaak+Si8jATXc+LFY5l0rIx1/VMbyelEoU5KCs
PlZJJtq0qbBdI+aXkqPjnmioXT53q8ngYuFgE3kQuz0P2+NCLsh4rpTN6Ebn
6zA5cnr7CTe29gQmsj+CX2YmrWcxXYzZJx+/j5yCRr3WCxvZD36oj8z7gY+O
sfUkkucXnU6TR67ttYtlnzy0a9+F5XbJ0/9XuN8hN3cm/pIsqORkw2fb1yrs
ZaQb0D9k3ocLzbln8Nud+QDvhGUvkCOaCMDqmk6uh6xiBxNg25y+AfL8ig7V
ik/+Bwg98pc=
  "],ExpressionUUID->"ae6fa3aa-dd8b-48b2-b346-10a6544226ef"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwdyGkowwEcxvFRCmnk3j8TL4QoeeGY2phsvFiOUbyhxhRaSWkvCLU3tOZq
LW0orZXkSEuyaBRzlLKmlcVcIzFKWmNrjt/jxdOn55vZ3ivtDGOxWKW0+/C6
Mf6IV+iIUxlhvlZmgTkcWRBmm0MCASnezRqCX9x3CzQUGk6gXP7phkxXRQCu
hCuZctLeu5gLDzabr+CeiueBqiZHRgXpvx0sgZUSy1oV+fQrOYM3swKeiFSX
tySKyVSTIgv2dJWyq8kpnTseKtYvXDIysMpXt5PHifvLsCcpZIeM+1rcga6x
vE2Qk+d3X9C6d8jRkqPR7Bo9aXQmDDB6r1D3EDsHNUqFB7ZFPPqgMrb4Bz5t
Tu+kkTG+9PN58tS+v3257hWGbGYbrDXznv+/yPUBo4oWkq/IsvrIAvhiCm7B
YUZghb5x/RFc6Shywm9X3iO859a8wsj0GT+UNvZHucmGiEAK7F5StsJTubhP
suEV/gEKU/LI
  "],ExpressionUUID->"4aa6880d-5a99-4c00-8945-3a298352bc2c"],

Cell[BoxData["\<\"Please cite:\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwdyFsowwEcxfFRyiTE3P6xeBCi5GGYMpuYPSz34oXaUKzVUtoDofZCa26t
pbmU1koy0pIsQjGXUtakLNvcE6OkNaa5/I6H06fzzZSrGjrDWCxWCe02vHak
bMgncsZpTDBfL7PBnFTZF8y2hgQCUryTNQA/099scLpw+hh2dHx4INMlDEJL
uJopJx2qhVy4v97shrsa/h3UNDkzhGTgur8YVkhtK5Xk46/0FF7NCPhVpLa8
hSMmU8zKLKjoKompJicMnnioXL1wycjgcplWTh5x9pagIjHkgIzHK25H19le
x8jxs5tPuL17kKonh6NiJEbSdJ7Qxxh9IsN97CzUqZV3sC3iwQ/VsUU/8HF9
ciuNjPZzz+bIE8fe5uWqTxSyW+2wxsp/+v9VrnfI5s0nucnSusgC+Gz+2oCD
jGAb+keNh9DSzjuH3668B3ibLnmBkdypAGxo7GV7yPqIYDLsXlS3Qq9L3CNd
84n+AA4W808=
  "],ExpressionUUID->"37753a6f-ccd6-4a51-9edb-4e0ca7b20735"],

Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
(arXiv:1310.1921);\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwdyGkowwEcxvFRq00yuf1DvBCi5IVjarPJxovlDm+oDTVaLaW9INTekOZK
S3OUpCRHa0kWsZqzlDWtLObWYpS0xtYcv8eLp0/PN02hrm0PYbFYRbT70Koh
wYBHbI/ULsCcSbkZZibKAzDDFBQKSeleeh/8Sn43w+m86RPY1vbpgoxS5Ier
oRqmhLSpl7Lg/mbjFbRo+Q9QW29PFZG+295CWCozr5eR7l/ZGbyZEfIl5HBJ
U4yUTFhUpcNOZVFEOTmud0VBlfHCKSf9a4JhBXkcY12BnbFBG2Rc19JWdJ35
bZQcO7/7gruWw8RJcjAsosJALjiiexiDR6x/5M1CnUb1AFvYT16o4RX8QPfm
xE4SGe5NOZ8jT23W7UujRxw8MB3AShP/+f9LnB+Qmz8fd0UWV3Ny4ctiYAv2
M8Jd6B0xHMHV1nwH/HZmP8H75IpXyEmZ8sHaum6ui6xh++Nhx7KmGeobyrtk
Gx7xHwg/8oQ=
  "],ExpressionUUID->"69f0e795-c7f7-4cd6-95eb-c739f5596253"],

Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
(arXiv:0806.4194).\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwdyFsogwEYxvFRyqQRc/pCXAhRcjE2tTExLpZzcUNto0arpbQLQu2GlmOS
5lCSkoy0tHwRag5TyppWFnNeYpS0xjSH93Hx9Ov5pyu1dW0hHA5HSLsLrR4U
93uljmj9AsydULAwK0nxBTPNQYmElO1m9MLPlDcWTudPH8PW1g83ZNQlAWgK
1THFpF27lA33LY2XcE8vuof6BkdaCem/6SmEpXJ2rYx8/JWfwusZiaicNBQ3
8WVk4qImA3aohbwKcmzSHQM16+cuBRlYFRuUpI1vXYEdcUE7ZNxXMhX6EPs6
Qo6e3X7Cnb3DpAlyIIJXaSQXnLHdjNErnXyImoVDOs09bAnz+KAuquAHPlrG
t5PJSF/q2Rx5YrduXax7pcED8wGsMoue/n+56x1yBfPxl2RRTXgefF782oR9
jGQH+oaNR9CkEjjhtyvHA+9SKl9geOqUH9bVd3HdZG1YIAG2L+uaodlW0Snf
8Er/AAxF8xM=
  "],ExpressionUUID->"0ece6762-75b6-449d-a72a-c0afc324429c"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwdyFsogwEYxvFZFBJiTl+ICyFKLsamNiabXSzn4oaaTaGVlHZBqN3QcmxJ
G0pSkkNakkUo51LW1sqyz1mLUdLC1hzex8XTr+ef3txR0xLE4XAEtDtu5aCo
3yOxRevmYK5BaYFZSUo/zDQHxGJStpvRC79S3izQlG86hWr1JwuZ1hIfXOZq
mWLS2rGQDQ826l1wTye8h7o6W1oJ+XHTUwhLFZbVMtL9qziH11NioZTUFzfw
ZGTivCYDtrcKIsvJsQk2BmrWLpxK0rci0jeTJ7z9JdgeF7BChr2SqdCHLK8j
5Kj99gvu7B0lGciB8Ei5kZxzxHYzRo9k4iFqGg5pNfewKeTRC7VRBT/QvTG+
nUxGeFPtM+SZdX/rcs0jCRyaD2GFWfj0/6XOdxjGn413kUVVoXnwed6/CfsY
8Q70DhuP4bKK74DfzpxHeJcif4GhqZMfsKa2K4wlq0N8CbBtUdsIg0XyTsW6
R/IHAw7x2w==
  "],ExpressionUUID->"4c7a1ffb-ea37-4401-82fb-9a7f538874bd"],

Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwdyFsowwEcxfFRq5FG7vtniwchSh6wKWOy2cNyGcULtZkaraS0B0Lthdbc
0tKGkpTkkpZkEcq9lGUpy+aykRglLUxz+R0Pp0/nm6ZuV7aEsVgsIc0bXjVQ
3OeXnMUYZmDOmMoOM3mqL5hhC4nFpGw7vQd+8l/t0JpnPYYazYcHMtrSIFwM
1zMlpKN9LgvurdW74Y5B5IOGurPUUvL9prsQlinsy+Xkw6/iFF5PiEVS0ljS
EC8jk2d16bBNK+RWkCNmTyzUrVy4VGRwqdioJo/idxdgW0LIARnPlawZ3WR/
GSKHnbefcGvngDdG9kdy5RZy5jyui7H4Jea76Elo0ut8sIl9H4D66IIf+LA2
uplCRgUEzinyxLG7cbnil4T2bfuw0iZ6/P9S1xuMyJ9OdJNF1Zxc+DT7tQ57
GfEWDAxaDuFic/45/HZl30MvX/4MOYLxd6is7YzwkDXsYBJsndc3QpNN3qFY
9Uv+AAqB8tg=
  "],ExpressionUUID->"c963f368-8c44-40e2-9680-a5157518cc38"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwdyFsowwEcxfFZrZAQc9k/xMNClDxgU9tMDLXcixdqQ7FWUtoDofZCy7W1
NJeSVpKRlpZFo2YupSxSFnNfYpS0MM3ldzycPp1vmrKzti2ExWIJaLfsqiHR
gE96HK2dh9l6hQ1m8BRfMN0SFItJ2Ra/D34mv9rgVO7UAWxt/fBApr0oAM1s
DSMhXZ0LmXDH2nABt7XCO6itP04tIt+vewtgsdy2UkI+/MqP4NW0WFhK6iSN
XBmZaFLzoapdEFlGjhs8MVC9euZWkIFlkU5J7nMdS1AVF3RBxnMpa0Eftr2M
kmMnN5/Qvr3L05OD4ZHlRnL+NLaHMfqkhvuoGTisUd/BZo7XDzVR+T/wwTqx
mURG+FNOZslDl2PjfNUnDTotTlhpET7+/1L3GwzLm4u/IAurQ3Pgk+lrHfYz
Yjv0jxj3oLkl7xR+u7O88Da5/BmGpky+w9q67jAPWcMJJMCORU0TZAoquuRr
PukfA5rx7A==
  "],ExpressionUUID->"d0118ed3-bfa7-405f-a7fb-beac96c51c5c"],

Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
FRPalette[].\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwdyGkowwEcxvFRKyTEHPuHeLEQJS+GKbOJoZZjFG+oOWq0Wkp7Qai9oTVX
kuYoSUlGa0kWRrlLWVvKsrklRklrbM3xe7x4+vR8U5tVsrYgFouVT7sLrhos
7HeLbVGaeZg1LjfDdK7cD9NMAaGQlOzweuFX0rsZTuVMncDW1k8XZBQiHzQE
q5ki0qpazID76/VOuKsR3ENNnS1FRHpvevJgsdS8WkI+/UrP4PW0UFBKaosa
OBIyYUHJgx2K/IgycnTCFQ2VxguHnPStFGqbyWPO3jLsiA1YIeO6krSg68xv
w+SI/fYLWnYPuePkQFhEuZ6cP4/pZvRu8cRD5AzUqZX3sIn96IHqyNwf+LQ+
tpVIhnuS7bPkqXVv89LoFgcOTAew0iR4/v+ljg8Yyp+Lc5IF1SHZ8GXBvwH7
GKEFeob0R9DQwj+H347MR3iXVP4KQ5InvVBW2xXqImvYvnjYvqRuhKLtik7p
mlv8Bwh08pg=
  "],ExpressionUUID->"df196a39-2551-4cae-809d-b6ea60329d51"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{"Win", ",", 
    RowBox[{"SetDirectory", "[", 
     RowBox[{"$FeynRulesPath", "<>", "$MdlWinDir"}], "]"}], ",", 
    RowBox[{"SetDirectory", "[", 
     RowBox[{"$FeynRulesPath", "<>", "$MdlMacDir"}], "]"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.603539061006528*^9, 3.603539075359961*^9}, {
   3.606550370901471*^9, 3.606550372067235*^9}, {3.608280713549712*^9, 
   3.608280720038208*^9}, {3.608280848612903*^9, 3.608280850051903*^9}, {
   3.610078232055901*^9, 3.610078244162396*^9}, {3.611032810906569*^9, 
   3.611032811729677*^9}, 3.611046032505571*^9, {3.611046080564261*^9, 
   3.6110460835240393`*^9}, {3.616920451742062*^9, 3.616920454335582*^9}, {
   3.61692081007111*^9, 3.616920811789462*^9}, {3.6169220902135057`*^9, 
   3.6169220916785192`*^9}, {3.627800218613393*^9, 3.6278002208210363`*^9}, {
   3.630748932272941*^9, 3.630748937906595*^9}, {3.633332239193083*^9, 
   3.6333322403879013`*^9}, 3.633333794100926*^9, {3.633759468942481*^9, 
   3.6337594703175983`*^9}, {3.635681641356083*^9, 3.6356816446148367`*^9}, {
   3.6376402973444223`*^9, 3.6376402986547117`*^9}, {3.639376919579711*^9, 
   3.639376921244483*^9}, {3.6405100299897413`*^9, 3.640510032443145*^9}, {
   3.643018741816877*^9, 3.643018742543559*^9}, 3.643024926442786*^9, {
   3.645273275267683*^9, 3.645273276634437*^9}, {3.645274930954957*^9, 
   3.645274932634717*^9}, {3.645770163878159*^9, 3.6457701691664543`*^9}, {
   3.645780013280984*^9, 3.645780013490704*^9}, {3.646026237633871*^9, 
   3.6460262398106728`*^9}, {3.6473477666176853`*^9, 3.647347767847106*^9}, {
   3.649402992381681*^9, 3.6494029933443527`*^9}, {3.65334273616147*^9, 
   3.6533427389836483`*^9}, 3.6751370890880084`*^9, {3.676081658795355*^9, 
   3.676081659481019*^9}, {3.6760842875723658`*^9, 3.6760842909138737`*^9}, {
   3.6761010142197447`*^9, 3.676101037592718*^9}, {3.67633546684862*^9, 
   3.676335473735612*^9}},ExpressionUUID->"6f4692bc-337d-4f8f-9f6e-\
dd10a25f5b78"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Change", " ", "to", " ", 
   RowBox[{"SM_CMK", ".", "fr"}], " ", "to", " ", "account", " ", "for", " ", 
   "entries", " ", "in", " ", "CKM", " ", "matrix"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7167712904717607`*^9, 3.7167713163717537`*^9}, {
  3.716771491660242*^9, 
  3.716771491860235*^9}},ExpressionUUID->"3b284d7b-5f4d-45bb-99d1-\
32f1ebc60ec7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadModel", "[", 
  RowBox[{"\"\<SM.fr\>\"", ",", "\"\<S2HDM.fr\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.633332249125042*^9, 3.633332249491701*^9}, {
   3.6337594763689528`*^9, 3.6337594776507893`*^9}, {3.6356816576884117`*^9, 
   3.6356816603749027`*^9}, {3.637640302808282*^9, 3.6376403082726*^9}, {
   3.637640716438528*^9, 3.6376407440268297`*^9}, 3.643024914860723*^9, {
   3.645273293611383*^9, 3.6452732956188726`*^9}, {3.645770176958198*^9, 
   3.645770177262162*^9}, {3.646026243920371*^9, 3.6460262460509453`*^9}, {
   3.647347782049244*^9, 3.64734778358805*^9}, {3.64940300547442*^9, 
   3.649403021810585*^9}, {3.675137095078703*^9, 3.6751371002846923`*^9}, {
   3.6760816672425003`*^9, 3.6760816692733583`*^9}, {3.6760845517446547`*^9, 
   3.676084579574003*^9}, 3.676085343820545*^9, 
   3.6763348248551292`*^9},ExpressionUUID->"c849dc20-8d00-4d79-b3f5-\
44dc86a4c15b"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzk0og3EAx/HtuIvlYQstWWq44HGxkT17lpfZuCw5LAvbXFzmndTykuRl
CVNM1HIiaSZNW2s7MC+XbdJKM0stSTMrsuKA/+/w63P5Hb5ig1nbx+VwOFKy
c/78QsNUipX9ufegxbnlgdMi+w+M6+oZObFj1GiB71SZF5avRG7gh4BOwJqM
5RtaX46KGOLA/lMFPLEdxOHa/ngSmkr4YgWxLuCuhRoqdNxI9DsCYaiecMua
iI5gvqCZGM1WS+CF/Cunhdhq28yDWSE/1ks8axpaMuAf/j2E9yb6Fnq7cluM
xOVIOr2C3kPqG3oVf4U24kRCqbITQ0HTZJE9xfZqdTvwcvEiCaXrlV9wiZ75
hSJJwiciWmf773aJOS6u7+E4xW7oM0HYVTz8Cms6qU+olMSEcaJ8la2CoVKp
B45dz/ph7Cx8BRNqcxQ2x0zPcGR77g32JKNZyOt28h6JKoYpgBTt0sN2zeJg
22mK/QfRa+/W
  "],ExpressionUUID->"fd51c212-3deb-4235-88fe-457116a21740"],

Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzk0ogwEcx/Ht6GJ52EJLpIYL5mIj2x5hM06Sg8jL5uIy76SWlyQva2GK
iZITSV7SlrU4MC+XPaSVHvOklqQHK7Kaw/j/Dr8+l9/hm9Npa+iSSiQSDe1c
Nj1TMSay2j/PFrTvr57AcaX7F4aby/U6snHQYoefTJ4P5jtvb+CXXC3Akqg9
Dh2ve5l6smf7uQAeuXbCcHF7OAKt2bIcA1l25imFdUzwoIo83TzjoHnEo60m
NwNp8hoyFCtWwQvdT7KRrHWtpMKYQsZ3kN7qvrlO/LnELnywqu+gryXFaCHn
bz8+nOjdZeLQZ/jLcJEjQqXJTQYD1tFMt8h2NDSvw8vZiwjULBX+wDn1RAIq
VYJfSTomu+83yORDqf/xQGSXW6MB2JLV/wZLmphvWKniFWFSt8AWwWCu5gQO
XU+eQt7LXUHBbAvBGt76AgfWpt5heyQUg0lt+0lPpEmvT4eM+rAVOrjZ3vpj
kf0H1v/wmQ==
  "],ExpressionUUID->"1727fb9d-7b8e-4ae8-946b-816723661998"],

Cell[BoxData["\<\"G.Busoni\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzk0ow3EAxvHt6LLlj8Vasmi4YC42su2/zOal1JKDiNlcXLyz1MKSmLUw
xUQtp2lpmzRZaw7My2WbtNLMUkvSjKKtOJjfc3j6XJ7Dlz80qh5mMhgMEdkF
e3mleT5Fi3PeA2hw7ZzBBZ7tF8Z7m6QSYve01gA/qEofrLJEbuFXkTAB6z8N
P9D8esSVEsccz9Xw2HoYhxuO2STUlbH5MmLjubcBdlAhdwsxYD8Pw3a9V6wg
2oOFRa3EaLZOAC8lGZaS2GbdLoBZDjumIZ4qJkxD+If/nPBBJ7yDvr58pZa4
FkmnLeh1Uj/QJ8uVWIn6hFxlI4aCujmuLUVr1L178Gr1MglFmzUZaBIu/kGe
IOHnEc3Gkft9IsvD9D+6U/RW/2cQ9pVOvsH6HuobygUxTpwoWadrYahcdAZn
bowBGDsNX8NE+2gUtsZ0L3Bqd+kdDiajWZg34Mp7Iqqk0mJICT39sKLLNN55
kqL/AdBF77I=
  "],ExpressionUUID->"95f897c2-1bd9-4721-8551-497994e55acb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
  SequenceForm["Model Version: ", "1.0"],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzjtIgmEAhWEbXZL+LlRIFIHVUulQWqT90b0miQZRumhLi92TQCqJKBOp
DMookCZDQo1QFNGhrFzUCCHMJJCIMBMKhRq07wyHZznDWzOpFE8VMBgMPtk1
a3OrYzVJC/KOM6i2HrngGtv4B2OSdpGQOLIoV8Mvqs4N6/XhAPwu5cYhL63+
hbr3i0oRccb82gAvDecxuGdeTkBFNaumk9jmc7TCISpo6yZ6Tb4QHFQ5BD1E
k7+ktJcYyTZz4I0wU9hHHDAcFsNsGSs6QXT2zGkn8Q/lLPBJwX2AbmlRn5y4
E06l9Oi1UL/Q3ZmvMBBV8a5+IzHoV6xUGpP0hFhyAm+3bxKQv9+YgVrueg6y
OXEPm6jTTD+eEgvtBZ5nW5I+kKX9UFo1/wF5o9QP7OJEy2JE4S7dBIO1fBdc
utd4YdQZuoPxQWUE9kYVb3DheOMTjiciWcgcszJfiP0iUTmkuHYZbAloZ4ev
kvQ/1CvwPg==
  "],ExpressionUUID->"da847973-cea8-4e3d-b29c-f6d6f2580138"],

Cell[BoxData["\<\"Please cite\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzk0ogwEcx/Ht6GJ5mNASqeGCuRiyxyO2GSfJQVuMx8XF+0tqeUliWwtT
TJQcRBKTtizNgXm5bKSVHvOklqR5KbLigP/v8Otz+R2+2W1dDR1SiUSipp3I
pqYrRmNc6Z9nHVp2lw7hmML1AyPN5ayGbBxot8A3JtcH8xxXl/BDrhJh8bvl
G9qfdjJYsnvzIR/uO7cicG5zKAr5LFl2JVl27CmBdUxwr5r0rx2HoGHYU1pD
rgVS5FoyHC9SwlPNV6KOrHUuJsN4qkwwk96aXmsb/qHfbXjLq66hz5ikaydt
V6+vDvRuM9/QV/mX7iSHxSq9iwwG+JEMV4wzNzSvwLOZ0yhUzxd8Qatq/Bcq
lOKRgrRPdN6skolu6dHdXoxbML0HoDGz7xkWNzGfsEoppEZIzSxXCIM56kM4
eDHhh4I3dA5FQ1cYagX+EfYvT77A1mg4DhNadhPuST3LpkFG5TbBDc7WU38Q
4/4B0/nwJw==
  "],ExpressionUUID->"2c78735a-42b4-477c-8c51-9b8ebc048f03"],

Cell[BoxData["\<\"N. Bell et al., 1612.03475, 1710.10764\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzk0ogwEcx/E5ulgeLNaSpYYL5mLIHo+8jtOSgybGXKTm3VLLS5K3hCkm
Sk60xKRHluxg83LZSCs95kktScOKrDhs/r/Dr8/ld/gqO8z6rgSJRKKhXUin
Z8rHwlxJnN+B1oP1UziusP/BYEsZqyWbhjqt8JPJccHcxdsb+JWmFmFRxPoL
F1735SzZu/ucB49se0G4vDsSgqYsqbKCLHXzxbCB8R1Wkefbbj/UWfiSanLb
m5pWQwaihSro0f4k1ZL1trUUGJVJBSN5Ut0/14G/P+aADyb1HXQZkms7yfnb
j49F9DqYX+iqiGfYSItYWWcnfV7TqNwe5oz6lk14OesJQc1K/g+cU0/EoEIl
ninIhcnu+y0yyZlw9ngY5lZbI15oyBx4g0XNzDesVAmyIKld4gqgL1tzCoev
J8+hcOK/gqLOHIA1gukFDm5MvcP2UCAKE9sOEp/IOpZNh4za2Qp7+Pm+xuMw
9w/VXPBi
  "],ExpressionUUID->"e0f65344-6178-4f24-bd6f-bce19caff814"],

Cell[BoxData["\<\"http://feynrules.irmp.ucl.ac.be/wiki/DMsimp/\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzk0ow3EAxvHtuMuWPxNridSQwnaxkW3/ZV7GaclBhG0uLvNuqYUlMUuY
YqKW07Q0pMladrB5uWyTVppZakmaUdZWHDa/5/D0uTyHb4VGrx5hMhgMMdk1
Z3mlZT5JS/LuQ2h07V7CBb7tD8b6mmVSYs+01gi/qCoPrF4P38MfrjAORd/G
X2h5P+bJiGOO1xp4Zj2KwU3HbALqyjkVcmKTz90Iu6jgSSvxyu4LQZXBLVES
7YEibhsxkm0QQL80w24ndlp3CmG2mBMdJl4oJ8wa/EM5J3zSCR+gp7+gXUtc
C6dS6+h1Ur/QI8+XWomGuKLDRgwGdHM8W5IeVvftw5tVfwKKt+oy0CxczEG+
IO7lEy2m0ccDIvuU6X0+SdLbA98B2F82+QFFvVQaKgTR4hhRukHXw2Cl+BLO
3JmuYPQidAvjKn0EtkV1b3Bqb+kTDiUiWcgadLFeiB0yWQmkhKcDMF1rGe8+
T9L/1c3wXw==
  "],ExpressionUUID->"c69abc5c-c93f-4231-958d-7c9e21018c0b"],

Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
"Print",
 CellChangeTimes->CompressedData["
1:eJwVzk0swnEAxvEcu9T8qdGaMVu4oC6KKf+m5OXUzMEYKReXkJdma15mRpoh
Gxlbc8qwYpbVWh2Ul0tl1mZJszUzC22sNg7yew7PPpfn8K0Y0quHCxgMhpjs
kr203DybpiV59wE0OXc8cI5v+4WJ3iaZlNg9qTXBT6rKC6vXorfwiyNMQlHG
9AMtryc8GXHU8VwDz6yHCbjhmE5BXTm7ooXYGHA3wE4q7Gol+u2BCOwwuiUK
oj1UzFESY7l6AQxKs6w2Yrt1uwjmuOy4hnihGDcP4R/5O4IPOuEd9PYVtmmJ
q9GPjzX0HlE/0NuSL7USjUm5ykYMh3QzPFua1qh79+DVSjAFxZu1WWgWzv9B
viDp4xMtCyP3+0TWaYHv0ZWmt/ozIdhXZniDoh7qG8oFcW6CKF2n62C4UuyB
UzcLfhi/iFzDZIc+BpVx3Quc2F18h4OpWA4yB5zMJ6JKJiuBlPC0HxqOLWNd
52n6H9VU8GA=
  "],ExpressionUUID->"fa03f843-f717-4f51-9a9f-44a2762a6fff"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzk8og3EAxvHt6LLlxUILSw0XzMVGNu+yYZyWHBZh5uIy/0ktLIlhYYqJ
ktO0tE3asjQHmz+XbdJKM0stSS9WtNUcxu85PH0uz+Er0OrVQ2wWiyUmu+Iu
LTfNMbTkz30EDY7dczjPt/7CmKZRJiV2TQ4a4BdV4YWV5vAd/C4QxWFd0pCB
a28nxTLiiO2lCp5ajmNw0zadgLoyrqCZ2HDprocdVNDZQvQdXoagasYtURAP
A/kFSmIkXSuEfmmK00pst+zkwTSPGx0gehRjJi3+oawdPupE99Dbk9s6SFwN
f36a0WunMtDb/FdkIc7E5W1WYjCgmy22MvSAWrMPr1f8CSjeqk5Bk2ghC/nC
+AWfuGYcfjggclzsiycnQ2/3JgOwp2T8HdZ1Uz9QLozyYkTpBl0Dg+Xiczh1
a/TBqCd0A+MqfQQqo7pXOLG3+AH7E5E0zOlz5DwT22SyQkiJXL2wtGx9tPOM
of8BzubvgQ==
  "],ExpressionUUID->"ce00cd70-4c06-4763-bca3-4693a9c0f387"],

Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzjtIQmEAxXEdHUq6pVRIJIHVUumSFWk30p6TREMUpd6WFnsngVQS0cOk
Mih7gDQZEj0IQ5Ec0h6LFiGEmQQSEWZBoVCD9p3h8FvO8BdqdKoBNovFkpJd
cucX6qfjdE3GuQ8NR1suOCOw/sFId51cRuwc1xrgJ1XqhmXmu1v4zRNHoeTL
8AtNb4eFcuKQ/aUcnloOInDNPhmDTDFX2ECs9TqrYTsVOG4iXti8Qdimd9Yo
iDZ/Hk9JDKWqRNAnS2Y3E1stm7kwxeeG1cRzxciSBv9g2gEfGfE9dPfkNGuJ
y3eJhBm9DuoXuhsyBRaiPtrYYiUG/MxUoTVOq1Xdu/Bq0ReD0vWKJFwSz6ah
QBT1CIgm4+DDHjH7hO15Oo7TG71ffthTNPoOJV3UD2wUhfkRomyVroSBEqkL
TtwYL2D4PHgNo226EFSGmVc4tj33AftjoRTk9B1xnoktcnk+pMQnvTBrZ2W4
4yxO/wPRs+/q
  "],ExpressionUUID->"e08efe0e-4f2b-4026-9a5a-50dce432b308"],

Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzjtIgmEAhWEbW5L+SkokisBqqXRJi7RfKrtNEg2ilGlLS3aXQCqJKAu7
GJRRIE2GhBqhKKFD2mXRIoQwk0AiwkooEmzQvjMcnuUMb/XIuGy0gMFgCMgu
mSurbQspWph3H0O9Y98LFzmWPxiXt4pFxIEZtR5+UbU+WGe6u4XfZbwE5Kf1
WbjxdsoWE7W2l3p4Zj6Jw23bXBJqqpjV7cSWgLsZ9lFhZwfRbw1EYK/OLewk
WkOlZV3EaKaJC4Oi3yIpsce8VwIzLGZMRfR0ThpH8I/k7PBRw7uHPkWxVE1c
v/v8NKHXTmWhrz1fYSbqEpJuCzEc0syzLSlaJZMfwqu1YBIKdhp+oZG3lIMc
buKCQ9wwjD0cEYtcBRdPzhS9q0yHoKJy6h3yB6kfKOHGWHGiaItuhOEagRfO
3hj8MOaJXMNE73gUdsU0r3D6YPkDDiejGVg45Ch8JnaLxeWQ4rmU0KjdnOg/
T9H/1HrwPg==
  "],ExpressionUUID->"5569e824-32f0-468f-b33f-4ca9c6b0d482"],

Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzjlIgmEAxnEbXZS+MkokksBqqXTJirQv8uiYIhrEKNOWFruTQCqJKBM7
DMookKYiQo0wEtEh7VjUCCHMJJCIsAMKBRuy9xkefssz/PlD+p7hAgaDISa7
ZC8tt8yl6ca85wAanTsXcJ5n/4UJVbNUQuyd0hrhJ1XlhdXW6C385giTUPRl
zEHL6wlXShw9fK6Bp7ajBNw4nElBXQWb30psCngaYBcVdrUT/Y5ABHYaPI0y
oiNUzJETY9l6AQxKMiwFscO2XQSzJey4hnguGzcP4R/5O4YPOuEd9KoLFVri
avTjw4reYyoHva35MhvRkGxT2onhkG6Wa0/Tmh7VHrxaCaageLM2A83ChT/I
EyR9PKLFNHK/T2S5C3yPrjS91f8VguryiTco6qN+YJsgXpIgStbpOhiuFF/A
6RuTH8bPI9cw2amPQXlc9wIndxff4WAqloXMASfziaiUSkshJXT3w8XXtbHu
szT9D9eL8K8=
  "],ExpressionUUID->"0664aeb2-ec69-47cc-99dd-29bcf808e0b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"S2HDM\"\>", 
   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
  SequenceForm["\nModel ", "S2HDM", " loaded."],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwVzk0owwEcxvHt6GL5M7GWLDVcsF0M2fzFNuMk7bDIy/4uLt5ZanlJYiQ2
xUTJaVpi0tgSB5uXy0ZaaWapJWleirbiYH7P4elzeQ5fSVdvczefx+MpaOeC
mdnq8ThbkXJvQ/PemgdOiO2/MGKoUinJlmGjGX4whV5YtHhzDb+EsiiUf5p/
4MLLrkhF9jmeiuGBbScClx2jMcjlCyQ1ZOWZuxw2MoH9OvJ06ywIdSZ3RT25
5c8SqslQskwKfcpEuoZssK1mwmS2INxJHtUPWLrwD/454T0nu4Xe1gyNkZy/
eX9fRK+T+YHemlSujTRFa7V2MuDnxkT2ONvZbNiAF3O+GFRYSxLQIpv8g2Jp
9ERMLkz13G2S6S7+ycN+nF1p+/TD1rzBVyjXM9+wVhrOjpDKJbYUBgoUHjhy
NXUKw0fBSxjV9YagOsw9w6H16TfYEQslYVr7XtojqVWpciAjc7XBY721v+kw
zv4D1UbwVQ==
  "],ExpressionUUID->"3eb4600d-6b07-4fd3-ba42-d0178f3ed1ec"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Do", " ", "not", " ", "load", " ", 
    RowBox[{"Cabibbo", ".", "rts"}], " ", "if", " ", "you", " ", "loaded", 
    " ", 
    RowBox[{"DM_CMK", ".", "fr"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Load", " ", "Massless_", "4", 
     RowBox[{"f", ".", "rst"}], " ", "for", " ", "4", "F", " ", "scheme"}], 
    ",", " ", 
    RowBox[{"or", " ", "massless_", "5", 
     RowBox[{"F", ".", "rst"}], " ", "for", " ", "5", "F", " ", "scheme"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Do", " ", "not", " ", "load", " ", "restrictions", " ", "if", " ", "you", 
    " ", "want", " ", "all", " ", "fermions", " ", "to", " ", "be", " ", 
    "massive"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.7167713232523117`*^9, 3.716771331995193*^9}, {
  3.7167713786509666`*^9, 3.7167714070724993`*^9}, {3.716771744379442*^9, 
  3.7167717593392477`*^9}},ExpressionUUID->"10c0f7db-3437-45e7-b89c-\
52d9c7738db9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadRestriction", "[", "\"\<Massless_4f.rst\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.639376820290628*^9, 3.6393768234379387`*^9}, {
   3.6393770865564947`*^9, 3.6393770912761908`*^9}, {3.6393771858866796`*^9, 
   3.6393771863740797`*^9}, {3.639377466478868*^9, 3.639377471110105*^9}, {
   3.6393796364789057`*^9, 3.639379637142768*^9}, {3.639989012839026*^9, 
   3.639989036648665*^9}, {3.641539947651075*^9, 3.641539950365509*^9}, {
   3.641789785973187*^9, 3.641789792194556*^9}, {3.643025183012186*^9, 
   3.643025185439151*^9}, {3.645274945395602*^9, 3.645274957019786*^9}, {
   3.6457800188411694`*^9, 3.645780019775859*^9}, {3.646377072375288*^9, 
   3.646377083707752*^9}, {3.646465411317153*^9, 3.646465413430913*^9}, 
   3.690594555570958*^9, {3.704154579584324*^9, 3.704154583519915*^9}, 
   3.718407043961979*^9},ExpressionUUID->"ad75ee35-4bb4-44ba-99c6-\
c979a29472ed"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Loading restrictions from \"\>", 
   "\[InvisibleSpace]", "\<\"Massless_4f.rst\"\>", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "18"}],
  SequenceForm["Loading restrictions from ", "Massless_4f.rst", " : ", 
   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwVyGkogwEcx/GtiRxlJcyMmhfK84KixhS25cqRY46cMbxBjBLJVe45Inlh
TcReIQmpzVnK8YZpvJirIbEevLCmhuT/e/HtU1+xqjG3hsvhcGKobOPSUFw3
KzfV3S9ASf6GAX7I1r9hILcsIZ6sP+jrhJ6jMiPsnbadwuJY5T38XZ53QqnG
LEwgWyZdGHg+Z7qF7h3aJ1jbECWWkeIvSzS0lnyuJZLpP4/nkO+wSJPISJ7U
N5kUreaFwrvyAO8U0uix7QPZJOa6krRtjWhUpOpFtALbgtMuoE7CpFSRZ3y3
j3Eyx8I4Yfalv3CKFLSWpM6Q4eqBduEMKz+S9ehg6cPrE0wLUTrgfpD+Dyq0
vF0RPnfcPEvmjgl3btZYeYXB9QiKrMM2yCjC7NBe+Ol3S7YdFkXAbn2WAb43
z+5BjePlGGbyBq9gQVDXM7RO6N5gda39C6q9TtzvSK25VACb+x/L4Dd/sSlj
k5X/A8lB7dA=
  "],ExpressionUUID->"7d7f8fb4-158c-4cfc-a620-29b8c49b5bf7"],

Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwVyGkogwEcx/GtiRxFyTWj5oXyvKCoMYVNmBy5CSOGNyNXieQq9xyRvLAm
0kohCanNWWp442i8mGMNifXghbXJkfx/L7596itUNOTWcDkcTgyVrV8aiutm
pee15gUoKtjQwXfJ+jcM5JYlxJN1B32d0H1Uooe909YTWBKbZ4a/y/NfUKwy
8hPIlkknBp7Nnd9C1w71I1TWRwklpNBhioaW0o+1JDL95+EMetlN4mQykif2
SSEFq/mh8K48wFNG6t22vSGbzFxXktatEZWCVDwLVmBbcNoF1IgYWRV56uXy
Pk7mmJgvmH3px58i/VtLU2fI8MaBdv4MKzVIejRQfv/yCNNC8uxwP0j7BxPV
vF0BPnfcOEvmjvF3btZYaYXO2QAFlmErZBLDbNBW9OF7S7YdFkfAbm2WDr41
z+5Blf35CGbyBq9gYVDXE7RMaF5htdLmgI0ex653pNoo94fN/Q9l0PdzsSlj
k5X+A8iK7dc=
  "],ExpressionUUID->"247cdf40-45a7-425d-8954-4630a88ccf87"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Get", "[", "\"\<unitarity.m\>\"", "]"}]], "Input",ExpressionUUID->"a0947558-5723-4348-aba6-84c09029b479"]
}, Closed]],

Cell[CellGroupData[{

Cell["Check", "Chapter",
 CellChangeTimes->{{3.653342767661127*^9, 
  3.6533427702599983`*^9}},ExpressionUUID->"ab0bf5b2-c826-4f5a-8f2d-\
4c6faa9d88e8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
 CellChangeTimes->{{3.690590345475469*^9, 
  3.690590346688396*^9}},ExpressionUUID->"4122fdb0-e9d8-41df-8af1-\
df04c6d05f19"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CheckHermiticity", "[", "LTypeII", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.633332290865224*^9, 3.633332305905663*^9}, 
   3.63333373270155*^9, 3.6337594836385403`*^9, {3.6337598304792633`*^9, 
   3.633759842414878*^9}, {3.635681667322399*^9, 3.63568169987755*^9}, {
   3.637640325295994*^9, 3.637640326653831*^9}, {3.6494030879543467`*^9, 
   3.649403102697242*^9}, {3.67513714922744*^9, 3.675137151288228*^9}, {
   3.675717386860861*^9, 3.6757173883272285`*^9}, {3.67608175041523*^9, 
   3.6760817513107224`*^9}, 3.676149871432884*^9, 3.690589268340398*^9, {
   3.690589321708077*^9, 3.690589351953487*^9}, {3.6905894742141047`*^9, 
   3.690589490380245*^9}, 3.69058967218939*^9, 3.690590332634083*^9, {
   3.69059041338622*^9, 3.6905904271450233`*^9}, 3.690590725008671*^9, 
   3.6905912542832317`*^9, 
   3.6906050110835347`*^9},ExpressionUUID->"68451733-16b7-491f-bf89-\
859cb1e84b19"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
contained in L-HC[L].\"\>"], "Print",
 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9}, 
   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9, 
   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9, 
   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9, 
   3.6906656208148413`*^9, 3.704148957404253*^9, 
   3.718407064612265*^9},ExpressionUUID->"691e801e-3b1b-41d3-969f-\
8e2229764ac5"],

Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
should be zero.\"\>"], "Print",
 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9}, 
   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9, 
   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9, 
   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9, 
   3.6906656208148413`*^9, 3.704148957404253*^9, 
   3.718407064626873*^9},ExpressionUUID->"47af618e-6610-49b6-8a4c-\
aa7e3ea71f00"],

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.690589653666251*^9, 3.690589672833929*^9}, 
   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9, 
   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9, 
   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9, 
   3.6906656208148413`*^9, 3.704148957404253*^9, 
   3.7184070873548317`*^9},ExpressionUUID->"fab4c1e3-f15e-4c0e-b484-\
2bcc28394dfa"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9}, 
   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9, 
   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9, 
   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9, 
   3.6906656208148413`*^9, 3.704148957404253*^9, 
   3.718407087370283*^9},ExpressionUUID->"3628f30f-b8c6-4dc8-9923-\
5471c1ec85dc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9}, 
   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9, 
   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9, 
   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9, 
   3.6906656208148413`*^9, 3.704148957404253*^9, 
   3.71840708739179*^9},ExpressionUUID->"1b3f7831-af6a-4682-b600-\
4d1d1fd0dd6e"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9}, 
   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9, 
   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9, 
   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9, 
   3.6906656208148413`*^9, 3.704148957404253*^9, 
   3.718407088441052*^9},ExpressionUUID->"d5d7224b-9c8e-46db-940a-\
899b27915ec9"],

Cell[BoxData["\<\"No vertices found.\"\>"], "Print",
 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9}, 
   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9, 
   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9, 
   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9, 
   3.6906656208148413`*^9, 3.704148957404253*^9, 
   3.718407088457469*^9},ExpressionUUID->"11116daf-8e9b-48ed-9766-\
1bad6b36ccd1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[0, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9}, 
   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9, 
   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9, 
   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9, 
   3.6906656208148413`*^9, 3.704148957404253*^9, 
   3.7184070884754066`*^9},ExpressionUUID->"aeb5092c-0d1e-4a17-aa5a-\
b29d2701b801"],

Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
 CellChangeTimes->{{3.690589653666251*^9, 3.690589672833929*^9}, 
   3.690590169437201*^9, {3.690590334618842*^9, 3.690590351174878*^9}, {
   3.690590413683853*^9, 3.6905904292478247`*^9}, 3.69059072639183*^9, {
   3.690591237208523*^9, 3.690591256583358*^9}, 3.690591841201809*^9, 
   3.690591995682564*^9, 3.69059221417169*^9, 3.690594579210108*^9, 
   3.690594759445219*^9, 3.6906039856218395`*^9, 3.690605015517151*^9, 
   3.6906656208148413`*^9, 3.704148957404253*^9, 
   3.718407088496591*^9},ExpressionUUID->"0ca72eec-0bb2-49ee-831b-\
56cd51bf9bf5"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynmanGauge", "=", "False"}], ";"}]], "Input",
 CellChangeTimes->{{3.6761502882130136`*^9, 
  3.6761502976219826`*^9}},ExpressionUUID->"7a9da695-7861-4233-a15f-\
687f6d5b3c4d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CheckDiagonalKineticTerms", "[", 
  RowBox[{"LTypeII", ",", 
   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{3.690589990246211*^9, 3.690590029165821*^9, 
  3.690590181803727*^9, 3.690590331426298*^9, 
  3.6906050217513733`*^9},ExpressionUUID->"2eda7803-3087-40ad-9d22-\
61bdc9d92451"],

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.6905899962795963`*^9, 3.690590035305217*^9, {3.6905901794221363`*^9, 
   3.690590182765996*^9}, 3.690590378906474*^9, 3.6905912744023333`*^9, 
   3.6905918667251167`*^9, 3.69059205522261*^9, 3.690592293256*^9, 
   3.6905946501039867`*^9, 3.690594824040313*^9, 3.6906040431321754`*^9, 
   3.6906050695116215`*^9, 3.690665677175178*^9, 3.704148989315854*^9, 
   3.7184070969546947`*^9},ExpressionUUID->"81739269-4ded-470d-8470-\
8561f660f723"],

Cell[BoxData["\<\"All kinetic terms are diagonal.\"\>"], "Print",
 CellChangeTimes->{
  3.6905899962795963`*^9, 3.690590035305217*^9, {3.6905901794221363`*^9, 
   3.690590182765996*^9}, 3.690590378906474*^9, 3.6905912744023333`*^9, 
   3.6905918667251167`*^9, 3.69059205522261*^9, 3.690592293256*^9, 
   3.6905946501039867`*^9, 3.690594824040313*^9, 3.6906040431321754`*^9, 
   3.6906050695116215`*^9, 3.690665677175178*^9, 3.704148989315854*^9, 
   3.7184070973181*^9},ExpressionUUID->"ac3b127d-5c8e-4f2f-9b1c-6f7e063b8d55"]
}, Open  ]],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.690589996282415*^9, 3.6905900353106833`*^9, {3.690590179595256*^9, 
   3.69059018277731*^9}, 3.690590378914226*^9, 3.690591274592725*^9, 
   3.690591866917636*^9, 3.690592055687471*^9, 3.6905922937928257`*^9, 
   3.6905946507493057`*^9, 3.690594824839251*^9, 3.690604043667577*^9, 
   3.6906050695281353`*^9, 3.6906656777444153`*^9, 3.704148989791629*^9, 
   3.718407097333661*^9},ExpressionUUID->"f0abaee7-5efa-4f9c-8643-\
a04ed4927beb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CheckKineticTermNormalisation", "[", 
  RowBox[{"LTypeII", ",", 
   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.67608178101373*^9, 3.676087113747558*^9, {3.6760872564824533`*^9, 
   3.67608727161373*^9}, {3.6761498804265194`*^9, 3.676149891659546*^9}, {
   3.6761500728859262`*^9, 3.6761500743097415`*^9}, {3.676150165585514*^9, 
   3.676150167488202*^9}, {3.676150208880522*^9, 3.676150241246258*^9}, 
   3.676150303917513*^9, 3.676150404270616*^9, 3.690590194544709*^9, 
   3.6905903372334433`*^9, 
   3.6906050241123457`*^9},ExpressionUUID->"f01c44ef-c760-4aac-9152-\
4f6ad9f008a3"],

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.6905896913847427`*^9, 3.6905901952911663`*^9, 
  3.690591875904222*^9, 3.6905923249374733`*^9, 3.690594667259301*^9, 
  3.690594841424239*^9, 3.6906040575967546`*^9, 3.690605082995875*^9, 
  3.690665692260556*^9, 3.7041489986108713`*^9, 
  3.718407105523592*^9},ExpressionUUID->"add48e48-f966-49e1-9727-\
1cda2f31c1cf"],

Cell[BoxData["\<\"All kinetic terms are diagonal.\"\>"], "Print",
 CellChangeTimes->{3.6905896913847427`*^9, 3.6905901952911663`*^9, 
  3.690591875904222*^9, 3.6905923249374733`*^9, 3.690594667259301*^9, 
  3.690594841424239*^9, 3.6906040575967546`*^9, 3.690605082995875*^9, 
  3.690665692260556*^9, 3.7041489986108713`*^9, 
  3.718407105879902*^9},ExpressionUUID->"b89c261c-da92-403b-918b-\
5e8d9cd514c5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Warning: Kinetic term for \"\>", 
   "\[InvisibleSpace]", "\<\"{ve, vebar}\"\>", 
   "\[InvisibleSpace]", "\<\" seems not to be correctly normalized.\"\>"}],
  SequenceForm[
  "Warning: Kinetic term for ", "{ve, vebar}", 
   " seems not to be correctly normalized."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905896913847427`*^9, 3.6905901952911663`*^9, 
  3.690591875904222*^9, 3.6905923249374733`*^9, 3.690594667259301*^9, 
  3.690594841424239*^9, 3.6906040575967546`*^9, 3.690605082995875*^9, 
  3.690665692260556*^9, 3.7041489986108713`*^9, 
  3.718407112015113*^9},ExpressionUUID->"40cff233-bb34-4c07-ab2d-\
26ac4342b1b9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Warning: Kinetic term for \"\>", 
   "\[InvisibleSpace]", "\<\"{vm, vmbar}\"\>", 
   "\[InvisibleSpace]", "\<\" seems not to be correctly normalized.\"\>"}],
  SequenceForm[
  "Warning: Kinetic term for ", "{vm, vmbar}", 
   " seems not to be correctly normalized."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905896913847427`*^9, 3.6905901952911663`*^9, 
  3.690591875904222*^9, 3.6905923249374733`*^9, 3.690594667259301*^9, 
  3.690594841424239*^9, 3.6906040575967546`*^9, 3.690605082995875*^9, 
  3.690665692260556*^9, 3.7041489986108713`*^9, 
  3.718407112030154*^9},ExpressionUUID->"9f25cccf-f83c-448e-b65e-\
42ec67396c75"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Warning: Kinetic term for \"\>", 
   "\[InvisibleSpace]", "\<\"{vt, vtbar}\"\>", 
   "\[InvisibleSpace]", "\<\" seems not to be correctly normalized.\"\>"}],
  SequenceForm[
  "Warning: Kinetic term for ", "{vt, vtbar}", 
   " seems not to be correctly normalized."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905896913847427`*^9, 3.6905901952911663`*^9, 
  3.690591875904222*^9, 3.6905923249374733`*^9, 3.690594667259301*^9, 
  3.690594841424239*^9, 3.6906040575967546`*^9, 3.690605082995875*^9, 
  3.690665692260556*^9, 3.7041489986108713`*^9, 
  3.7184071120444098`*^9},ExpressionUUID->"3733dc4c-8dc2-4c40-b6da-\
4d296ce47a64"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
 CellChangeTimes->{{3.6761503158865213`*^9, 
  3.6761503199628563`*^9}},ExpressionUUID->"a625dcbc-bf1c-43a7-bfa8-\
3754cac1ae49"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CheckMassSpectrum", "[", "LTypeII", "]"}]], "Input",
 CellChangeTimes->{{3.676081759519946*^9, 3.6760817785258703`*^9}, 
   3.676087164394085*^9, {3.676087607584828*^9, 3.676087663425161*^9}, 
   3.676089988522318*^9, {3.6760944648917217`*^9, 3.676094465806916*^9}, {
   3.690590285181531*^9, 3.690590287130218*^9}, 
   3.690605026914336*^9},ExpressionUUID->"4536902a-08c8-4ffe-a7b9-\
0cd16df8e60f"],

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.690592115505084*^9, 3.690592353339884*^9, 
  3.6905924889226513`*^9, 3.6905926249197607`*^9, 3.690594702439649*^9, 
  3.6905948746352253`*^9, 3.6906040855866313`*^9, 3.6906051101433697`*^9, 
  3.690665720965681*^9, 3.704149015604971*^9, 
  3.718407121995055*^9},ExpressionUUID->"c4d7afbb-0d3f-48d0-812d-\
a11361abeb87"],

Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
 CellChangeTimes->{3.690592115505084*^9, 3.690592353339884*^9, 
  3.6905924889226513`*^9, 3.6905926249197607`*^9, 3.690594702439649*^9, 
  3.6905948746352253`*^9, 3.6906040855866313`*^9, 3.6906051101433697`*^9, 
  3.690665720965681*^9, 3.704149015604971*^9, 
  3.718407122556341*^9},ExpressionUUID->"b05f55ed-f374-45f2-80eb-\
987bcd347a77"],

Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
 CellChangeTimes->{3.690592115505084*^9, 3.690592353339884*^9, 
  3.6905924889226513`*^9, 3.6905926249197607`*^9, 3.690594702439649*^9, 
  3.6905948746352253`*^9, 3.6906040855866313`*^9, 3.6906051101433697`*^9, 
  3.690665720965681*^9, 3.704149015604971*^9, 
  3.7184071313489103`*^9},ExpressionUUID->"2ffc09e6-9779-465b-9e59-\
481c6ce9ebc9"],

Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
values.\"\>"], "Print",
 CellChangeTimes->{3.690592115505084*^9, 3.690592353339884*^9, 
  3.6905924889226513`*^9, 3.6905926249197607`*^9, 3.690594702439649*^9, 
  3.6905948746352253`*^9, 3.6906040855866313`*^9, 3.6906051101433697`*^9, 
  3.690665720965681*^9, 3.704149015604971*^9, 
  3.718407131383072*^9},ExpressionUUID->"aaa50a78-571c-4884-a0e0-\
44184a7e2ac3"]
}, Open  ]],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
"\<\"Model-file value\"\>"},
    {"H", 
     RowBox[{
      SqrtBox["2"], " ", 
      SqrtBox[
       RowBox[{
        FractionBox["mm11", "2"], "+", 
        FractionBox[
         RowBox[{"3", " ", "lambda1", " ", 
          SuperscriptBox["vev", "2"]}], "4"], "+", 
        FractionBox[
         RowBox[{"lambda11s", " ", 
          SuperscriptBox["vs", "2"]}], "4"]}]]}], "125.00000000000001`", 
     "125.`"},
    {"HP", 
     SqrtBox[
      RowBox[{"mm22", "+", 
       FractionBox[
        RowBox[{"lambda3", " ", 
         SuperscriptBox["vev", "2"]}], "2"], "+", 
       FractionBox[
        RowBox[{"lambdaHHs", " ", 
         SuperscriptBox["vs", "2"]}], "2"]}]], "400.`", "400.`"},
    {"R", 
     RowBox[{
      SqrtBox["2"], " ", 
      SqrtBox[
       RowBox[{
        FractionBox["mm22", "2"], "+", 
        FractionBox[
         RowBox[{"lambda3", " ", 
          SuperscriptBox["vev", "2"]}], "4"], "+", 
        FractionBox[
         RowBox[{"lambda4", " ", 
          SuperscriptBox["vev", "2"]}], "4"], "-", 
        FractionBox[
         RowBox[{"lambda5", " ", 
          SuperscriptBox["vev", "2"]}], "4"], "+", 
        FractionBox[
         RowBox[{"lambdaHHs", " ", 
          SuperscriptBox["vs", "2"]}], "4"]}]]}], "400.00000000000006`", 
     "400.`"},
    {"S1", 
     RowBox[{
      SqrtBox["2"], " ", 
      SqrtBox[
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["ctheta", "2"], " ", "mm22"}], "2"], "+", 
        FractionBox[
         RowBox[{"mmss", " ", 
          SuperscriptBox["stheta", "2"]}], "2"], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SuperscriptBox["ctheta", "2"], " ", "lambda3", " ", 
         SuperscriptBox["vev", "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SuperscriptBox["ctheta", "2"], " ", "lambda4", " ", 
         SuperscriptBox["vev", "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SuperscriptBox["ctheta", "2"], " ", "lambda5", " ", 
         SuperscriptBox["vev", "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", "lambda11s", " ", 
         SuperscriptBox["stheta", "2"], " ", 
         SuperscriptBox["vev", "2"]}], "+", 
        RowBox[{
        "ctheta", " ", "lambda12s", " ", "stheta", " ", "vev", " ", "vs"}], 
        "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SuperscriptBox["ctheta", "2"], " ", "lambdaHHs", " ", 
         SuperscriptBox["vs", "2"]}], "+", 
        RowBox[{
         FractionBox["3", "2"], " ", "lambdas", " ", 
         SuperscriptBox["stheta", "2"], " ", 
         SuperscriptBox["vs", "2"]}]}]]}], "200.00000000000003`", "200.`"},
    {"S2", 
     RowBox[{
      SqrtBox["2"], " ", 
      SqrtBox[
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["ctheta", "2"], " ", "mmss"}], "2"], "+", 
        FractionBox[
         RowBox[{"mm22", " ", 
          SuperscriptBox["stheta", "2"]}], "2"], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SuperscriptBox["ctheta", "2"], " ", "lambda11s", " ", 
         SuperscriptBox["vev", "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", "lambda3", " ", 
         SuperscriptBox["stheta", "2"], " ", 
         SuperscriptBox["vev", "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", "lambda4", " ", 
         SuperscriptBox["stheta", "2"], " ", 
         SuperscriptBox["vev", "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", "lambda5", " ", 
         SuperscriptBox["stheta", "2"], " ", 
         SuperscriptBox["vev", "2"]}], "-", 
        RowBox[{
        "ctheta", " ", "lambda12s", " ", "stheta", " ", "vev", " ", "vs"}], 
        "+", 
        RowBox[{
         FractionBox["3", "2"], " ", 
         SuperscriptBox["ctheta", "2"], " ", "lambdas", " ", 
         SuperscriptBox["vs", "2"]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", "lambdaHHs", " ", 
         SuperscriptBox["stheta", "2"], " ", 
         SuperscriptBox["vs", "2"]}]}]]}], "800.0000000000001`", "800.`"},
    {"ghWm", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SqrtBox[
       FractionBox[
        RowBox[{
         SuperscriptBox["e", "2"], " ", 
         SuperscriptBox["vev", "2"]}], 
        SubsuperscriptBox["s", "w", "2"]]]}], "79.82435974619786`", 
     "79.82435974619784`"},
    {"ghWp", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SqrtBox[
       FractionBox[
        RowBox[{
         SuperscriptBox["e", "2"], " ", 
         SuperscriptBox["vev", "2"]}], 
        SubsuperscriptBox["s", "w", "2"]]]}], "79.82435974619786`", 
     "79.82435974619784`"},
    {"ghZ", 
     SqrtBox[
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["e", "2"], " ", 
         SuperscriptBox["vev", "2"]}], "2"], "+", 
       FractionBox[
        RowBox[{
         SubsuperscriptBox["c", "w", "2"], " ", 
         SuperscriptBox["e", "2"], " ", 
         SuperscriptBox["vev", "2"]}], 
        RowBox[{"4", " ", 
         SubsuperscriptBox["s", "w", "2"]}]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["e", "2"], " ", 
         SubsuperscriptBox["s", "w", "2"], " ", 
         SuperscriptBox["vev", "2"]}], 
        RowBox[{"4", " ", 
         SubsuperscriptBox["c", "w", "2"]}]]}]], "91.18760000000002`", 
     "91.1876`"},
    {"Xd", 
     RowBox[{"mm0", "+", 
      RowBox[{"vs", " ", "yDM"}]}], "300.`", "300.`"},
    {"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.7`", "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.777`", "1.777`"},
    {"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.`"},
    {"W", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SqrtBox[
       FractionBox[
        RowBox[{
         SuperscriptBox["e", "2"], " ", 
         SuperscriptBox["vev", "2"]}], 
        SubsuperscriptBox["s", "w", "2"]]]}], "79.82435974619786`", 
     "79.82435974619784`"},
    {"Z", 
     RowBox[{
      SqrtBox["2"], " ", 
      SqrtBox[
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["e", "2"], " ", 
          SuperscriptBox["vev", "2"]}], "4"], "+", 
        FractionBox[
         RowBox[{
          SubsuperscriptBox["c", "w", "2"], " ", 
          SuperscriptBox["e", "2"], " ", 
          SuperscriptBox["vev", "2"]}], 
         RowBox[{"8", " ", 
          SubsuperscriptBox["s", "w", "2"]}]], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["e", "2"], " ", 
          SubsuperscriptBox["s", "w", "2"], " ", 
          SuperscriptBox["vev", "2"]}], 
         RowBox[{"8", " ", 
          SubsuperscriptBox["c", "w", "2"]}]]}]]}], "91.18760000000003`", 
     "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" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.690592640524253*^9, 3.690594721298772*^9, 
  3.690594893053789*^9, 3.6906041014784575`*^9, 3.690605125607624*^9, 
  3.690665737810443*^9, 3.704149024160054*^9, 
  3.718407131412057*^9},ExpressionUUID->"672b7163-ee8d-40e6-b205-\
d22908401342"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "This", " ", "command", " ", "checks", " ", "unitarity", " ", "of", " ", 
   "the", " ", "couplings"}], "*)"}]], "Input",
 CellChangeTimes->{{3.716771422177064*^9, 
  3.7167714340565453`*^9}},ExpressionUUID->"76842df7-be3d-482f-8c58-\
7cd15e1a8ebd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UnitConstr", " "}]], "Input",
 CellChangeTimes->{
  3.716771419742895*^9},ExpressionUUID->"6764f854-fa8f-4cec-b039-\
3fd489950c4e"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.6905926869087133`*^9, 3.690594721636208*^9, {3.6905948934243193`*^9, 
   3.6905949079332237`*^9}, 3.6906041016049643`*^9, 3.6906051257536325`*^9, 
   3.690665738127879*^9, 3.704149024299779*^9, 3.704149234463149*^9, 
   3.704150016651286*^9, 3.7166037553479643`*^9, 3.716605392611168*^9, 
   3.71660562058704*^9, 3.716606709971291*^9, 
   3.718407131565948*^9},ExpressionUUID->"d4060750-02d7-4f0d-9566-\
fed247e2bb3f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "This", " ", "command", " ", "checks", " ", "unitarity", " ", "of", " ", 
   "the", " ", "tree", " ", "level", " ", "potential"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7167714410795937`*^9, 
  3.716771443943103*^9}},ExpressionUUID->"c4ac2b66-6d40-41b2-8eaa-\
59c362e99b5d"],

Cell[CellGroupData[{

Cell[BoxData["StabConstr"], "Input",
 CellChangeTimes->{{3.676115719579734*^9, 3.6761157671541805`*^9}, {
  3.6761158411162195`*^9, 3.6761158629235144`*^9}, {3.67611589333259*^9, 
  3.67611589345761*^9}, {3.6761159252077193`*^9, 3.676115925316526*^9}, {
  3.6761159692234683`*^9, 
  3.67611597098922*^9}},ExpressionUUID->"a5305b94-5f7d-4e95-8b0c-\
a05e1b431791"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.690592688599744*^9, 3.690594721703229*^9, {3.690594893499796*^9, 
   3.6905949052974377`*^9}, 3.690604101670928*^9, 3.6906051258196325`*^9, 
   3.690665738190324*^9, 3.7041490243784513`*^9, 3.70415001836469*^9, 
   3.716603753571403*^9, 3.716605394349242*^9, 3.71660562258608*^9, 
   3.71660670628328*^9, 
   3.718407131727477*^9},ExpressionUUID->"008b80e7-4c76-4860-ba24-\
f0cfd792246f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "This", " ", "command", " ", "checks", " ", "perturbativity", " ", "of", 
   " ", "the", " ", "couplings"}], "*)"}]], "Input",
 CellChangeTimes->{{3.716771450374834*^9, 
  3.7167714545746603`*^9}},ExpressionUUID->"2672ad7a-6731-40b3-ab14-\
91171e3403fc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PerturbConstr", "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.6906039736371193`*^9, 3.69060397736534*^9}, {
   3.6906041087040477`*^9, 3.6906041303653307`*^9}, {3.704149238306802*^9, 
   3.704149244408168*^9}, {3.704150022043398*^9, 3.704150027386735*^9}, 
   3.716603759655739*^9},ExpressionUUID->"abc1d053-3b67-4f92-88d9-\
e0b94d8f7a24"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.6906041017239685`*^9, 3.6906041307368155`*^9}, 
   3.690605125895135*^9, 3.690665738290208*^9, 3.704149024457967*^9, {
   3.7041492367351513`*^9, 3.70414924484664*^9}, {3.704150019930286*^9, 
   3.704150028138441*^9}, {3.716603757199527*^9, 3.716603760195982*^9}, 
   3.716605399176921*^9, 3.716605624653866*^9, 3.7166067079731293`*^9, 
   3.718407131795267*^9},ExpressionUUID->"6f845dfa-50e8-4202-ba5f-\
eee4e5773971"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "This", " ", "command", " ", "checks", " ", "metastability", " ", "of", " ",
    "the", " ", "tree", " ", "level", " ", "potential"}], "*)"}]], "Input",
 CellChangeTimes->{{3.716771460639463*^9, 
  3.716771466230274*^9}},ExpressionUUID->"121a701f-3773-46c3-b0df-\
9a429a31a82e"],

Cell[CellGroupData[{

Cell[BoxData["MetaStabConstr"], "Input",ExpressionUUID->"8083e2e1-9190-4437-9cf4-11a2df8932bd"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7184071319266*^9},ExpressionUUID->"367ff29a-f542-4582-ba3a-41fd65cb2da9"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Load", "Chapter",
 CellChangeTimes->{{3.653342759310401*^9, 
  3.6533427599244843`*^9}},ExpressionUUID->"f4c89241-95bc-4596-b694-\
0136846002d0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   StyleBox[
    RowBox[{"LaunchKernels", "::", "nodef"}], "MessageName"], 
   StyleBox["]", "MessageName"]}], 
  StyleBox[";", "MessageName"]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$WinDir", "=", 
   "\"\<C:\\\\Users\\\\giorgiobusoni\\\\OneDrive\\\\Documenti\\\\NumericTools\
\\\\feynrules\\\\feynrules-current\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$MacDir", "=", 
   "\"\</Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
current\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$MdlWinDir", "=", "\"\<\\\\Models\\\\S2HDM\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$MdlMacDir", "=", "\"\</Models/S2HDM\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$FeynArtsMdlWinDir", "=", 
   "\"\<C:\\\\Users\\\\giorgiobusoni\\\\OneDrive\\\\Documenti\\\\NumericTools\
\\\\FeynArts\\\\Models\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$FeynArtsMdlMacDir", "=", 
   "\"\</Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models\>\""}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Win", "=", 
   RowBox[{"(", 
    RowBox[{"$OperatingSystem", "\[Equal]", "\"\<Windows\>\""}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{"Win", ",", 
    RowBox[{"$FeynRulesPath", "=", 
     RowBox[{"SetDirectory", "[", "$WinDir", "]"}]}], ",", 
    RowBox[{"$FeynRulesPath", "=", 
     RowBox[{"SetDirectory", "[", "$MacDir", "]"}]}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.60353897829296*^9, 3.603539043421093*^9}, {
   3.633332218679607*^9, 3.6333322194542303`*^9}, 3.633333796845446*^9, {
   3.64301873415166*^9, 3.64301873665499*^9}, {3.6452720966860647`*^9, 
   3.645272098076991*^9}, {3.647076372652458*^9, 3.647076373114575*^9}, 
   3.653342717270969*^9, 3.675137081154721*^9, {3.676084282701885*^9, 
   3.676084294904183*^9}, {3.676100972910183*^9, 3.6761010336739855`*^9}, {
   3.676103336774192*^9, 3.6761033538826265`*^9}, {3.6763353421414833`*^9, 
   3.67633534662798*^9}, {3.67633539144937*^9, 3.676335439151947*^9}, {
   3.676336791519855*^9, 3.676336837723803*^9}, {3.676340778137195*^9, 
   3.676340785151307*^9}},
 ExpressionUUID -> "4e52a337-3ea6-4275-abd1-c71939de8610"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "FeynRules`"}]], "Input",
 CellChangeTimes->{{3.603539048879374*^9, 3.603539054382785*^9}, {
  3.630748915770712*^9, 3.630748916976617*^9}},
 ExpressionUUID -> "1cc009ce-92ab-4d77-a469-77283ff0568a"],

Cell[CellGroupData[{

Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
 CellChangeTimes->{
  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9, 
   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9, 
   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9, 
   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9, 
   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9, 
   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9, 
   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9, 
   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9, 
   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9, 
   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9, 
   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9, 
   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9, 
   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9, 
   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9, 
   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555330085*^9},
 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.29\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"\<\" (\"\>", " ", "\<\"06 July 2017\"\>"}], 
   "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm["Version: ", "2.3.29", " (" "06 July 2017", ")."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9, 
   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9, 
   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9, 
   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9, 
   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9, 
   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9, 
   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9, 
   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9, 
   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9, 
   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9, 
   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9, 
   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9, 
   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9, 
   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9, 
   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555342372*^9},
 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],

Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
B. Fuks\"\>"], "Print",
 CellChangeTimes->{
  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9, 
   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9, 
   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9, 
   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9, 
   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9, 
   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9, 
   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9, 
   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9, 
   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9, 
   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9, 
   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9, 
   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9, 
   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9, 
   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9, 
   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555354164*^9},
 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9, 
   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9, 
   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9, 
   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9, 
   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9, 
   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9, 
   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9, 
   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9, 
   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9, 
   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9, 
   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9, 
   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9, 
   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9, 
   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9, 
   3.718409320666901*^9, 3.7184121000226107`*^9, 3.7184135553657084`*^9},
 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],

Cell[BoxData["\<\"Please cite:\"\>"], "Print",
 CellChangeTimes->{
  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9, 
   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9, 
   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9, 
   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9, 
   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9, 
   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9, 
   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9, 
   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9, 
   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9, 
   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9, 
   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9, 
   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9, 
   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9, 
   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9, 
   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555377445*^9},
 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],

Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
(arXiv:1310.1921);\"\>"], "Print",
 CellChangeTimes->{
  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9, 
   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9, 
   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9, 
   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9, 
   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9, 
   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9, 
   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9, 
   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9, 
   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9, 
   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9, 
   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9, 
   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9, 
   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9, 
   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9, 
   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555389494*^9},
 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],

Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
(arXiv:0806.4194).\"\>"], "Print",
 CellChangeTimes->{
  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9, 
   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9, 
   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9, 
   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9, 
   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9, 
   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9, 
   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9, 
   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9, 
   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9, 
   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9, 
   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9, 
   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9, 
   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9, 
   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9, 
   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555401804*^9},
 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9, 
   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9, 
   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9, 
   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9, 
   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9, 
   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9, 
   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9, 
   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9, 
   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9, 
   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9, 
   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9, 
   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9, 
   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9, 
   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9, 
   3.718409320666901*^9, 3.7184121000226107`*^9, 3.7184135554136066`*^9},
 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],

Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
 CellChangeTimes->{
  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9, 
   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9, 
   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9, 
   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9, 
   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9, 
   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9, 
   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9, 
   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9, 
   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9, 
   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9, 
   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9, 
   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9, 
   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9, 
   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9, 
   3.718409320666901*^9, 3.7184121000226107`*^9, 3.71841355542516*^9},
 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9, 
   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9, 
   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9, 
   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9, 
   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9, 
   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9, 
   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9, 
   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9, 
   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9, 
   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9, 
   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9, 
   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9, 
   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9, 
   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9, 
   3.718409320666901*^9, 3.7184121000226107`*^9, 3.718413555437704*^9},
 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"],

Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
FRPalette[].\"\>"], "Print",
 CellChangeTimes->{
  3.690589250469102*^9, 3.6905894600645533`*^9, 3.6905896430492153`*^9, 
   3.690590163034321*^9, 3.690590711896747*^9, 3.690591209179599*^9, 
   3.6905916955036583`*^9, 3.690591820818555*^9, 3.6905919837310047`*^9, 
   3.6905922020127077`*^9, 3.690592467687826*^9, 3.690592589232399*^9, 
   3.6905940187410603`*^9, 3.6905940737972107`*^9, 3.690594566572816*^9, 
   3.690594747871211*^9, 3.690603893790559*^9, 3.690604154406238*^9, 
   3.690605001956527*^9, 3.690606754757756*^9, 3.690606891395031*^9, 
   3.690608753762746*^9, 3.690608790924507*^9, 3.690663630771536*^9, 
   3.690665041927487*^9, 3.690665310096287*^9, 3.690665607877614*^9, 
   3.69066655096449*^9, 3.690755949798435*^9, 3.690756039057075*^9, 
   3.690764494211028*^9, 3.690777152438785*^9, 3.704148944619828*^9, 
   3.704149216496653*^9, 3.704149787389471*^9, 3.704149927156905*^9, 
   3.7041500016893873`*^9, 3.704153572553577*^9, 3.704154595894085*^9, 
   3.70442592893928*^9, 3.704426023826473*^9, 3.704426082613145*^9, {
   3.704426125767929*^9, 3.704426155156342*^9}, 3.7184071757792883`*^9, 
   3.718409320666901*^9, 3.7184121000226107`*^9, 3.7184135554497137`*^9},
 ExpressionUUID -> "fc3ba271-258f-43a1-b068-a4b324d73bf8"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{"Win", ",", 
    RowBox[{"SetDirectory", "[", 
     RowBox[{"$FeynRulesPath", "<>", "$MdlWinDir"}], "]"}], ",", 
    RowBox[{"SetDirectory", "[", 
     RowBox[{"$FeynRulesPath", "<>", "$MdlMacDir"}], "]"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.603539061006528*^9, 3.603539075359961*^9}, {
   3.606550370901471*^9, 3.606550372067235*^9}, {3.608280713549712*^9, 
   3.608280720038208*^9}, {3.608280848612903*^9, 3.608280850051903*^9}, {
   3.610078232055901*^9, 3.610078244162396*^9}, {3.611032810906569*^9, 
   3.611032811729677*^9}, 3.611046032505571*^9, {3.611046080564261*^9, 
   3.6110460835240393`*^9}, {3.616920451742062*^9, 3.616920454335582*^9}, {
   3.61692081007111*^9, 3.616920811789462*^9}, {3.6169220902135057`*^9, 
   3.6169220916785192`*^9}, {3.627800218613393*^9, 3.6278002208210363`*^9}, {
   3.630748932272941*^9, 3.630748937906595*^9}, {3.633332239193083*^9, 
   3.6333322403879013`*^9}, 3.633333794100926*^9, {3.633759468942481*^9, 
   3.6337594703175983`*^9}, {3.635681641356083*^9, 3.6356816446148367`*^9}, {
   3.6376402973444223`*^9, 3.6376402986547117`*^9}, {3.639376919579711*^9, 
   3.639376921244483*^9}, {3.6405100299897413`*^9, 3.640510032443145*^9}, {
   3.643018741816877*^9, 3.643018742543559*^9}, 3.643024926442786*^9, {
   3.645273275267683*^9, 3.645273276634437*^9}, {3.645274930954957*^9, 
   3.645274932634717*^9}, {3.645770163878159*^9, 3.6457701691664543`*^9}, {
   3.645780013280984*^9, 3.645780013490704*^9}, {3.646026237633871*^9, 
   3.6460262398106728`*^9}, {3.6473477666176853`*^9, 3.647347767847106*^9}, {
   3.649402992381681*^9, 3.6494029933443527`*^9}, {3.65334273616147*^9, 
   3.6533427389836483`*^9}, 3.6751370890880084`*^9, {3.676081658795355*^9, 
   3.676081659481019*^9}, {3.6760842875723658`*^9, 3.6760842909138737`*^9}, {
   3.6761010142197447`*^9, 3.676101037592718*^9}, {3.67633546684862*^9, 
   3.676335473735612*^9}},
 ExpressionUUID -> "6152b7a0-b3ed-4d51-ab2c-b24d5c7a2517"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Change", " ", "to", " ", 
   RowBox[{"SM_CMK", ".", "fr"}], " ", "to", " ", "account", " ", "for", " ", 
   "entries", " ", "in", " ", "CKM", " ", "matrix"}], "*)"}]], "Input",
 ExpressionUUID -> "9f54bd17-2e2f-4ceb-8701-4a250ae9afab"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadModel", "[", 
  RowBox[{"\"\<SM.fr\>\"", ",", "\"\<S2HDM.fr\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.633332249125042*^9, 3.633332249491701*^9}, {
   3.6337594763689528`*^9, 3.6337594776507893`*^9}, {3.6356816576884117`*^9, 
   3.6356816603749027`*^9}, {3.637640302808282*^9, 3.6376403082726*^9}, {
   3.637640716438528*^9, 3.6376407440268297`*^9}, 3.643024914860723*^9, {
   3.645273293611383*^9, 3.6452732956188726`*^9}, {3.645770176958198*^9, 
   3.645770177262162*^9}, {3.646026243920371*^9, 3.6460262460509453`*^9}, {
   3.647347782049244*^9, 3.64734778358805*^9}, {3.64940300547442*^9, 
   3.649403021810585*^9}, {3.675137095078703*^9, 3.6751371002846923`*^9}, {
   3.6760816672425003`*^9, 3.6760816692733583`*^9}, {3.6760845517446547`*^9, 
   3.676084579574003*^9}, 3.676085343820545*^9, 3.6763348248551292`*^9, {
   3.704419469831567*^9, 3.704419470464905*^9}, 3.7184093173129377`*^9},
 ExpressionUUID -> "ac44013d-d615-4117-90e9-ae08f61062f4"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
 CellChangeTimes->{
  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9, 
   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9, 
   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9, 
   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9, 
   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9, 
   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9, 
   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9, 
   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9, 
   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9, 
   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9, 
   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9, 
   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9, 
   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9, 
   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9, 
   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413556875695*^9},
 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],

Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
 CellChangeTimes->{
  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9, 
   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9, 
   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9, 
   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9, 
   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9, 
   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9, 
   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9, 
   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9, 
   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9, 
   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9, 
   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9, 
   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9, 
   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9, 
   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9, 
   3.718409322633368*^9, 3.7184121019397793`*^9, 3.7184135568861103`*^9},
 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],

Cell[BoxData["\<\"G.Busoni\"\>"], "Print",
 CellChangeTimes->{
  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9, 
   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9, 
   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9, 
   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9, 
   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9, 
   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9, 
   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9, 
   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9, 
   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9, 
   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9, 
   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9, 
   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9, 
   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9, 
   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9, 
   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413556898202*^9},
 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
  SequenceForm["Model Version: ", "1.0"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9, 
   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9, 
   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9, 
   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9, 
   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9, 
   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9, 
   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9, 
   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9, 
   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9, 
   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9, 
   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9, 
   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9, 
   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9, 
   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9, 
   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413556913032*^9},
 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],

Cell[BoxData["\<\"Please cite\"\>"], "Print",
 CellChangeTimes->{
  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9, 
   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9, 
   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9, 
   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9, 
   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9, 
   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9, 
   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9, 
   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9, 
   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9, 
   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9, 
   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9, 
   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9, 
   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9, 
   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9, 
   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413556928254*^9},
 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],

Cell[BoxData["\<\"N. Bell et al., 1612.03475, 1710.10764\"\>"], "Print",
 CellChangeTimes->{
  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9, 
   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9, 
   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9, 
   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9, 
   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9, 
   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9, 
   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9, 
   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9, 
   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9, 
   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9, 
   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9, 
   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9, 
   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9, 
   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9, 
   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413556943672*^9},
 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],

Cell[BoxData["\<\"http://feynrules.irmp.ucl.ac.be/wiki/DMsimp/\"\>"], "Print",
 CellChangeTimes->{
  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9, 
   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9, 
   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9, 
   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9, 
   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9, 
   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9, 
   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9, 
   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9, 
   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9, 
   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9, 
   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9, 
   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9, 
   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9, 
   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9, 
   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413556958749*^9},
 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],

Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
"Print",
 CellChangeTimes->{
  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9, 
   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9, 
   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9, 
   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9, 
   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9, 
   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9, 
   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9, 
   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9, 
   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9, 
   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9, 
   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9, 
   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9, 
   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9, 
   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9, 
   3.718409322633368*^9, 3.7184121019397793`*^9, 3.7184135569737377`*^9},
 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9, 
   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9, 
   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9, 
   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9, 
   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9, 
   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9, 
   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9, 
   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9, 
   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9, 
   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9, 
   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9, 
   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9, 
   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9, 
   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9, 
   3.718409322633368*^9, 3.7184121019397793`*^9, 3.7184135569902763`*^9},
 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],

Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
 CellChangeTimes->{
  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9, 
   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9, 
   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9, 
   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9, 
   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9, 
   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9, 
   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9, 
   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9, 
   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9, 
   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9, 
   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9, 
   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9, 
   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9, 
   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9, 
   3.718409322633368*^9, 3.7184121019397793`*^9, 3.7184135570052032`*^9},
 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],

Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
 CellChangeTimes->{
  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9, 
   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9, 
   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9, 
   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9, 
   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9, 
   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9, 
   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9, 
   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9, 
   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9, 
   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9, 
   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9, 
   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9, 
   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9, 
   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9, 
   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413557065969*^9},
 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],

Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
 CellChangeTimes->{
  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9, 
   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9, 
   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9, 
   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9, 
   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9, 
   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9, 
   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9, 
   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9, 
   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9, 
   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9, 
   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9, 
   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9, 
   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9, 
   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9, 
   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413557080287*^9},
 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"S2HDM\"\>", 
   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
  SequenceForm["\nModel ", "S2HDM", " loaded."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.690589252189424*^9, 3.690589461718655*^9, 3.690589644771422*^9, 
   3.690590164784729*^9, 3.690590713854841*^9, 3.6905912111080723`*^9, 
   3.6905916972210608`*^9, 3.690591822517353*^9, 3.690591985533929*^9, 
   3.6905922039354486`*^9, 3.690592469434515*^9, 3.690592591020561*^9, 
   3.690594021299279*^9, 3.690594075739327*^9, 3.690594568472704*^9, 
   3.690594749710843*^9, 3.690603910439733*^9, 3.690604157988372*^9, 
   3.6906050057021837`*^9, 3.690606760649124*^9, 3.690606897530131*^9, 
   3.690608759663912*^9, 3.690608796736729*^9, 3.690663632471553*^9, 
   3.69066504357101*^9, 3.690665311962845*^9, 3.69066560954356*^9, 
   3.690666552542569*^9, 3.690755951431707*^9, 3.690756040583393*^9, 
   3.690764495976651*^9, 3.690777154089657*^9, 3.704148947149146*^9, 
   3.704149218822556*^9, 3.704149790141818*^9, 3.704149929455349*^9, 
   3.7041500040372972`*^9, 3.704153574942152*^9, 3.7041545982059927`*^9, 
   3.7044259324188766`*^9, 3.704426027244746*^9, 3.704426086166469*^9, {
   3.704426129187521*^9, 3.704426157738212*^9}, 3.718407177589692*^9, 
   3.718409322633368*^9, 3.7184121019397793`*^9, 3.718413557174903*^9},
 ExpressionUUID -> "692e7215-ceb7-4680-beda-100d0e094222"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Do", " ", "not", " ", "load", " ", 
    RowBox[{"Cabibbo", ".", "rts"}], " ", "if", " ", "you", " ", "loaded", 
    " ", 
    RowBox[{"DM_CMK", ".", "fr"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Load", " ", "Massless_", "4", 
     RowBox[{"f", ".", "rst"}], " ", "for", " ", "4", "F", " ", "scheme"}], 
    ",", " ", 
    RowBox[{"or", " ", "massless_", "5", 
     RowBox[{"F", ".", "rst"}], " ", "for", " ", "5", "F", " ", "scheme"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Do", " ", "not", " ", "load", " ", "restrictions", " ", "if", " ", "you", 
    " ", "want", " ", "all", " ", "fermions", " ", "to", " ", "be", " ", 
    "massive"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.716771780987084*^9, 3.716771781309472*^9}},
 ExpressionUUID -> "b1057b76-2416-429f-ad91-83f65cb3efaa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadRestriction", "[", "\"\<Massless_4f.rst\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.639376820290628*^9, 3.6393768234379387`*^9}, {
   3.6393770865564947`*^9, 3.6393770912761908`*^9}, {3.6393771858866796`*^9, 
   3.6393771863740797`*^9}, {3.639377466478868*^9, 3.639377471110105*^9}, {
   3.6393796364789057`*^9, 3.639379637142768*^9}, {3.639989012839026*^9, 
   3.639989036648665*^9}, {3.641539947651075*^9, 3.641539950365509*^9}, {
   3.641789785973187*^9, 3.641789792194556*^9}, {3.643025183012186*^9, 
   3.643025185439151*^9}, {3.645274945395602*^9, 3.645274957019786*^9}, {
   3.6457800188411694`*^9, 3.645780019775859*^9}, {3.646377072375288*^9, 
   3.646377083707752*^9}, {3.646465411317153*^9, 3.646465413430913*^9}, 
   3.690594555570958*^9, 3.704154566763503*^9},
 ExpressionUUID -> "7512fe72-ceaf-47a0-9022-202fd7778b70"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Loading restrictions from \"\>", 
   "\[InvisibleSpace]", "\<\"Massless_4f.rst\"\>", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
    ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "18"}],
  SequenceForm["Loading restrictions from ", "Massless_4f.rst", " : ", 
   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.690589253335243*^9, 3.6905894629506607`*^9, 3.6905896456041517`*^9, 
   3.690590165570426*^9, 3.690590714906385*^9, 3.690591212148489*^9, 
   3.690591698017095*^9, 3.690591823299501*^9, 3.690591986600873*^9, 
   3.690592205020994*^9, 3.690592470610623*^9, 3.690592592142756*^9, 
   3.690594022519508*^9, 3.690594076827641*^9, 3.6905945696072283`*^9, 
   3.690594750811295*^9, 3.690603911573715*^9, 3.6906041590931754`*^9, 
   3.690605006811165*^9, 3.69060676178164*^9, 3.6906068986462536`*^9, 
   3.69060876079283*^9, 3.6906087978450594`*^9, 3.690663633321035*^9, 
   3.690665044366078*^9, 3.690665312903245*^9, 3.6906656103162193`*^9, 
   3.690666553319166*^9, 3.6907559522208014`*^9, 3.690756041339028*^9, 
   3.690764496744667*^9, 3.690777154858288*^9, 3.704148948201194*^9, 
   3.704149220007907*^9, 3.7041497912775097`*^9, 3.7041499305979357`*^9, 
   3.704150005128631*^9, 3.7041535761125803`*^9, 3.704154599327981*^9, 
   3.704425933436693*^9, 3.704426028276339*^9, 3.704426087215523*^9, {
   3.704426130580111*^9, 3.704426158817895*^9}, 3.718407178530118*^9, 
   3.718409323439279*^9, 3.7184121029774227`*^9, 3.7184135576587887`*^9},
 ExpressionUUID -> "f9aaeee3-947d-4bd0-a324-80a2d2fbc165"],

Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
 CellChangeTimes->{
  3.690589253335243*^9, 3.6905894629506607`*^9, 3.6905896456041517`*^9, 
   3.690590165570426*^9, 3.690590714906385*^9, 3.690591212148489*^9, 
   3.690591698017095*^9, 3.690591823299501*^9, 3.690591986600873*^9, 
   3.690592205020994*^9, 3.690592470610623*^9, 3.690592592142756*^9, 
   3.690594022519508*^9, 3.690594076827641*^9, 3.6905945696072283`*^9, 
   3.690594750811295*^9, 3.690603911573715*^9, 3.6906041590931754`*^9, 
   3.690605006811165*^9, 3.69060676178164*^9, 3.6906068986462536`*^9, 
   3.69060876079283*^9, 3.6906087978450594`*^9, 3.690663633321035*^9, 
   3.690665044366078*^9, 3.690665312903245*^9, 3.6906656103162193`*^9, 
   3.690666553319166*^9, 3.6907559522208014`*^9, 3.690756041339028*^9, 
   3.690764496744667*^9, 3.690777154858288*^9, 3.704148948201194*^9, 
   3.704149220007907*^9, 3.7041497912775097`*^9, 3.7041499305979357`*^9, 
   3.704150005128631*^9, 3.7041535761125803`*^9, 3.704154599327981*^9, 
   3.704425933436693*^9, 3.704426028276339*^9, 3.704426087215523*^9, {
   3.704426130580111*^9, 3.704426158817895*^9}, 3.718407178530118*^9, 
   3.718409323439279*^9, 3.7184121029774227`*^9, 3.718413557791623*^9},
 ExpressionUUID -> "f9aaeee3-947d-4bd0-a324-80a2d2fbc165"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Get", "[", "\"\<unitarity.m\>\"", "]"}]], "Input",
 ExpressionUUID -> "e18aedfd-032d-4e30-bd59-fa8ba018640e"]
}, Closed]],

Cell[CellGroupData[{

Cell["Feynman Rules", "Chapter",
 CellChangeTimes->{{3.653342767661127*^9, 3.6533427702599983`*^9}, {
  3.6751387710535192`*^9, 3.6751387740648303`*^9}, {3.6751399052802196`*^9, 
  3.6751399075941625`*^9}},ExpressionUUID->"ff80882c-ff5e-4c16-9c9f-\
ffe0bcc34f14"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"vertices", "=", 
   RowBox[{"FeynmanRules", "[", 
    RowBox[{"LTypeII", ",", 
     RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.603539435628551*^9, 3.603539443511031*^9}, {
   3.633332257675256*^9, 3.633332273874855*^9}, 3.633332330927515*^9, {
   3.633759485057345*^9, 3.6337594896329927`*^9}, {3.633759845728799*^9, 
   3.633759845998361*^9}, {3.635681693519002*^9, 3.635681708124132*^9}, 
   3.637640353419092*^9, 3.649403113712747*^9, {3.6751371526786957`*^9, 
   3.675137157183814*^9}, {3.675138701789709*^9, 3.6751387042441416`*^9}, {
   3.675717417970505*^9, 3.675717419584786*^9}, {3.6761502626020055`*^9, 
   3.6761502639630136`*^9}, 3.6761806129515185`*^9, 
   3.6906050409157557`*^9},ExpressionUUID->"3897547f-9792-456a-8d0c-\
1e1967ee8ecb"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.6905949167172823`*^9, 3.69060416465845*^9, 
  3.6906051294262247`*^9, 3.690606906192576*^9, 3.690663642114711*^9, 
  3.69066574197466*^9, 3.69075596219468*^9, 3.6907565929203253`*^9, 
  3.7041500452233686`*^9, 3.704154137861133*^9, 3.704154606674365*^9, 
  3.704426169252529*^9, 3.718407190003297*^9, 
  3.718409331291017*^9},ExpressionUUID->"30839b75-99fc-4871-83cc-\
9d7353831627"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.6905949167172823`*^9, 3.69060416465845*^9, 
  3.6906051294262247`*^9, 3.690606906192576*^9, 3.690663642114711*^9, 
  3.69066574197466*^9, 3.69075596219468*^9, 3.6907565929203253`*^9, 
  3.7041500452233686`*^9, 3.704154137861133*^9, 3.704154606674365*^9, 
  3.704426169252529*^9, 3.718407190003297*^9, 
  3.718409331309825*^9},ExpressionUUID->"a0bc6be3-796b-40fc-ba3e-\
864e52d2f2e4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905949167172823`*^9, 3.69060416465845*^9, 
  3.6906051294262247`*^9, 3.690606906192576*^9, 3.690663642114711*^9, 
  3.69066574197466*^9, 3.69075596219468*^9, 3.6907565929203253`*^9, 
  3.7041500452233686`*^9, 3.704154137861133*^9, 3.704154606674365*^9, 
  3.704426169252529*^9, 3.718407190003297*^9, 
  3.718409331326735*^9},ExpressionUUID->"0ff0a39a-c623-486b-9de4-\
ba8aa9fd1538"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6905949167172823`*^9, 3.69060416465845*^9, 
  3.6906051294262247`*^9, 3.690606906192576*^9, 3.690663642114711*^9, 
  3.69066574197466*^9, 3.69075596219468*^9, 3.6907565929203253`*^9, 
  3.7041500452233686`*^9, 3.704154137861133*^9, 3.704154606674365*^9, 
  3.704426169252529*^9, 3.718407190003297*^9, 
  3.718409341658214*^9},ExpressionUUID->"014f66c6-1ddf-416f-b769-\
24fe4bb41344"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "308", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "308", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  308, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 308, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905949167172823`*^9, 3.69060416465845*^9, 
  3.6906051294262247`*^9, 3.690606906192576*^9, 3.690663642114711*^9, 
  3.69066574197466*^9, 3.69075596219468*^9, 3.6907565929203253`*^9, 
  3.7041500452233686`*^9, 3.704154137861133*^9, 3.704154606674365*^9, 
  3.704426169252529*^9, 3.718407190003297*^9, 
  3.71840934178976*^9},ExpressionUUID->"15ff5c80-e3f7-4b99-812f-fda0e715f273"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"281", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[281, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905949167172823`*^9, 3.69060416465845*^9, 
  3.6906051294262247`*^9, 3.690606906192576*^9, 3.690663642114711*^9, 
  3.69066574197466*^9, 3.69075596219468*^9, 3.6907565929203253`*^9, 
  3.7041500452233686`*^9, 3.704154137861133*^9, 3.704154606674365*^9, 
  3.704426169252529*^9, 3.718407190003297*^9, 
  3.718409350624394*^9},ExpressionUUID->"403a9f64-ec9c-4728-a268-\
91aad509555e"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Update Parameters", "Chapter",
 CellChangeTimes->{{3.653342767661127*^9, 3.6533427702599983`*^9}, {
  3.6751387710535192`*^9, 
  3.6751387740648303`*^9}},ExpressionUUID->"8c77166c-42db-423f-97e1-\
a839db35029d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ComputeWidths", "[", "vertices", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.6751387167082295`*^9, 
  3.67513873140676*^9}},ExpressionUUID->"8db8490a-c931-470b-a4bd-\
de8983564034"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "281"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 281],
  Editable->False]], "Print",
 CellChangeTimes->{3.690594964497676*^9, 3.690604199487409*^9, 
  3.6906051649283667`*^9, 3.690606941402678*^9, 3.69066367977699*^9, 
  3.69066578039988*^9, 3.70415006995191*^9, 3.704154166647044*^9, 
  3.704154635572082*^9, 3.704426194939006*^9, 3.7184072283527107`*^9, 
  3.718409355949651*^9},ExpressionUUID->"5425ccf4-3c34-4b41-b363-\
6192672b01b9"],

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.690594964497676*^9, 3.690604199487409*^9, 
  3.6906051649283667`*^9, 3.690606941402678*^9, 3.69066367977699*^9, 
  3.69066578039988*^9, 3.70415006995191*^9, 3.704154166647044*^9, 
  3.704154635572082*^9, 3.704426194939006*^9, 3.7184072283527107`*^9, 
  3.718409364217084*^9},ExpressionUUID->"cc53f555-4b78-41a9-af88-\
25a21334b207"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "97"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 97],
  Editable->False]], "Print",
 CellChangeTimes->{3.690594964497676*^9, 3.690604199487409*^9, 
  3.6906051649283667`*^9, 3.690606941402678*^9, 3.69066367977699*^9, 
  3.69066578039988*^9, 3.70415006995191*^9, 3.704154166647044*^9, 
  3.704154635572082*^9, 3.704426194939006*^9, 3.7184072283527107`*^9, 
  3.71840936428765*^9},ExpressionUUID->"4a7c0f8a-a53d-4cd6-b68c-a6d2db605f2d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "95"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 95],
  Editable->False]], "Print",
 CellChangeTimes->{3.690594964497676*^9, 3.690604199487409*^9, 
  3.6906051649283667`*^9, 3.690606941402678*^9, 3.69066367977699*^9, 
  3.69066578039988*^9, 3.70415006995191*^9, 3.704154166647044*^9, 
  3.704154635572082*^9, 3.704426194939006*^9, 3.7184072283527107`*^9, 
  3.718409372937414*^9},ExpressionUUID->"8b37ac45-51c4-4974-bcea-\
e7c3a1f0d6eb"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"wS1", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"NumericalValue", "[", 
     RowBox[{"TotWidth", "[", "S1", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wR", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"NumericalValue", "[", 
     RowBox[{"TotWidth", "[", "R", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wS2", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"NumericalValue", "[", 
     RowBox[{"TotWidth", "[", "S2", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wHP", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"NumericalValue", "[", 
     RowBox[{"TotWidth", "[", "HP", "]"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.675138742678877*^9, 3.6751387472634153`*^9}, {
  3.675138841465396*^9, 3.675138843543991*^9}, {3.675139480970521*^9, 
  3.6751394837304306`*^9}, {3.676172213348925*^9, 3.676172248051876*^9}, {
  3.6761769956024885`*^9, 3.6761769969024887`*^9}, {3.676177079837619*^9, 
  3.676177096638926*^9}, {3.676178414918208*^9, 3.6761784161854625`*^9}, {
  3.676340973626451*^9, 3.6763409885370607`*^9}, {3.690594928013957*^9, 
  3.69059493034011*^9}},ExpressionUUID->"a97894ae-1367-425c-ada0-\
9e4847931443"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"UpdateParameters", "[", 
   RowBox[{"WS1", "\[Rule]", "wS1"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"UpdateParameters", "[", 
   RowBox[{"WR", "\[Rule]", "wR"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"UpdateParameters", "[", 
   RowBox[{"WS2", "\[Rule]", "wS2"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"UpdateParameters", "[", 
   RowBox[{"WHP", "\[Rule]", "wHP"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.6751394945733533`*^9, 3.675139500523559*^9}, {
  3.676172223364505*^9, 3.676172226020854*^9}, {3.676172279835528*^9, 
  3.676172301209833*^9}, {3.690594934124099*^9, 
  3.690594938131008*^9}},ExpressionUUID->"2df3ad3a-2db0-4db4-ab11-\
67a427a0d9d8"]
}, Closed]],

Cell[CellGroupData[{

Cell["UFO LO", "Chapter",
 CellChangeTimes->{{3.653343093143339*^9, 3.653343093462414*^9}, {
  3.6761992676581917`*^9, 
  3.6761992682261844`*^9}},ExpressionUUID->"247ad179-2344-4595-a699-\
60dd43f4787b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LTypeI", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_TI_LO\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LTypeII", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_TII_LO\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LTypeX", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_TX_LO\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LTypeY", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_TY_LO\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LAlign", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_Align_LO\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LInert", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_Inert_LO\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"L2gen", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_2gen_LO\>\""}]}], "]"}]}], "Input",\

 CellChangeTimes->{{3.603600645725746*^9, 3.6036006566228743`*^9}, {
   3.606550334098661*^9, 3.60655033664305*^9}, {3.608451188889968*^9, 
   3.608451204251935*^9}, 3.60845124249209*^9, {3.633332357749588*^9, 
   3.633332371706971*^9}, {3.633333594923254*^9, 3.6333336099891357`*^9}, {
   3.633333692998436*^9, 3.633333708244873*^9}, {3.633759523248143*^9, 
   3.63375952406321*^9}, 3.6337595816874228`*^9, {3.633759861480113*^9, 
   3.633759861782745*^9}, {3.635681799753024*^9, 3.635681812948553*^9}, {
   3.637640540300961*^9, 3.6376405694259853`*^9}, {3.637640663087901*^9, 
   3.637640663759862*^9}, {3.637647387697893*^9, 3.637647389712125*^9}, {
   3.637648387110936*^9, 3.637648387849903*^9}, {3.639389319458922*^9, 
   3.639389319865039*^9}, {3.64051094238649*^9, 3.640510950609267*^9}, {
   3.6430250002334414`*^9, 3.643025002692279*^9}, {3.643025047978877*^9, 
   3.643025060082522*^9}, {3.6452745024778748`*^9, 3.6452745079012833`*^9}, {
   3.645276460101131*^9, 3.645276462419408*^9}, 3.645770304766233*^9, {
   3.64578008286651*^9, 3.6457800832087*^9}, {3.646026325649763*^9, 
   3.646026327751546*^9}, {3.647347838972896*^9, 3.6473478401093903`*^9}, {
   3.64940322069949*^9, 3.6494032361730423`*^9}, {3.650089615748787*^9, 
   3.650089616233056*^9}, {3.675138023210348*^9, 3.6751380486371837`*^9}, 
   3.675724475799202*^9, {3.6761992552887545`*^9, 3.6761992838281183`*^9}, {
   3.676340652605752*^9, 3.676340654332322*^9}, 3.69060505329924*^9, {
   3.69066364447678*^9, 3.69066364534022*^9}, {3.6907558888777533`*^9, 
   3.690755932384534*^9}},ExpressionUUID->"ac8658fb-3a29-4e22-87f4-\
b5db1445a6b2"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409380120997*^9},ExpressionUUID->"9bf32504-5588-4c4b-b017-\
3a61f2619678"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409380984301*^9},ExpressionUUID->"4e8c2720-edeb-4ec8-8b2f-\
6b79a2189830"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.71840938100111*^9},ExpressionUUID->"585b133e-f691-4f7a-9b4b-a3dd33b702b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409381016409*^9},ExpressionUUID->"66f4db10-f38a-47b3-8bbf-\
915545dc1ed9"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.71840938853069*^9},ExpressionUUID->"2e80203a-be08-4a3f-bc9a-0076cb3e5eaf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 3.7184093885984573`*^9},
 ExpressionUUID -> "5d9c59d0-f784-4b34-9f06-b37b228a4201"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184093951097517`*^9},ExpressionUUID->"f00948d8-4b26-4fcb-859a-\
25fcfac63290"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{137., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 227],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 3.7184094008415213`*^9},
 ExpressionUUID -> "16ec2cf5-5143-45aa-a364-a082c4781557"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409410232535*^9},ExpressionUUID->"67aa4dd6-90ef-44a1-930b-\
bb7607ba99d7"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409410297559*^9},ExpressionUUID->"5b1db6de-d4ee-4f67-99df-\
03d6be9c26da"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{122., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "97"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 97],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 3.718409410315564*^9},
 ExpressionUUID -> "ab9add5e-2152-4226-b443-b0dd4096d297"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.35185`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.35185, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184094185386972`*^9},ExpressionUUID->"518d60ea-a409-49eb-8b59-\
a9e010192802"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{122., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "95"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 95],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 3.718409418559072*^9},
 ExpressionUUID -> "3d9fc813-5386-4141-b1dc-58fed8a4120b"]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{
  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
   27,1,29231154567037670195,"Local","FeynRules`Decay"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.718407314362404*^9, 
  3.7184094200168858`*^9},ExpressionUUID->"2a9e1ba1-bcf0-4be4-b844-\
a072ad9f6bee"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "0.95617`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 0.95617, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409420129957*^9},ExpressionUUID->"1b6a5792-9d51-469a-8cf9-\
83452f742366"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409420142584*^9},ExpressionUUID->"9329c9f5-3f6e-4761-8af9-\
e60b6fd7c1df"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409420237537*^9},ExpressionUUID->"2c66c981-c611-4b1f-b753-\
3c94704385dd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409420282238*^9},ExpressionUUID->"322ed7a0-3df6-4113-ae6d-\
2a69b0dec48d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{209., {3., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "281", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 281, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 3.7184094224900627`*^9},
 ExpressionUUID -> "ee59e9e1-c7b9-4e3e-acc0-50fd5141b377"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409422824224*^9},ExpressionUUID->"88ce7af0-9c3c-4aeb-ba60-\
1867fc011fe2"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409423224078*^9},ExpressionUUID->"4eb05751-2f09-4aee-bc69-\
b8c79110829c"],

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184094258271847`*^9},ExpressionUUID->"06fb1a66-b18d-4f96-b6f4-\
5fb6f5881361"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409426268703*^9},ExpressionUUID->"270d350b-7c66-4f39-998c-\
6451a9aa6033"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409426297572*^9},ExpressionUUID->"6a7cb9cc-272e-4769-9b35-\
4e4c52a7c7e1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409426327189*^9},ExpressionUUID->"01596b2d-04c0-442d-abdd-\
4fc44d313006"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409434406982*^9},ExpressionUUID->"7fdee8db-e826-4216-89b0-\
6479a4ff3d7a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409434495965*^9},ExpressionUUID->"5c853281-bf67-4286-a929-\
76b9ca72c334"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184094411771584`*^9},ExpressionUUID->"9205de42-0557-47e5-9654-\
b4abad5e0a39"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 227],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409446265263*^9},ExpressionUUID->"1b247222-0eec-4ba0-aafd-\
22ac0fc0abbd"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 2 ].\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409455353344*^9},ExpressionUUID->"ff9feb70-e6f1-480c-99bd-\
7289ae3535ae"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409455398396*^9},ExpressionUUID->"bab51fd8-20fb-4ff9-9af4-\
3889c89550e8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "97"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 97],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409455412575*^9},ExpressionUUID->"3d2e45da-4f60-4450-a592-\
6fa486b83a84"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.394268`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.394268, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184094636335897`*^9},ExpressionUUID->"ee3f56bf-255f-43ca-82a6-\
520fdb81977a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "95"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 95],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409463648016*^9},ExpressionUUID->"3d4e6766-eca0-4d99-b96b-\
c149bd4da8cf"]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{
  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
   28,2,29231154567037670195,"Local","FeynRules`Decay"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.718407314362404*^9, 
  3.718409465077449*^9},ExpressionUUID->"9ac07091-7436-4a51-a328-\
09cfecda1d9d"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "0.929639`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 0.929639, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409465105576*^9},ExpressionUUID->"8d64e8dd-fe86-453f-b7c8-\
4e71e8845442"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409465115224*^9},ExpressionUUID->"588b0e53-56c2-4b77-9259-\
06cba660ac93"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409465274967*^9},ExpressionUUID->"d54d92cd-7a3d-4fb5-bb75-\
ca30b66e4d6a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184094653136263`*^9},ExpressionUUID->"794c8aa0-6002-4640-936d-\
0a924394223c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "281", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 281, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.71840946749883*^9},ExpressionUUID->"5c979839-fcde-4862-b00c-50a161909d10"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409467774808*^9},ExpressionUUID->"75fee4ba-34d3-412d-abc5-\
eac718893bca"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409468129575*^9},ExpressionUUID->"bb102ab5-3cdb-4e17-96bc-\
9f2ed9c6de81"],

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184094817545*^9},ExpressionUUID->"1627a924-56b9-4258-9aae-11a114b4011c"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409481772188*^9},ExpressionUUID->"65e310da-b588-4f95-a910-\
a4fac04ea878"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.71840948178785*^9},ExpressionUUID->"113a59a4-6010-4799-8356-afeada3318db"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184094818035307`*^9},ExpressionUUID->"aead7d75-c774-4b94-b79b-\
63eeb47fec0b"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409481818758*^9},ExpressionUUID->"49e007f7-7f4b-4184-8fea-\
bad674fc3f32"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.71840948183295*^9},ExpressionUUID->"38571b97-708b-4186-a418-367a3c6e7607"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409486536644*^9},ExpressionUUID->"30306890-e838-4c68-aa0c-\
3d16c0c8e3db"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 227],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184094919489403`*^9},ExpressionUUID->"6faf4527-f256-4ea4-836c-\
d604dd29d71f"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 3 ].\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184095011521807`*^9},ExpressionUUID->"c3af23ca-919d-483d-a2d2-\
e9ee60b2a028"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.71840950122188*^9},ExpressionUUID->"ace7acb9-2774-4c22-84f3-a3b74f34af94"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "97"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 97],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184095012374153`*^9},ExpressionUUID->"c5686335-14ca-489b-801b-\
7bc22b6206a1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.334816`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.334816, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409509482362*^9},ExpressionUUID->"04c922e2-4bfc-4d66-9c71-\
42cdfc28779b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "95"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 95],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.71840950949717*^9},ExpressionUUID->"3695ebe0-163d-4a14-a1a6-c8801f9653c7"]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{
  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
   29,3,29231154567037670195,"Local","FeynRules`Decay"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.718407314362404*^9, 
  3.7184095110727654`*^9},ExpressionUUID->"4f6b6fab-1e91-42f8-871b-\
fc652a0d82fd"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "1.049375`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 1.049375, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409511097219*^9},ExpressionUUID->"44ed5c57-b8d0-43df-a3b5-\
ab4f4e983fe4"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409511107966*^9},ExpressionUUID->"215e8e54-b4b4-4ba7-9f69-\
809f0dad2618"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409511305464*^9},ExpressionUUID->"44270f58-65f9-441e-a8ee-\
8bea1e47523c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409511374473*^9},ExpressionUUID->"f831ca54-ee0c-4069-99e7-\
d4f2abd18184"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "281", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 281, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409513532707*^9},ExpressionUUID->"8c2e9678-4564-42ed-8916-\
aad9f27c2e9d"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409513801745*^9},ExpressionUUID->"587022f3-d4bc-4355-bacd-\
c2055687dac8"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409514156901*^9},ExpressionUUID->"d35117db-e3c2-418c-acba-\
96b60301e76c"],

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409516955207*^9},ExpressionUUID->"d92ac1c9-9dca-4392-81cd-\
acb7daa859b2"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409517422175*^9},ExpressionUUID->"b0b11163-053e-4d61-9da1-\
af21fca1b8d4"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409517438593*^9},ExpressionUUID->"521afdb2-04f7-4388-97e6-\
b77811d8ba16"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409517453576*^9},ExpressionUUID->"74ce88b9-2d5a-44f1-8b97-\
d74784831cd8"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184095254714203`*^9},ExpressionUUID->"13f6904f-e607-4a71-bfbe-\
682e7b9c7148"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184095255776176`*^9},ExpressionUUID->"3f34c9cc-b74d-444f-8a88-\
a2c228ff2b2e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409532325691*^9},ExpressionUUID->"e29687fe-1c99-427a-8ff8-\
74a971c649c4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 227],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184095376108*^9},ExpressionUUID->"559571cf-7d17-4ca4-b6e7-d81ec2bd2990"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 4 ].\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409546686668*^9},ExpressionUUID->"455f0a47-0827-4050-a2d6-\
a0403c216d7c"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409546729403*^9},ExpressionUUID->"da778d63-fbbf-4463-8791-\
4dff130908f0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "97"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 97],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409546742661*^9},ExpressionUUID->"5098d5f8-17a1-4a6c-91dc-\
b2e4715d0bd5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.246262`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.246262, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409554832529*^9},ExpressionUUID->"c842eeca-1d5f-4556-8663-\
44f7303cdee8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "95"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 95],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409554851996*^9},ExpressionUUID->"c61ad68d-fc75-423a-9b29-\
b624ed1ff81b"]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{
  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
   30,4,29231154567037670195,"Local","FeynRules`Decay"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.718407314362404*^9, 
  3.718409556246418*^9},ExpressionUUID->"293966c9-02b7-416a-9b7e-\
d05ead29d2d9"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "0.920049`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 0.920049, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184095562680683`*^9},ExpressionUUID->"a85deabe-edaa-4d04-a01e-\
05240887f8e8"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.71840955627817*^9},ExpressionUUID->"9275a1b5-549b-4ed1-944f-2470849b2362"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409556496442*^9},ExpressionUUID->"46172789-f6f9-4eca-adb6-\
98d15f24fb88"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409556513892*^9},ExpressionUUID->"516c90aa-a41f-4ad1-a181-\
e8e90e2b8e5e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "281", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 281, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184095592320347`*^9},ExpressionUUID->"b8cdf07a-b51d-4608-941d-\
838b283cf4a6"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.71840955925204*^9},ExpressionUUID->"4302198b-31fa-49f3-87db-a9a035e62479"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184095592725697`*^9},ExpressionUUID->"8483763a-6c2d-4205-9c4f-\
44605f771118"],

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409561984456*^9},ExpressionUUID->"1592ec0a-c54f-41e4-b68f-\
c581148704d1"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409562347281*^9},ExpressionUUID->"54272298-a65d-4051-890c-\
b4d204a63b69"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184095623664293`*^9},ExpressionUUID->"10ec0e34-3512-4afe-895e-\
efab3176b442"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409562389309*^9},ExpressionUUID->"0fccebfe-bc21-4c81-b3da-\
0a8bd95c9355"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184095708058357`*^9},ExpressionUUID->"9b1e1274-7cca-4209-94a4-\
aeae2c765110"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409570943213*^9},ExpressionUUID->"cf5fbef6-2ed3-40e4-a989-\
602a48ea86ae"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409577568123*^9},ExpressionUUID->"1ddf2b04-d37d-4b3d-9bc0-\
20469a9248bb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 227],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409582711006*^9},ExpressionUUID->"e41174eb-e2e7-4adf-82e9-\
434b8873e649"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 5 ].\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.71840959176226*^9},ExpressionUUID->"573acd1c-f209-4dd6-b069-35c58a5a3365"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.71840959182229*^9},ExpressionUUID->"9daed945-e2bc-4f9e-a7db-5a026b966d83"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "97"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 97],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409591843289*^9},ExpressionUUID->"4fc3b3d7-968f-4884-866b-\
85d4c4f76b54"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.359146`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.359146, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184096000464687`*^9},ExpressionUUID->"f3fa02b8-6cd2-417b-88cd-\
a01b67d2bd58"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "95"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 95],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184096000646343`*^9},ExpressionUUID->"91c081b1-cfb5-4b09-89f4-\
ec7d56058e60"]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{
  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
   31,5,29231154567037670195,"Local","FeynRules`Decay"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.718407314362404*^9, 
  3.718409601475245*^9},ExpressionUUID->"3084115d-bb3c-4f99-97c6-\
bc6352bd65b0"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "0.911296`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 0.911296, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.71840960148722*^9},ExpressionUUID->"d4edac7f-dbb4-45bf-8557-4531228ef46d"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184096014993067`*^9},ExpressionUUID->"c3325e86-ce47-4100-b130-\
fa05dc7d5634"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184096016767607`*^9},ExpressionUUID->"8a56b7f8-3584-4232-8c2a-\
1b828d6454d3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409601734475*^9},ExpressionUUID->"f198dcae-3e32-46dc-a5eb-\
ed8078dc9326"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "281", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 281, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184096038633842`*^9},ExpressionUUID->"81947241-d11d-4938-8bd9-\
b006ee3e9dd6"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409604167262*^9},ExpressionUUID->"1e86d50a-a49c-4e3f-82e6-\
7ae0b23010cc"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409604498927*^9},ExpressionUUID->"467444e7-f3f1-41fe-8879-\
d814b271c721"],

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409606626032*^9},ExpressionUUID->"82803e86-c0d5-487c-9f57-\
7fc3c43ad568"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409606835185*^9},ExpressionUUID->"b4627a44-d9cf-4aaf-be16-\
547f6c3a084b"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409606852213*^9},ExpressionUUID->"baf1a734-2831-4c93-8771-\
689b03815526"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409606870788*^9},ExpressionUUID->"01bad4d8-0ebd-4c5e-bfe2-\
27488f6303fd"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409613286057*^9},ExpressionUUID->"faf5d67b-6965-479d-aa15-\
e9fa448c88e0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "209", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "209", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  209, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 209, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184096133648863`*^9},ExpressionUUID->"f14c228c-b994-4b71-aa24-\
2fbaa9b7e940"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"204", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[204, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409618619824*^9},ExpressionUUID->"aece59fe-dd15-429f-8334-\
088ade446166"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "204"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 204],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409622430133*^9},ExpressionUUID->"dfeba271-8140-4611-9c91-\
07f9f66bf3a1"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 6 ].\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409629477586*^9},ExpressionUUID->"d4e36dcf-8edc-4b0f-a1d7-\
0ee26bfc893c"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409629539082*^9},ExpressionUUID->"f8a880b1-0f62-4588-ac39-\
399c8921d0a4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{122., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "73"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 73],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 3.7184096295589933`*^9},
 ExpressionUUID -> "fa2f102e-73ef-448f-ac32-7ad3f6554f8f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.035698`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.035698, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409636533877*^9},ExpressionUUID->"ec8754a5-a365-42d0-be83-\
b91e73d792f4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{122., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "70"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 70],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 3.718409636552126*^9},
 ExpressionUUID -> "45db17e0-b4a9-4713-9640-a0955f37e089"]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{
  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
   32,6,29231154567037670195,"Local","FeynRules`Decay"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.718407314362404*^9, 
  3.7184096375731277`*^9},ExpressionUUID->"8abf345a-6e3c-4037-a046-\
2e620a57b17b"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "0.642787`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 0.642787, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409637585063*^9},ExpressionUUID->"23e32597-da87-4b14-b840-\
5736ea4bfefd"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409637596266*^9},ExpressionUUID->"04ba2fe6-166f-4ec6-afef-\
d2fa2414ca83"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409637715611*^9},ExpressionUUID->"89f32bb1-6bb2-4331-9dab-\
1e87bd1323c1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184096377708187`*^9},ExpressionUUID->"94189d29-a80d-4aa3-adeb-\
60491a1e846f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{209., {3., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "242", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 242, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 3.718409639589941*^9},
 ExpressionUUID -> "d825f7fa-2503-441f-ab61-b3552035044b"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.71840963982016*^9},ExpressionUUID->"19e62e31-7c8d-40dd-8197-31faaa208457"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409640100071*^9},ExpressionUUID->"31e24711-00d2-4763-ba32-\
76837b90767d"],

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409642631119*^9},ExpressionUUID->"ac66afd9-35a1-49f8-8429-\
35821ed4ce8a"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184096430551777`*^9},ExpressionUUID->"82d3ed9e-7d7b-4350-ab4d-\
5bf08af41483"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409643074291*^9},ExpressionUUID->"a24b51ed-cc7c-4703-8e89-\
be43d6ac0419"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409643094488*^9},ExpressionUUID->"a202a6ca-e7db-4ad8-80a6-\
b43047bf1486"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409650704793*^9},ExpressionUUID->"7d90b002-ba31-4d1f-950a-\
f2eca15799a4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "227", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  227, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 227, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 3.718409650796339*^9},
 ExpressionUUID -> "052d5b38-0725-4038-9cb7-ca94adbc6ab9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"222", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[222, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409656875033*^9},ExpressionUUID->"6dc33f09-ab25-4957-b7a2-\
c32a3c65c868"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{137., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "222"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 222],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 3.718409662726254*^9},
 ExpressionUUID -> "84b93d6c-5d20-4d3e-a5db-d9796678f652"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 7 ].\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409671956826*^9},ExpressionUUID->"c626f1ea-40f3-48e8-a66e-\
94d22e3acbb7"],

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.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409672021037*^9},ExpressionUUID->"338065ca-bbeb-49dd-a22c-\
f707784beba3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{122., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "112"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 112],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 3.718409672039501*^9},
 ExpressionUUID -> "de974ca7-9e1a-43d8-a054-04be213da37d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.534077`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.534077, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184096809083433`*^9},ExpressionUUID->"0bafc9b2-5af0-4af6-b093-\
d078ab27bcf4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{122., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "106"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 106],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 3.718409680929789*^9},
 ExpressionUUID -> "8aa01a16-2032-472a-8865-0c663f89e90f"]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{
  "Decay","Overwrite","\"Warning: Previous results will be overwritten.\"",2,
   33,7,29231154567037670195,"Local","FeynRules`Decay"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.718407314362404*^9, 
  3.718409682539089*^9},ExpressionUUID->"c6189cbb-8a40-490a-a0bc-\
70807d7d3d34"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "1.044304`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 1.044304, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184096825504723`*^9},ExpressionUUID->"75c7e3eb-e3c2-4886-bcd7-\
f19cc0ad19fe"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184096825613947`*^9},ExpressionUUID->"b56f0453-c481-4e93-ae04-\
4853d3a5177c"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409682773394*^9},ExpressionUUID->"52372b45-804c-41ac-9dac-\
71ab1a80cf5f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409682821994*^9},ExpressionUUID->"09515108-8f3f-4277-b8a5-\
d8b354f43bbd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{209., {3., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "296", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 296, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 3.718409685119416*^9},
 ExpressionUUID -> "2d1b7af9-69c0-4f32-82aa-0cf42ac8249b"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.718409685429761*^9},ExpressionUUID->"298309fb-e49f-4bea-8ce0-\
997bdcbcabe2"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.6905950222633877`*^9, 3.6906042423938856`*^9, 
  3.690605207174721*^9, 3.6906069838519907`*^9, 3.6906637253661833`*^9, 
  3.690665828527082*^9, 3.690756056271742*^9, 3.7041500919776583`*^9, 
  3.704426225570242*^9, 3.718407274828047*^9, 
  3.7184096857991667`*^9},ExpressionUUID->"a90108ff-ea5e-41b6-8dba-\
bbbb49314178"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["WIZARD", "Chapter",
 CellChangeTimes->{{3.653343093143339*^9, 3.653343093462414*^9}, {
  3.6761992676581917`*^9, 3.6761992682261844`*^9}, {3.676248741547494*^9, 
  3.676248746625984*^9}},ExpressionUUID->"36892a7a-e3a1-497d-b0db-\
dc92075d8b91"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"FeynmanGauge", "=", "True"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteWOOutput", "[", "LTypeII", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.603600645725746*^9, 3.6036006566228743`*^9}, {
   3.606550334098661*^9, 3.60655033664305*^9}, {3.608451188889968*^9, 
   3.608451204251935*^9}, 3.60845124249209*^9, {3.633332357749588*^9, 
   3.633332371706971*^9}, {3.633333594923254*^9, 3.6333336099891357`*^9}, {
   3.633333692998436*^9, 3.633333708244873*^9}, {3.633759523248143*^9, 
   3.63375952406321*^9}, 3.6337595816874228`*^9, {3.633759861480113*^9, 
   3.633759861782745*^9}, {3.635681799753024*^9, 3.635681812948553*^9}, {
   3.637640540300961*^9, 3.6376405694259853`*^9}, {3.637640663087901*^9, 
   3.637640663759862*^9}, {3.637647387697893*^9, 3.637647389712125*^9}, {
   3.637648387110936*^9, 3.637648387849903*^9}, {3.639389319458922*^9, 
   3.639389319865039*^9}, {3.64051094238649*^9, 3.640510950609267*^9}, {
   3.6430250002334414`*^9, 3.643025002692279*^9}, {3.643025047978877*^9, 
   3.643025060082522*^9}, {3.6452745024778748`*^9, 3.6452745079012833`*^9}, {
   3.645276460101131*^9, 3.645276462419408*^9}, 3.645770304766233*^9, {
   3.64578008286651*^9, 3.6457800832087*^9}, {3.646026325649763*^9, 
   3.646026327751546*^9}, {3.647347838972896*^9, 3.6473478401093903`*^9}, {
   3.64940322069949*^9, 3.6494032361730423`*^9}, {3.650089615748787*^9, 
   3.650089616233056*^9}, {3.675138023210348*^9, 3.6751380486371837`*^9}, 
   3.675724475799202*^9, {3.6761992552887545`*^9, 3.6761992838281183`*^9}, {
   3.676248756934494*^9, 3.67624877035222*^9}, {3.676340688732916*^9, 
   3.67634070163441*^9}, 3.676341122715043*^9, 
   3.6906050601389227`*^9},ExpressionUUID->"e6372325-7af6-4354-85d6-\
0ee5614c78db"],

Cell[CellGroupData[{

Cell[BoxData["\<\" - - - FeynRules interface to WHIZARD/O'Mega - - -\"\>"], \
"Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.71840968842726*^9},ExpressionUUID->"50569568-820e-4639-b17b-1451ca9f54f8"],

Cell[BoxData["\<\" - - - Authors:  C. Speckner, N. Christensen - - -\"\>"], \
"Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409688442569*^9},ExpressionUUID->"f4184a34-2f29-4360-ae4c-\
f338ad61f97a"],

Cell[BoxData["\<\" - - -      Please cite arXiv:1010.3251      - - -\"\>"], \
"Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409688457273*^9},ExpressionUUID->"20143ffe-268b-4746-bd6b-\
9dd67464bd20"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409688473627*^9},ExpressionUUID->"5126715f-8f43-4e5e-b132-\
c630a567bcd2"],

Cell[BoxData["\<\"WOMathematicaInterface.m running, revision: $Id: \
WOMathematicaInterface.m 3666 2012-01-14 17:03:09Z cnspeckn $\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.7184096884934807`*^9},ExpressionUUID->"aa3d8bde-586f-43fa-9ad6-\
eb66a020cbb2"],

Cell[BoxData["\<\"Short model name is \\\"fr_s2hdm\\\"\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409688511724*^9},ExpressionUUID->"9a799ce4-7a56-44d3-840f-\
d54467333c0d"],

Cell[BoxData["\<\"Gauge: Unitarity\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409688530992*^9},ExpressionUUID->"83bdc4aa-d746-45b4-a5ea-\
80cfa86d8257"],

Cell[BoxData["\<\"Generating code for WHIZARD / O'Mega version 2.4.0\"\>"], \
"Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409688550128*^9},ExpressionUUID->"25598a39-1168-4fa8-a294-\
4a8b80eb73f8"],

Cell[BoxData["\<\"Maximum number of couplings per FORTRAN module: 500\"\>"], \
"Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409688567572*^9},ExpressionUUID->"3454b1ca-47c4-40b4-92b1-\
8f879edf7b6f"],

Cell[BoxData["\<\"Extensive lorentz structure checks disabled.\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409688585156*^9},ExpressionUUID->"805b75c8-d3a1-4f99-b954-\
14c11305de90"],

Cell[BoxData["\<\"---\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409688604382*^9},ExpressionUUID->"e54d4793-4647-4062-9cbc-\
635a98452270"],

Cell[BoxData["\<\"Calculating feynman rules...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409688623307*^9},ExpressionUUID->"00ddd808-e0c0-4428-8fd3-\
c821a2310aa3"],

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.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409688642992*^9},ExpressionUUID->"28ec5162-64e2-4790-a7c0-\
44430a56a299"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.71840968866088*^9},ExpressionUUID->"51551001-5c26-41f1-a866-4d1e3a863917"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409688679378*^9},ExpressionUUID->"8e20a31a-2ff7-4e7d-8da9-\
27e19ba7c495"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409696724609*^9},ExpressionUUID->"2acad034-0dfd-4ff5-9ea1-\
b4c0a7c8efde"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 3.718409696937601*^9},
 ExpressionUUID -> "709ccab4-256c-4fa0-acba-9b97df5e8c3b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409703470784*^9},ExpressionUUID->"6adf1cde-344d-4ae7-ae57-\
31c5843af20c"],

Cell[BoxData["\<\"Expanding flavors...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409703486499*^9},ExpressionUUID->"97e5d558-0fc5-4b3e-a606-\
bb416c41f561"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{137., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 227],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 3.718409708575286*^9},
 ExpressionUUID -> "8d30608d-0ec3-4983-a8e1-95d231a7351b"],

Cell[BoxData["\<\"---\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.7184097176368093`*^9},ExpressionUUID->"022dcdef-bae8-438b-9fbd-\
15fd69df3cde"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writing files to \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
current/Models/S2HDM/fr_s2hdm-WO/\"\>", "\[InvisibleSpace]", "\<\"\\n\"\>"}],
  SequenceForm[
  "Writing files to ", 
   "/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
current/Models/S2HDM/fr_s2hdm-WO/", "\n"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409717692234*^9},ExpressionUUID->"9b5684b3-cd62-4dd7-bb4d-\
f1540bcae5c5"],

Cell[BoxData["\<\"Writing O'Mega module signature to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/fr_s2hdm-WO/omega/fr_s2hdm_mdl.mli ...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.7184097177072563`*^9},ExpressionUUID->"2a430f75-b8ef-43e2-8fb0-\
6c4aa26a739c"],

Cell[BoxData["\<\"Writing O'Mega module to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/fr_s2hdm-WO/omega/fr_s2hdm_mdl.ml ...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.7184097177220373`*^9},ExpressionUUID->"36851546-08d3-431d-95df-\
b25fff86c0b7"],

Cell[BoxData["\<\"   10 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409717736648*^9},ExpressionUUID->"b7465d46-475c-489a-8699-\
5e293bae858e"],

Cell[BoxData["\<\"   20 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409717751762*^9},ExpressionUUID->"b7b9125b-6ce0-4c70-b074-\
570feedd8c2d"],

Cell[BoxData["\<\"   30 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409717765851*^9},ExpressionUUID->"693ddf2a-9cfa-4266-ab33-\
5d41111f152e"],

Cell[BoxData["\<\"   40 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409717780711*^9},ExpressionUUID->"bb74e234-1548-497e-a637-\
d70c4001746e"],

Cell[BoxData["\<\"   50 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409717793481*^9},ExpressionUUID->"7181dd73-1899-49cc-9c1d-\
e27f5415bddf"],

Cell[BoxData["\<\"   60 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.7184097178591967`*^9},ExpressionUUID->"86cf7f00-1751-4899-be04-\
0a036f174bd3"],

Cell[BoxData["\<\"   70 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409717874464*^9},ExpressionUUID->"8cb0cde8-095d-4c1d-92e6-\
4f0c819f4d11"],

Cell[BoxData["\<\"   80 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.7184097178915253`*^9},ExpressionUUID->"39218593-068e-44d9-babd-\
9ec9400ee9e5"],

Cell[BoxData["\<\"   90 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409717906234*^9},ExpressionUUID->"0fefca25-d264-44d8-bbf6-\
0b8ecab33a9b"],

Cell[BoxData["\<\"   100 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409717921747*^9},ExpressionUUID->"597237e4-8f6a-436c-a8cc-\
88ff76380f8f"],

Cell[BoxData["\<\"   110 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409717938212*^9},ExpressionUUID->"fd478afc-5d49-49d6-b600-\
bfdb6529cf55"],

Cell[BoxData["\<\"   120 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409717954316*^9},ExpressionUUID->"3b505cf1-d890-4766-b7f5-\
658d8f0d69f8"],

Cell[BoxData["\<\"   130 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.7184097181606913`*^9},ExpressionUUID->"bb2e766a-edfe-4207-803d-\
9ca6f6094528"],

Cell[BoxData["\<\"   140 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409718251556*^9},ExpressionUUID->"f1cbe0b3-6083-41d2-aaef-\
8a15c8a8dcd5"],

Cell[BoxData["\<\"   150 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409718352951*^9},ExpressionUUID->"d36d199c-bf13-46a3-a912-\
2db265f61d76"],

Cell[BoxData["\<\"   160 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409718426333*^9},ExpressionUUID->"ff565033-d241-449c-bdac-\
4f54d8a57ded"],

Cell[BoxData["\<\"   170 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409718491603*^9},ExpressionUUID->"8f4f1aae-daec-4f1b-a4b2-\
780528c795e5"],

Cell[BoxData["\<\"   180 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.71840971850598*^9},ExpressionUUID->"c09f525d-edcb-440e-92b1-cf53e9f103e3"],

Cell[BoxData["\<\"   190 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.7184097185218153`*^9},ExpressionUUID->"2f9b72aa-8135-4f65-8d0a-\
1e04e07b2f67"],

Cell[BoxData["\<\"   200 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.7184097185754557`*^9},ExpressionUUID->"e9a89e9b-4c58-4483-9544-\
827231cee489"],

Cell[BoxData["\<\"   210 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409718591053*^9},ExpressionUUID->"9978baf9-5cb9-4c68-938d-\
37720ad7e216"],

Cell[BoxData["\<\"   220 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.7184097186393547`*^9},ExpressionUUID->"4a339f73-3775-43ed-9e19-\
d110a8b90f4c"],

Cell[BoxData["\<\"   230 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409718690083*^9},ExpressionUUID->"8015bfc0-b801-46b1-bd15-\
37a6923e57d5"],

Cell[BoxData["\<\"   240 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.71840971873962*^9},ExpressionUUID->"3683a3a8-1d4e-4f19-8825-6b2ba77f51aa"],

Cell[BoxData["\<\"   250 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409718754549*^9},ExpressionUUID->"3084c58b-ad1b-4c09-9fff-\
ed74a352ec83"],

Cell[BoxData["\<\"   260 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409718824905*^9},ExpressionUUID->"1f5e9d1a-fa44-4bd8-8a69-\
443ed279172f"],

Cell[BoxData["\<\"   270 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409718901619*^9},ExpressionUUID->"9d511250-3c21-4481-820a-\
a40b5bc86704"],

Cell[BoxData["\<\"   280 of 281 vertices processed...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.7184097190019207`*^9},ExpressionUUID->"8e7208d4-5047-46d0-96e5-\
46da3b328d93"],

Cell[BoxData["\<\"processed a total of 281 vertices, kept 163 of them and \
threw away 118, 118 of which contained ghosts or goldstone bosons.\"\>"], \
"Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719020996*^9},ExpressionUUID->"fe90aab6-3212-469b-b5f9-\
cd23243b4692"],

Cell[BoxData["\<\"Writing O'Mega binary driver to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/fr_s2hdm-WO/omega/omega_fr_s2hdm.ml ...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.71840971928651*^9},ExpressionUUID->"e81ccb4d-ba97-4f82-9e44-53646ea893dd"],

Cell[BoxData["\<\"Writing WHIZARD model file to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/fr_s2hdm-WO/whizard/fr_s2hdm.mdl ...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.7184097193003693`*^9},ExpressionUUID->"7063fee2-3d9c-418f-aa3b-\
e765fe2e0338"],

Cell[BoxData["\<\"Writing WHIZARD FORTRAN glue...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719358177*^9},ExpressionUUID->"e29c6dc3-8172-4b1a-856c-\
d045ffb17416"],

Cell[BoxData["\<\"Writing \
\\\"/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
current/Models/S2HDM/fr_s2hdm-WO/whizard/parameters.fr_s2hdm.global.f90\\\"...\
\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719408742*^9},ExpressionUUID->"14facc64-6827-4f1e-8d13-\
02e7e4d5f534"],

Cell[BoxData["\<\"Writing \
\\\"/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
current/Models/S2HDM/fr_s2hdm-WO/whizard/parameters.fr_s2hdm.cpl1.f90\\\"...\"\
\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719424124*^9},ExpressionUUID->"d9bbbd9a-87fb-4d00-a4d2-\
ddcca6a83b93"],

Cell[BoxData["\<\"Writing \
\\\"/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
current/Models/S2HDM/fr_s2hdm-WO/whizard/parameters.fr_s2hdm.local.f90\\\"...\
\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719437399*^9},ExpressionUUID->"46983285-6d65-48fb-be7c-\
c175457fd0a9"],

Cell[BoxData["\<\"Writing \
\\\"/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
current/Models/S2HDM/fr_s2hdm-WO/whizard/parameters.fr_s2hdm.f90\\\"...\"\>"],\
 "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719450596*^9},ExpressionUUID->"f385957d-920e-435b-88bb-\
a345337ecfc4"],

Cell[BoxData["\<\"Copying configure.ac ...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719466298*^9},ExpressionUUID->"4ca0f05a-62e7-4071-8639-\
d56926f88ed5"],

Cell[BoxData["\<\"Copying configure ...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719479354*^9},ExpressionUUID->"db981ba5-30bb-4f3d-9537-\
a3f4f68382eb"],

Cell[BoxData["\<\"Copying install-sh ...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719493063*^9},ExpressionUUID->"f36856cf-89e1-46fe-a555-\
7c3e3b63f471"],

Cell[BoxData["\<\"Copying Makefile.in ...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719506092*^9},ExpressionUUID->"146a3098-d246-4629-8d75-\
fa3ebffedb91"],

Cell[BoxData["\<\"Copying Makefile.omega.in ...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719519713*^9},ExpressionUUID->"509a5021-d623-4a7d-a75b-\
735c88cb9500"],

Cell[BoxData["\<\"Copying Makefile.whizard.in ...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.7184097195345993`*^9},ExpressionUUID->"d7462f4f-57f9-479c-9691-\
71166c646226"],

Cell[BoxData["\<\"Copying INSTALL ...\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719549864*^9},ExpressionUUID->"c6454fa6-9189-442c-9a01-\
822c2cf67f44"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719563402*^9},ExpressionUUID->"15e43f23-2db5-476c-a7b8-\
6245e04638fa"],

Cell[BoxData["\<\"You should now use the configure script which has been \
copied to the output directory to configure the build system (use the \
variable WO_CONFIG and consult \\\"configure --help\\\" if WHIZARD is not \
installed in the system search path). Afterwards, the model files can be \
compiled and installed via \\\"make install\\\".\"\>"], "Print",
 CellChangeTimes->{3.690595120628574*^9, 3.6906043147460384`*^9, 
  3.690605278133387*^9, 3.690606830227206*^9, 3.690664044988525*^9, 
  3.6906655197043*^9, 3.70415041554889*^9, 3.704426619502297*^9, 
  3.718407816539651*^9, 
  3.718409719586707*^9},ExpressionUUID->"b519c230-c45f-4cf0-98e9-\
6c249419525b"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["CALCHEP", "Chapter",
 CellChangeTimes->{{3.653343093143339*^9, 3.653343093462414*^9}, {
  3.6761992676581917`*^9, 3.6761992682261844`*^9}, {3.676248741547494*^9, 
  3.676248746625984*^9}, {3.6762568420291357`*^9, 
  3.6762568435939007`*^9}},ExpressionUUID->"942e0370-e0ce-4acf-b8fe-\
285dbd8c747f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"FeynmanGauge", "=", "True"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteCHOutput", "[", "LTypeI", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RenameDirectory", "[", 
   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_TI_CH\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteCHOutput", "[", "LTypeII", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RenameDirectory", "[", 
   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_TII_CH\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteCHOutput", "[", "LTypeX", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RenameDirectory", "[", 
   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_TX_CH\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteCHOutput", "[", "LTypeY", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RenameDirectory", "[", 
   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_TY_CH\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteCHOutput", "[", "LInert", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RenameDirectory", "[", 
   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_Inert_CH\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteCHOutput", "[", "LAlign", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RenameDirectory", "[", 
   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_Align_CH\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteCHOutput", "[", "L2gen", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RenameDirectory", "[", 
   RowBox[{"\"\<S2HDM-CH\>\"", ",", "\"\<S2HDM_2gen_CH\>\""}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.603600645725746*^9, 3.6036006566228743`*^9}, {
   3.606550334098661*^9, 3.60655033664305*^9}, {3.608451188889968*^9, 
   3.608451204251935*^9}, 3.60845124249209*^9, {3.633332357749588*^9, 
   3.633332371706971*^9}, {3.633333594923254*^9, 3.6333336099891357`*^9}, {
   3.633333692998436*^9, 3.633333708244873*^9}, {3.633759523248143*^9, 
   3.63375952406321*^9}, 3.6337595816874228`*^9, {3.633759861480113*^9, 
   3.633759861782745*^9}, {3.635681799753024*^9, 3.635681812948553*^9}, {
   3.637640540300961*^9, 3.6376405694259853`*^9}, {3.637640663087901*^9, 
   3.637640663759862*^9}, {3.637647387697893*^9, 3.637647389712125*^9}, {
   3.637648387110936*^9, 3.637648387849903*^9}, {3.639389319458922*^9, 
   3.639389319865039*^9}, {3.64051094238649*^9, 3.640510950609267*^9}, {
   3.6430250002334414`*^9, 3.643025002692279*^9}, {3.643025047978877*^9, 
   3.643025060082522*^9}, {3.6452745024778748`*^9, 3.6452745079012833`*^9}, {
   3.645276460101131*^9, 3.645276462419408*^9}, 3.645770304766233*^9, {
   3.64578008286651*^9, 3.6457800832087*^9}, {3.646026325649763*^9, 
   3.646026327751546*^9}, {3.647347838972896*^9, 3.6473478401093903`*^9}, {
   3.64940322069949*^9, 3.6494032361730423`*^9}, {3.650089615748787*^9, 
   3.650089616233056*^9}, {3.675138023210348*^9, 3.6751380486371837`*^9}, 
   3.675724475799202*^9, {3.6761992552887545`*^9, 3.6761992838281183`*^9}, {
   3.676248756934494*^9, 3.67624877035222*^9}, {3.67625685627006*^9, 
   3.6762568733446283`*^9}, {3.6763407086817102`*^9, 3.676340722489291*^9}, 
   3.690605070055344*^9, {3.690664052428544*^9, 3.6906640555965233`*^9}, {
   3.690764507969553*^9, 3.6907645532954884`*^9}, {3.690765103955852*^9, 
   3.6907651844730988`*^9}},ExpressionUUID->"6cce5987-68f4-43d2-98da-\
6bd9128aa49a"],

Cell[CellGroupData[{

Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409722400983*^9},ExpressionUUID->"4933ecfe-5b76-4c0c-ac41-\
86f6e48f07e0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Authors:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
  SequenceForm[" - - - ", 
   Style["Authors:", 
    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409722416671*^9},ExpressionUUID->"958dc01d-4dd1-43c5-98d7-\
93663a126ad8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Please cite:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
  SequenceForm[" - - - ", 
   Style["Please cite:", 
    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409722433988*^9},ExpressionUUID->"9fadc8c5-09bc-4045-80f8-\
1e7876dca72a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409722452758*^9},ExpressionUUID->"634c0ed1-e1dd-4324-9332-\
b9677296dccd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184097224704733`*^9},ExpressionUUID->"dc036f8d-6fb8-4bf5-be5e-\
b13b581ebabf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409722486498*^9},ExpressionUUID->"edb869ce-9ee0-45c3-bca7-\
f9d22110f8d4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409722504664*^9},ExpressionUUID->"d3ad7921-fb91-4a87-b7d9-\
aa7739752ac6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840972252127*^9},ExpressionUUID->"9d5bd0f4-3e1b-4241-b9c7-9c82ff39737f"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409722536772*^9},ExpressionUUID->"5a509ea6-4644-42a6-9258-\
c85c81787608"],

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.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409722606736*^9},ExpressionUUID->"b647b0f8-bbcd-492e-ae63-\
4e9b4bc75e91"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409722623273*^9},ExpressionUUID->"956bc60d-9124-4f11-9b52-\
48bdf8ad7076"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409722639324*^9},ExpressionUUID->"730855b2-9b0b-4eea-9347-\
4db124fecf48"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with more than \"\>", 
   "\[InvisibleSpace]", "\<\"4\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with more than ", "4", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409722693927*^9},ExpressionUUID->"cd67904c-3ea0-4493-ac7f-\
ab38931ce63a"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840973131791*^9},ExpressionUUID->"3807f14f-70e3-47ce-a631-7bb4e34fb40d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 3.7184097314581203`*^9},
 ExpressionUUID -> "79cc2d18-94be-4d00-943c-a1c902e22134"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409738629291*^9},ExpressionUUID->"71674511-810e-4272-92fe-\
707cf8e14575"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{137., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 227],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 3.7184097443921556`*^9},
 ExpressionUUID -> "e1424228-01c1-474a-81fe-7abaf6114364"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409753752943*^9},ExpressionUUID->"601ffdc4-751d-4cf1-b179-\
5cf5aa2b56ae"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nFinishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nFinishing", 
    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184097572136793`*^9},ExpressionUUID->"86af10d7-e86c-4656-859c-\
37a99bf33129"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"Finishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["Finishing", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409757259059*^9},ExpressionUUID->"0996e03d-e437-43c4-83c0-\
ca1732a2e6c5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nDone\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" in 0.58min!\"\>"}],
  SequenceForm[
   Style["\nDone", 
    RGBColor[0, 0, 1]], " in 0.58min!"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409757272201*^9},ExpressionUUID->"9a00249c-20a3-4874-b623-\
8ae4e09a36de"],

Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409760265368*^9},ExpressionUUID->"db4fd5d5-9bf9-4f99-9575-\
40971655c8e8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Authors:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
  SequenceForm[" - - - ", 
   Style["Authors:", 
    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184097602810507`*^9},ExpressionUUID->"fbfbc6e4-5dd4-4425-8158-\
b0ab2d0c2cf2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Please cite:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
  SequenceForm[" - - - ", 
   Style["Please cite:", 
    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184097602956533`*^9},ExpressionUUID->"8aad3146-6142-453c-bd79-\
976f5fa3292e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409760310594*^9},ExpressionUUID->"a36a84e1-dbdc-4f9b-a99d-\
a13c41945f0a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184097603261147`*^9},ExpressionUUID->"64d457ba-619e-4a3c-a4f9-\
0e67c3df316a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409760342391*^9},ExpressionUUID->"cf78fa6c-fa99-45c5-be42-\
4d385760ed6c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409760355906*^9},ExpressionUUID->"4f020323-24ec-4878-af1a-\
d36b9b21f4e6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409760369295*^9},ExpressionUUID->"29d02cd0-496a-40c6-9a43-\
16fd24bd1048"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409760382874*^9},ExpressionUUID->"16d3ba3a-d88f-4dc8-b08a-\
bbb9e9988339"],

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.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184097604888268`*^9},ExpressionUUID->"7f3dbebc-a5b1-4871-a3c1-\
75eaa538c9ed"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409760504218*^9},ExpressionUUID->"b77f6d81-a59d-48e8-9674-\
e953cf720942"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840976051906*^9},ExpressionUUID->"df275a32-b8d8-4d57-a624-c84781bc7e64"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409768777356*^9},ExpressionUUID->"ce57e47a-44c1-4914-93be-\
be5915c7079c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409768868596*^9},ExpressionUUID->"a23d093e-7ebd-4538-8b8c-\
949a751aacb8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409775257752*^9},ExpressionUUID->"f91cc33d-f6ff-4c6b-a4fa-\
63f78b54f973"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 227],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184097804539337`*^9},ExpressionUUID->"b0623840-0b65-4151-9062-\
caee821e4183"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840978954113*^9},ExpressionUUID->"84277193-1f5d-42dc-b977-78ac1691e18c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nFinishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nFinishing", 
    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409792136364*^9},ExpressionUUID->"4079075a-4c17-405f-b82d-\
e18a18efce90"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"Finishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["Finishing", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409792153973*^9},ExpressionUUID->"eae1316f-3b2d-48fd-959f-\
dddfbaac38d9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nDone\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" in 0.53min!\"\>"}],
  SequenceForm[
   Style["\nDone", 
    RGBColor[0, 0, 1]], " in 0.53min!"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409792169615*^9},ExpressionUUID->"b6de294d-5146-4eea-ac34-\
0e0d3fea7c9c"],

Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184097947981567`*^9},ExpressionUUID->"82c98bfc-7aa1-4382-8c5c-\
7215e5d0d2d9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Authors:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
  SequenceForm[" - - - ", 
   Style["Authors:", 
    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409794814679*^9},ExpressionUUID->"73290809-21d8-4b5e-b6df-\
a83f768daadc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Please cite:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
  SequenceForm[" - - - ", 
   Style["Please cite:", 
    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409794833219*^9},ExpressionUUID->"7dc40228-9aa1-42e2-8202-\
75149e82450a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184097948500147`*^9},ExpressionUUID->"db47c118-0d12-44bc-bb99-\
1972d2adccf0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409794866158*^9},ExpressionUUID->"58f30ba7-673d-476c-8265-\
87592618cc8e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184097948838797`*^9},ExpressionUUID->"4440ae0b-b478-494a-98f9-\
95ae4e5cc83e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184097949004087`*^9},ExpressionUUID->"f9e28586-2677-4a37-ac9d-\
8df69046259f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409794916329*^9},ExpressionUUID->"c2cb23aa-9b4a-4d11-9ed6-\
a8ea60a01855"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409794933391*^9},ExpressionUUID->"75a4fe17-ea2b-41d2-b33c-\
2df1ad6603c9"],

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.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409795023983*^9},ExpressionUUID->"7384e4e5-bc3f-4c65-a862-\
0e0d8ddcff6d"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409795040719*^9},ExpressionUUID->"33c3e08c-a771-4ac2-b714-\
5bc4e3affdd6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409795058655*^9},ExpressionUUID->"daacc91b-44ff-4f09-9106-\
0220721c6c19"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409803199465*^9},ExpressionUUID->"6d88452b-d362-4478-b701-\
6b508d12aa23"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409803291922*^9},ExpressionUUID->"6128fca6-5c15-4ddc-804a-\
006fdef90d66"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840980977781*^9},ExpressionUUID->"f0e6ab0f-7726-44d1-bfa8-797bedfe3d8b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 227],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098148802977`*^9},ExpressionUUID->"866bcd62-6f2a-4664-93c3-\
944047da67b8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409824143405*^9},ExpressionUUID->"7ed06b02-cb6e-41ab-a247-\
7ac3f3e7f034"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nFinishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nFinishing", 
    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840982635454*^9},ExpressionUUID->"17ad5010-6eaa-4d85-8832-ae70d26f6db6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"Finishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["Finishing", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098263698883`*^9},ExpressionUUID->"b8f66f07-d554-4ab9-8cfa-\
f250fe218bb8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nDone\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" in 0.53min!\"\>"}],
  SequenceForm[
   Style["\nDone", 
    RGBColor[0, 0, 1]], " in 0.53min!"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409826385187*^9},ExpressionUUID->"8ad7fb33-7d1f-4cdb-a0ce-\
f675a36703a4"],

Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409829088272*^9},ExpressionUUID->"ad3efbb9-f5b9-4896-85a8-\
596f91da6755"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Authors:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
  SequenceForm[" - - - ", 
   Style["Authors:", 
    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098291082773`*^9},ExpressionUUID->"68ba87c3-4372-4664-a44a-\
13c307d76f5f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Please cite:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
  SequenceForm[" - - - ", 
   Style["Please cite:", 
    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409829127982*^9},ExpressionUUID->"fc3bc01b-6917-48fa-83a4-\
88906fac7801"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409829145462*^9},ExpressionUUID->"827ca6e8-ce6d-4a9f-9195-\
36759a6479eb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409829165*^9},ExpressionUUID->"07578af5-6076-48b5-a65e-1cbc714afaf7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840982918367*^9},ExpressionUUID->"2045dc45-ceb6-4752-89e4-d817e140f2f5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409829201686*^9},ExpressionUUID->"046a9020-f8e1-4b0a-9667-\
7bcf6b8d54be"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840982921907*^9},ExpressionUUID->"530d6cca-c21c-4758-8ae4-f4c762cc3b42"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409829236836*^9},ExpressionUUID->"3c5f9336-19e8-4e81-a56e-\
daf921dfba0c"],

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.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409829354753*^9},ExpressionUUID->"4240c9de-d086-48b6-b74e-\
9de7cb85e903"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840982937396*^9},ExpressionUUID->"bc97c89f-78b8-4a02-bc84-dfd79bd18bce"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098293928213`*^9},ExpressionUUID->"829c6d7a-57e3-40d0-a953-\
fb153fe4bf77"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409837561171*^9},ExpressionUUID->"4c9fd470-77d9-4b65-b76b-\
8a251dc1e4d7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409837655216*^9},ExpressionUUID->"dc095a05-5910-4551-a96d-\
9db256572711"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409844083131*^9},ExpressionUUID->"c7a63db9-4b18-477e-b220-\
8ae9cb0d055f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 227],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409849136373*^9},ExpressionUUID->"c5753d27-cb5f-4bb2-b8ae-\
4e525da59889"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098582486687`*^9},ExpressionUUID->"5d44a32d-c16e-46a4-ab38-\
df06a729226a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nFinishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nFinishing", 
    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409860626039*^9},ExpressionUUID->"dd3a910b-ffa4-459f-b5e4-\
0a0646c8bd2e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"Finishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["Finishing", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409860644782*^9},ExpressionUUID->"7ac600b9-563b-4206-b2f5-\
2723719101e2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nDone\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" in 0.53min!\"\>"}],
  SequenceForm[
   Style["\nDone", 
    RGBColor[0, 0, 1]], " in 0.53min!"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098606628017`*^9},ExpressionUUID->"ba418675-0653-4304-a12e-\
2bdbe2ded919"],

Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409862856965*^9},ExpressionUUID->"8b52b958-c232-41d7-a74e-\
c67b51b40524"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Authors:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
  SequenceForm[" - - - ", 
   Style["Authors:", 
    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409862883366*^9},ExpressionUUID->"4cb1cb47-f4ec-4c43-8830-\
73c4a46f18d6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Please cite:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
  SequenceForm[" - - - ", 
   Style["Please cite:", 
    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409862901196*^9},ExpressionUUID->"3ea45f72-1fa7-4a4b-8e88-\
abb32221c173"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098629210567`*^9},ExpressionUUID->"cf4ead76-45b8-4183-802a-\
466847103a16"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098629392023`*^9},ExpressionUUID->"557f5296-7915-4f55-a914-\
1ba66da2b8a9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409862956521*^9},ExpressionUUID->"0ad53d2a-ffb1-41df-be26-\
0d0e67ce793d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098629742527`*^9},ExpressionUUID->"0517be3e-da7c-47d1-8c1f-\
dc0ea64ff2af"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409862989223*^9},ExpressionUUID->"df010242-2147-4a42-8818-\
d1b1ca74100f"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409863004916*^9},ExpressionUUID->"5e10524c-5033-4bd1-b591-\
409393f130da"],

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.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409863021709*^9},ExpressionUUID->"16780e88-1f5a-4e4c-8bee-\
f0add15d591a"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409863038446*^9},ExpressionUUID->"e92f7d9c-a37e-4daf-aa38-\
4e2e19a9215f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409863055707*^9},ExpressionUUID->"f3a740ba-b55f-401d-9f90-\
397b8f8f2b68"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409875701889*^9},ExpressionUUID->"f1484e9b-4e14-4fae-9e2c-\
31cc6a31bae7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "209", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "209", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  209, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 209, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409875721758*^9},ExpressionUUID->"86afc1c2-e78c-40bb-ad82-\
e851d33897d7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"204", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[204, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409875740129*^9},ExpressionUUID->"4559a0e9-008f-42d5-a746-\
e7408d03581d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "204"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 204],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098830108757`*^9},ExpressionUUID->"898e5c5a-90c6-47ba-905c-\
ea50759f04f4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098865644703`*^9},ExpressionUUID->"27f49223-8479-4e17-956d-\
3923a29b4ce4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nFinishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nFinishing", 
    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409888141205*^9},ExpressionUUID->"7926efec-beb3-4a12-901b-\
0e8ddd8b3d82"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"Finishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["Finishing", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098881594667`*^9},ExpressionUUID->"b48e7494-987e-4360-8f36-\
3145a5dc3ac1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nDone\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" in 0.42min!\"\>"}],
  SequenceForm[
   Style["\nDone", 
    RGBColor[0, 0, 1]], " in 0.42min!"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098881801863`*^9},ExpressionUUID->"af6177ba-880d-43e0-9e86-\
0bf30f061f80"],

Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840989073964*^9},ExpressionUUID->"ee2dc276-030d-4ce7-a588-9a58d46f7e29"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Authors:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
  SequenceForm[" - - - ", 
   Style["Authors:", 
    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409890766798*^9},ExpressionUUID->"56978efa-49d5-4420-b716-\
64775c6756cf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Please cite:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
  SequenceForm[" - - - ", 
   Style["Please cite:", 
    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098907933197`*^9},ExpressionUUID->"a2c2053d-d2ea-4d40-b872-\
dd46e3eff2f5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409890814727*^9},ExpressionUUID->"63cca1e6-a222-454d-9311-\
7c471f9c2cec"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409890838655*^9},ExpressionUUID->"70d3efee-a2b1-426b-b209-\
1da6d2f18809"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409890858905*^9},ExpressionUUID->"8768517c-81f2-4a61-b2f4-\
43c7d8baf8e6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098908867683`*^9},ExpressionUUID->"2e85b374-79d1-47fe-86b6-\
1960092b2201"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098909092293`*^9},ExpressionUUID->"f8832869-3535-472c-a789-\
e2788d12746d"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184098909336643`*^9},ExpressionUUID->"b2178408-235c-420d-9ebf-\
1dbf95bcbd27"],

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.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409891057358*^9},ExpressionUUID->"e353bba5-ab9f-4e5f-820f-\
99f66781a2b9"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409891084889*^9},ExpressionUUID->"d0aadb08-0c46-47be-aa9d-\
083570c98cc6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409891107442*^9},ExpressionUUID->"3d269adf-ceaf-4786-9825-\
abe60c2b1a42"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409899628619*^9},ExpressionUUID->"cfdd95ba-4f98-4c6f-a6cd-\
cecd2ff41d6c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840989969529*^9},ExpressionUUID->"0923de04-14b0-4652-9b9d-81811f2170ca"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840990640958*^9},ExpressionUUID->"7ea5c06e-ac90-4afc-b0ac-6ed2606ce3ef"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{137., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 227],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 3.718409911639011*^9},
 ExpressionUUID -> "c8589058-b6c1-4536-8f83-c6e304893dd9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409920732691*^9},ExpressionUUID->"bab55731-309c-4a45-b85c-\
845d786c675e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nFinishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nFinishing", 
    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184099231885977`*^9},ExpressionUUID->"61db3d8d-1abb-4b64-869a-\
7963899bc54e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"Finishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["Finishing", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184099232070627`*^9},ExpressionUUID->"05d3ae33-c58d-4b6b-a69d-\
e946a3534f98"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nDone\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" in 0.54min!\"\>"}],
  SequenceForm[
   Style["\nDone", 
    RGBColor[0, 0, 1]], " in 0.54min!"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409923225567*^9},ExpressionUUID->"4bee189a-b4b4-4054-86ec-\
c0df6a9dc5b2"],

Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409925886652*^9},ExpressionUUID->"95e5ad40-1aa9-469e-a61a-\
ac691d4095fd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Authors:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
  SequenceForm[" - - - ", 
   Style["Authors:", 
    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840992590836*^9},ExpressionUUID->"1e989358-2599-437e-8093-d4f37e478ff6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"Please cite:\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
  SequenceForm[" - - - ", 
   Style["Please cite:", 
    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409925931706*^9},ExpressionUUID->"ce69472a-2512-43bb-8adf-\
28a58ba74291"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " files to \
/Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-current/\
Models/S2HDM/S2HDM-CH."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184099259530897`*^9},ExpressionUUID->"31e4de32-ffd5-4875-b9de-\
48e2d235dcd0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184099259739323`*^9},ExpressionUUID->"2c20963b-e082-4e6f-aa2e-\
0c741ab0cb91"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184099259928493`*^9},ExpressionUUID->"379c8f4e-fdd5-4c0c-9422-\
ae10ec2b576c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409926011826*^9},ExpressionUUID->"a308a5dc-1d1c-496f-a210-\
b022d6552090"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184099260309143`*^9},ExpressionUUID->"72b02b57-6423-41c9-aaf8-\
07da24a98a85"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409926048938*^9},ExpressionUUID->"2782f2ca-9f6f-4dd0-8d70-\
38301e7e86c5"],

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.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409926117858*^9},ExpressionUUID->"9690b8c2-156a-4fa5-8866-\
16cc6a114366"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409926136828*^9},ExpressionUUID->"fa8cd8ce-541b-4aea-a010-\
a77d192a7365"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840992615176*^9},ExpressionUUID->"84104c43-7e50-4c1d-9b86-f897db413790"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.71840993398032*^9},ExpressionUUID->"7e108204-3e38-48e2-946d-20f4a01f6e54"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "227", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  227, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 227, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 3.7184099340739527`*^9},
 ExpressionUUID -> "ee7a6ed0-ac0c-475c-9647-da31a01ba4b0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"222", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[222, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409940312516*^9},ExpressionUUID->"ff0ceacc-3f65-4263-a7d2-\
b1247b5ac057"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{137., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "222"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 222],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 3.718409946247068*^9},
 ExpressionUUID -> "1235c47b-eb37-4183-b8c3-4bb98ead193c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nWriting\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
'vars1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nWriting", 
    RGBColor[0, 0, 1]], 
   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.7184099552628813`*^9},ExpressionUUID->"db3782b0-49ea-4241-b8bb-\
a07ed04c8a58"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nFinishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
  SequenceForm[
   Style["\nFinishing", 
    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409958070333*^9},ExpressionUUID->"0d8707a2-cfdf-44d7-9cfb-\
efcbe4467422"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"Finishing\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
  SequenceForm[
   Style["Finishing", 
    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409958087432*^9},ExpressionUUID->"e8e431a4-0b60-4168-9136-\
73a4b12dbcdd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"\\nDone\"\>",
    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]], 
   "\[InvisibleSpace]", "\<\" in 0.54min!\"\>"}],
  SequenceForm[
   Style["\nDone", 
    RGBColor[0, 0, 1]], " in 0.54min!"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690595184213382*^9, 3.6906043610744605`*^9, 
  3.6906053245907555`*^9, 3.690606775893572*^9, 3.690664099494296*^9, 
  3.6906650579424887`*^9, 3.690665324638837*^9, 3.690764559713655*^9, 
  3.690765193351706*^9, 3.7041504507687683`*^9, 3.704426663481052*^9, 
  3.718407866124856*^9, 
  3.718409958105299*^9},ExpressionUUID->"b38fc4eb-d51b-417d-981e-\
cdea8e4187d1"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["FeynArts", "Chapter",
 CellChangeTimes->{{3.653342767661127*^9, 3.6533427702599983`*^9}, {
   3.6751387710535192`*^9, 3.6751387740648303`*^9}, {3.675139950764017*^9, 
   3.675139953260113*^9}, 
   3.675139992964285*^9},ExpressionUUID->"917e2351-d35c-481e-9611-\
10cb8a3c5ddb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"FR$LoopSwitches", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Gf", ",", "MW"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"lambda12s", ",", "t2theta"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{"Win", ",", 
    RowBox[{"SetDirectory", "[", "$FeynArtsMdlWinDir", "]"}], ",", 
    RowBox[{"SetDirectory", "[", "$FeynArtsMdlMacDir", "]"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.6762435264935303`*^9, 3.676243526505324*^9}, {
   3.6762438216409893`*^9, 3.6762438421298018`*^9}, {3.6763407538899*^9, 
   3.676340756072351*^9}, {3.676342168471962*^9, 3.676342169964034*^9}, 
   3.6906069228089314`*^9, {3.6906087606678195`*^9, 3.690608797264149*^9}, {
   3.690777223003598*^9, 3.6907772233306847`*^9}},
 ExpressionUUID -> "c629c05d-b920-487d-8976-e6f0695cea3f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Lren", "=", 
   RowBox[{"OnShellRenormalization", "[", 
    RowBox[{"LTypeI", ",", 
     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",", 
     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",", 
     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"WriteFeynArtsOutput", "[", 
  RowBox[{"Lren", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_TI\>\""}], ",", 
   RowBox[{"GenericFile", "\[Rule]", "False"}], ",", 
   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6907772260458603`*^9, 3.690777238865779*^9}},
 ExpressionUUID -> "240fd8b7-7b0e-4100-8862-a2c802be5543"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
them\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.7184121208978643`*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

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.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412130347307*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412151326182*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412151433764*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412151445828*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412151488565*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.7184121515002937`*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412151512372*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412204321377*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"with the parameters\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412204407188*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"with the fields\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412207090567*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412220654207*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.7184122206699333`*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412220685699*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412220703491*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
separate FeynArts class.\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412220717216*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
classes\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412220734289*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
-> True.\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412220749433*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412220768208*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

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.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412227373942*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412227385078*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.7184122273967*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412257247684*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "306", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "306", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  306, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 306, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412257503132*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"287", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[287, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.7184122731592693`*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writing FeynArts model file into directory \"\>", 
   "\[InvisibleSpace]", "\<\"LS2HDM_TI\"\>"}],
  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_TI"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907773413792553`*^9, 3.704153610576006*^9, 
  3.70441799850593*^9, 3.718408197119368*^9, 3.718409968584942*^9, 
  3.718412277945162*^9},
 ExpressionUUID -> "bc738f45-4f1b-468c-9101-324b906942e3"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Lren", "=", 
   RowBox[{"OnShellRenormalization", "[", 
    RowBox[{"LTypeII", ",", 
     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",", 
     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",", 
     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"WriteFeynArtsOutput", "[", 
  RowBox[{"Lren", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_TII\>\""}], ",", 
   RowBox[{"GenericFile", "\[Rule]", "False"}], ",", 
   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.690777263353649*^9, 3.690777266585327*^9}},
 ExpressionUUID -> "26ec0bbf-b4ed-418d-9ebe-6352bb1b98b6"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
them\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412290053446*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.7184123216191587`*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.7184123217268133`*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412321739458*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412321750991*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.7184123217634077`*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412321777032*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.7184124333777313`*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"with the parameters\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.7184124334520683`*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"with the fields\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412435247773*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412447660294*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412447672269*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.7184124476851397`*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412447697597*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
separate FeynArts class.\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412447709938*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
classes\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412447721856*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
-> True.\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412447734194*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412447750175*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

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.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.7184124550296717`*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412455041161*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.7184124550525427`*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412484687171*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "306", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "306", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  306, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 306, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412484931593*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"287", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[287, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412501125531*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writing FeynArts model file into directory \"\>", 
   "\[InvisibleSpace]", "\<\"LS2HDM_TII\"\>"}],
  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_TII"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690777648924445*^9, 3.704156109120942*^9, 
  3.704418133507044*^9, 3.7184084058992567`*^9, 3.718410137137258*^9, 
  3.718412505340814*^9},
 ExpressionUUID -> "a84bbf94-70e0-46ee-8cc3-ef1ea7497613"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Lren", "=", 
   RowBox[{"OnShellRenormalization", "[", 
    RowBox[{"LTypeX", ",", 
     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",", 
     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",", 
     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"WriteFeynArtsOutput", "[", 
  RowBox[{"Lren", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_TX\>\""}], ",", 
   RowBox[{"GenericFile", "\[Rule]", "False"}], ",", 
   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.690777268745599*^9, 3.6907772702260303`*^9}},
 ExpressionUUID -> "7af63aea-468a-4307-a8af-c179003896ae"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
them\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412516848418*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412548843026*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.7184125489477177`*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412548960894*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412548974833*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.7184125489888563`*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412549001902*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412676516822*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"with the parameters\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.7184126766396627`*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"with the fields\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.7184126783971987`*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412690745433*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412690758134*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.71841269077035*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.71841269078402*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
separate FeynArts class.\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.71841269079702*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
classes\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412690809503*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
-> True.\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412690822*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412690835064*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

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.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412697877184*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412697887589*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.7184126978991528`*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412726955652*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "306", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "306", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  306, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 306, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412727200923*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"287", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[287, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.7184127430103188`*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writing FeynArts model file into directory \"\>", 
   "\[InvisibleSpace]", "\<\"LS2HDM_TX\"\>"}],
  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_TX"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907779219448566`*^9, 3.704156297475411*^9, 
  3.704418308429853*^9, 3.718408630209529*^9, 3.718410337166491*^9, 
  3.718412747213387*^9},
 ExpressionUUID -> "18ecca89-ff54-424d-bd1b-539e114480d6"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Lren", "=", 
   RowBox[{"OnShellRenormalization", "[", 
    RowBox[{"LTypeY", ",", 
     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",", 
     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",", 
     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"WriteFeynArtsOutput", "[", 
  RowBox[{"Lren", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_TY\>\""}], ",", 
   RowBox[{"GenericFile", "\[Rule]", "False"}], ",", 
   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.690777271728582*^9, 3.6907772744180613`*^9}},
 ExpressionUUID -> "7bdf063d-9fdf-4d39-b70c-131ebc9e9b74"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
them\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412758382861*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.71841279006527*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412790166956*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412790180461*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.7184127901930637`*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412790205123*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412790220068*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412904415724*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"with the parameters\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412904587422*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"with the fields\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.7184129062717447`*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.7184129189090233`*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412918920958*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.71841291893152*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.7184129189430113`*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
separate FeynArts class.\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.71841291895452*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
classes\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412918966132*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
-> True.\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412918976933*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412918987453*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

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.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412926303878*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412926324027*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412926344096*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.71841295623173*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "306", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "306", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  306, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 306, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412956484309*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"287", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[287, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.718412972886264*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writing FeynArts model file into directory \"\>", 
   "\[InvisibleSpace]", "\<\"LS2HDM_TY\"\>"}],
  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_TY"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690778204533187*^9, 3.7041565012110367`*^9, 
  3.704418477733345*^9, 3.718408883883123*^9, 3.7184105492654552`*^9, 
  3.7184129771173477`*^9},
 ExpressionUUID -> "e2dece97-33ab-4f16-913a-340cb5470735"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Lren", "=", 
   RowBox[{"OnShellRenormalization", "[", 
    RowBox[{"LInert", ",", 
     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",", 
     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",", 
     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"WriteFeynArtsOutput", "[", 
  RowBox[{"Lren", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_Inert\>\""}], ",", 
   RowBox[{"GenericFile", "\[Rule]", "False"}], ",", 
   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.690777276754737*^9, 3.69077728270396*^9}},
 ExpressionUUID -> "7a88ff36-cfd3-4dcc-86d7-e5906b583e1d"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
them\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413585816353*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

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.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413592731718*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413609048621*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.7184136091619673`*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413609176509*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413609213827*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.7184136092268143`*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413609239649*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413645067658*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"with the parameters\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.7184136451400557`*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"with the fields\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.7184136466989326`*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413653474596*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413653489748*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413653504974*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413653518587*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
separate FeynArts class.\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413653531925*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
classes\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413653547145*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
-> True.\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413653561043*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413653573773*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

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.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413656233307*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.7184136562471313`*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413656260002*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413679794057*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "283", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "283", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  283, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 283, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.718413679997162*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"264", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[264, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.7184136928488293`*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writing FeynArts model file into directory \"\>", 
   "\[InvisibleSpace]", "\<\"LS2HDM_Inert\"\>"}],
  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_Inert"],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.690778492019863*^9, 3.704156709372551*^9, 
  3.70441865927205*^9, 3.718409125574437*^9, 3.718410755227072*^9, 
  3.718412985621952*^9, 3.7184136962234993`*^9},
 ExpressionUUID -> "75105c08-9bc7-4805-83fa-8ab19224dd2f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Lren", "=", 
   RowBox[{"OnShellRenormalization", "[", 
    RowBox[{"LAlign", ",", 
     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",", 
     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",", 
     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"WriteFeynArtsOutput", "[", 
  RowBox[{"Lren", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_Align\>\""}], ",", 
   RowBox[{"GenericFile", "\[Rule]", "False"}], ",", 
   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.690777285871957*^9, 3.690777291079534*^9}},
 ExpressionUUID -> "a032c616-6258-4359-a2ae-cd199b33f891"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
them\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184137074601593`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413741185433*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413741303426*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413741320036*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184137413344297`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184137413477077`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184137413621187`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413820519618*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"with the parameters\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138205839443`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"with the fields\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138229920807`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.71841383636458*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138363804827`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138363939657`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138364083347`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
separate FeynArts class.\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138364214497`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
classes\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138364359922`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
-> True.\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413836448532*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413836462768*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

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.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413844879979*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413844892679*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.718413844906629*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138759701014`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "306", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "306", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  306, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 306, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.71841387623272*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"287", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[287, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138942157583`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writing FeynArts model file into directory \"\>", 
   "\[InvisibleSpace]", "\<\"LS2HDM_Align\"\>"}],
  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_Align"],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.6907787608171988`*^9, 3.704156880208993*^9, 
  3.704418811370986*^9, 3.7184109096605988`*^9, 3.7184138991413813`*^9},
 ExpressionUUID -> "a73f024a-2e1d-41ef-bcd4-c48740c934aa"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Lren", "=", 
   RowBox[{"OnShellRenormalization", "[", 
    RowBox[{"L2gen", ",", 
     RowBox[{"QCDOnly", "\[Rule]", "True"}], ",", 
     RowBox[{"FlavorMixing", "\[Rule]", "False"}], ",", 
     RowBox[{"Simplify2pt", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"WriteFeynArtsOutput", "[", 
  RowBox[{"Lren", ",", 
   RowBox[{"Output", "\[Rule]", "\"\<LS2HDM_2gen\>\""}], ",", 
   RowBox[{"GenericFile", "\[Rule]", "False"}], ",", 
   RowBox[{"FlavorExpand", " ", "->", " ", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.690777296593112*^9, 3.6907773014392023`*^9}},
 ExpressionUUID -> "70076882-7dd5-4cb3-8ee5-13e593d651e5"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Extracting the mass and kinetic terms to simplify \
them\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718413914232903*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"renormalizing the fields\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718413950126904*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"No mixing allowed for the renormalization\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718413950228787*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"renormalizing the parameters\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718413950240851*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"renormalizing the masses\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718413950252664*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"renormalizing the other external parameters\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718413950263962*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"Internal parameter renormalization\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.7184139502754803`*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"renormalizing the Lagrangian\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414084120267*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"with the parameters\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414084395027*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"with the fields\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414086468685*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\" - - - FeynRules interface to FeynArts - - -\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414105049629*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"      C. Degrande C. Duhr, 2013\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414105062532*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"      Counterterms: B. Fuks, 2012\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414105075526*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414105089203*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"Redefining classes in such a way that each particle is in a \
separate FeynArts class.\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414105102816*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"See NewFeynArtsClasses[] for more information on the new \
classes\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414105115732*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"Restarting Feynman rule calculation, setting FlavorExpand \
-> True.\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.7184141051290617`*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculating Feynman rules for \"\>", 
   "\[InvisibleSpace]", "\<\"L1\"\>"}],
  SequenceForm["Calculating Feynman rules for ", "L1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.7184141051417637`*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

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.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.71841411585425*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414115867667*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414115880225*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.7184141465247993`*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "313", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{180., {3., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "313", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  313, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 313, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414146798367*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"294", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[294, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.7184141644320717`*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writing FeynArts model file into directory \"\>", 
   "\[InvisibleSpace]", "\<\"LS2HDM_2gen\"\>"}],
  SequenceForm["Writing FeynArts model file into directory ", "LS2HDM_2gen"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907790460503683`*^9, 3.704157091663598*^9, 
  3.7044189829621763`*^9, 3.718411114283349*^9, 3.718414168646255*^9},
 ExpressionUUID -> "ada05053-5f69-4f4a-96a3-292987bcc55b"]
}, Open  ]]
}, Closed]],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 ExpressionUUID -> "dbf6cca3-4164-4e0c-bdff-a5d9b83e5c72"]
}, Closed]],

Cell[CellGroupData[{

Cell["NLOCT", "Chapter",
 CellChangeTimes->{{3.653342974908367*^9, 
  3.653342975707679*^9}},ExpressionUUID->"978c3a0a-14ce-442a-8e7f-\
26196892ed2c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Win", "=", 
   RowBox[{"(", 
    RowBox[{"$OperatingSystem", "\[Equal]", "\"\<Windows\>\""}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$FeynArtsWinDir", "=", 
   "\"\<C:\\\\Users\\\\giorgiobusoni\\\\OneDrive\\\\Documenti\\\\NumericTools\
\\\\FeynArts\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$FeynArtsMacDir", "=", 
   "\"\</Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$WinDir", "=", 
   "\"\<C:\\\\Users\\\\giorgiobusoni\\\\OneDrive\\\\Documenti\\\\NumericTools\
\\\\feynrules\\\\feynrules-current\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$MacDir", "=", 
   "\"\</Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
current\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$MdlWinDir", "=", "\"\<\\\\Models\\\\S2HDM\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$MdlMacDir", "=", "\"\</Models/S2HDM\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{"Win", ",", 
    RowBox[{"$FeynRulesPath", "=", 
     RowBox[{"SetDirectory", "[", "$FeynArtsWinDir", "]"}]}], ",", 
    RowBox[{"$FeynRulesPath", "=", 
     RowBox[{"SetDirectory", "[", "$FeynArtsMacDir", "]"}]}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{
  3.653342814693084*^9, {3.675137307411476*^9, 3.6751373095966263`*^9}, {
   3.675137467398859*^9, 3.6751374754558077`*^9}, {3.676187014041254*^9, 
   3.6761870556307526`*^9}, {3.676339175945261*^9, 3.676339247958099*^9}},
 ExpressionUUID -> "25b0438e-b475-465f-961d-9850d0409873"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", " ", "FeynArts`"}]], "Input",
 ExpressionUUID -> "0057ece4-8075-4f3b-900d-b38f676ed1df"],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.6906107502033625`*^9, 3.6906710181040897`*^9, 
  3.690779382919428*^9, 3.704401437284342*^9, 3.7044193635687037`*^9, 
  3.704422539142214*^9, 3.7184113599048223`*^9, 3.718413022487193*^9, 
  3.7184142044321957`*^9, 3.718414641718495*^9},
 ExpressionUUID -> "40cfc4bb-8fed-4449-9de5-2c44e56228e5"],

Cell[BoxData["\<\"FeynArts 3.9 (23 Sep 2015)\"\>"], "Print",
 CellChangeTimes->{3.6906107502033625`*^9, 3.6906710181040897`*^9, 
  3.690779382919428*^9, 3.704401437284342*^9, 3.7044193635687037`*^9, 
  3.704422539142214*^9, 3.7184113599048223`*^9, 3.718413022487193*^9, 
  3.7184142044321957`*^9, 3.718414641731578*^9},
 ExpressionUUID -> "40cfc4bb-8fed-4449-9de5-2c44e56228e5"],

Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print",
 CellChangeTimes->{3.6906107502033625`*^9, 3.6906710181040897`*^9, 
  3.690779382919428*^9, 3.704401437284342*^9, 3.7044193635687037`*^9, 
  3.704422539142214*^9, 3.7184113599048223`*^9, 3.718413022487193*^9, 
  3.7184142044321957`*^9, 3.718414641749762*^9},
 ExpressionUUID -> "40cfc4bb-8fed-4449-9de5-2c44e56228e5"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Win", "=", 
   RowBox[{"(", 
    RowBox[{"$OperatingSystem", "\[Equal]", "\"\<Windows\>\""}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{"Win", ",", 
    RowBox[{"$FeynRulesPath", "=", 
     RowBox[{"SetDirectory", "[", "$WinDir", "]"}]}], ",", 
    RowBox[{"$FeynRulesPath", "=", 
     RowBox[{"SetDirectory", "[", "$MacDir", "]"}]}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.64302329717109*^9, 3.643023299501276*^9}, {
   3.6452723585550957`*^9, 3.645272359939103*^9}, {3.647076405736209*^9, 
   3.64707640635962*^9}, 3.653342850700206*^9, 3.6751372040692425`*^9, {
   3.675137321423684*^9, 3.675137339742462*^9}, {3.6761870603362703`*^9, 
   3.6761870789577255`*^9}, 3.676339258577112*^9},
 ExpressionUUID -> "d406c88b-c940-491d-b041-aa12a5faed0f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", " ", "NLOCT`"}]], "Input",
 ExpressionUUID -> "11dc5c4d-eeac-4fb1-b765-880012700e03"],

Cell[CellGroupData[{

Cell[BoxData["\<\" - NLOCT - \"\>"], "Print",
 CellChangeTimes->{3.6906107572548685`*^9, 3.690671018213098*^9, 
  3.6907793830304623`*^9, 3.704401441701356*^9, 3.704419363757988*^9, 
  3.704422539242038*^9, 3.718411360004724*^9, 3.718413022581395*^9, 
  3.7184142045357637`*^9, 3.718414641841178*^9},
 ExpressionUUID -> "687cde09-1487-45ce-a226-8b9e05af26a9"],

Cell[BoxData["\<\"Version: 1.02\"\>"], "Print",
 CellChangeTimes->{3.6906107572548685`*^9, 3.690671018213098*^9, 
  3.6907793830304623`*^9, 3.704401441701356*^9, 3.704419363757988*^9, 
  3.704422539242038*^9, 3.718411360004724*^9, 3.718413022581395*^9, 
  3.7184142045357637`*^9, 3.7184146418554077`*^9},
 ExpressionUUID -> "687cde09-1487-45ce-a226-8b9e05af26a9"],

Cell[BoxData["\<\"Authors: C. Degrande\"\>"], "Print",
 CellChangeTimes->{3.6906107572548685`*^9, 3.690671018213098*^9, 
  3.6907793830304623`*^9, 3.704401441701356*^9, 3.704419363757988*^9, 
  3.704422539242038*^9, 3.718411360004724*^9, 3.718413022581395*^9, 
  3.7184142045357637`*^9, 3.718414641869411*^9},
 ExpressionUUID -> "687cde09-1487-45ce-a226-8b9e05af26a9"],

Cell[BoxData["\<\"Please cite C. Degrande, Comput.Phys.Commun. 197 (2015) \
239-262\"\>"], "Print",
 CellChangeTimes->{3.6906107572548685`*^9, 3.690671018213098*^9, 
  3.6907793830304623`*^9, 3.704401441701356*^9, 3.704419363757988*^9, 
  3.704422539242038*^9, 3.718411360004724*^9, 3.718413022581395*^9, 
  3.7184142045357637`*^9, 3.718414641882968*^9},
 ExpressionUUID -> "687cde09-1487-45ce-a226-8b9e05af26a9"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{"Win", ",", 
    RowBox[{"SetDirectory", "[", 
     RowBox[{"$FeynRulesPath", "<>", "$MdlWinDir"}], "]"}], ",", 
    RowBox[{"SetDirectory", "[", 
     RowBox[{"$FeynRulesPath", "<>", "$MdlMacDir"}], "]"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6333335430865088`*^9, 3.6333335552625504`*^9}, {
   3.633759553050228*^9, 3.633759553878661*^9}, {3.635681734336973*^9, 
   3.635681736612557*^9}, {3.637640417227786*^9, 3.6376404184754333`*^9}, {
   3.63937694796106*^9, 3.6393769493287563`*^9}, {3.6405100825800657`*^9, 
   3.640510083170496*^9}, 3.64051048875382*^9, {3.643018762649206*^9, 
   3.643018771597096*^9}, 3.643024946820489*^9, {3.645272373051367*^9, 
   3.645272374670525*^9}, {3.645274084493257*^9, 3.645274085716125*^9}, {
   3.645275926207169*^9, 3.645275927770879*^9}, 3.645770250485813*^9, 
   3.645770738860055*^9, {3.645780051087365*^9, 3.645780051727775*^9}, {
   3.646026265671403*^9, 3.6460262676920023`*^9}, {3.647076420208658*^9, 
   3.647076420403612*^9}, {3.647347800062046*^9, 3.647347801503477*^9}, {
   3.6494031514580183`*^9, 3.649403153218494*^9}, {3.6533428296928043`*^9, 
   3.653342858449109*^9}, 3.6751372193019238`*^9, 3.676187112896764*^9, 
   3.676339270046777*^9},
 ExpressionUUID -> "6c30da72-1ee8-4b72-aed3-53304f408e2a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"WriteCT", "[", 
   RowBox[{"\"\<LS2HDM_TI/LS2HDM_TI\>\"", ",", "\"\<Lorentz\>\"", ",", 
    RowBox[{"Output", "->", "\"\<LS2HDM_TI\>\""}], ",", 
    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"}], "}"}], 
      "}"}]}], ",", 
    RowBox[{"ComplexMass", "\[Rule]", "False"}], ",", 
    RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}], "//", "Timing",
   " "}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQA2IQPYMtewWH0GvHXRNMV4Fo80cy6/mBtEqcHpjOWe+0
7AaQlnu0ZTmI5spYZNks9trxiDqHDYiWMzo9x17qtaPdu/0LQPSiH+51/bKv
HV+ZXKoH0VIPZreD6AuxP8C0ocS7CzvkXzu+UO6+DKK37FS0v6f42lH/QgqY
dp/YrMutBKRPHgTTXHrbH2oC6eWs58C0tRvj4UaV1446QtFgetVu9eMtQDro
0/UTIHqR4aobIHqO6w0wvXSy8u5zGq8dd3CU7QHR9ww6Hp8H0uxvLj4B0bXl
PxwPar52tDpzxQlEW2jt5ToGpNl45nCD6MzV35zttF47Kh2udAXRTt3snc+A
dLF3ezeInrFC8sV07deORaxdYNqkoL37sM5rx5b1k3tAdOvPJKX1Bq8d6+pP
K4Poh++cToNorr0WZ0F0yvSffv8Mge6vswoA0Vt+Sa49kvja8VD+ITCtmdDz
GUR/bxP/CqKf+J9xOpr82jH2d7YziJbu3312Zv1rxwaPstsgOkZU7az/lteO
gd/dwDQAvEDvOA==
  "],
 ExpressionUUID -> "dfdb3d84-8541-41ea-b2f5-a60f907a2986"],

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.718414204660685*^9, 3.718414642026601*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"generic\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/Lorentz.\
gen\"\>"}],
  SequenceForm[
  "", "loading ", "generic", " model file ", 
   "/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/Lorentz.\
gen"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414642050699*^9}],

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

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"classes\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_TI/\
LS2HDM_TI.mod\"\>"}],
  SequenceForm[
  "", "loading ", "classes", " model file ", 
   "/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_TI/\
LS2HDM_TI.mod"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146421008*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146421780567`*^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.718414204660685*^9, 3.7184146421915073`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414642228848*^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.718414204660685*^9, 3.718414642241271*^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.718414204660685*^9, 3.718414642254655*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146422915087`*^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.718414204660685*^9, 3.718414642303686*^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.718414204660685*^9, 3.718414642315773*^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.718414204660685*^9, 3.718414642379657*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414642389545*^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.718414204660685*^9, 3.718414642401524*^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.718414204660685*^9, 3.7184146424123297`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
0.168060\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146424433002`*^9}],

Cell[BoxData["\<\"Vertices {S} finished after 0.168102\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414642453421*^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.718414204660685*^9, 3.7184146424637403`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146424739523`*^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.718414204660685*^9, 3.718414642484724*^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.718414204660685*^9, 3.7184146424960327`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414642528348*^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.718414204660685*^9, 3.7184146425395403`*^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.718414204660685*^9, 3.718414642550239*^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.718414204660685*^9, 3.718414642560617*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414642694997*^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.718414204660685*^9, 3.718414642706709*^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.718414204660685*^9, 3.718414642717155*^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.718414204660685*^9, 3.7184146427273283`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414642737653*^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.718414204660685*^9, 3.718414642751742*^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.718414204660685*^9, 3.718414642762179*^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.718414204660685*^9, 3.718414642772428*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
1.748174\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.71841464369202*^9}],

Cell[BoxData["\<\"Vertices {F, F} finished after 1.748319\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414643705159*^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.718414204660685*^9, 3.718414643716209*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146437264233`*^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.718414204660685*^9, 3.718414643736825*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414644246119*^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.718414204660685*^9, 3.718414644256897*^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.718414204660685*^9, 3.7184146442675457`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146443013*^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.718414204660685*^9, 3.718414644312684*^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.718414204660685*^9, 3.7184146443237*^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.718414204660685*^9, 3.718414644334941*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414644346025*^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.718414204660685*^9, 3.718414644357636*^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.718414204660685*^9, 3.71841464436849*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
2.278202\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414644401944*^9}],

Cell[BoxData["\<\"Vertices {S, S} finished after 2.278285\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414644412969*^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.718414204660685*^9, 3.718414644424217*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146444346733`*^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.718414204660685*^9, 3.7184146444459963`*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146444916687`*^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.718414204660685*^9, 3.718414644502391*^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.718414204660685*^9, 3.718414644513524*^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.718414204660685*^9, 3.71841464458038*^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.718414204660685*^9, 3.718414644590967*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414645354056*^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.718414204660685*^9, 3.7184146453657618`*^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.718414204660685*^9, 3.718414645377492*^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.718414204660685*^9, 3.718414645390527*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414645401874*^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.718414204660685*^9, 3.718414645413362*^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.718414204660685*^9, 3.718414645423934*^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.718414204660685*^9, 3.7184146454352818`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
4.390941\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414646332665*^9}],

Cell[BoxData["\<\"Vertices {V, V} finished after 4.391077\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414646343649*^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.718414204660685*^9, 3.7184146463571043`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146463675528`*^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.718414204660685*^9, 3.718414646377252*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 1350 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 1350 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414654868113*^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.718414204660685*^9, 3.718414654882017*^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.718414204660685*^9, 3.7184146548948183`*^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.718414204660685*^9, 3.718414654908518*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146551073112`*^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.718414204660685*^9, 3.718414655117545*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146553563747`*^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.718414204660685*^9, 3.718414655368627*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414655411919*^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.718414204660685*^9, 3.718414655425827*^9}],

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

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

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
15.532128\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414657474609*^9}],

Cell[BoxData["\<\"Vertices {F, F, S} finished after 15.532436\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.71841465748582*^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.718414204660685*^9, 3.718414657500136*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414657512793*^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.718414204660685*^9, 3.718414657523685*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 908 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 908 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414663730793*^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.718414204660685*^9, 3.718414663744104*^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.718414204660685*^9, 3.71841466375554*^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.718414204660685*^9, 3.718414663769517*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146638963547`*^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.718414204660685*^9, 3.718414663906637*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146648239098`*^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.718414204660685*^9, 3.718414664835957*^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.718414204660685*^9, 3.71841466489882*^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.718414204660685*^9, 3.718414664911068*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184146649218597`*^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.718414204660685*^9, 3.718414664933216*^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.718414204660685*^9, 3.718414664945434*^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.718414204660685*^9, 3.718414664957569*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
25.426887\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.71841466736902*^9}],

Cell[BoxData["\<\"Vertices {F, F, V} finished after 25.427308\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414667380025*^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.718414204660685*^9, 3.718414667391727*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414667404317*^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.718414204660685*^9, 3.718414667415875*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414670081182*^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.718414204660685*^9, 3.718414670091792*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 291 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "3 Generic, 291 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414670594693*^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.718414204660685*^9, 3.718414670610961*^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.718414204660685*^9, 3.718414670626278*^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.718414204660685*^9, 3.718414670639946*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414822812954*^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.718414204660685*^9, 3.718414822823614*^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.718414204660685*^9, 3.718414822837105*^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.718414204660685*^9, 3.718414822847789*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414822858572*^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.718414204660685*^9, 3.7184148228701344`*^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.718414204660685*^9, 3.718414822881012*^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.718414204660685*^9, 3.718414822892627*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
184.120106\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184148260621557`*^9}],

Cell[BoxData["\<\"Vertices {V, V, V} finished after 184.120468\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414826072774*^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.718414204660685*^9, 3.718414826083521*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414826094234*^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.718414204660685*^9, 3.718414826104434*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414828862898*^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.718414204660685*^9, 3.7184148288744907`*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184148294101686`*^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.718414204660685*^9, 3.718414829420998*^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.718414204660685*^9, 3.718414829431285*^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.718414204660685*^9, 3.71841482944205*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414829453082*^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.718414204660685*^9, 3.7184148294638853`*^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.718414204660685*^9, 3.71841482947567*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
187.537429\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184148295092163`*^9}],

Cell[BoxData["\<\"Vertices {V, V, S} finished after 187.537612\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414829519861*^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.718414204660685*^9, 3.718414829530491*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414829541494*^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.718414204660685*^9, 3.718414829553355*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414834660713*^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.718414204660685*^9, 3.718414834672134*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414850242282*^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.718414204660685*^9, 3.718414850253242*^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.718414204660685*^9, 3.718414850264737*^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.718414204660685*^9, 3.71841485027512*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414850285737*^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.718414204660685*^9, 3.718414850296729*^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.718414204660685*^9, 3.718414850307048*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
208.291374\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184148503398542`*^9}],

Cell[BoxData["\<\"Vertices {V, S, S} finished after 208.291493\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184148503499937`*^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.718414204660685*^9, 3.7184148503607607`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414850371207*^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.718414204660685*^9, 3.718414850381866*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414865733116*^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.718414204660685*^9, 3.718414865744294*^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.718414204660685*^9, 3.718414865755455*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414865788641*^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.718414204660685*^9, 3.718414865799528*^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.718414204660685*^9, 3.718414865811432*^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.718414204660685*^9, 3.718414865824456*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184148658372*^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.718414204660685*^9, 3.7184148658493853`*^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.718414204660685*^9, 3.718414865861719*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
223.795558\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414865898267*^9}],

Cell[BoxData["\<\"Vertices {S, S, S} finished after 223.795677\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414865910659*^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.718414204660685*^9, 3.718414865923564*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414865957881*^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.718414204660685*^9, 3.718414865968824*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184149059877367`*^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.718414204660685*^9, 3.7184149060004997`*^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.718414204660685*^9, 3.718414906303591*^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.718414204660685*^9, 3.718414906315781*^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.718414204660685*^9, 3.71841490632845*^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.718414204660685*^9, 3.718414906341474*^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.718414204660685*^9, 3.7184149063534393`*^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.718414204660685*^9, 3.718414906365995*^9}],

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "3 Generic, 1383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414915342556*^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.718414204660685*^9, 3.718414915354066*^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.718414204660685*^9, 3.71841491536604*^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.718414204660685*^9, 3.718414915378211*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414930181168*^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.718414204660685*^9, 3.718414930192395*^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.718414204660685*^9, 3.7184149302033033`*^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.718414204660685*^9, 3.71841493021408*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.71841493022458*^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.718414204660685*^9, 3.718414930235565*^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.718414204660685*^9, 3.718414930246245*^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.718414204660685*^9, 3.71841493025674*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
331.143821\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414973338396*^9}],

Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 331.144148\"\>"], \
"Print",
 CellChangeTimes->{3.718414204660685*^9, 3.71841497335797*^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.718414204660685*^9, 3.718414973377679*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718414973434684*^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.718414204660685*^9, 3.718414973455002*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718415045901608*^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.718414204660685*^9, 3.7184150459167213`*^9}],

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718415052307583*^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.718414204660685*^9, 3.718415052323559*^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.718414204660685*^9, 3.71841505233814*^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.718414204660685*^9, 3.718415052354097*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184150523688374`*^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.718414204660685*^9, 3.7184150523834677`*^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.718414204660685*^9, 3.718415052399807*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
410.859340\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718415052801906*^9}],

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

Cell[BoxData["\<\"before merge 410.867811 temp=92.530578\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184150528345013`*^9}],

Cell[BoxData["\<\"merging done 410.901484\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718415052848645*^9}],

Cell[BoxData["\<\"Writing R2 and UV counterterms from LS2HDM_TI/LS2HDM_TI and \
Lorentz in LS2HDM_TI.nlo\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.7184150530615788`*^9}],

Cell[BoxData["\<\"done\"\>"], "Print",
 CellChangeTimes->{3.718414204660685*^9, 3.718415053116908*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"412.773015`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.7184150531305323`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"WriteCT", "[", 
   RowBox[{"\"\<LS2HDM_TII/LS2HDM_TII\>\"", ",", "\"\<Lorentz\>\"", ",", 
    RowBox[{"Output", "->", "\"\<LS2HDM_TII\>\""}], ",", 
    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"}], "}"}], 
      "}"}]}], ",", 
    RowBox[{"ComplexMass", "\[Rule]", "False"}], ",", 
    RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}], "//", "Timing",
   " "}]], "Input",
 CellChangeTimes->{{3.718413935689363*^9, 3.718413936743371*^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.718415053321254*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"classes\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_\
TII/LS2HDM_TII.mod\"\>"}],
  SequenceForm[
  "", "loading ", "classes", " model file ", 
   "/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_TII/\
LS2HDM_TII.mod"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718415053345488*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415053509224*^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.7184150535216017`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415053560832*^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.718415053574175*^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.718415053590226*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415053629292*^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.71841505364214*^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.7184150536546173`*^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.7184150536674137`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415053681739*^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.718415053694511*^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.718415053707296*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {S} finished after 0.179912\"\>"], "Print",
 CellChangeTimes->{3.71841505375949*^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.7184150537727633`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415053785542*^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.718415053799745*^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.7184150538123293`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184150538974247`*^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.7184150539095097`*^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.7184150539241247`*^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.718415053938692*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415054082468*^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.718415054095099*^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.718415054107876*^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.718415054120377*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415054134295*^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.718415054148383*^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.718415054160953*^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.718415054173856*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
1.893807\"\>"], "Print",
 CellChangeTimes->{3.718415055211918*^9}],

Cell[BoxData["\<\"Vertices {F, F} finished after 1.893967\"\>"], "Print",
 CellChangeTimes->{3.7184150552251596`*^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.718415055258896*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415055272148*^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.718415055287552*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415055851807*^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.718415055864365*^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.718415055877014*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415055915876*^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.7184150559325*^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.718415055946025*^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.718415055959031*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.71841505597292*^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.718415055986988*^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.7184150560002127`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
2.510746\"\>"], "Print",
 CellChangeTimes->{3.718415056040965*^9}],

Cell[BoxData["\<\"Vertices {S, S} finished after 2.510852\"\>"], "Print",
 CellChangeTimes->{3.7184150560538607`*^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.718415056067816*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184150560816927`*^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.718415056096017*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415056151863*^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.71841505616472*^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.718415056178955*^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.718415056235074*^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.718415056249556*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415057127349*^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.718415057143229*^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.718415057156654*^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.718415057170439*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415057184676*^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.7184150571978817`*^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.718415057211158*^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.718415057224683*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {V, V} finished after 4.925025\"\>"], "Print",
 CellChangeTimes->{3.718415058258498*^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.7184150582718763`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415058289381*^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.7184150583034973`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 1350 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 1350 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184150678961687`*^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.718415067911913*^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.7184150679225063`*^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.718415067933777*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415067955497*^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.718415067967196*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184150680181*^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.7184150680279818`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184150680587606`*^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.7184150680692587`*^9}],

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

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

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
15.836189\"\>"], "Print",
 CellChangeTimes->{3.718415069163538*^9}],

Cell[BoxData["\<\"Vertices {F, F, S} finished after 15.836435\"\>"], "Print",
 CellChangeTimes->{3.718415069174488*^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.718415069185505*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184150691967573`*^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.7184150692071953`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 908 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 908 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718415075249138*^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.718415075259255*^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.718415075269578*^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.718415075281275*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415075424078*^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.7184150754446907`*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184150763361893`*^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.71841507634842*^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.7184150763977337`*^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.7184150764110947`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415076422001*^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.718415076435834*^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.718415076448662*^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.7184150764617453`*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {F, F, V} finished after 25.977909\"\>"], "Print",
 CellChangeTimes->{3.718415079310849*^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.718415079322919*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184150793359632`*^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.718415079349538*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415082236272*^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.7184150822504*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 291 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "3 Generic, 291 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184150827943287`*^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.718415082805552*^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.718415082816992*^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.718415082828104*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415241102027*^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.718415241111971*^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.7184152411226473`*^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.718415241133219*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415241143095*^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.7184152411541843`*^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.7184152411653013`*^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.718415241176536*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
191.195926\"\>"], "Print",
 CellChangeTimes->{3.718415244514703*^9}],

Cell[BoxData["\<\"Vertices {V, V, V} finished after 191.196300\"\>"], "Print",
 CellChangeTimes->{3.71841524452617*^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.718415244538309*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184152445488462`*^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.718415244559894*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415247451707*^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.718415247462831*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415248041291*^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.718415248051917*^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.7184152480632553`*^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.7184152480747337`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415248086109*^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.718415248096428*^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.718415248107971*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
194.794690\"\>"], "Print",
 CellChangeTimes->{3.718415248140003*^9}],

Cell[BoxData["\<\"Vertices {V, V, S} finished after 194.794885\"\>"], "Print",
 CellChangeTimes->{3.718415248150392*^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.7184152481608257`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415248171702*^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.7184152481820602`*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415253556333*^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.718415253568015*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415270211583*^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.7184152702319*^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.718415270252596*^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.718415270273489*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415270293106*^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.7184152703140583`*^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.718415270333877*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {V, S, S} finished after 216.873877\"\>"], "Print",
 CellChangeTimes->{3.7184152704095173`*^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.7184152704276457`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184152704454803`*^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.718415270464765*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415285387826*^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.718415285404504*^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.718415285421085*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184152854689817`*^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.718415285485567*^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.718415285502181*^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.718415285518314*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415285534717*^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.718415285550992*^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.7184152855672817`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
232.073700\"\>"], "Print",
 CellChangeTimes->{3.71841528561648*^9}],

Cell[BoxData["\<\"Vertices {S, S, S} finished after 232.073813\"\>"], "Print",
 CellChangeTimes->{3.718415285632588*^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.7184152856480627`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415285696479*^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.718415285712462*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.71841532342677*^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.718415323443338*^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.7184153237296953`*^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.7184153237470284`*^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.7184153237639503`*^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.718415323781143*^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.718415323797575*^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.7184153238137817`*^9}],

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "3 Generic, 1383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718415332272996*^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.7184153322902822`*^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.718415332307187*^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.7184153323244*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184153423032703`*^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.7184153423204823`*^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.718415342336541*^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.718415342352932*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184153423692713`*^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.7184153423862543`*^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.718415342403102*^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.7184153424190483`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
329.021312\"\>"], "Print",
 CellChangeTimes->{3.718415382340345*^9}],

Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 329.021615\"\>"], \
"Print",
 CellChangeTimes->{3.718415382357884*^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.7184153823868933`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415382436685*^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.718415382453747*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184154504999*^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.718415450517728*^9}],

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415457191286*^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.718415457208198*^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.718415457228099*^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.718415457245309*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415457263822*^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.718415457282147*^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.7184154572987328`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
404.378956\"\>"], "Print",
 CellChangeTimes->{3.718415457697504*^9}],

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

Cell[BoxData["\<\"before merge 404.387246 temp=503.907359\"\>"], "Print",
 CellChangeTimes->{3.718415457731543*^9}],

Cell[BoxData["\<\"merging done 404.421014\"\>"], "Print",
 CellChangeTimes->{3.718415457749117*^9}],

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

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"407.006977`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.718415458058074*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"WriteCT", "[", 
   RowBox[{"\"\<LS2HDM_TX/LS2HDM_TX\>\"", ",", "\"\<Lorentz\>\"", ",", 
    RowBox[{"Output", "->", "\"\<LS2HDM_TX\>\""}], ",", 
    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"}], "}"}], 
      "}"}]}], ",", 
    RowBox[{"ComplexMass", "\[Rule]", "False"}], ",", 
    RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}], "//", "Timing",
   " "}]], "Input",
 CellChangeTimes->{{3.718413941906356*^9, 3.7184139429436703`*^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.71841545812744*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"classes\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_TX/\
LS2HDM_TX.mod\"\>"}],
  SequenceForm[
  "", "loading ", "classes", " model file ", 
   "/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_TX/\
LS2HDM_TX.mod"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184154581545277`*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415458308564*^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.718415458327327*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184154583842278`*^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.7184154584019337`*^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.7184154584197397`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415458471389*^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.718415458488731*^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.718415458507522*^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.7184154585253572`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.71841545854324*^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.718415458560492*^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.71841545857764*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
0.183074\"\>"], "Print",
 CellChangeTimes->{3.718415458674572*^9}],

Cell[BoxData["\<\"Vertices {S} finished after 0.183115\"\>"], "Print",
 CellChangeTimes->{3.7184154586920347`*^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.71841545871047*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184154587283707`*^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.718415458745791*^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.7184154587645683`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415458816649*^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.718415458834668*^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.7184154588524027`*^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.718415458869831*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415458922859*^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.718415458940402*^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.7184154589579*^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.718415458976055*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415458994504*^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.718415459012622*^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.7184154590780783`*^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.718415459096002*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {F, F} finished after 1.890741\"\>"], "Print",
 CellChangeTimes->{3.718415460034953*^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.718415460051612*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415460069509*^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.71841546008609*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.71841546063983*^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.7184154606580153`*^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.718415460675604*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415460728776*^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.718415460746624*^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.7184154607635107`*^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.7184154607818108`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184154607990713`*^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.7184154608168097`*^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.718415460834056*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
2.478497\"\>"], "Print",
 CellChangeTimes->{3.718415460887083*^9}],

Cell[BoxData["\<\"Vertices {S, S} finished after 2.478600\"\>"], "Print",
 CellChangeTimes->{3.718415460905068*^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.7184154609220343`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415460941663*^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.718415460964322*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415461091878*^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.718415461110065*^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.718415461128263*^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.718415461146758*^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.718415461164002*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415461847932*^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.7184154618683043`*^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.71841546188713*^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.718415461905945*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415461923633*^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.7184154619426126`*^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.718415461959813*^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.7184154619785*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
4.872679\"\>"], "Print",
 CellChangeTimes->{3.718415462996525*^9}],

Cell[BoxData["\<\"Vertices {V, V} finished after 4.872836\"\>"], "Print",
 CellChangeTimes->{3.718415463016098*^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.718415463034464*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415463052723*^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.718415463071219*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 1350 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 1350 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841547114629*^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.718415471162706*^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.718415471179235*^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.71841547119635*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415471365143*^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.718415471383018*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415471607048*^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.718415471623629*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415471676456*^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.71841547169382*^9}],

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

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

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

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

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

Cell[BoxData["\<\"Vertices {F, F, S} finished after 14.974829\"\>"], "Print",
 CellChangeTimes->{3.7184154731161737`*^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.7184154731339912`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184154731515713`*^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.718415473168283*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 908 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 908 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718415478805088*^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.718415478821883*^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.718415478838193*^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.718415478854788*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415478959609*^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.718415478976611*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184154798006983`*^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.718415479820035*^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.7184154798362923`*^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.718415479853506*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415479869956*^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.7184154798872232`*^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.718415479903295*^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.7184154799203377`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
24.156892\"\>"], "Print",
 CellChangeTimes->{3.718415482280901*^9}],

Cell[BoxData["\<\"Vertices {F, F, V} finished after 24.157342\"\>"], "Print",
 CellChangeTimes->{3.718415482297967*^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.718415482314912*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415482333035*^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.71841548235021*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184154849080067`*^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.718415484925808*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 291 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "3 Generic, 291 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718415485387909*^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.7184154854052362`*^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.718415485421925*^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.718415485438985*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415641114551*^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.718415641132139*^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.718415641148933*^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.718415641166803*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415641184183*^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.718415641200984*^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.718415641218611*^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.718415641235774*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
186.130083\"\>"], "Print",
 CellChangeTimes->{3.718415644253522*^9}],

Cell[BoxData["\<\"Vertices {V, V, V} finished after 186.130473\"\>"], "Print",
 CellChangeTimes->{3.718415644269846*^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.718415644287545*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184156443047533`*^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.7184156443214293`*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415647166995*^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.7184156471845922`*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415647696607*^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.71841564771332*^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.7184156477302303`*^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.7184156477476177`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184156477648983`*^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.718415647782003*^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.7184156477989893`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
189.670892\"\>"], "Print",
 CellChangeTimes->{3.718415647849821*^9}],

Cell[BoxData["\<\"Vertices {V, V, S} finished after 189.671073\"\>"], "Print",
 CellChangeTimes->{3.718415647868401*^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.718415647885709*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184156479021797`*^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.7184156479187927`*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415653196246*^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.718415653214519*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415669296146*^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.7184156693123283`*^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.7184156693288383`*^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.718415669345668*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184156693625813`*^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.718415669380851*^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.7184156693975697`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
211.158915\"\>"], "Print",
 CellChangeTimes->{3.718415669447135*^9}],

Cell[BoxData["\<\"Vertices {V, S, S} finished after 211.159039\"\>"], "Print",
 CellChangeTimes->{3.718415669464353*^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.718415669481842*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184156694984903`*^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.718415669516178*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415684458637*^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.718415684478167*^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.718415684496675*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415684554669*^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.7184156845736523`*^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.718415684591415*^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.71841568461022*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415684627833*^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.718415684645131*^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.718415684665753*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
226.339755\"\>"], "Print",
 CellChangeTimes->{3.718415684721484*^9}],

Cell[BoxData["\<\"Vertices {S, S, S} finished after 226.339877\"\>"], "Print",
 CellChangeTimes->{3.718415684738324*^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.718415684755289*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184156848075943`*^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.718415684824929*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415722339065*^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.71841572235719*^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.718415722658955*^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.718415722677788*^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.718415722695444*^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.718415722713869*^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.718415722731545*^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.718415722748921*^9}],

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "3 Generic, 1383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718415731876071*^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.718415731895646*^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.718415731915514*^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.7184157319356613`*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415742923942*^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.718415742942292*^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.718415742961372*^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.7184157429792356`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415742997732*^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.718415743018331*^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.718415743036223*^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.7184157430541573`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
329.162445\"\>"], "Print",
 CellChangeTimes->{3.718415787289475*^9}],

Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 329.162756\"\>"], \
"Print",
 CellChangeTimes->{3.718415787311151*^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.718415787331534*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415787399441*^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.7184157874202747`*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415858528245*^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.7184158585477037`*^9}],

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415865222587*^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.718415865240645*^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.718415865259507*^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.718415865277968*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415865296612*^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.718415865313841*^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.718415865330702*^9}],

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

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

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

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

Cell[BoxData["\<\"before merge 407.627610 temp=908.712159\"\>"], "Print",
 CellChangeTimes->{3.718415865778183*^9}],

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

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

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"410.369688`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.718415866111455*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"WriteCT", "[", 
   RowBox[{"\"\<LS2HDM_TY/LS2HDM_TY\>\"", ",", "\"\<Lorentz\>\"", ",", 
    RowBox[{"Output", "->", "\"\<LS2HDM_TY\>\""}], ",", 
    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"}], "}"}], 
      "}"}]}], ",", 
    RowBox[{"ComplexMass", "\[Rule]", "False"}], ",", 
    RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}], "//", "Timing",
   " "}]], "Input",
 CellChangeTimes->{{3.7184139470894423`*^9, 3.7184139480633183`*^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.718415866233138*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"classes\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_TY/\
LS2HDM_TY.mod\"\>"}],
  SequenceForm[
  "", "loading ", "classes", " model file ", 
   "/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_TY/\
LS2HDM_TY.mod"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718415866260762*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415866421945*^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.7184158664410467`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.71841586649813*^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.7184158665168953`*^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.7184158665345716`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184158665931473`*^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.718415866610612*^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.718415866628615*^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.718415866646661*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415866664157*^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.718415866682281*^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.7184158667022457`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
0.200236\"\>"], "Print",
 CellChangeTimes->{3.71841586681282*^9}],

Cell[BoxData["\<\"Vertices {S} finished after 0.200289\"\>"], "Print",
 CellChangeTimes->{3.718415866832733*^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.7184158668519707`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415866870721*^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.718415866887722*^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.718415866905644*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184158669616547`*^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.718415866979781*^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.7184158669984913`*^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.718415867016223*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184158670691442`*^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.7184158670866833`*^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.718415867105268*^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.718415867123569*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415867142211*^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.718415867160068*^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.718415867177682*^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.718415867243498*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
1.891374\"\>"], "Print",
 CellChangeTimes->{3.718415868119687*^9}],

Cell[BoxData["\<\"Vertices {F, F} finished after 1.891558\"\>"], "Print",
 CellChangeTimes->{3.71841586813756*^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.71841586815679*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415868175511*^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.718415868193585*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415868703562*^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.7184158687206*^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.718415868738017*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184158687918777`*^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.718415868810364*^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.718415868829153*^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.718415868848172*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415868865947*^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.71841586888312*^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.718415868900358*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {S, S} finished after 2.479515\"\>"], "Print",
 CellChangeTimes->{3.7184158689717197`*^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.718415868989335*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415869006946*^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.718415869024708*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415869145652*^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.718415869163495*^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.71841586918151*^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.718415869199111*^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.718415869217001*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415869969717*^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.718415869988534*^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.718415870007894*^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.718415870027336*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415870048468*^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.718415870066978*^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.7184158700854607`*^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.718415870104056*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
4.917459\"\>"], "Print",
 CellChangeTimes->{3.718415871146338*^9}],

Cell[BoxData["\<\"Vertices {V, V} finished after 4.917612\"\>"], "Print",
 CellChangeTimes->{3.718415871165657*^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.718415871186119*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415871207117*^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.71841587122856*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 1350 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 1350 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184158795157127`*^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.71841587953395*^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.7184158795516777`*^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.718415879570237*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184158797459917`*^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.71841587976546*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415879995296*^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.718415880014944*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415880067765*^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.71841588008434*^9}],

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

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

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
15.311813\"\>"], "Print",
 CellChangeTimes->{3.718415881540051*^9}],

Cell[BoxData["\<\"Vertices {F, F, S} finished after 15.312082\"\>"], "Print",
 CellChangeTimes->{3.7184158815591297`*^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.718415881576614*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415881593256*^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.71841588160958*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 908 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 908 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718415887232975*^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.718415887250585*^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.7184158872681513`*^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.718415887284849*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415887404517*^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.718415887420886*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415888241453*^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.718415888258937*^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.7184158882767267`*^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.718415888295107*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415888311966*^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.71841588832969*^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.718415888346488*^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.7184158883635893`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
24.514828\"\>"], "Print",
 CellChangeTimes->{3.718415890743615*^9}],

Cell[BoxData["\<\"Vertices {F, F, V} finished after 24.515276\"\>"], "Print",
 CellChangeTimes->{3.7184158907624187`*^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.718415890779956*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415890797351*^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.71841589081493*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718415893366802*^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.718415893384255*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 291 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "3 Generic, 291 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184158938493013`*^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.718415893867837*^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.718415893885469*^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.718415893903572*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184160506949177`*^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.7184160507149067`*^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.7184160507355413`*^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.718416050756627*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416050776772*^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.7184160507971897`*^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.7184160508172283`*^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.718416050836891*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
187.666351\"\>"], "Print",
 CellChangeTimes->{3.718416053897966*^9}],

Cell[BoxData["\<\"Vertices {V, V, V} finished after 187.666756\"\>"], "Print",
 CellChangeTimes->{3.71841605391835*^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.7184160539380693`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416053958942*^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.7184160539786787`*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416057495816*^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.7184160575179358`*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184160581272373`*^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.718416058151786*^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.7184160581762753`*^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.718416058198658*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416058218858*^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.7184160582386627`*^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.718416058257928*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
192.012006\"\>"], "Print",
 CellChangeTimes->{3.718416058316637*^9}],

Cell[BoxData["\<\"Vertices {V, V, S} finished after 192.012226\"\>"], "Print",
 CellChangeTimes->{3.718416058336047*^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.7184160583554487`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416058375142*^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.718416058395702*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416064253834*^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.7184160642738333`*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184160810208893`*^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.718416081042507*^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.718416081062928*^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.718416081081798*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416081104746*^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.718416081125044*^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.718416081145596*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
214.741770\"\>"], "Print",
 CellChangeTimes->{3.718416081206235*^9}],

Cell[BoxData["\<\"Vertices {V, S, S} finished after 214.741927\"\>"], "Print",
 CellChangeTimes->{3.7184160812249317`*^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.71841608124588*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416081265778*^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.718416081287477*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416096982709*^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.718416097003619*^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.718416097022684*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184160970812263`*^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.7184160971011667`*^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.718416097121059*^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.718416097139694*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184160971590147`*^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.718416097179249*^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.7184160971989613`*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {S, S, S} finished after 230.755508\"\>"], "Print",
 CellChangeTimes->{3.718416097276435*^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.718416097296276*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184160973545027`*^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.718416097374031*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416142386189*^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.718416142408431*^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.7184161427386093`*^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.718416142763891*^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.7184161427907667`*^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.718416142813322*^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.7184161428412457`*^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.718416142863084*^9}],

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "3 Generic, 1383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184161520565643`*^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.718416152078719*^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.718416152099329*^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.718416152118979*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416161129965*^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.718416161153068*^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.71841616117784*^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.718416161199698*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184161612183332`*^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.7184161612375298`*^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.718416161260886*^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.71841616128109*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
335.194796\"\>"], "Print",
 CellChangeTimes->{3.718416201427247*^9}],

Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 335.195126\"\>"], \
"Print",
 CellChangeTimes->{3.718416201451807*^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.718416201473143*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416201545497*^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.7184162015657167`*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416276193596*^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.718416276215033*^9}],

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184162828854*^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.718416282906687*^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.71841628292785*^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.718416282946295*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184162829651957`*^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.718416282984034*^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.7184162830026083`*^9}],

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

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

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

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

Cell[BoxData["\<\"before merge 417.187143 temp=1316.816841\"\>"], "Print",
 CellChangeTimes->{3.718416283445736*^9}],

Cell[BoxData["\<\"merging done 417.222942\"\>"], "Print",
 CellChangeTimes->{3.71841628346413*^9}],

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

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"418.320865`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.718416283785431*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"WriteCT", "[", 
   RowBox[{"\"\<LS2HDM_Inert/LS2HDM_Inert\>\"", ",", "\"\<Lorentz\>\"", ",", 
    RowBox[{"Output", "->", "\"\<LS2HDM_Inert\>\""}], ",", 
    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"}], "}"}], 
      "}"}]}], ",", 
    RowBox[{"ComplexMass", "\[Rule]", "False"}], ",", 
    RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}], "//", "Timing",
   " "}]], "Input",
 CellChangeTimes->{{3.718413949659236*^9, 3.718413956065729*^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.718416283872426*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"classes\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_\
Inert/LS2HDM_Inert.mod\"\>"}],
  SequenceForm[
  "", "loading ", "classes", " model file ", 
   "/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_\
Inert/LS2HDM_Inert.mod"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416283904121*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416284061741*^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.718416284079443*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416284134459*^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.718416284168117*^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.718416284188223*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416284267027*^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.718416284288299*^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.718416284314045*^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.7184162843355827`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184162843555317`*^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.7184162843833437`*^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.718416284455462*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
0.164708\"\>"], "Print",
 CellChangeTimes->{3.718416284513464*^9}],

Cell[BoxData["\<\"Vertices {S} finished after 0.164768\"\>"], "Print",
 CellChangeTimes->{3.718416284533141*^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.718416284551753*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416284574807*^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.718416284599905*^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.7184162846224403`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416284700124*^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.718416284722541*^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.718416284746805*^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.718416284769514*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416284835259*^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.718416284904439*^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.718416284923423*^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.71841628494282*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416284961792*^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.718416284979841*^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.7184162849988728`*^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.718416285018135*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
1.872579\"\>"], "Print",
 CellChangeTimes->{3.718416285744822*^9}],

Cell[BoxData["\<\"Vertices {F, F} finished after 1.872758\"\>"], "Print",
 CellChangeTimes->{3.7184162857667217`*^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.718416285785692*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184162858049793`*^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.7184162858241463`*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416286219932*^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.718416286249476*^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.718416286273417*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416286354969*^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.718416286384637*^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.718416286406617*^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.718416286432516*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184162864538393`*^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.718416286474205*^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.718416286495245*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {S, S} finished after 2.343957\"\>"], "Print",
 CellChangeTimes->{3.7184162865727997`*^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.718416286636763*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184162866569*^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.71841628667715*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416286767231*^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.718416286792596*^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.7184162868186398`*^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.718416286840094*^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.7184162868684187`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184162876185417`*^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.718416287640156*^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.718416287661203*^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.718416287683753*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416287704514*^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.718416287725193*^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.7184162877440777`*^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.7184162877664843`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
4.998610\"\>"], "Print",
 CellChangeTimes->{3.718416288866908*^9}],

Cell[BoxData["\<\"Vertices {V, V} finished after 4.998775\"\>"], "Print",
 CellChangeTimes->{3.7184162888853283`*^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.7184162889043303`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416288922914*^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.718416288942163*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 220 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "3 Generic, 220 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184162907051563`*^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.718416290723325*^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.718416290741767*^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.7184162907600117`*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416290797493*^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.718416290816107*^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.718416290834362*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.71841629089034*^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.7184162909090557`*^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.7184162909287252`*^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.718416290948172*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416290966004*^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.718416290984722*^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.718416291002569*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
6.879612\"\>"], "Print",
 CellChangeTimes->{3.718416291060582*^9}],

Cell[BoxData["\<\"Vertices {F, F, S} finished after 6.879689\"\>"], "Print",
 CellChangeTimes->{3.718416291078492*^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.7184162910965357`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184162911663857`*^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.718416291184968*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 560 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "2 Generic, 560 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416295449977*^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.718416295470418*^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.718416295492879*^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.718416295511134*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416295599905*^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.7184162956193123`*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416296309946*^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.718416296334626*^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.718416296356988*^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.71841629638313*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416296405628*^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.718416296432255*^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.718416296454156*^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.718416296481358*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
15.264390\"\>"], "Print",
 CellChangeTimes->{3.718416299133093*^9}],

Cell[BoxData["\<\"Vertices {F, F, V} finished after 15.264720\"\>"], "Print",
 CellChangeTimes->{3.718416299159276*^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.718416299183714*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184162992111683`*^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.718416299235836*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416301982527*^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.718416302003913*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 291 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "3 Generic, 291 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416302509273*^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.7184163025302343`*^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.718416302550832*^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.7184163025699797`*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416460802017*^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.718416460824155*^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.718416460848764*^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.718416460868925*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.71841646089045*^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.718416460910977*^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.718416460932189*^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.718416460953313*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
180.252915\"\>"], "Print",
 CellChangeTimes->{3.718416464125841*^9}],

Cell[BoxData["\<\"Vertices {V, V, V} finished after 180.253352\"\>"], "Print",
 CellChangeTimes->{3.718416464146798*^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.718416464167115*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416464189488*^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.718416464211102*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.71841646647178*^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.718416466493552*^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.718416466512129*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416466574994*^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.718416466597867*^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.718416466620002*^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.718416466641029*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416466665024*^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.718416466687531*^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.718416466709156*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {V, V, S} finished after 182.610180\"\>"], "Print",
 CellChangeTimes->{3.718416466800102*^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.718416466821003*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416466841948*^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.718416466907875*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416471976953*^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.7184164720063963`*^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.718416472038239*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416472121418*^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.7184164721433163`*^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.7184164721731577`*^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.7184164722021646`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184164722249727`*^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.718416472256843*^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.7184164722864227`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
188.111492\"\>"], "Print",
 CellChangeTimes->{3.718416472360876*^9}],

Cell[BoxData["\<\"Vertices {V, S, S} finished after 188.111597\"\>"], "Print",
 CellChangeTimes->{3.718416472382473*^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.7184164724576807`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184164724804173`*^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.7184164725053*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416487095965*^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.718416487115131*^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.718416487138343*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416487201195*^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.718416487221158*^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.718416487239779*^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.7184164872603197`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416487281569*^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.7184164873005753`*^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.718416487319449*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {S, S, S} finished after 203.231312\"\>"], "Print",
 CellChangeTimes->{3.718416487395031*^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.718416487414366*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416487471249*^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.7184164874930162`*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416525413681*^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.7184165254331083`*^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.718416525737414*^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.71841652575473*^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.7184165257732897`*^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.7184165257923527`*^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.71841652581174*^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.718416525830554*^9}],

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

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "3 Generic, 1383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184165339057627`*^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.718416533922802*^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.718416533941271*^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.718416533957699*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416542053293*^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.718416542070941*^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.71841654208707*^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.71841654210455*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416542121966*^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.7184165421391153`*^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.718416542156013*^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.718416542173572*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
295.713965\"\>"], "Print",
 CellChangeTimes->{3.718416579582673*^9}],

Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 295.714254\"\>"], \
"Print",
 CellChangeTimes->{3.7184165795996943`*^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.718416579616304*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.71841657966881*^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.7184165796873407`*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184166204164762`*^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.718416620434765*^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.718416620452355*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184166205042458`*^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.71841662052286*^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.7184166205407753`*^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.718416620558941*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416620578251*^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.718416620598865*^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.718416620618705*^9}],

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

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

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

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

Cell[BoxData["\<\"before merge 336.592151 temp=1734.456477\"\>"], "Print",
 CellChangeTimes->{3.718416620707651*^9}],

Cell[BoxData["\<\"merging done 336.611171\"\>"], "Print",
 CellChangeTimes->{3.71841662072787*^9}],

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

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"338.424747`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.718416620779871*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"WriteCT", "[", 
   RowBox[{"\"\<LS2HDM_Align/LS2HDM_Align\>\"", ",", "\"\<Lorentz\>\"", ",", 
    RowBox[{"Output", "->", "\"\<LS2HDM_Align\>\""}], ",", 
    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"}], "}"}], 
      "}"}]}], ",", 
    RowBox[{"ComplexMass", "\[Rule]", "False"}], ",", 
    RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}], "//", "Timing",
   " "}]], "Input",
 CellChangeTimes->{{3.718413957878397*^9, 3.71841396275918*^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.718416620902452*^9}],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"classes\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_\
Align/LS2HDM_Align.mod\"\>"}],
  SequenceForm[
  "", "loading ", "classes", " model file ", 
   "/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_\
Align/LS2HDM_Align.mod"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416620934719*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416621085293*^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.7184166211011*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184166211539173`*^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.718416621175956*^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.718416621196134*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416621255096*^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.71841662127791*^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.718416621297028*^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.718416621314413*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416621332955*^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.718416621351378*^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.718416621369268*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {S} finished after 0.168975\"\>"], "Print",
 CellChangeTimes->{3.7184166214828787`*^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.718416621500045*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184166215171013`*^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.718416621534787*^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.71841662155261*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416621607644*^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.718416621626308*^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.7184166216442738`*^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.718416621661544*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184166217143173`*^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.718416621731966*^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.7184166217490797`*^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.7184166217684307`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416621788591*^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.7184166218644657`*^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.718416621881901*^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.718416621899843*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {F, F} finished after 1.732776\"\>"], "Print",
 CellChangeTimes->{3.7184166226471987`*^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.718416622664501*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416622681795*^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.718416622699607*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416623153874*^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.71841662317235*^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.718416623190366*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416623245125*^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.7184166232629337`*^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.718416623281054*^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.718416623300703*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416623319591*^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.718416623338339*^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.7184166233564043`*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
2.256878\"\>"], "Print",
 CellChangeTimes->{3.718416623410617*^9}],

Cell[BoxData["\<\"Vertices {S, S} finished after 2.256963\"\>"], "Print",
 CellChangeTimes->{3.718416623428115*^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.718416623445115*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416623461931*^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.718416623479476*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416623598159*^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.718416623615354*^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.718416623633593*^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.718416623651477*^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.718416623668936*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184166242822227`*^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.718416624300785*^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.718416624319028*^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.718416624338202*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184166243566017`*^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.718416624374563*^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.718416624393235*^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.718416624412133*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
4.419961\"\>"], "Print",
 CellChangeTimes->{3.718416625319158*^9}],

Cell[BoxData["\<\"Vertices {V, V} finished after 4.420100\"\>"], "Print",
 CellChangeTimes->{3.718416625338015*^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.71841662535567*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416625372417*^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.71841662538967*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 1350 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 1350 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841663311312*^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.718416633131813*^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.718416633150992*^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.718416633168679*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416633337803*^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.7184166333562937`*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416633587593*^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.7184166336066523`*^9}],

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184166336649733`*^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.7184166336828117`*^9}],

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

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

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

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

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

Cell[BoxData["\<\"Vertices {F, F, S} finished after 14.121815\"\>"], "Print",
 CellChangeTimes->{3.7184166350389557`*^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.718416635055994*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416635072929*^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.718416635089522*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 908 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 908 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416640416892*^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.718416640435631*^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.718416640453411*^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.718416640471854*^9}],

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416640575008*^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.7184166405929832`*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416641417519*^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.718416641435174*^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.718416641453745*^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.71841664147187*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416641489971*^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.718416641506846*^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.7184166415253363`*^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.718416641542288*^9}],

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

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

Cell[BoxData["\<\"Simplification of the vertices finished after \
22.859933\"\>"], "Print",
 CellChangeTimes->{3.718416643758936*^9}],

Cell[BoxData["\<\"Vertices {F, F, V} finished after 22.860323\"\>"], "Print",
 CellChangeTimes->{3.718416643776938*^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.718416643794286*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416643811577*^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.718416643828577*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416646233519*^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.718416646251646*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 291 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "3 Generic, 291 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184166466962337`*^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.718416646715952*^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.7184166467343493`*^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.718416646753817*^9}],

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416809071624*^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.718416809163342*^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.718416809219426*^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.718416809308331*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416809365279*^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.718416809421393*^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.718416809513955*^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.718416809685465*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {V, V, V} finished after 191.267863\"\>"], "Print",
 CellChangeTimes->{3.718416812188751*^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.718416812208744*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416812228424*^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.718416812248056*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184168150027122`*^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.7184168150275106`*^9}],

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416815600399*^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.718416815626388*^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.718416815646514*^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.718416815674168*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416815696437*^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.718416815726509*^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.718416815752122*^9}],

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

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

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

Cell[BoxData["\<\"Vertices {V, V, S} finished after 194.832148\"\>"], "Print",
 CellChangeTimes->{3.718416815873266*^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.7184168158936157`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184168159148283`*^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.718416815938135*^9}],

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

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

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

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

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

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416821376548*^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.718416821395949*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 116 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 116 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416821562994*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 116 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 116 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184168215830183`*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 200.673578\"\>"], "Print",
 CellChangeTimes->{3.7184168216004257`*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 216.223090\"\>"], "Print",
 CellChangeTimes->{3.718416837122012*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184168371390944`*^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.718416837157262*^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.718416837174691*^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.718416837193383*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416837213621*^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.718416837231297*^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.718416837250649*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 216.226564\"\>"], \
"Print",
 CellChangeTimes->{3.718416837269413*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 216.226809\"\>"], "Print",
 CellChangeTimes->{3.7184168372890377`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
216.226852\"\>"], "Print",
 CellChangeTimes->{3.718416837307246*^9}],

Cell[BoxData["\<\"Vertices {V, S, S} finished after 216.226984\"\>"], "Print",
 CellChangeTimes->{3.7184168373267393`*^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.71841683734485*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416837362248*^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.718416837382737*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"10 Generic, 5286 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "10 Generic, 5286 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184168464246483`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 838 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 838 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416847946493*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 838 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 838 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416849445293*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 838 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 838 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184168509501143`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"16 Generic, 7800 Classes insertions\"\>"}],
  SequenceForm["in total: ", "16 Generic, 7800 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416851014285*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416851887286*^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.718416851907671*^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.718416851928587*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 230.989389\"\>"], "Print",
 CellChangeTimes->{3.718416851945764*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 230.989511\"\>"], "Print",
 CellChangeTimes->{3.718416851964366*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416851982881*^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.718416852002404*^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.718416852021268*^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.718416852039729*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416852057081*^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.7184168520755043`*^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.718416852093074*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 230.992287\"\>"], \
"Print",
 CellChangeTimes->{3.718416852110715*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 230.992521\"\>"], "Print",
 CellChangeTimes->{3.718416852128438*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
230.992563\"\>"], "Print",
 CellChangeTimes->{3.71841685214673*^9}],

Cell[BoxData["\<\"Vertices {S, S, S} finished after 230.992691\"\>"], "Print",
 CellChangeTimes->{3.718416852165654*^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.7184168521851797`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416852203583*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "32", 
   "\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
ones)\"\>"}],
  SequenceForm[
  "Excluding ", 32, " field point(s) (incl. charge-conjugate ones)"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184168522223873`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416852241646*^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.718416852260263*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 635 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "2 Generic, 635 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184168530298758`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 635 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 635 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416854131275*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 635 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 635 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184168551883907`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 635 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 635 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416856275379*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 635 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 5, ": ", "2 Generic, 635 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416857342967*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 635 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 6, ": ", "2 Generic, 635 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416858406849*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 3287 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 7, ": ", "4 Generic, 3287 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416866578614*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 3287 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "4 Generic, 3287 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184168749758863`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 3287 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "4 Generic, 3287 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184168845093203`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 401 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 10, ": ", "2 Generic, 401 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184168852323093`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 401 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 11, ": ", "2 Generic, 401 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416885945632*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 401 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 12, ": ", "2 Generic, 401 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416886697731*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.71841688672674*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "32", 
   "\[InvisibleSpace]", "\<\" field point(s)\"\>"}],
  SequenceForm["Restoring ", 32, " field point(s)"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416886746814*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"30 Generic, 14874 Classes insertions\"\>"}],
  SequenceForm["in total: ", "30 Generic, 14874 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184168868287153`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184168895448*^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.718416889565919*^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.7184168899075336`*^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.7184168899283237`*^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.7184168899477377`*^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.718416889968848*^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.718416889987681*^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.7184168900069857`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 7, ": ", "3 Generic, 1383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416893136932*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "3 Generic, 1383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416896435388*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "3 Generic, 1383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184168995609837`*^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.7184168995817337`*^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.718416899602271*^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.7184168996229477`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"18 Generic, 4158 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "18 Generic, 4158 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416899642111*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 279.048196\"\>"], "Print",
 CellChangeTimes->{3.7184168999470587`*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 287.284145\"\>"], "Print",
 CellChangeTimes->{3.718416908183148*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416908692363*^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.718416908710205*^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.718416908727592*^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.718416908746582*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416908768718*^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.718416908789846*^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.718416908811461*^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.7184169088319607`*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 287.773774\"\>"], \
"Print",
 CellChangeTimes->{3.718416908851522*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 323.740316\"\>"], "Print",
 CellChangeTimes->{3.718416944642357*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
327.329126\"\>"], "Print",
 CellChangeTimes->{3.7184169482306023`*^9}],

Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 327.329411\"\>"], \
"Print",
 CellChangeTimes->{3.718416948253015*^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.718416948274564*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184169482958*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "32", 
   "\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
ones)\"\>"}],
  SequenceForm[
  "Excluding ", 32, " field point(s) (incl. charge-conjugate ones)"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416948317215*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718416948338559*^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.718416948358675*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 1686 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "2 Generic, 1686 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184169527136393`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 970 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 970 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184169557935457`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 970 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 970 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416959520776*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 970 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 970 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416962989894*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 970 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 5, ": ", "2 Generic, 970 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416966423481*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 1110 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 6, ": ", "2 Generic, 1110 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416969814053*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 3306 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 7, ": ", "4 Generic, 3306 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718416985149194*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 3306 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "4 Generic, 3306 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417000670594*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 3240 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "4 Generic, 3240 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417014080081*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 1052 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 10, ": ", "2 Generic, 1052 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417016708611*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 513 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 11, ": ", "1 Generic, 513 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417017450717*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 513 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 12, ": ", "1 Generic, 513 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417018205923*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417018228178*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "32", 
   "\[InvisibleSpace]", "\<\" field point(s)\"\>"}],
  SequenceForm["Restoring ", 32, " field point(s)"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417018249998*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"28 Generic, 18606 Classes insertions\"\>"}],
  SequenceForm["in total: ", "28 Generic, 18606 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417018318121*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417021476403*^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.71841702150219*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 740 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 740 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417023213833*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 740 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "1 Generic, 740 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184170248265553`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 740 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "1 Generic, 740 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417026382719*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 2220 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "3 Generic, 2220 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841702640406*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 405.685822\"\>"], "Print",
 CellChangeTimes->{3.718417026585568*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 407.236996\"\>"], "Print",
 CellChangeTimes->{3.718417028136451*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417028214836*^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.7184170282335463`*^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.7184170282523737`*^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.718417028271709*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184170282908297`*^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.718417028309277*^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.718417028328845*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 407.317402\"\>"], \
"Print",
 CellChangeTimes->{3.7184170283467493`*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 407.688935\"\>"], "Print",
 CellChangeTimes->{3.718417028588771*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
407.760181\"\>"], "Print",
 CellChangeTimes->{3.718417028658977*^9}],

Cell[BoxData["\<\"Vertices {V, V, S, S} finished after 407.760464\"\>"], \
"Print",
 CellChangeTimes->{3.718417028680626*^9}],

Cell[BoxData["\<\"before merge 407.768749 temp=2071.486682\"\>"], "Print",
 CellChangeTimes->{3.718417028699918*^9}],

Cell[BoxData["\<\"merging done 407.803899\"\>"], "Print",
 CellChangeTimes->{3.7184170287193604`*^9}],

Cell[BoxData["\<\"Writing R2 and UV counterterms from \
LS2HDM_Align/LS2HDM_Align and Lorentz in LS2HDM_Align.nlo\"\>"], "Print",
 CellChangeTimes->{3.718417028939024*^9}],

Cell[BoxData["\<\"done\"\>"], "Print",
 CellChangeTimes->{3.718417029002664*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"409.717709`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.7184170290237293`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"WriteCT", "[", 
   RowBox[{"\"\<LS2HDM_2gen/LS2HDM_2gen\>\"", ",", "\"\<Lorentz\>\"", ",", 
    RowBox[{"Output", "->", "\"\<LS2HDM_2gen\>\""}], ",", 
    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"}], "}"}], 
      "}"}]}], ",", 
    RowBox[{"ComplexMass", "\[Rule]", "False"}], ",", 
    RowBox[{"Exclude4ScalarsCT", "\[Rule]", "True"}]}], "]"}], "//", "Timing",
   " "}]], "Input",
 CellChangeTimes->{{3.718413964286569*^9, 3.71841396488426*^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.718417029141255*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417029154086*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"classes\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_\
2gen/LS2HDM_2gen.mod\"\>"}],
  SequenceForm[
  "", "loading ", "classes", " model file ", 
   "/Users/gbusoni/OneDrive/Documenti/NumericTools/FeynArts/Models/LS2HDM_\
2gen/LS2HDM_2gen.mod"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417029174634*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "50", 
   "\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>", 
   "\[InvisibleSpace]", "29", "\[InvisibleSpace]", "\<\" classes\"\>"}],
  SequenceForm[
  "> ", 50, " particles (incl. antiparticles) in ", 29, " classes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417029195805*^9}],

Cell[BoxData["\<\"> $CounterTerms are ON\"\>"], "Print",
 CellChangeTimes->{3.718417029269579*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "258", 
   "\[InvisibleSpace]", "\<\" vertices\"\>"}],
  SequenceForm["> ", 258, " vertices"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417029288498*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "64", 
   "\[InvisibleSpace]", "\<\" counter terms of order 1\"\>"}],
  SequenceForm["> ", 64, " counter terms of order 1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417029307403*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"LS2HDM_2gen/LS2HDM_2gen\"\>", "}"}], 
   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
  SequenceForm["classes model ", {"LS2HDM_2gen/LS2HDM_2gen"}, " initialized"],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.718417029326242*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184170293451023`*^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.718417029363578*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 42 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "4 Generic, 42 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417029381112*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 42 Classes insertions\"\>"}],
  SequenceForm["in total: ", "4 Generic, 42 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417029398931*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184170294179983`*^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.718417029436252*^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.7184170294557333`*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 0.192096\"\>"], "Print",
 CellChangeTimes->{3.7184170294742928`*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 0.192196\"\>"], "Print",
 CellChangeTimes->{3.718417029493949*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417029513578*^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.7184170295322742`*^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.718417029551803*^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.718417029573163*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417029594276*^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.718417029616007*^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.718417029634885*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 0.194825\"\>"], \
"Print",
 CellChangeTimes->{3.71841702965488*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 0.195161\"\>"], "Print",
 CellChangeTimes->{3.718417029720242*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
0.195220\"\>"], "Print",
 CellChangeTimes->{3.718417029743806*^9}],

Cell[BoxData["\<\"Vertices {S} finished after 0.195292\"\>"], "Print",
 CellChangeTimes->{3.7184170297651*^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.718417029784977*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417029806362*^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.7184170298277617`*^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.718417029849949*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 182 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 182 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417029870393*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 182 Classes insertions\"\>"}],
  SequenceForm["in total: ", "2 Generic, 182 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417029894582*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.71841702991572*^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.7184170299347887`*^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.718417029956121*^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.7184170299771643`*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 0.558210\"\>"], "Print",
 CellChangeTimes->{3.7184170299971046`*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 0.783035\"\>"], "Print",
 CellChangeTimes->{3.718417030017211*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184170300362186`*^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.718417030058144*^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.718417030077943*^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.718417030097825*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417030169388*^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.718417030189497*^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.718417030211212*^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.718417030233601*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 0.894948\"\>"], \
"Print",
 CellChangeTimes->{3.718417030253068*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 1.576964\"\>"], "Print",
 CellChangeTimes->{3.718417030715065*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
1.953377\"\>"], "Print",
 CellChangeTimes->{3.7184170310927553`*^9}],

Cell[BoxData["\<\"Vertices {F, F} finished after 1.953556\"\>"], "Print",
 CellChangeTimes->{3.71841703111556*^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.718417031135901*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417031161544*^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.7184170311813173`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 123 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "2 Generic, 123 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184170312016*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"5 Generic, 253 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "5 Generic, 253 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184170316004744`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"7 Generic, 376 Classes insertions\"\>"}],
  SequenceForm["in total: ", "7 Generic, 376 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417031624712*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417031648275*^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.718417031668384*^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.718417031692045*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 2.498701\"\>"], "Print",
 CellChangeTimes->{3.7184170317128067`*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 2.498810\"\>"], "Print",
 CellChangeTimes->{3.718417031733953*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184170317538033`*^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.7184170317774057`*^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.7184170317981987`*^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.718417031818264*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184170318392067`*^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.7184170318614187`*^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.718417031883*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 2.501581\"\>"], \
"Print",
 CellChangeTimes->{3.718417031903634*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 2.501817\"\>"], "Print",
 CellChangeTimes->{3.7184170319271107`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
2.501866\"\>"], "Print",
 CellChangeTimes->{3.718417031952983*^9}],

Cell[BoxData["\<\"Vertices {S, S} finished after 2.501953\"\>"], "Print",
 CellChangeTimes->{3.718417031985536*^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.718417032068964*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417032098198*^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.71841703211979*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 38 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "2 Generic, 38 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184170321443*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"5 Generic, 147 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "5 Generic, 147 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417032168128*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"7 Generic, 185 Classes insertions\"\>"}],
  SequenceForm["in total: ", "7 Generic, 185 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184170321896143`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184170322125053`*^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.7184170322338047`*^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.718417032256278*^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.718417032277232*^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.718417032299464*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 2.855909\"\>"], "Print",
 CellChangeTimes->{3.7184170323196287`*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 3.731996\"\>"], "Print",
 CellChangeTimes->{3.718417032868891*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184170329374638`*^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.718417032959289*^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.718417032979554*^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.7184170329998083`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417033020389*^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.718417033040122*^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.71841703306074*^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.7184170330817127`*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 3.816497\"\>"], \
"Print",
 CellChangeTimes->{3.7184170331020203`*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 4.374826\"\>"], "Print",
 CellChangeTimes->{3.718417033512743*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
4.964546\"\>"], "Print",
 CellChangeTimes->{3.718417034101651*^9}],

Cell[BoxData["\<\"Vertices {V, V} finished after 4.964696\"\>"], "Print",
 CellChangeTimes->{3.7184170341218*^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.7184170341443768`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417034165646*^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.7184170341863337`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 1764 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 1764 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184170451974583`*^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.718417045216749*^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.718417045234869*^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.718417045255467*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 1764 Classes insertions\"\>"}],
  SequenceForm["in total: ", "6 Generic, 1764 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417045273614*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417045515822*^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.718417045533752*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 52 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 52 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417045608919*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 52 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 52 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417045627239*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 16.478543\"\>"], "Print",
 CellChangeTimes->{3.7184170456459103`*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 16.605417\"\>"], "Print",
 CellChangeTimes->{3.718417045743143*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184170459106703`*^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.718417045930318*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 52 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 52 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841704594939*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 52 Classes insertions\"\>"}],
  SequenceForm["in total: ", "1 Generic, 52 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184170459691467`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417045988142*^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.7184170460079937`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 52 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 52 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417046027411*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 52 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 52 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417046045932*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 16.949662\"\>"], \
"Print",
 CellChangeTimes->{3.718417046103628*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 18.264604\"\>"], "Print",
 CellChangeTimes->{3.7184170474017763`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
19.036133\"\>"], "Print",
 CellChangeTimes->{3.7184170481748657`*^9}],

Cell[BoxData["\<\"Vertices {F, F, S} finished after 19.036442\"\>"], "Print",
 CellChangeTimes->{3.718417048195986*^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.7184170482175417`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417048241085*^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.718417048262268*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 1162 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "6 Generic, 1162 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417055757134*^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.718417055776269*^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.718417055794112*^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.71841705581244*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 1162 Classes insertions\"\>"}],
  SequenceForm["in total: ", "6 Generic, 1162 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841705583113*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417055974716*^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.718417055994481*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 196 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "3 Generic, 196 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841705631351*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 196 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "3 Generic, 196 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417056333804*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 27.195323\"\>"], "Print",
 CellChangeTimes->{3.718417056353421*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 27.687640\"\>"], "Print",
 CellChangeTimes->{3.718417056826922*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417057063252*^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.718417057083599*^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.718417057105*^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.7184170571242*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184170571428757`*^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.718417057162249*^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.718417057180689*^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.7184170571987143`*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 28.108521\"\>"], \
"Print",
 CellChangeTimes->{3.718417057268426*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 29.940482\"\>"], "Print",
 CellChangeTimes->{3.718417059078373*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
30.467414\"\>"], "Print",
 CellChangeTimes->{3.718417059606414*^9}],

Cell[BoxData["\<\"Vertices {F, F, V} finished after 30.468035\"\>"], "Print",
 CellChangeTimes->{3.718417059627708*^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.71841705964919*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184170596701813`*^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.718417059691964*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"10 Generic, 1091 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "10 Generic, 1091 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184170620413227`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 93 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 93 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417062328957*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 93 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 93 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417062551978*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 93 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 93 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184170627494087`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"16 Generic, 1370 Classes insertions\"\>"}],
  SequenceForm["in total: ", "16 Generic, 1370 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417062772584*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417062958601*^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.7184170629800253`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 291 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "3 Generic, 291 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184170635042553`*^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.718417063526081*^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.718417063546916*^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.718417063568583*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"6 Generic, 294 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "6 Generic, 294 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417063592081*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 34.409923\"\>"], "Print",
 CellChangeTimes->{3.7184170636122513`*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 196.474233\"\>"], "Print",
 CellChangeTimes->{3.7184172256559772`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417225800465*^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.718417225900812*^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.718417226044601*^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.718417226149044*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184172262506847`*^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.718417226527461*^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.718417226554472*^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.71841722658191*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 196.554402\"\>"], \
"Print",
 CellChangeTimes->{3.7184172266061153`*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 199.328324\"\>"], "Print",
 CellChangeTimes->{3.718417228466146*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
199.951200\"\>"], "Print",
 CellChangeTimes->{3.7184172290892153`*^9}],

Cell[BoxData["\<\"Vertices {V, V, V} finished after 199.951666\"\>"], "Print",
 CellChangeTimes->{3.7184172291116333`*^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.718417229133072*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.71841722915314*^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.718417229171739*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"10 Generic, 1036 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "10 Generic, 1036 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841723175071*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 45 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "1 Generic, 45 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841723186342*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 45 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "1 Generic, 45 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841723194691*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 138 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 138 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184172323010693`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"14 Generic, 1264 Classes insertions\"\>"}],
  SequenceForm["in total: ", "14 Generic, 1264 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841723232239*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417232502281*^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.718417232524811*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 200 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 200 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184172329052877`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 200 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 200 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417232930443*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 203.785023\"\>"], "Print",
 CellChangeTimes->{3.718417232951886*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 204.314749\"\>"], "Print",
 CellChangeTimes->{3.7184172334538717`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417233477462*^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.7184172335014887`*^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.7184172335211363`*^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.718417233545519*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184172335673647`*^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.7184172335889807`*^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.718417233614428*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 204.326722\"\>"], \
"Print",
 CellChangeTimes->{3.718417233637641*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 204.349148\"\>"], "Print",
 CellChangeTimes->{3.718417233663149*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
204.362023\"\>"], "Print",
 CellChangeTimes->{3.718417233684948*^9}],

Cell[BoxData["\<\"Vertices {V, V, S} finished after 204.362244\"\>"], "Print",
 CellChangeTimes->{3.7184172337076178`*^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.7184172337306967`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417233753353*^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.71841723377946*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"10 Generic, 1802 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "10 Generic, 1802 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184172379624653`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 224 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 224 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417238712625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 152 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "1 Generic, 152 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184172389640837`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 152 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "1 Generic, 152 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417239191402*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"14 Generic, 2330 Classes insertions\"\>"}],
  SequenceForm["in total: ", "14 Generic, 2330 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417239215022*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417239528001*^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.718417239548011*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 108 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 108 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417239710442*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 108 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "1 Generic, 108 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417239732704*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 210.581778\"\>"], "Print",
 CellChangeTimes->{3.718417239755824*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 227.185723\"\>"], "Print",
 CellChangeTimes->{3.7184172563239603`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.71841725634239*^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.718417256362152*^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.718417256382296*^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.718417256402459*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417256424415*^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.7184172564445133`*^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.718417256464981*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 227.189926\"\>"], \
"Print",
 CellChangeTimes->{3.7184172564848547`*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 227.190243\"\>"], "Print",
 CellChangeTimes->{3.718417256505933*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
227.190301\"\>"], "Print",
 CellChangeTimes->{3.7184172565265703`*^9}],

Cell[BoxData["\<\"Vertices {V, S, S} finished after 227.190477\"\>"], "Print",
 CellChangeTimes->{3.718417256546809*^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.7184172565683117`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417256589554*^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.718417256615015*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"10 Generic, 4620 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "10 Generic, 4620 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184172653334618`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 838 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 838 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417266823934*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 838 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 838 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417268377948*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 838 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 838 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417269871662*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"16 Generic, 7134 Classes insertions\"\>"}],
  SequenceForm["in total: ", "16 Generic, 7134 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417269935781*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184172707223177`*^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.718417270746029*^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.718417270766465*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 241.585533\"\>"], "Print",
 CellChangeTimes->{3.7184172707884827`*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 241.585651\"\>"], "Print",
 CellChangeTimes->{3.718417270809973*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184172708306627`*^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.71841727085006*^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.7184172708749743`*^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.718417270902006*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417270929737*^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.7184172709491034`*^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.718417270967844*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 241.588787\"\>"], \
"Print",
 CellChangeTimes->{3.718417270989648*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 241.589073\"\>"], "Print",
 CellChangeTimes->{3.71841727100935*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
241.589127\"\>"], "Print",
 CellChangeTimes->{3.7184172710278797`*^9}],

Cell[BoxData["\<\"Vertices {S, S, S} finished after 241.589290\"\>"], "Print",
 CellChangeTimes->{3.718417271047494*^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.7184172710651073`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417271083222*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "32", 
   "\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
ones)\"\>"}],
  SequenceForm[
  "Excluding ", 32, " field point(s) (incl. charge-conjugate ones)"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417271102504*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417271120696*^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.718417271186027*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 635 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "2 Generic, 635 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417271965454*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 635 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 635 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184172731128893`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 635 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 635 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841727426403*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 635 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 635 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417275413906*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 635 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 5, ": ", "2 Generic, 635 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184172765517693`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 635 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 6, ": ", "2 Generic, 635 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417277710393*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 3287 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 7, ": ", "4 Generic, 3287 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417286484336*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 3287 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "4 Generic, 3287 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417295139289*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 3287 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "4 Generic, 3287 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417304984489*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 401 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 10, ": ", "2 Generic, 401 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417305744617*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 401 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 11, ": ", "2 Generic, 401 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417306481784*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 401 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 12, ": ", "2 Generic, 401 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184173072149153`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417307236087*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "32", 
   "\[InvisibleSpace]", "\<\" field point(s)\"\>"}],
  SequenceForm["Restoring ", 32, " field point(s)"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417307256624*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"30 Generic, 14874 Classes insertions\"\>"}],
  SequenceForm["in total: ", "30 Generic, 14874 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417307327201*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417310345254*^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.718417310367474*^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.718417310686948*^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.7184173107077637`*^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.718417310728361*^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.71841731074962*^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.7184173107711*^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.718417310791214*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 7, ": ", "3 Generic, 1383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417314193637*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "3 Generic, 1383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417317646607*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 1383 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "3 Generic, 1383 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417320984239*^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.7184173210071507`*^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.7184173210304613`*^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.718417321049872*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"18 Generic, 4158 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "18 Generic, 4158 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417321069462*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 292.226787\"\>"], "Print",
 CellChangeTimes->{3.718417321368965*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 302.068761\"\>"], "Print",
 CellChangeTimes->{3.718417331210185*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417331755578*^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.718417331779479*^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.718417331805017*^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.718417331828601*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184173318538237`*^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.718417331878407*^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.718417331903254*^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.71841733192689*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 302.634204\"\>"], \
"Print",
 CellChangeTimes->{3.718417331952219*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 339.624718\"\>"], "Print",
 CellChangeTimes->{3.7184173687664003`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
343.428994\"\>"], "Print",
 CellChangeTimes->{3.718417372568819*^9}],

Cell[BoxData["\<\"Vertices {V, V, V, V} finished after 343.429358\"\>"], \
"Print",
 CellChangeTimes->{3.718417372602037*^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.71841737262852*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417372650339*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "32", 
   "\[InvisibleSpace]", "\<\" field point(s) (incl. charge-conjugate \
ones)\"\>"}],
  SequenceForm[
  "Excluding ", 32, " field point(s) (incl. charge-conjugate ones)"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841737267164*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417372693713*^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.7184173727142353`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 1686 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "2 Generic, 1686 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841737768822*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 970 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "2 Generic, 970 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417381243898*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 970 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "2 Generic, 970 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841738451091*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 970 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "2 Generic, 970 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417387752645*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 970 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 5, ": ", "2 Generic, 970 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417390953416*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 1110 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 6, ": ", "2 Generic, 1110 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417393958646*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 3190 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 7, ": ", "4 Generic, 3190 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417410213245*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 3190 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "4 Generic, 3190 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417426675559*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"4 Generic, 3140 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "4 Generic, 3140 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417439523736*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 1052 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 10, ": ", "2 Generic, 1052 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184174421711607`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 513 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 11, ": ", "1 Generic, 513 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417442964039*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 513 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 12, ": ", "1 Generic, 513 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417443751937*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417443775015*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "32", 
   "\[InvisibleSpace]", "\<\" field point(s)\"\>"}],
  SequenceForm["Restoring ", 32, " field point(s)"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184174437980537`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"28 Generic, 18274 Classes insertions\"\>"}],
  SequenceForm["in total: ", "28 Generic, 18274 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7184174438747883`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184174470895443`*^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.718417447110909*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 764 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Generic, 764 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417448993009*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 764 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "1 Generic, 764 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841745066615*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 764 Classes amplitudes\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "1 Generic, 764 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.71841745234077*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 2292 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "3 Generic, 2292 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.718417452361218*^9}],

Cell[BoxData["\<\"Writing amplitude finished after 423.427540\"\>"], "Print",
 CellChangeTimes->{3.718417452565667*^9}],

Cell[BoxData["\<\"Writing the R2 and UV parts at the class level finished \
after 425.377972\"\>"], "Print",
 CellChangeTimes->{3.7184174545162363`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7184174546458817`*^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.718417454667156*^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.718417454688463*^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.7184174547082853`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.718417454732278*^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.71841745475325*^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.718417454780641*^9}],

Cell[BoxData["\<\"Writing the symbolic CT finished after 425.509097\"\>"], \
"Print",
 CellChangeTimes->{3.718417454810913*^9}],

Cell[BoxData["\<\"SU3 algebra finished after 426.014640\"\>"], "Print",
 CellChangeTimes->{3.7184174551541443`*^9}],

Cell[BoxData["\<\"Simplification of the vertices finished after \
426.136536\"\>"], "Print",
 CellChangeTimes->{3.7184174552747602`*^9}],

Cell[BoxData["\<\"Vertices {V, V, S, S} finished after 426.137062\"\>"], \
"Print",
 CellChangeTimes->{3.718417455304775*^9}],

Cell[BoxData["\<\"before merge 426.147736 temp=2479.724847\"\>"], "Print",
 CellChangeTimes->{3.718417455329829*^9}],

Cell[BoxData["\<\"merging done 426.193225\"\>"], "Print",
 CellChangeTimes->{3.718417455358892*^9}],

Cell[BoxData["\<\"Writing R2 and UV counterterms from LS2HDM_2gen/LS2HDM_2gen \
and Lorentz in LS2HDM_2gen.nlo\"\>"], "Print",
 CellChangeTimes->{3.718417455587965*^9}],

Cell[BoxData["\<\"done\"\>"], "Print",
 CellChangeTimes->{3.7184174556564617`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"427.447449`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.718417455675415*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.645276376306346*^9, 3.6452763777860003`*^9}},
 ExpressionUUID -> "7568bfb3-158f-41eb-8772-6d0aa6aaf6ec"]
}, Closed]],

Cell[CellGroupData[{

Cell["Load", "Chapter",
 CellChangeTimes->{{3.653342759310401*^9, 
  3.6533427599244843`*^9}},ExpressionUUID->"997064fb-6050-43c7-8f9d-\
327b44094f81"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   StyleBox[
    RowBox[{"LaunchKernels", "::", "nodef"}], "MessageName"], 
   StyleBox["]", "MessageName"]}], 
  StyleBox[";", "MessageName"]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$WinDir", "=", 
   "\"\<C:\\\\Users\\\\giorgiobusoni\\\\OneDrive\\\\Documenti\\\\NumericTools\
\\\\feynrules\\\\feynrules-current\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "$MacDir", "=", 
   "\"\</Users/gbusoni/OneDrive/Documenti/NumericTools/feynrules/feynrules-\
current\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$MdlWinDir", "=", "\"\<\\\\Models\\\\S2HDM\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$MdlMacDir", "=", "\"\</Models/S2HDM\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Win", "=", 
   RowBox[{"(", 
    RowBox[{"$OperatingSystem", "\[Equal]", "\"\<Windows\>\""}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{"Win", ",", 
    RowBox[{"$FeynRulesPath", "=", 
     RowBox[{"SetDirectory", "[", "$WinDir", "]"}]}], ",", 
    RowBox[{"$FeynRulesPath", "=", 
     RowBox[{"SetDirectory", "[", "$MacDir", "]"}]}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.60353897829296*^9, 3.603539043421093*^9}, {
   3.633332218679607*^9, 3.6333322194542303`*^9}, 3.633333796845446*^9, {
   3.64301873415166*^9, 3.64301873665499*^9}, {3.6452720966860647`*^9, 
   3.645272098076991*^9}, {3.647076372652458*^9, 3.647076373114575*^9}, 
   3.653342717270969*^9, 3.675137081154721*^9, 3.676248214715084*^9, {
   3.6763358942595243`*^9, 3.67633591346796*^9}, {3.676344116486677*^9, 
   3.676344117095936*^9}},
 ExpressionUUID -> "ca2ef158-6fc4-41fd-b15e-adf78adf2a02"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "FeynRules`"}]], "Input",
 CellChangeTimes->{{3.603539048879374*^9, 3.603539054382785*^9}, {
  3.630748915770712*^9, 3.630748916976617*^9}},
 ExpressionUUID -> "02a748ff-207d-4ef6-ae8f-d96b1dc7433d"],

Cell[CellGroupData[{

Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
 CellChangeTimes->{
  3.6906111979502935`*^9, 3.690611229551447*^9, 3.6906112893828115`*^9, {
   3.690663406244986*^9, 3.690663421100906*^9}, 3.690671873226747*^9, 
   3.690784827291193*^9, 3.690784959569916*^9, 3.690785118813941*^9, 
   3.6907852714467087`*^9, 3.69078541990917*^9, 3.690785540511368*^9, 
   3.6907856687558317`*^9, 3.704404469404682*^9, 3.7044253727879343`*^9, {
   3.718411931153166*^9, 3.718411947644806*^9}, 3.718413446769024*^9, 
   3.718417580276087*^9},
 ExpressionUUID -> "007bd124-38c4-4334-afc2-ae9b8bc73c70"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.29\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"\<\" (\"\>", " ", "\<\"06 July 2017\"\>"}], 
   "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm["Version: ", "2.3.29", " (" "06 July 2017", ")."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6906111979502935`*^9, 3.690611229551447*^9, 3.6906112893828115`*^9, {
   3.690663406244986*^9, 3.690663421100906*^9}, 3.690671873226747*^9, 
   3.690784827291193*^9, 3.690784959569916*^9, 3.690785118813941*^9, 
   3.6907852714467087`*^9, 3.69078541990917*^9, 3.690785540511368*^9, 
   3.6907856687558317`*^9, 3.704404469404682*^9, 3.7044253727879343`*^9, {
   3.718411931153166*^9, 3.718411947644806*^9}, 3.718413446769024*^9, 
   3.718417580291786*^9},
 ExpressionUUID -> "007bd124-38c4-4334-afc2-ae9b8bc73c70"],

Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
B. Fuks\"\>"], "Print",
 CellChangeTimes->{
  3.6906111979502935`*^9, 3.690611229551447*^9, 3.6906112893828115`*^9, {
   3.690663406244986*^9, 3.690663421100906*^9}, 3.690671873226747*^9, 
   3.690784827291193*^9, 3.690784959569916*^9, 3.690785118813941*^9, 
   3.6907852714467087`*^9, 3.69078541990917*^9, 3.690785540511368*^9, 
   3.6907856687558317`*^9, 3.704404469404682*^9, 3.7044253727879343`*^9, {
   3.718411931153166*^9, 3.718411947644806*^9}, 3.718413446769024*^9, 
   3.718417580307081*^9},
 ExpressionUUID -> "007bd124-38c4-4334-afc2-ae9b8bc73c70"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.6906111979502935`*^9, 3.690611229551447*^9, 3.6906112893828115`*^9, {
   3.690663406244986*^9, 3.690663421100906*^9}, 3.690671873226747*^9, 
   3.690784827291193*^9, 3.690784959569916*^9, 3.690785118813941*^9, 
   3.6907852714467087`*^9, 3.69078541990917*^9, 3.690785540511368*^9, 
   3.6907856687558317`*^9, 3.704404469404682*^9, 3.7044253727879343`*^9, {
   3.718411931153166*^9, 3.718411947644806*^9}, 3.718413446769024*^9, 
   3.7184175803219643`*^9},
 ExpressionUUID -> "007bd124-38c4-4334-afc2-ae9b8bc73c70"],

Cell[BoxData["\<\"Please cite:\"\>"], "Print",
 CellChangeTimes->{
  3.6906111979502935`*^9, 3.690611229551447*^9, 3.6906112893828115`*^9, {
   3.690663406244986*^9, 3.690663421100906*^9}, 3.690671873226747*^9, 
   3.690784827291193*^9, 3.690784959569916*^9, 3.690785118813941*^9, 
   3.6907852714467087`*^9, 3.69078541990917*^9, 3.690785540511368*^9, 
   3.6907856687558317`*^9, 3.704404469404682*^9, 3.7044253727879343`*^9, {
   3.718411931153166*^9, 3.718411947644806*^9}, 3.718413446769024*^9, 
   3.718417580336895*^9},
 ExpressionUUID -> "007bd124-38c4-4334-afc2-ae9b8bc73c70"],

Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
(arXiv:1310.1921);\"\>"], "Print",
 CellChangeTimes->{
  3.6906111979502935`*^9, 3.690611229551447*^9, 3.6906112893828115`*^9, {
   3.690663406244986*^9, 3.690663421100906*^9}, 3.690671873226747*^9, 
   3.690784827291193*^9, 3.690784959569916*^9, 3.690785118813941*^9, 
   3.6907852714467087`*^9, 3.69078541990917*^9, 3.690785540511368*^9, 
   3.6907856687558317`*^9, 3.704404469404682*^9, 3.7044253727879343`*^9, {
   3.718411931153166*^9, 3.718411947644806*^9}, 3.718413446769024*^9, 
   3.718417580351952*^9},
 ExpressionUUID -> "007bd124-38c4-4334-afc2-ae9b8bc73c70"],

Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
(arXiv:0806.4194).\"\>"], "Print",
 CellChangeTimes->{
  3.6906111979502935`*^9, 3.690611229551447*^9, 3.6906112893828115`*^9, {
   3.690663406244986*^9, 3.690663421100906*^9}, 3.690671873226747*^9, 
   3.690784827291193*^9, 3.690784959569916*^9, 3.690785118813941*^9, 
   3.6907852714467087`*^9, 3.69078541990917*^9, 3.690785540511368*^9, 
   3.6907856687558317`*^9, 3.704404469404682*^9, 3.7044253727879343`*^9, {
   3.718411931153166*^9, 3.718411947644806*^9}, 3.718413446769024*^9, 
   3.718417580368559*^9},
 ExpressionUUID -> "007bd124-38c4-4334-afc2-ae9b8bc73c70"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.6906111979502935`*^9, 3.690611229551447*^9, 3.6906112893828115`*^9, {
   3.690663406244986*^9, 3.690663421100906*^9}, 3.690671873226747*^9, 
   3.690784827291193*^9, 3.690784959569916*^9, 3.690785118813941*^9, 
   3.6907852714467087`*^9, 3.69078541990917*^9, 3.690785540511368*^9, 
   3.6907856687558317`*^9, 3.704404469404682*^9, 3.7044253727879343`*^9, {
   3.718411931153166*^9, 3.718411947644806*^9}, 3.718413446769024*^9, 
   3.718417580384362*^9},
 ExpressionUUID -> "007bd124-38c4-4334-afc2-ae9b8bc73c70"],

Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
 CellChangeTimes->{
  3.6906111979502935`*^9, 3.690611229551447*^9, 3.6906112893828115`*^9, {
   3.690663406244986*^9, 3.690663421100906*^9}, 3.690671873226747*^9, 
   3.690784827291193*^9, 3.690784959569916*^9, 3.690785118813941*^9, 
   3.6907852714467087`*^9, 3.69078541990917*^9, 3.690785540511368*^9, 
   3.6907856687558317`*^9, 3.704404469404682*^9, 3.7044253727879343`*^9, {
   3.718411931153166*^9, 3.718411947644806*^9}, 3.718413446769024*^9, 
   3.718417580398975*^9},
 ExpressionUUID -> "007bd124-38c4-4334-afc2-ae9b8bc73c70"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.6906111979502935`*^9, 3.690611229551447*^9, 3.6906112893828115`*^9, {
   3.690663406244986*^9, 3.690663421100906*^9}, 3.690671873226747*^9, 
   3.690784827291193*^9, 3.690784959569916*^9, 3.690785118813941*^9, 
   3.6907852714467087`*^9, 3.69078541990917*^9, 3.690785540511368*^9, 
   3.6907856687558317`*^9, 3.704404469404682*^9, 3.7044253727879343`*^9, {
   3.718411931153166*^9, 3.718411947644806*^9}, 3.718413446769024*^9, 
   3.718417580413528*^9},
 ExpressionUUID -> "007bd124-38c4-4334-afc2-ae9b8bc73c70"],

Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
FRPalette[].\"\>"], "Print",
 CellChangeTimes->{
  3.6906111979502935`*^9, 3.690611229551447*^9, 3.6906112893828115`*^9, {
   3.690663406244986*^9, 3.690663421100906*^9}, 3.690671873226747*^9, 
   3.690784827291193*^9, 3.690784959569916*^9, 3.690785118813941*^9, 
   3.6907852714467087`*^9, 3.69078541990917*^9, 3.690785540511368*^9, 
   3.6907856687558317`*^9, 3.704404469404682*^9, 3.7044253727879343`*^9, {
   3.718411931153166*^9, 3.718411947644806*^9}, 3.718413446769024*^9, 
   3.718417580428371*^9},
 ExpressionUUID -> "007bd124-38c4-4334-afc2-ae9b8bc73c70"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{"Win", ",", 
    RowBox[{"SetDirectory", "[", 
     RowBox[{"$FeynRulesPath", "<>", "$MdlWinDir"}], "]"}], ",", 
    RowBox[{"SetDirectory", "[", 
     RowBox[{"$FeynRulesPath", "<>", "$MdlMacDir"}], "]"}]}], "]"}], 
  ";"}]], "Input",
 ExpressionUUID -> "ddaaf44c-8fe6-4bcd-93d6-f0654058047c"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Change", " ", "to", " ", 
   RowBox[{"SM_CMK", ".", "fr"}], " ", "to", " ", "account", " ", "for", " ", 
   "entries", " ", "in", " ", "CKM", " ", "matrix"}], "*)"}]], "Input",
 ExpressionUUID -> "e655d7d0-87a7-4f0f-87b0-42913b8180a4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadModel", "[", 
  RowBox[{"\"\<SM.fr\>\"", ",", "\"\<S2HDM.fr\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.633332249125042*^9, 3.633332249491701*^9}, {
   3.6337594763689528`*^9, 3.6337594776507893`*^9}, {3.6356816576884117`*^9, 
   3.6356816603749027`*^9}, {3.637640302808282*^9, 3.6376403082726*^9}, {
   3.637640716438528*^9, 3.6376407440268297`*^9}, 3.643024914860723*^9, {
   3.645273293611383*^9, 3.6452732956188726`*^9}, {3.645770176958198*^9, 
   3.645770177262162*^9}, {3.646026243920371*^9, 3.6460262460509453`*^9}, {
   3.647347782049244*^9, 3.64734778358805*^9}, {3.64940300547442*^9, 
   3.649403021810585*^9}, {3.675137095078703*^9, 3.6751371002846923`*^9}, {
   3.6762482380352983`*^9, 3.6762482389605207`*^9}, 3.6763348315574408`*^9},
 ExpressionUUID -> "d146e4df-fa95-4275-a28e-c93b984da051"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
 CellChangeTimes->{
  3.6906112090732975`*^9, 3.690611240407996*^9, 3.6906113140543685`*^9, {
   3.690663410107663*^9, 3.690663422799489*^9}, 3.690671875027631*^9, 
   3.690784829071404*^9, 3.690784961362215*^9, 3.690785120575322*^9, 
   3.690785273241022*^9, 3.690785421609065*^9, 3.690785542166041*^9, 
   3.690785670369174*^9, 3.704404472270033*^9, 3.7044253751291447`*^9, {
   3.718411933361175*^9, 3.718411949585874*^9}, 3.7184134484162273`*^9, 
   3.718417582186105*^9},
 ExpressionUUID -> "85fdd0b6-f096-429b-a7e4-037d0d2b1f00"],

Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
 CellChangeTimes->{
  3.6906112090732975`*^9, 3.690611240407996*^9, 3.6906113140543685`*^9, {
   3.690663410107663*^9, 3.690663422799489*^9}, 3.690671875027631*^9, 
   3.690784829071404*^9, 3.690784961362215*^9, 3.690785120575322*^9, 
   3.690785273241022*^9, 3.690785421609065*^9, 3.690785542166041*^9, 
   3.690785670369174*^9, 3.704404472270033*^9, 3.7044253751291447`*^9, {
   3.718411933361175*^9, 3.718411949585874*^9}, 3.7184134484162273`*^9, 
   3.7184175821984243`*^9},
 ExpressionUUID -> "85fdd0b6-f096-429b-a7e4-037d0d2b1f00"],

Cell[BoxData["\<\"G.Busoni\"\>"], "Print",
 CellChangeTimes->{
  3.6906112090732975`*^9, 3.690611240407996*^9, 3.6906113140543685`*^9, {
   3.690663410107663*^9, 3.690663422799489*^9}, 3.690671875027631*^9, 
   3.690784829071404*^9, 3.690784961362215*^9, 3.690785120575322*^9, 
   3.690785273241022*^9, 3.690785421609065*^9, 3.690785542166041*^9, 
   3.690785670369174*^9, 3.704404472270033*^9, 3.7044253751291447`*^9, {
   3.718411933361175*^9, 3.718411949585874*^9}, 3.7184134484162273`*^9, 
   3.718417582214278*^9},
 ExpressionUUID -> "85fdd0b6-f096-429b-a7e4-037d0d2b1f00"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
  SequenceForm["Model Version: ", "1.0"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6906112090732975`*^9, 3.690611240407996*^9, 3.6906113140543685`*^9, {
   3.690663410107663*^9, 3.690663422799489*^9}, 3.690671875027631*^9, 
   3.690784829071404*^9, 3.690784961362215*^9, 3.690785120575322*^9, 
   3.690785273241022*^9, 3.690785421609065*^9, 3.690785542166041*^9, 
   3.690785670369174*^9, 3.704404472270033*^9, 3.7044253751291447`*^9, {
   3.718411933361175*^9, 3.718411949585874*^9}, 3.7184134484162273`*^9, 
   3.718417582233841*^9},
 ExpressionUUID -> "85fdd0b6-f096-429b-a7e4-037d0d2b1f00"],

Cell[BoxData["\<\"Please cite\"\>"], "Print",
 CellChangeTimes->{
  3.6906112090732975`*^9, 3.690611240407996*^9, 3.6906113140543685`*^9, {
   3.690663410107663*^9, 3.690663422799489*^9}, 3.690671875027631*^9, 
   3.690784829071404*^9, 3.690784961362215*^9, 3.690785120575322*^9, 
   3.690785273241022*^9, 3.690785421609065*^9, 3.690785542166041*^9, 
   3.690785670369174*^9, 3.704404472270033*^9, 3.7044253751291447`*^9, {
   3.718411933361175*^9, 3.718411949585874*^9}, 3.7184134484162273`*^9, 
   3.718417582251155*^9},
 ExpressionUUID -> "85fdd0b6-f096-429b-a7e4-037d0d2b1f00"],

Cell[BoxData["\<\"N. Bell et al., 1612.03475, 1710.10764\"\>"], "Print",
 CellChangeTimes->{
  3.6906112090732975`*^9, 3.690611240407996*^9, 3.6906113140543685`*^9, {
   3.690663410107663*^9, 3.690663422799489*^9}, 3.690671875027631*^9, 
   3.690784829071404*^9, 3.690784961362215*^9, 3.690785120575322*^9, 
   3.690785273241022*^9, 3.690785421609065*^9, 3.690785542166041*^9, 
   3.690785670369174*^9, 3.704404472270033*^9, 3.7044253751291447`*^9, {
   3.718411933361175*^9, 3.718411949585874*^9}, 3.7184134484162273`*^9, 
   3.718417582268417*^9},
 ExpressionUUID -> "85fdd0b6-f096-429b-a7e4-037d0d2b1f00"],

Cell[BoxData["\<\"http://feynrules.irmp.ucl.ac.be/wiki/DMsimp/\"\>"], "Print",
 CellChangeTimes->{
  3.6906112090732975`*^9, 3.690611240407996*^9, 3.6906113140543685`*^9, {
   3.690663410107663*^9, 3.690663422799489*^9}, 3.690671875027631*^9, 
   3.690784829071404*^9, 3.690784961362215*^9, 3.690785120575322*^9, 
   3.690785273241022*^9, 3.690785421609065*^9, 3.690785542166041*^9, 
   3.690785670369174*^9, 3.704404472270033*^9, 3.7044253751291447`*^9, {
   3.718411933361175*^9, 3.718411949585874*^9}, 3.7184134484162273`*^9, 
   3.718417582287184*^9},
 ExpressionUUID -> "85fdd0b6-f096-429b-a7e4-037d0d2b1f00"],

Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
"Print",
 CellChangeTimes->{
  3.6906112090732975`*^9, 3.690611240407996*^9, 3.6906113140543685`*^9, {
   3.690663410107663*^9, 3.690663422799489*^9}, 3.690671875027631*^9, 
   3.690784829071404*^9, 3.690784961362215*^9, 3.690785120575322*^9, 
   3.690785273241022*^9, 3.690785421609065*^9, 3.690785542166041*^9, 
   3.690785670369174*^9, 3.704404472270033*^9, 3.7044253751291447`*^9, {
   3.718411933361175*^9, 3.718411949585874*^9}, 3.7184134484162273`*^9, 
   3.7184175823057537`*^9},
 ExpressionUUID -> "85fdd0b6-f096-429b-a7e4-037d0d2b1f00"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.6906112090732975`*^9, 3.690611240407996*^9, 3.6906113140543685`*^9, {
   3.690663410107663*^9, 3.690663422799489*^9}, 3.690671875027631*^9, 
   3.690784829071404*^9, 3.690784961362215*^9, 3.690785120575322*^9, 
   3.690785273241022*^9, 3.690785421609065*^9, 3.690785542166041*^9, 
   3.690785670369174*^9, 3.704404472270033*^9, 3.7044253751291447`*^9, {
   3.718411933361175*^9, 3.718411949585874*^9}, 3.7184134484162273`*^9, 
   3.718417582322626*^9},
 ExpressionUUID -> "85fdd0b6-f096-429b-a7e4-037d0d2b1f00"],

Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
 CellChangeTimes->{
  3.6906112090732975`*^9, 3.690611240407996*^9, 3.6906113140543685`*^9, {
   3.690663410107663*^9, 3.690663422799489*^9}, 3.690671875027631*^9, 
   3.690784829071404*^9, 3.690784961362215*^9, 3.690785120575322*^9, 
   3.690785273241022*^9, 3.690785421609065*^9, 3.690785542166041*^9, 
   3.690785670369174*^9, 3.704404472270033*^9, 3.7044253751291447`*^9, {
   3.718411933361175*^9, 3.718411949585874*^9}, 3.7184134484162273`*^9, 
   3.7184175823402557`*^9},
 ExpressionUUID -> "85fdd0b6-f096-429b-a7e4-037d0d2b1f00"],

Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
 CellChangeTimes->{
  3.6906112090732975`*^9, 3.690611240407996*^9, 3.6906113140543685`*^9, {
   3.690663410107663*^9, 3.690663422799489*^9}, 3.690671875027631*^9, 
   3.690784829071404*^9, 3.690784961362215*^9, 3.690785120575322*^9, 
   3.690785273241022*^9, 3.690785421609065*^9, 3.690785542166041*^9, 
   3.690785670369174*^9, 3.704404472270033*^9, 3.7044253751291447`*^9, {
   3.718411933361175*^9, 3.718411949585874*^9}, 3.7184134484162273`*^9, 
   3.718417582400345*^9},
 ExpressionUUID -> "85fdd0b6-f096-429b-a7e4-037d0d2b1f00"],

Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
 CellChangeTimes->{
  3.6906112090732975`*^9, 3.690611240407996*^9, 3.6906113140543685`*^9, {
   3.690663410107663*^9, 3.690663422799489*^9}, 3.690671875027631*^9, 
   3.690784829071404*^9, 3.690784961362215*^9, 3.690785120575322*^9, 
   3.690785273241022*^9, 3.690785421609065*^9, 3.690785542166041*^9, 
   3.690785670369174*^9, 3.704404472270033*^9, 3.7044253751291447`*^9, {
   3.718411933361175*^9, 3.718411949585874*^9}, 3.7184134484162273`*^9, 
   3.71841758241644*^9},
 ExpressionUUID -> "85fdd0b6-f096-429b-a7e4-037d0d2b1f00"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"S2HDM\"\>", 
   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
  SequenceForm["\nModel ", "S2HDM", " loaded."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6906112090732975`*^9, 3.690611240407996*^9, 3.6906113140543685`*^9, {
   3.690663410107663*^9, 3.690663422799489*^9}, 3.690671875027631*^9, 
   3.690784829071404*^9, 3.690784961362215*^9, 3.690785120575322*^9, 
   3.690785273241022*^9, 3.690785421609065*^9, 3.690785542166041*^9, 
   3.690785670369174*^9, 3.704404472270033*^9, 3.7044253751291447`*^9, {
   3.718411933361175*^9, 3.718411949585874*^9}, 3.7184134484162273`*^9, 
   3.718417582482127*^9},
 ExpressionUUID -> "85fdd0b6-f096-429b-a7e4-037d0d2b1f00"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Do", " ", "not", " ", "load", " ", 
    RowBox[{"Cabibbo", ".", "rts"}], " ", "if", " ", "you", " ", "loaded", 
    " ", 
    RowBox[{"DM_CMK", ".", "fr"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Load", " ", "Massless_", "4", 
     RowBox[{"f", ".", "rst"}], " ", "for", " ", "4", "F", " ", "scheme"}], 
    ",", " ", 
    RowBox[{"or", " ", "massless_", "5", 
     RowBox[{"F", ".", "rst"}], " ", "for", " ", "5", "F", " ", "scheme"}]}], 
   "*)"}]}]], "Input",
 ExpressionUUID -> "13e10998-c1d1-4631-a37a-72b10608d653"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadRestriction", "[", "\"\<Massless_4f.rst\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.639376820290628*^9, 3.6393768234379387`*^9}, {
   3.6393770865564947`*^9, 3.6393770912761908`*^9}, {3.6393771858866796`*^9, 
   3.6393771863740797`*^9}, {3.639377466478868*^9, 3.639377471110105*^9}, {
   3.6393796364789057`*^9, 3.639379637142768*^9}, {3.639989012839026*^9, 
   3.639989036648665*^9}, {3.641539947651075*^9, 3.641539950365509*^9}, {
   3.641789785973187*^9, 3.641789792194556*^9}, {3.643025183012186*^9, 
   3.643025185439151*^9}, {3.645274945395602*^9, 3.645274957019786*^9}, {
   3.6457800188411694`*^9, 3.645780019775859*^9}, {3.646377072375288*^9, 
   3.646377083707752*^9}, {3.646465411317153*^9, 3.646465413430913*^9}, 
   3.675140355764879*^9, 3.718411939264698*^9},
 ExpressionUUID -> "0c950862-3552-4947-a926-e19dcec19c78"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Loading restrictions from \"\>", 
   "\[InvisibleSpace]", "\<\"Massless_4f.rst\"\>", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
    ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "18"}],
  SequenceForm["Loading restrictions from ", "Massless_4f.rst", " : ", 
   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6906112124778433`*^9, 3.69061124383845*^9, 3.6906113185040216`*^9, {
   3.690663411128717*^9, 3.690663423584612*^9}, 3.690671876136063*^9, 
   3.690784830163724*^9, 3.69078496216261*^9, 3.690785121340314*^9, 
   3.69078527418029*^9, 3.690785422493154*^9, 3.690785543366376*^9, 
   3.690785671155622*^9, 3.704404473850808*^9, 3.704425376184206*^9, {
   3.718411934274063*^9, 3.718411950427902*^9}, 3.718413449209219*^9, 
   3.718417583222826*^9},
 ExpressionUUID -> "139cfab0-c743-4c60-869c-b1f4d084c58b"],

Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
 CellChangeTimes->{
  3.6906112124778433`*^9, 3.69061124383845*^9, 3.6906113185040216`*^9, {
   3.690663411128717*^9, 3.690663423584612*^9}, 3.690671876136063*^9, 
   3.690784830163724*^9, 3.69078496216261*^9, 3.690785121340314*^9, 
   3.69078527418029*^9, 3.690785422493154*^9, 3.690785543366376*^9, 
   3.690785671155622*^9, 3.704404473850808*^9, 3.704425376184206*^9, {
   3.718411934274063*^9, 3.718411950427902*^9}, 3.718413449209219*^9, 
   3.718417583367283*^9},
 ExpressionUUID -> "139cfab0-c743-4c60-869c-b1f4d084c58b"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["UFO NLO", "Chapter",
 CellChangeTimes->{{3.653343093143339*^9, 3.653343093462414*^9}, {
  3.6761992702101593`*^9, 
  3.676199270833151*^9}},ExpressionUUID->"3f21317d-53da-4c79-b549-\
2714db40a168"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Get", "[", "\"\<LS2HDM_TI.nlo\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LTypeI", ",", 
   RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",", 
   RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_TI_NLO\>\""}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.603600645725746*^9, 3.6036006566228743`*^9}, {
   3.606550334098661*^9, 3.60655033664305*^9}, {3.608451188889968*^9, 
   3.608451204251935*^9}, 3.60845124249209*^9, {3.633332357749588*^9, 
   3.633332371706971*^9}, {3.633333594923254*^9, 3.6333336099891357`*^9}, {
   3.633333692998436*^9, 3.633333708244873*^9}, {3.633759523248143*^9, 
   3.63375952406321*^9}, 3.6337595816874228`*^9, {3.633759861480113*^9, 
   3.633759861782745*^9}, {3.635681799753024*^9, 3.635681812948553*^9}, {
   3.637640540300961*^9, 3.6376405694259853`*^9}, {3.637640663087901*^9, 
   3.637640663759862*^9}, {3.637647387697893*^9, 3.637647389712125*^9}, {
   3.637648387110936*^9, 3.637648387849903*^9}, {3.639389319458922*^9, 
   3.639389319865039*^9}, {3.64051094238649*^9, 3.640510950609267*^9}, {
   3.6430250002334414`*^9, 3.643025002692279*^9}, {3.643025047978877*^9, 
   3.643025060082522*^9}, {3.6452745024778748`*^9, 3.6452745079012833`*^9}, {
   3.645276460101131*^9, 3.645276462419408*^9}, 3.645770304766233*^9, {
   3.64578008286651*^9, 3.6457800832087*^9}, {3.646026325649763*^9, 
   3.646026327751546*^9}, {3.647347838972896*^9, 3.6473478401093903`*^9}, {
   3.64940322069949*^9, 3.6494032361730423`*^9}, {3.650089615748787*^9, 
   3.650089616233056*^9}, {3.675138023210348*^9, 3.6751380486371837`*^9}, 
   3.675724475799202*^9, {3.6761992552887545`*^9, 3.6761992566053333`*^9}, {
   3.676248306752139*^9, 3.676248310340659*^9}, {3.67634066094727*^9, 
   3.676340663035651*^9}, 3.690611527292127*^9, {3.690663456612215*^9, 
   3.690663457635076*^9}, {3.690784667692478*^9, 3.690784707577756*^9}, {
   3.690784739012929*^9, 3.6907847400041227`*^9}, {3.6907847988719*^9, 
   3.690784810917693*^9}},
 ExpressionUUID -> "972c8652-8a72-4009-9ede-2bfb474e3989"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.718417596267902*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

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.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.7184175967116623`*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.7184175967360697`*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.7184175967581882`*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.718417604892478*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.7184176049831047`*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.718417611869741*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "298"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 298],
  Editable->False]], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.718417624907785*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.7184176436597137`*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

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.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.718417644477908*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "100"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 100],
  Editable->False]], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.718417644545412*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.431429`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.431429, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.718417653167821*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "95"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 95],
  Editable->False]], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.718417653184972*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "0.923896`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 0.923896, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.718417654604866*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.71841765462075*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.71841765590443*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.718417656652007*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "310", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 310, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.718417663921234*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.718417665855878*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.690611473330939*^9, 3.6906115655238314`*^9, 
  3.690663522274426*^9, 3.6906719707988577`*^9, 3.690784844082842*^9, 
  3.704425385690724*^9, 3.71841195619014*^9, 3.718413461912641*^9, 
  3.718417666641534*^9},
 ExpressionUUID -> "f49d1a9c-f2d8-422c-b27e-f5bb56039327"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Get", "[", "\"\<LS2HDM_TII.nlo\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LTypeII", ",", 
   RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",", 
   RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_TII_NLO\>\""}]}], "]"}]}], "Input",\

 CellChangeTimes->{{3.690784745518115*^9, 3.690784745826951*^9}, {
  3.690784846788848*^9, 3.690784849371801*^9}},
 ExpressionUUID -> "ce9179c8-e11d-4822-9dab-85e5bbd49de4"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.7184176697299337`*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

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.69078497244184*^9, 3.704425458992056*^9, 
  3.7184176701541233`*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.718417670171207*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.71841767018867*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.718417678768261*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.7184176788671093`*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.718417685493093*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "298"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 298],
  Editable->False]], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.71841769944278*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 2 ].\"\>"], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.718417719189562*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

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.69078497244184*^9, 3.704425458992056*^9, 
  3.718417719982874*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "100"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 100],
  Editable->False]], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.718417720001729*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.147862`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.147862, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.718417728006997*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "95"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 95],
  Editable->False]], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.718417728021736*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Decay", "::", "Overwrite"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: Previous results will be overwritten.\"\>"}]], \
"Message", "MSG",
 CellChangeTimes->{3.7184177295946493`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "1.061666`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 1.061666, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.718417729607341*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.718417729619669*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.7184177308692093`*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.718417731613657*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "310", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 310, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.7184177388612957`*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.718417740955698*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.69078497244184*^9, 3.704425458992056*^9, 
  3.718417741801766*^9},
 ExpressionUUID -> "dc652c4c-57b0-48bb-b914-44d2f285628b"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Get", "[", "\"\<LS2HDM_TX.nlo\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LTypeX", ",", 
   RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",", 
   RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_TX_NLO\>\""}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.690784750093809*^9, 3.69078475037914*^9}, {
  3.690784851371848*^9, 3.690784854180004*^9}},
 ExpressionUUID -> "04e1cc48-e410-4d54-b6a7-5ed443d15717"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417745012896*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

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.690785128032598*^9, 3.704425539789138*^9, 
  3.718417745442813*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417745460087*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417745475348*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.7184177537429533`*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417753853682*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417761282291*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "298"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 298],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417775547385*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 3 ].\"\>"], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417797021347*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

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.690785128032598*^9, 3.704425539789138*^9, 
  3.718417797838553*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "100"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 100],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417797855069*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.378522`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.378522, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.7184178060859003`*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "95"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 95],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417806101983*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Decay", "::", "Overwrite"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: Previous results will be overwritten.\"\>"}]], \
"Message", "MSG",
 CellChangeTimes->{3.718417807789653*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "1.203067`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 1.203067, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417807802353*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417807813395*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417809259603*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417810137478*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "310", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 310, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417818511793*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.718417820924773*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.690785128032598*^9, 3.704425539789138*^9, 
  3.7184178218624277`*^9},
 ExpressionUUID -> "72cf20dc-1799-4e7d-88d9-77fc78a5d6b7"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Get", "[", "\"\<LS2HDM_TY.nlo\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LTypeY", ",", 
   RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",", 
   RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_TY_NLO\>\""}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6907847572391663`*^9, 3.690784757587237*^9}, {
  3.690784856335011*^9, 3.690784859451477*^9}},
 ExpressionUUID -> "4567be0c-8c9b-4df3-8898-5e1e65eff543"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417825481751*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

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.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417825989695*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417826011552*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.71841782602794*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417835601684*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417835716078*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417843361154*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "298"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 298],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417858003594*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 4 ].\"\>"], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417879587386*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

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.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417880418284*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "100"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 100],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417880436674*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.15122`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.15122, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.7184178884560633`*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "95"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 95],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417888473028*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Decay", "::", "Overwrite"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: Previous results will be overwritten.\"\>"}]], \
"Message", "MSG",
 CellChangeTimes->{3.718417890009197*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "1.038285`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 1.038285, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.7184178900189*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417890029994*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417891295578*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.7184178920680923`*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "310", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 310, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417899553225*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417901716083*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.6907852801750507`*^9, 3.7044256224071712`*^9, 
  3.718417902563542*^9},
 ExpressionUUID -> "90018342-9dce-4d92-b177-77331bfe9f06"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Get", "[", "\"\<LS2HDM_Inert.nlo\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LInert", ",", 
   RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",", 
   RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_Inert_NLO\>\""}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.690784762549638*^9, 3.690784762834549*^9}, {
  3.690784861371799*^9, 3.690784867084941*^9}},
 ExpressionUUID -> "f935e293-328e-4bb4-bf50-c5ceab5bc859"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.718417905434292*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

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.690785429615563*^9, 3.704425697311018*^9, 
  3.71841790567113*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.718417905687028*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.718417905703515*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.718417913609461*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "209", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "209", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  209, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 209, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.7184179137173777`*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"204", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[204, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.7184179201510077`*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "245"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 245],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.7184179312513733`*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 5 ].\"\>"], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.718417948332114*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

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.690785429615563*^9, 3.704425697311018*^9, 
  3.71841794916737*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "73"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 73],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.718417949188916*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.001144`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.001144, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.7184179562455177`*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "70"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 70],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.7184179562663183`*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Decay", "::", "Overwrite"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: Previous results will be overwritten.\"\>"}]], \
"Message", "MSG",
 CellChangeTimes->{3.718417957434319*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "0.787239`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 0.787239, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.7184179576369877`*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.718417957713786*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.718417958704577*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.718417959387691*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "255", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 255, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.718417966056635*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.7184179677287903`*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.690785429615563*^9, 3.704425697311018*^9, 
  3.718417968381075*^9},
 ExpressionUUID -> "fe6a97de-774c-48d7-b46d-2152edc301c0"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Get", "[", "\"\<LS2HDM_Align.nlo\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LAlign", ",", 
   RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",", 
   RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_Align_NLO\>\""}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.6907847673633842`*^9, 3.690784767570381*^9}, {
  3.6907848690672293`*^9, 3.690784875259115*^9}},
 ExpressionUUID -> "5a388709-884d-4bd5-b423-b41f72abc2fc"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.7184179718956547`*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

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.690785551516667*^9, 3.7044257588683558`*^9, 
  3.718417972428684*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.7184179724489813`*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.7184179724689493`*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.718417981915676*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "232", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "232", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  232, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 232, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.7184179820259*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"227", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[227, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.7184179892126417`*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "298"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 298],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.718418003896242*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 6 ].\"\>"], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.71841802667*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

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.690785551516667*^9, 3.7044257588683558`*^9, 
  3.718418027550212*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "100"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 100],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.718418027568433*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.170565`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.170565, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.718418035664133*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "95"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 95],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.718418035680616*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Decay", "::", "Overwrite"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: Previous results will be overwritten.\"\>"}]], \
"Message", "MSG",
 CellChangeTimes->{3.718418037186455*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "1.006059`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 1.006059, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.718418037196795*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.7184180372056*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.7184180384000473`*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.718418039140362*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "310", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 310, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.7184180469715147`*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.718418049463769*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.690785551516667*^9, 3.7044257588683558`*^9, 
  3.718418050359387*^9},
 ExpressionUUID -> "437ff019-829c-4ea9-9f7d-8c7e3295796f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Get", "[", "\"\<LS2HDM_2gen.nlo\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteUFO", "[", 
  RowBox[{"L2gen", ",", 
   RowBox[{"UVCounterterms", "\[Rule]", "UV$vertlist"}], ",", 
   RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", 
   RowBox[{"Output", "\[Rule]", "\"\<S2HDM_2gen_NLO\>\""}]}], "]"}]}], "Input",\

 CellChangeTimes->{{3.690784877675949*^9, 3.6907848815146914`*^9}},
 ExpressionUUID -> "ccb9e5f6-fe63-4250-a904-bc0abd12d605"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.7184180538350487`*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

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.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418054307502*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418054325494*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 4, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418054330913*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418063238426*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "227", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
found -> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{22., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "227", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  227, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 227, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418063342536*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"222", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[222, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418070351904*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "298"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 4, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 298],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.7184180853198147`*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 7 ].\"\>"], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418108187015*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

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.690785678839384*^9, 3.7044258389114733`*^9, 
  3.7184181089666224`*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "113"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 113],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.7184181089799356`*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2.211206`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2.211206, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418117572217*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "106"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 106],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418117580448*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Decay", "::", "Overwrite"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Warning: Previous results will be overwritten.\"\>"}]], \
"Message", "MSG",
 CellChangeTimes->{3.7184181192873917`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "1.136862`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 1.136862, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418119298936*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418119306467*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418120467093*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 4, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.7184181213168*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "318", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 318, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418128997856*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418131369918*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.690785678839384*^9, 3.7044258389114733`*^9, 
  3.718418132191416*^9},
 ExpressionUUID -> "50d8fd90-302a-46a5-a620-e80d83541b06"]
}, Open  ]]
}, Closed]]
}, Closed]]
},
WindowSize->{1283, 727},
WindowMargins->{{Automatic, 76}, {42, Automatic}},
FrontEndVersion->"10.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 23, \
2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 374, 6, 28, "Input"],
Cell[934, 28, 820, 18, 46, "Input"],
Cell[CellGroupData[{
Cell[1779, 50, 151, 3, 65, "Chapter"],
Cell[1933, 55, 2302, 56, 201, "Input"],
Cell[CellGroupData[{
Cell[4260, 115, 229, 5, 32, "Input"],
Cell[CellGroupData[{
Cell[4514, 124, 648, 11, 24, "Print"],
Cell[5165, 137, 921, 18, 24, "Print"],
Cell[6089, 157, 700, 12, 24, "Print"],
Cell[6792, 171, 634, 11, 24, "Print"],
Cell[7429, 184, 645, 11, 24, "Print"],
Cell[8077, 197, 697, 12, 24, "Print"],
Cell[8777, 211, 697, 12, 24, "Print"],
Cell[9477, 225, 634, 11, 24, "Print"],
Cell[10114, 238, 664, 11, 24, "Print"],
Cell[10781, 251, 634, 11, 24, "Print"],
Cell[11418, 264, 701, 12, 24, "Print"]
}, Open  ]]
}, Open  ]],
Cell[12146, 280, 2006, 32, 32, "Input"],
Cell[14155, 314, 396, 8, 32, "Input"],
Cell[CellGroupData[{
Cell[14576, 326, 913, 14, 32, "Input"],
Cell[CellGroupData[{
Cell[15514, 344, 655, 11, 24, "Print"],
Cell[16172, 357, 673, 11, 24, "Print"],
Cell[16848, 370, 641, 11, 24, "Print"],
Cell[17492, 383, 779, 15, 24, "Print"],
Cell[18274, 400, 644, 11, 24, "Print"],
Cell[18921, 413, 667, 11, 24, "Print"],
Cell[19591, 426, 677, 11, 24, "Print"],
Cell[20271, 439, 681, 12, 24, "Print"],
Cell[20955, 453, 633, 11, 24, "Print"],
Cell[21591, 466, 663, 11, 24, "Print"],
Cell[22257, 479, 666, 11, 24, "Print"],
Cell[22926, 492, 664, 11, 24, "Print"],
Cell[23593, 505, 827, 16, 44, "Print"]
}, Open  ]]
}, Open  ]],
Cell[24447, 525, 1012, 23, 75, "Input"],
Cell[CellGroupData[{
Cell[25484, 552, 909, 13, 32, "Input"],
Cell[CellGroupData[{
Cell[26418, 569, 1126, 21, 24, "Print"],
Cell[27547, 592, 653, 11, 24, "Print"]
}, Open  ]]
}, Open  ]],
Cell[28227, 607, 129, 1, 32, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[28393, 613, 152, 3, 54, "Chapter"],
Cell[28548, 618, 207, 5, 28, "Input"],
Cell[CellGroupData[{
Cell[28780, 627, 930, 15, 28, "Input"],
Cell[CellGroupData[{
Cell[29735, 646, 672, 10, 22, "Print"],
Cell[30410, 658, 668, 10, 22, "Print"],
Cell[31081, 670, 865, 17, 22, "Print"],
Cell[31949, 689, 618, 9, 22, "Print"],
Cell[32570, 700, 799, 14, 22, "Print"],
Cell[33372, 716, 651, 10, 22, "Print"],
Cell[34026, 728, 609, 9, 21, "Print"],
Cell[34638, 739, 733, 13, 21, "Print"],
Cell[35374, 754, 619, 9, 22, "Print"]
}, Open  ]]
}, Open  ]],
Cell[36020, 767, 212, 5, 28, "Input"],
Cell[CellGroupData[{
Cell[36257, 776, 346, 7, 28, "Input"],
Cell[CellGroupData[{
Cell[36628, 787, 751, 14, 22, "Print"],
Cell[37382, 803, 525, 7, 22, "Print"]
}, Open  ]],
Cell[37922, 813, 494, 8, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38453, 826, 653, 12, 28, "Input"],
Cell[CellGroupData[{
Cell[39131, 842, 626, 12, 22, "Print"],
Cell[39760, 856, 406, 6, 22, "Print"],
Cell[40169, 864, 687, 14, 22, "Print"],
Cell[40859, 880, 687, 14, 22, "Print"],
Cell[41549, 896, 689, 14, 22, "Print"]
}, Open  ]]
}, Open  ]],
Cell[42265, 914, 211, 5, 28, "Input"],
Cell[CellGroupData[{
Cell[42501, 923, 423, 7, 28, "Input"],
Cell[CellGroupData[{
Cell[42949, 934, 626, 12, 22, "Print"],
Cell[43578, 948, 403, 6, 22, "Print"],
Cell[43984, 956, 399, 6, 22, "Print"],
Cell[44386, 964, 438, 7, 22, "Print"]
}, Open  ]],
Cell[44839, 974, 8989, 274, 629, "Output"]
}, Open  ]],
Cell[53843, 1251, 292, 7, 28, "Input"],
Cell[CellGroupData[{
Cell[54160, 1262, 155, 4, 28, "Input"],
Cell[54318, 1268, 474, 8, 28, "Output"]
}, Open  ]],
Cell[54807, 1279, 319, 7, 28, "Input"],
Cell[CellGroupData[{
Cell[55151, 1290, 362, 6, 28, "Input"],
Cell[55516, 1298, 444, 8, 28, "Output"]
}, Open  ]],
Cell[55975, 1309, 297, 7, 28, "Input"],
Cell[CellGroupData[{
Cell[56297, 1320, 366, 6, 28, "Input"],
Cell[56666, 1328, 473, 7, 28, "Output"]
}, Open  ]],
Cell[57154, 1338, 321, 7, 28, "Input"],
Cell[CellGroupData[{
Cell[57500, 1349, 95, 0, 28, "Input"],
Cell[57598, 1351, 129, 2, 28, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[57776, 1359, 151, 3, 54, "Chapter"],
Cell[57930, 1364, 2304, 56, 165, "Input"],
Cell[CellGroupData[{
Cell[60259, 1424, 228, 4, 28, "Input"],
Cell[CellGroupData[{
Cell[60512, 1432, 1267, 18, 22, "Print"],
Cell[61782, 1452, 1540, 25, 22, "Print"],
Cell[63325, 1479, 1319, 19, 22, "Print"],
Cell[64647, 1500, 1255, 18, 21, "Print"],
Cell[65905, 1520, 1264, 18, 21, "Print"],
Cell[67172, 1540, 1316, 19, 22, "Print"],
Cell[68491, 1561, 1316, 19, 22, "Print"],
Cell[69810, 1582, 1255, 18, 21, "Print"],
Cell[71068, 1602, 1282, 18, 22, "Print"],
Cell[72353, 1622, 1253, 18, 21, "Print"],
Cell[73609, 1642, 1322, 19, 22, "Print"]
}, Open  ]]
}, Open  ]],
Cell[74958, 1665, 2008, 32, 28, "Input"],
Cell[76969, 1699, 276, 5, 28, "Input"],
Cell[CellGroupData[{
Cell[77270, 1708, 985, 14, 28, "Input"],
Cell[CellGroupData[{
Cell[78280, 1726, 1270, 18, 22, "Print"],
Cell[79553, 1746, 1290, 18, 22, "Print"],
Cell[80846, 1766, 1256, 18, 21, "Print"],
Cell[82105, 1786, 1394, 22, 21, "Print"],
Cell[83502, 1810, 1259, 18, 21, "Print"],
Cell[84764, 1830, 1286, 18, 21, "Print"],
Cell[86053, 1850, 1292, 18, 22, "Print"],
Cell[87348, 1870, 1298, 19, 22, "Print"],
Cell[88649, 1891, 1250, 18, 21, "Print"],
Cell[89902, 1911, 1280, 18, 22, "Print"],
Cell[91185, 1931, 1281, 18, 22, "Print"],
Cell[92469, 1951, 1279, 18, 22, "Print"],
Cell[93751, 1971, 1442, 23, 37, "Print"]
}, Open  ]]
}, Open  ]],
Cell[95220, 1998, 908, 21, 63, "Input"],
Cell[CellGroupData[{
Cell[96153, 2023, 861, 12, 28, "Input"],
Cell[CellGroupData[{
Cell[97039, 2039, 1751, 28, 22, "Print"],
Cell[98793, 2069, 1276, 18, 21, "Print"]
}, Open  ]]
}, Open  ]],
Cell[100096, 2091, 133, 2, 28, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[100266, 2098, 263, 4, 54, "Chapter"],
Cell[CellGroupData[{
Cell[100554, 2106, 846, 16, 32, "Input"],
Cell[CellGroupData[{
Cell[101425, 2126, 711, 15, 24, "Print"],
Cell[102139, 2143, 466, 7, 24, "Print"],
Cell[102608, 2152, 648, 12, 24, "Print"],
Cell[103259, 2166, 499, 8, 24, "Print"],
Cell[103761, 2176, 981, 18, 24, "Print"],
Cell[104745, 2196, 583, 11, 24, "Print"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[105389, 2214, 217, 4, 54, "Chapter"],
Cell[CellGroupData[{
Cell[105631, 2222, 218, 5, 32, "Input"],
Cell[CellGroupData[{
Cell[105874, 2231, 886, 17, 24, "Print"],
Cell[106763, 2250, 696, 15, 24, "Print"],
Cell[107462, 2267, 647, 13, 24, "Print"],
Cell[108112, 2282, 650, 14, 24, "Print"]
}, Open  ]]
}, Open  ]],
Cell[108789, 2300, 1256, 31, 96, "Input"],
Cell[110048, 2333, 759, 17, 96, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[110844, 2355, 204, 4, 54, "Chapter"],
Cell[CellGroupData[{
Cell[111073, 2363, 2651, 51, 131, "Input"],
Cell[CellGroupData[{
Cell[113749, 2418, 424, 7, 22, "Print"],
Cell[114176, 2427, 647, 14, 22, "Print"],
Cell[114826, 2443, 399, 5, 22, "Print"],
Cell[115228, 2450, 584, 11, 22, "Print"],
Cell[115815, 2463, 432, 6, 22, "Print"],
Cell[116250, 2471, 922, 17, 22, "Print"],
Cell[117175, 2490, 521, 10, 21, "Print"],
Cell[117699, 2502, 875, 16, 22, "Print"],
Cell[118577, 2520, 416, 6, 21, "Print"],
Cell[118996, 2528, 683, 15, 22, "Print"],
Cell[119682, 2545, 637, 13, 22, "Print"],
Cell[120322, 2560, 615, 11, 22, "Print"],
Cell[120940, 2573, 637, 13, 22, "Print"]
}, Open  ]],
Cell[121592, 2589, 331, 7, 40, "Message"],
Cell[CellGroupData[{
Cell[121948, 2600, 599, 11, 22, "Print"],
Cell[122550, 2613, 399, 6, 22, "Print"],
Cell[122952, 2621, 423, 7, 22, "Print"],
Cell[123378, 2630, 614, 11, 22, "Print"],
Cell[123995, 2643, 775, 13, 22, "Print"],
Cell[124773, 2658, 395, 6, 22, "Print"],
Cell[125171, 2666, 380, 6, 21, "Print"],
Cell[125554, 2674, 426, 7, 22, "Print"],
Cell[125983, 2683, 647, 14, 22, "Print"],
Cell[126633, 2699, 402, 6, 22, "Print"],
Cell[127038, 2707, 584, 11, 22, "Print"],
Cell[127625, 2720, 435, 7, 22, "Print"],
Cell[128063, 2729, 920, 18, 24, "Print"],
Cell[128986, 2749, 521, 10, 24, "Print"],
Cell[129510, 2761, 873, 17, 24, "Print"],
Cell[130386, 2780, 416, 6, 24, "Print"],
Cell[130805, 2788, 683, 15, 24, "Print"],
Cell[131491, 2805, 637, 14, 24, "Print"],
Cell[132131, 2821, 617, 11, 24, "Print"],
Cell[132751, 2834, 637, 14, 24, "Print"]
}, Open  ]],
Cell[133403, 2851, 329, 7, 24, "Message"],
Cell[CellGroupData[{
Cell[133757, 2862, 601, 11, 24, "Print"],
Cell[134361, 2875, 399, 6, 24, "Print"],
Cell[134763, 2883, 423, 7, 24, "Print"],
Cell[135189, 2892, 616, 11, 24, "Print"],
Cell[135808, 2905, 770, 13, 24, "Print"],
Cell[136581, 2920, 395, 6, 24, "Print"],
Cell[136979, 2928, 380, 6, 24, "Print"],
Cell[137362, 2936, 420, 6, 24, "Print"],
Cell[137785, 2944, 647, 14, 24, "Print"],
Cell[138435, 2960, 399, 5, 24, "Print"],
Cell[138837, 2967, 586, 11, 24, "Print"],
Cell[139426, 2980, 435, 7, 24, "Print"],
Cell[139864, 2989, 917, 17, 24, "Print"],
Cell[140784, 3008, 519, 10, 24, "Print"],
Cell[141306, 3020, 875, 17, 24, "Print"],
Cell[142184, 3039, 418, 6, 24, "Print"],
Cell[142605, 3047, 680, 14, 24, "Print"],
Cell[143288, 3063, 639, 14, 24, "Print"],
Cell[143930, 3079, 615, 11, 24, "Print"],
Cell[144548, 3092, 634, 13, 24, "Print"]
}, Open  ]],
Cell[145197, 3108, 331, 7, 24, "Message"],
Cell[CellGroupData[{
Cell[145553, 3119, 601, 11, 24, "Print"],
Cell[146157, 3132, 399, 6, 24, "Print"],
Cell[146559, 3140, 423, 7, 24, "Print"],
Cell[146985, 3149, 614, 11, 24, "Print"],
Cell[147602, 3162, 773, 14, 24, "Print"],
Cell[148378, 3178, 395, 6, 24, "Print"],
Cell[148776, 3186, 380, 6, 24, "Print"],
Cell[149159, 3194, 424, 7, 24, "Print"],
Cell[149586, 3203, 647, 14, 24, "Print"],
Cell[150236, 3219, 402, 6, 24, "Print"],
Cell[150641, 3227, 584, 11, 24, "Print"],
Cell[151228, 3240, 437, 7, 24, "Print"],
Cell[151668, 3249, 922, 18, 24, "Print"],
Cell[152593, 3269, 519, 10, 24, "Print"],
Cell[153115, 3281, 869, 16, 24, "Print"],
Cell[153987, 3299, 416, 6, 24, "Print"],
Cell[154406, 3307, 683, 15, 24, "Print"],
Cell[155092, 3324, 637, 14, 24, "Print"],
Cell[155732, 3340, 615, 11, 24, "Print"],
Cell[156350, 3353, 637, 14, 24, "Print"]
}, Open  ]],
Cell[157002, 3370, 329, 7, 24, "Message"],
Cell[CellGroupData[{
Cell[157356, 3381, 603, 11, 24, "Print"],
Cell[157962, 3394, 396, 5, 24, "Print"],
Cell[158361, 3401, 423, 7, 24, "Print"],
Cell[158787, 3410, 614, 11, 24, "Print"],
Cell[159404, 3423, 775, 14, 24, "Print"],
Cell[160182, 3439, 392, 5, 24, "Print"],
Cell[160577, 3446, 382, 6, 24, "Print"],
Cell[160962, 3454, 424, 7, 24, "Print"],
Cell[161389, 3463, 647, 14, 24, "Print"],
Cell[162039, 3479, 404, 6, 24, "Print"],
Cell[162446, 3487, 584, 11, 24, "Print"],
Cell[163033, 3500, 437, 7, 24, "Print"],
Cell[163473, 3509, 920, 18, 24, "Print"],
Cell[164396, 3529, 519, 10, 24, "Print"],
Cell[164918, 3541, 873, 17, 24, "Print"],
Cell[165794, 3560, 413, 5, 24, "Print"],
Cell[166210, 3567, 680, 14, 24, "Print"],
Cell[166893, 3583, 637, 14, 24, "Print"],
Cell[167533, 3599, 617, 11, 24, "Print"],
Cell[168153, 3612, 639, 14, 24, "Print"]
}, Open  ]],
Cell[168807, 3629, 329, 7, 24, "Message"],
Cell[CellGroupData[{
Cell[169161, 3640, 598, 10, 24, "Print"],
Cell[169762, 3652, 401, 6, 24, "Print"],
Cell[170166, 3660, 425, 7, 24, "Print"],
Cell[170594, 3669, 614, 11, 24, "Print"],
Cell[171211, 3682, 775, 14, 24, "Print"],
Cell[171989, 3698, 395, 6, 24, "Print"],
Cell[172387, 3706, 380, 6, 24, "Print"],
Cell[172770, 3714, 424, 7, 24, "Print"],
Cell[173197, 3723, 647, 14, 24, "Print"],
Cell[173847, 3739, 402, 6, 24, "Print"],
Cell[174252, 3747, 584, 11, 24, "Print"],
Cell[174839, 3760, 435, 7, 24, "Print"],
Cell[175277, 3769, 922, 18, 24, "Print"],
Cell[176202, 3789, 519, 10, 24, "Print"],
Cell[176724, 3801, 873, 17, 24, "Print"],
Cell[177600, 3820, 416, 6, 24, "Print"],
Cell[178019, 3828, 683, 15, 22, "Print"],
Cell[178705, 3845, 639, 13, 22, "Print"],
Cell[179347, 3860, 615, 11, 22, "Print"],
Cell[179965, 3873, 637, 13, 22, "Print"]
}, Open  ]],
Cell[180617, 3889, 331, 7, 40, "Message"],
Cell[CellGroupData[{
Cell[180973, 3900, 601, 11, 22, "Print"],
Cell[181577, 3913, 399, 6, 22, "Print"],
Cell[181979, 3921, 423, 7, 22, "Print"],
Cell[182405, 3930, 616, 11, 22, "Print"],
Cell[183024, 3943, 773, 13, 22, "Print"],
Cell[183800, 3958, 392, 5, 22, "Print"],
Cell[184195, 3965, 380, 6, 21, "Print"],
Cell[184578, 3973, 424, 7, 22, "Print"],
Cell[185005, 3982, 649, 14, 22, "Print"],
Cell[185657, 3998, 402, 6, 22, "Print"],
Cell[186062, 4006, 584, 11, 22, "Print"],
Cell[186649, 4019, 435, 7, 22, "Print"],
Cell[187087, 4028, 920, 17, 22, "Print"],
Cell[188010, 4047, 519, 10, 21, "Print"],
Cell[188532, 4059, 873, 16, 22, "Print"],
Cell[189408, 4077, 416, 6, 21, "Print"],
Cell[189827, 4085, 683, 15, 22, "Print"],
Cell[190513, 4102, 639, 13, 22, "Print"],
Cell[191155, 4117, 617, 11, 22, "Print"],
Cell[191775, 4130, 639, 13, 22, "Print"]
}, Open  ]],
Cell[192429, 4146, 329, 7, 40, "Message"],
Cell[CellGroupData[{
Cell[192783, 4157, 603, 11, 22, "Print"],
Cell[193389, 4170, 401, 6, 22, "Print"],
Cell[193793, 4178, 423, 7, 22, "Print"],
Cell[194219, 4187, 614, 11, 22, "Print"],
Cell[194836, 4200, 773, 13, 22, "Print"],
Cell[195612, 4215, 395, 6, 22, "Print"],
Cell[196010, 4223, 382, 6, 21, "Print"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[196453, 4236, 250, 4, 54, "Chapter"],
Cell[CellGroupData[{
Cell[196728, 4244, 1771, 27, 46, "Input"],
Cell[CellGroupData[{
Cell[198524, 4275, 391, 6, 22, "Print"],
Cell[198918, 4283, 394, 7, 22, "Print"],
Cell[199315, 4292, 394, 7, 21, "Print"],
Cell[199712, 4301, 342, 6, 21, "Print"],
Cell[200057, 4309, 456, 7, 22, "Print"],
Cell[200516, 4318, 378, 6, 21, "Print"],
Cell[200897, 4326, 358, 6, 22, "Print"],
Cell[201258, 4334, 394, 7, 22, "Print"],
Cell[201655, 4343, 395, 7, 22, "Print"],
Cell[202053, 4352, 386, 6, 21, "Print"],
Cell[202442, 4360, 345, 6, 21, "Print"],
Cell[202790, 4368, 370, 6, 22, "Print"],
Cell[203163, 4376, 614, 14, 22, "Print"],
Cell[203780, 4392, 366, 5, 22, "Print"],
Cell[204149, 4399, 551, 11, 22, "Print"],
Cell[204703, 4412, 402, 7, 22, "Print"],
Cell[205108, 4421, 887, 17, 22, "Print"],
Cell[205998, 4440, 486, 10, 21, "Print"],
Cell[206487, 4452, 362, 6, 22, "Print"],
Cell[206852, 4460, 840, 16, 22, "Print"],
Cell[207695, 4478, 347, 6, 21, "Print"],
Cell[208045, 4486, 745, 16, 38, "Print"],
Cell[208793, 4504, 509, 8, 22, "Print"],
Cell[209305, 4514, 498, 8, 22, "Print"],
Cell[209806, 4524, 376, 6, 22, "Print"],
Cell[210185, 4532, 376, 6, 22, "Print"],
Cell[210564, 4540, 376, 6, 22, "Print"],
Cell[210943, 4548, 376, 6, 22, "Print"],
Cell[211322, 4556, 376, 6, 22, "Print"],
Cell[211701, 4564, 378, 6, 22, "Print"],
Cell[212082, 4572, 376, 6, 24, "Print"],
Cell[212461, 4580, 378, 6, 24, "Print"],
Cell[212842, 4588, 376, 6, 24, "Print"],
Cell[213221, 4596, 377, 6, 24, "Print"],
Cell[213601, 4604, 377, 6, 22, "Print"],
Cell[213981, 4612, 377, 6, 22, "Print"],
Cell[214361, 4620, 379, 6, 22, "Print"],
Cell[214743, 4628, 377, 6, 22, "Print"],
Cell[215123, 4636, 377, 6, 22, "Print"],
Cell[215503, 4644, 377, 6, 22, "Print"],
Cell[215883, 4652, 377, 6, 22, "Print"],
Cell[216263, 4660, 374, 5, 22, "Print"],
Cell[216640, 4667, 379, 6, 22, "Print"],
Cell[217022, 4675, 379, 6, 22, "Print"],
Cell[217404, 4683, 377, 6, 22, "Print"],
Cell[217784, 4691, 379, 6, 22, "Print"],
Cell[218166, 4699, 377, 6, 22, "Print"],
Cell[218546, 4707, 374, 5, 22, "Print"],
Cell[218923, 4714, 377, 6, 22, "Print"],
Cell[219303, 4722, 377, 6, 22, "Print"],
Cell[219683, 4730, 377, 6, 22, "Print"],
Cell[220063, 4738, 379, 6, 22, "Print"],
Cell[220445, 4746, 468, 8, 22, "Print"],
Cell[220916, 4756, 502, 7, 22, "Print"],
Cell[221421, 4765, 502, 8, 22, "Print"],
Cell[221926, 4775, 373, 6, 22, "Print"],
Cell[222302, 4783, 505, 9, 22, "Print"],
Cell[222810, 4794, 503, 9, 22, "Print"],
Cell[223316, 4805, 504, 9, 22, "Print"],
Cell[223823, 4816, 498, 9, 22, "Print"],
Cell[224324, 4827, 366, 6, 22, "Print"],
Cell[224693, 4835, 363, 6, 22, "Print"],
Cell[225059, 4843, 364, 6, 22, "Print"],
Cell[225426, 4851, 365, 6, 22, "Print"],
Cell[225794, 4859, 371, 6, 22, "Print"],
Cell[226168, 4867, 375, 6, 22, "Print"],
Cell[226546, 4875, 361, 6, 22, "Print"],
Cell[226910, 4883, 347, 6, 21, "Print"],
Cell[227260, 4891, 670, 10, 38, "Print"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[227991, 4908, 304, 5, 54, "Chapter"],
Cell[CellGroupData[{
Cell[228320, 4917, 3532, 71, 267, "Input"],
Cell[CellGroupData[{
Cell[231877, 4992, 465, 7, 22, "Print"],
Cell[232345, 5001, 906, 21, 21, "Print"],
Cell[233254, 5024, 898, 21, 21, "Print"],
Cell[234155, 5047, 1036, 26, 38, "Print"],
Cell[235194, 5075, 872, 21, 38, "Print"],
Cell[236069, 5098, 884, 21, 38, "Print"],
Cell[236956, 5121, 884, 21, 38, "Print"],
Cell[237843, 5144, 881, 20, 38, "Print"],
Cell[238727, 5166, 420, 7, 21, "Print"],
Cell[239150, 5175, 692, 15, 22, "Print"],
Cell[239845, 5192, 447, 7, 22, "Print"],
Cell[240295, 5201, 629, 12, 22, "Print"],
Cell[240927, 5215, 671, 13, 22, "Print"],
Cell[241601, 5230, 477, 7, 22, "Print"],
Cell[242081, 5239, 967, 18, 22, "Print"],
Cell[243051, 5259, 564, 11, 21, "Print"],
Cell[243618, 5272, 920, 17, 22, "Print"],
Cell[244541, 5291, 1077, 25, 63, "Print"],
Cell[245621, 5318, 872, 21, 44, "Print"],
Cell[246496, 5341, 883, 21, 24, "Print"],
Cell[247382, 5364, 828, 21, 44, "Print"],
Cell[248213, 5387, 465, 7, 24, "Print"],
Cell[248681, 5396, 908, 21, 24, "Print"],
Cell[249592, 5419, 900, 21, 24, "Print"],
Cell[250495, 5442, 1036, 26, 44, "Print"],
Cell[251534, 5470, 872, 21, 44, "Print"],
Cell[252409, 5493, 884, 21, 44, "Print"],
Cell[253296, 5516, 884, 21, 44, "Print"],
Cell[254183, 5539, 884, 21, 44, "Print"],
Cell[255070, 5562, 420, 7, 24, "Print"],
Cell[255493, 5571, 694, 15, 24, "Print"],
Cell[256190, 5588, 447, 7, 24, "Print"],
Cell[256640, 5597, 626, 11, 24, "Print"],
Cell[257269, 5610, 480, 8, 24, "Print"],
Cell[257752, 5620, 965, 19, 24, "Print"],
Cell[258720, 5641, 564, 11, 24, "Print"],
Cell[259287, 5654, 920, 18, 24, "Print"],
Cell[260210, 5674, 1074, 24, 63, "Print"],
Cell[261287, 5700, 870, 21, 44, "Print"],
Cell[262160, 5723, 883, 21, 24, "Print"],
Cell[263046, 5746, 828, 21, 44, "Print"],
Cell[263877, 5769, 467, 7, 24, "Print"],
Cell[264347, 5778, 906, 21, 24, "Print"],
Cell[265256, 5801, 898, 21, 24, "Print"],
Cell[266157, 5824, 1038, 26, 44, "Print"],
Cell[267198, 5852, 870, 21, 44, "Print"],
Cell[268071, 5875, 886, 21, 44, "Print"],
Cell[268960, 5898, 886, 21, 44, "Print"],
Cell[269849, 5921, 884, 21, 44, "Print"],
Cell[270736, 5944, 420, 7, 24, "Print"],
Cell[271159, 5953, 692, 15, 24, "Print"],
Cell[271854, 5970, 447, 7, 24, "Print"],
Cell[272304, 5979, 629, 12, 24, "Print"],
Cell[272936, 5993, 480, 8, 24, "Print"],
Cell[273419, 6003, 965, 19, 24, "Print"],
Cell[274387, 6024, 561, 10, 24, "Print"],
Cell[274951, 6036, 920, 18, 24, "Print"],
Cell[275874, 6056, 1077, 25, 63, "Print"],
Cell[276954, 6083, 867, 20, 44, "Print"],
Cell[277824, 6105, 885, 21, 24, "Print"],
Cell[278712, 6128, 828, 21, 44, "Print"],
Cell[279543, 6151, 465, 7, 24, "Print"],
Cell[280011, 6160, 908, 21, 24, "Print"],
Cell[280922, 6183, 898, 21, 24, "Print"],
Cell[281823, 6206, 1036, 26, 44, "Print"],
Cell[282862, 6234, 865, 20, 44, "Print"],
Cell[283730, 6256, 881, 20, 44, "Print"],
Cell[284614, 6278, 884, 21, 44, "Print"],
Cell[285501, 6301, 881, 20, 44, "Print"],
Cell[286385, 6323, 420, 7, 24, "Print"],
Cell[286808, 6332, 692, 15, 24, "Print"],
Cell[287503, 6349, 444, 6, 24, "Print"],
Cell[287950, 6357, 631, 12, 24, "Print"],
Cell[288584, 6371, 480, 8, 24, "Print"],
Cell[289067, 6381, 965, 19, 24, "Print"],
Cell[290035, 6402, 564, 11, 24, "Print"],
Cell[290602, 6415, 918, 18, 24, "Print"],
Cell[291523, 6435, 1079, 25, 63, "Print"],
Cell[292605, 6462, 870, 21, 44, "Print"],
Cell[293478, 6485, 883, 21, 24, "Print"],
Cell[294364, 6508, 830, 21, 44, "Print"],
Cell[295197, 6531, 465, 7, 24, "Print"],
Cell[295665, 6540, 906, 21, 24, "Print"],
Cell[296574, 6563, 898, 21, 24, "Print"],
Cell[297475, 6586, 1038, 26, 44, "Print"],
Cell[298516, 6614, 872, 21, 44, "Print"],
Cell[299391, 6637, 884, 21, 44, "Print"],
Cell[300278, 6660, 886, 21, 44, "Print"],
Cell[301167, 6683, 884, 21, 44, "Print"],
Cell[302054, 6706, 420, 7, 24, "Print"],
Cell[302477, 6715, 692, 15, 24, "Print"],
Cell[303172, 6732, 447, 7, 24, "Print"],
Cell[303622, 6741, 629, 12, 24, "Print"],
Cell[304254, 6755, 480, 8, 24, "Print"],
Cell[304737, 6765, 965, 19, 24, "Print"],
Cell[305705, 6786, 564, 11, 24, "Print"],
Cell[306272, 6799, 920, 18, 24, "Print"],
Cell[307195, 6819, 1079, 25, 63, "Print"],
Cell[308277, 6846, 870, 21, 44, "Print"],
Cell[309150, 6869, 885, 21, 24, "Print"],
Cell[310038, 6892, 830, 21, 44, "Print"],
Cell[310871, 6915, 462, 6, 24, "Print"],
Cell[311336, 6923, 906, 21, 24, "Print"],
Cell[312245, 6946, 900, 21, 24, "Print"],
Cell[313148, 6969, 1036, 26, 44, "Print"],
Cell[314187, 6997, 870, 21, 44, "Print"],
Cell[315060, 7020, 884, 21, 44, "Print"],
Cell[315947, 7043, 886, 21, 44, "Print"],
Cell[316836, 7066, 886, 21, 44, "Print"],
Cell[317725, 7089, 422, 7, 24, "Print"],
Cell[318150, 7098, 692, 15, 24, "Print"],
Cell[318845, 7115, 447, 7, 24, "Print"],
Cell[319295, 7124, 629, 12, 24, "Print"],
Cell[319927, 7138, 480, 8, 24, "Print"],
Cell[320410, 7148, 962, 18, 24, "Print"],
Cell[321375, 7168, 561, 10, 21, "Print"],
Cell[321939, 7180, 918, 17, 22, "Print"],
Cell[322860, 7199, 1077, 25, 54, "Print"],
Cell[323940, 7226, 872, 21, 38, "Print"],
Cell[324815, 7249, 885, 21, 22, "Print"],
Cell[325703, 7272, 828, 21, 37, "Print"],
Cell[326534, 7295, 465, 7, 22, "Print"],
Cell[327002, 7304, 903, 20, 21, "Print"],
Cell[327908, 7326, 898, 21, 21, "Print"],
Cell[328809, 7349, 1038, 26, 38, "Print"],
Cell[329850, 7377, 872, 21, 38, "Print"],
Cell[330725, 7400, 886, 21, 38, "Print"],
Cell[331614, 7423, 884, 21, 38, "Print"],
Cell[332501, 7446, 886, 21, 38, "Print"],
Cell[333390, 7469, 420, 7, 21, "Print"],
Cell[333813, 7478, 692, 15, 22, "Print"],
Cell[334508, 7495, 447, 7, 22, "Print"],
Cell[334958, 7504, 626, 11, 22, "Print"],
Cell[335587, 7517, 477, 7, 22, "Print"],
Cell[336067, 7526, 967, 18, 22, "Print"],
Cell[337037, 7546, 564, 11, 21, "Print"],
Cell[337604, 7559, 918, 17, 22, "Print"],
Cell[338525, 7578, 1079, 25, 54, "Print"],
Cell[339607, 7605, 870, 21, 38, "Print"],
Cell[340480, 7628, 883, 21, 22, "Print"],
Cell[341366, 7651, 828, 21, 37, "Print"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[342255, 7679, 282, 5, 54, "Chapter"],
Cell[342540, 7686, 889, 21, 46, "Input"],
Cell[CellGroupData[{
Cell[343454, 7711, 698, 15, 46, "Input"],
Cell[CellGroupData[{
Cell[344177, 7730, 310, 5, 22, "Print"],
Cell[344490, 7737, 503, 10, 22, "Print"],
Cell[344996, 7749, 276, 4, 22, "Print"],
Cell[345275, 7755, 293, 4, 22, "Print"],
Cell[345571, 7761, 280, 4, 22, "Print"],
Cell[345854, 7767, 276, 4, 22, "Print"],
Cell[346133, 7773, 297, 4, 22, "Print"],
Cell[346433, 7779, 286, 4, 22, "Print"],
Cell[346722, 7785, 280, 4, 22, "Print"],
Cell[347005, 7791, 271, 4, 22, "Print"],
Cell[347279, 7797, 267, 4, 21, "Print"],
Cell[347549, 7803, 296, 4, 22, "Print"],
Cell[347848, 7809, 285, 4, 22, "Print"],
Cell[348136, 7815, 285, 4, 21, "Print"],
Cell[348424, 7821, 430, 9, 22, "Print"],
Cell[348857, 7832, 338, 5, 22, "Print"],
Cell[349198, 7839, 318, 5, 22, "Print"],
Cell[349519, 7846, 320, 5, 22, "Print"],
Cell[349842, 7853, 430, 9, 22, "Print"],
Cell[350275, 7864, 532, 12, 22, "Print"],
Cell[350810, 7878, 279, 4, 22, "Print"],
Cell[351092, 7884, 459, 9, 22, "Print"],
Cell[351554, 7895, 312, 5, 22, "Print"],
Cell[351869, 7902, 797, 16, 22, "Print"],
Cell[352669, 7920, 398, 8, 21, "Print"],
Cell[353070, 7930, 470, 9, 22, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[353589, 7945, 698, 15, 40, "Input"],
Cell[CellGroupData[{
Cell[354312, 7964, 309, 5, 22, "Print"],
Cell[354624, 7971, 279, 4, 22, "Print"],
Cell[354906, 7977, 296, 4, 22, "Print"],
Cell[355205, 7983, 281, 4, 22, "Print"],
Cell[355489, 7989, 277, 4, 22, "Print"],
Cell[355769, 7995, 298, 4, 22, "Print"],
Cell[356070, 8001, 287, 4, 22, "Print"],
Cell[356360, 8007, 283, 4, 22, "Print"],
Cell[356646, 8013, 274, 4, 22, "Print"],
Cell[356923, 8019, 268, 4, 21, "Print"],
Cell[357194, 8025, 297, 4, 22, "Print"],
Cell[357494, 8031, 284, 4, 22, "Print"],
Cell[357781, 8037, 288, 4, 21, "Print"],
Cell[358072, 8043, 431, 9, 22, "Print"],
Cell[358506, 8054, 339, 5, 22, "Print"],
Cell[358848, 8061, 319, 5, 22, "Print"],
Cell[359170, 8068, 321, 5, 22, "Print"],
Cell[359494, 8075, 431, 9, 22, "Print"],
Cell[359928, 8086, 535, 12, 22, "Print"],
Cell[360466, 8100, 280, 4, 22, "Print"],
Cell[360749, 8106, 464, 9, 22, "Print"],
Cell[361216, 8117, 313, 5, 22, "Print"],
Cell[361532, 8124, 798, 16, 22, "Print"],
Cell[362333, 8142, 397, 8, 21, "Print"],
Cell[362733, 8152, 473, 9, 22, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[363255, 8167, 698, 15, 40, "Input"],
Cell[CellGroupData[{
Cell[363978, 8186, 309, 5, 22, "Print"],
Cell[364290, 8193, 277, 4, 22, "Print"],
Cell[364570, 8199, 296, 4, 22, "Print"],
Cell[364869, 8205, 281, 4, 22, "Print"],
Cell[365153, 8211, 277, 4, 22, "Print"],
Cell[365433, 8217, 298, 4, 22, "Print"],
Cell[365734, 8223, 287, 4, 22, "Print"],
Cell[366024, 8229, 281, 4, 22, "Print"],
Cell[366308, 8235, 274, 4, 22, "Print"],
Cell[366585, 8241, 270, 4, 21, "Print"],
Cell[366858, 8247, 297, 4, 22, "Print"],
Cell[367158, 8253, 284, 4, 22, "Print"],
Cell[367445, 8259, 285, 4, 21, "Print"],
Cell[367733, 8265, 430, 9, 22, "Print"],
Cell[368166, 8276, 338, 5, 22, "Print"],
Cell[368507, 8283, 319, 5, 22, "Print"],
Cell[368829, 8290, 318, 5, 22, "Print"],
Cell[369150, 8297, 431, 9, 22, "Print"],
Cell[369584, 8308, 533, 12, 22, "Print"],
Cell[370120, 8322, 280, 4, 22, "Print"],
Cell[370403, 8328, 464, 9, 22, "Print"],
Cell[370870, 8339, 313, 5, 22, "Print"],
Cell[371186, 8346, 799, 16, 22, "Print"],
Cell[371988, 8364, 399, 8, 21, "Print"],
Cell[372390, 8374, 471, 9, 22, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[372910, 8389, 698, 15, 40, "Input"],
Cell[CellGroupData[{
Cell[373633, 8408, 311, 5, 22, "Print"],
Cell[373947, 8415, 278, 4, 22, "Print"],
Cell[374228, 8421, 296, 4, 22, "Print"],
Cell[374527, 8427, 283, 4, 22, "Print"],
Cell[374813, 8433, 281, 4, 22, "Print"],
Cell[375097, 8439, 298, 4, 22, "Print"],
Cell[375398, 8445, 289, 4, 22, "Print"],
Cell[375690, 8451, 283, 4, 22, "Print"],
Cell[375976, 8457, 274, 4, 22, "Print"],
Cell[376253, 8463, 272, 4, 21, "Print"],
Cell[376528, 8469, 301, 4, 22, "Print"],
Cell[376832, 8475, 286, 4, 22, "Print"],
Cell[377121, 8481, 287, 4, 21, "Print"],
Cell[377411, 8487, 435, 9, 22, "Print"],
Cell[377849, 8498, 340, 5, 22, "Print"],
Cell[378192, 8505, 321, 5, 22, "Print"],
Cell[378516, 8512, 323, 5, 22, "Print"],
Cell[378842, 8519, 433, 9, 22, "Print"],
Cell[379278, 8530, 535, 12, 22, "Print"],
Cell[379816, 8544, 282, 4, 22, "Print"],
Cell[380101, 8550, 464, 9, 22, "Print"],
Cell[380568, 8561, 314, 5, 22, "Print"],
Cell[380885, 8568, 801, 16, 22, "Print"],
Cell[381689, 8586, 399, 8, 21, "Print"],
Cell[382091, 8596, 475, 9, 22, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[382615, 8611, 698, 15, 40, "Input"],
Cell[CellGroupData[{
Cell[383338, 8630, 328, 5, 22, "Print"],
Cell[383669, 8637, 523, 10, 22, "Print"],
Cell[384195, 8649, 296, 4, 22, "Print"],
Cell[384494, 8655, 315, 4, 22, "Print"],
Cell[384812, 8661, 300, 4, 22, "Print"],
Cell[385115, 8667, 296, 4, 22, "Print"],
Cell[385414, 8673, 317, 4, 22, "Print"],
Cell[385734, 8679, 306, 4, 22, "Print"],
Cell[386043, 8685, 300, 4, 22, "Print"],
Cell[386346, 8691, 293, 4, 22, "Print"],
Cell[386642, 8697, 289, 4, 21, "Print"],
Cell[386934, 8703, 316, 4, 22, "Print"],
Cell[387253, 8709, 303, 4, 22, "Print"],
Cell[387559, 8715, 305, 4, 21, "Print"],
Cell[387867, 8721, 450, 9, 22, "Print"],
Cell[388320, 8732, 358, 5, 22, "Print"],
Cell[388681, 8739, 338, 5, 22, "Print"],
Cell[389022, 8746, 340, 5, 22, "Print"],
Cell[389365, 8753, 450, 9, 22, "Print"],
Cell[389818, 8764, 552, 12, 22, "Print"],
Cell[390373, 8778, 301, 4, 22, "Print"],
Cell[390677, 8784, 481, 9, 22, "Print"],
Cell[391161, 8795, 332, 5, 22, "Print"],
Cell[391496, 8802, 818, 16, 22, "Print"],
Cell[392317, 8820, 418, 8, 21, "Print"],
Cell[392738, 8830, 501, 10, 22, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[393288, 8846, 699, 15, 40, "Input"],
Cell[CellGroupData[{
Cell[394012, 8865, 288, 4, 22, "Print"],
Cell[394303, 8871, 254, 3, 22, "Print"],
Cell[394560, 8876, 271, 3, 22, "Print"],
Cell[394834, 8881, 258, 3, 22, "Print"],
Cell[395095, 8886, 256, 3, 22, "Print"],
Cell[395354, 8891, 275, 3, 22, "Print"],
Cell[395632, 8896, 266, 3, 22, "Print"],
Cell[395901, 8901, 258, 3, 22, "Print"],
Cell[396162, 8906, 251, 3, 22, "Print"],
Cell[396416, 8911, 247, 3, 21, "Print"],
Cell[396666, 8916, 273, 3, 22, "Print"],
Cell[396942, 8921, 263, 3, 22, "Print"],
Cell[397208, 8926, 265, 3, 21, "Print"],
Cell[397476, 8931, 410, 8, 22, "Print"],
Cell[397889, 8941, 318, 4, 22, "Print"],
Cell[398210, 8947, 298, 4, 22, "Print"],
Cell[398511, 8953, 298, 4, 22, "Print"],
Cell[398812, 8959, 408, 8, 22, "Print"],
Cell[399223, 8969, 510, 11, 22, "Print"],
Cell[399736, 8982, 257, 3, 22, "Print"],
Cell[399996, 8987, 439, 8, 22, "Print"],
Cell[400438, 8997, 292, 4, 22, "Print"],
Cell[400733, 9003, 775, 15, 22, "Print"],
Cell[401511, 9020, 376, 7, 21, "Print"],
Cell[401890, 9029, 459, 9, 22, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[402398, 9044, 699, 15, 40, "Input"],
Cell[CellGroupData[{
Cell[403122, 9063, 286, 4, 22, "Print"],
Cell[403411, 9069, 254, 3, 22, "Print"],
Cell[403668, 9074, 271, 3, 22, "Print"],
Cell[403942, 9079, 258, 3, 22, "Print"],
Cell[404203, 9084, 254, 3, 22, "Print"],
Cell[404460, 9089, 273, 3, 22, "Print"],
Cell[404736, 9094, 266, 3, 22, "Print"],
Cell[405005, 9099, 258, 3, 22, "Print"],
Cell[405266, 9104, 249, 3, 22, "Print"],
Cell[405518, 9109, 245, 3, 21, "Print"],
Cell[405766, 9114, 274, 3, 22, "Print"],
Cell[406043, 9119, 261, 3, 22, "Print"],
Cell[406307, 9124, 263, 3, 21, "Print"],
Cell[406573, 9129, 408, 8, 22, "Print"],
Cell[406984, 9139, 316, 4, 22, "Print"],
Cell[407303, 9145, 296, 4, 22, "Print"],
Cell[407602, 9151, 300, 4, 22, "Print"],
Cell[407905, 9157, 410, 8, 22, "Print"],
Cell[408318, 9167, 509, 11, 22, "Print"],
Cell[408830, 9180, 257, 3, 22, "Print"],
Cell[409090, 9185, 439, 8, 22, "Print"],
Cell[409532, 9195, 292, 4, 22, "Print"],
Cell[409827, 9201, 776, 15, 22, "Print"],
Cell[410606, 9218, 376, 7, 21, "Print"],
Cell[410985, 9227, 452, 8, 22, "Print"]
}, Open  ]]
}, Closed]],
Cell[411464, 9239, 111, 2, 22, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[411612, 9246, 150, 3, 54, "Chapter"],
Cell[411765, 9251, 1658, 44, 148, "Input"],
Cell[CellGroupData[{
Cell[413448, 9299, 117, 2, 28, "Input"],
Cell[CellGroupData[{
Cell[413590, 9305, 352, 5, 21, "Print"],
Cell[413945, 9312, 378, 5, 22, "Print"],
Cell[414326, 9319, 397, 5, 22, "Print"]
}, Open  ]]
}, Open  ]],
Cell[414750, 9328, 841, 19, 46, "Input"],
Cell[CellGroupData[{
Cell[415616, 9351, 114, 2, 28, "Input"],
Cell[CellGroupData[{
Cell[415755, 9357, 359, 5, 21, "Print"],
Cell[416117, 9364, 363, 5, 21, "Print"],
Cell[416483, 9371, 368, 5, 22, "Print"],
Cell[416854, 9378, 413, 6, 22, "Print"]
}, Open  ]]
}, Open  ]],
Cell[417294, 9388, 1329, 23, 28, "Input"],
Cell[CellGroupData[{
Cell[418648, 9415, 1529, 35, 46, "Input"],
Cell[CellGroupData[{
Cell[420202, 9454, 340, 8, 22, "Print"],
Cell[420545, 9464, 100, 1, 21, "Print"],
Cell[420648, 9467, 546, 13, 22, "Print"],
Cell[421197, 9482, 121, 1, 22, "Print"],
Cell[421321, 9485, 341, 7, 22, "Print"],
Cell[421665, 9494, 100, 1, 21, "Print"],
Cell[421768, 9497, 568, 13, 22, "Print"],
Cell[422339, 9512, 410, 8, 22, "Print"],
Cell[422752, 9522, 119, 1, 21, "Print"],
Cell[422874, 9525, 267, 6, 21, "Print"],
Cell[423144, 9533, 297, 6, 21, "Print"],
Cell[423444, 9541, 365, 7, 21, "Print"],
Cell[423812, 9550, 100, 1, 21, "Print"],
Cell[423915, 9553, 333, 7, 22, "Print"],
Cell[424251, 9562, 364, 7, 22, "Print"],
Cell[424618, 9571, 296, 6, 21, "Print"],
Cell[424917, 9579, 98, 1, 21, "Print"],
Cell[425018, 9582, 354, 8, 22, "Print"],
Cell[425375, 9592, 294, 6, 22, "Print"],
Cell[425672, 9600, 141, 1, 22, "Print"],
Cell[425816, 9603, 170, 2, 22, "Print"],
Cell[425989, 9607, 100, 1, 21, "Print"],
Cell[426092, 9610, 331, 7, 22, "Print"],
Cell[426426, 9619, 362, 7, 22, "Print"],
Cell[426791, 9628, 294, 6, 21, "Print"],
Cell[427088, 9636, 98, 1, 21, "Print"],
Cell[427189, 9639, 354, 8, 22, "Print"],
Cell[427546, 9649, 296, 6, 22, "Print"],
Cell[427845, 9657, 149, 2, 22, "Print"],
Cell[427997, 9661, 133, 1, 22, "Print"],
Cell[428133, 9664, 156, 2, 22, "Print"],
Cell[428292, 9668, 134, 1, 21, "Print"],
Cell[428429, 9671, 345, 8, 22, "Print"],
Cell[428777, 9681, 100, 1, 21, "Print"],
Cell[428880, 9684, 331, 7, 22, "Print"],
Cell[429214, 9693, 364, 7, 22, "Print"],
Cell[429581, 9702, 366, 7, 22, "Print"],
Cell[429950, 9711, 298, 6, 21, "Print"],
Cell[430251, 9719, 98, 1, 21, "Print"],
Cell[430352, 9722, 356, 8, 22, "Print"],
Cell[430711, 9732, 364, 7, 22, "Print"],
Cell[431078, 9741, 296, 6, 22, "Print"],
Cell[431377, 9749, 139, 1, 22, "Print"],
Cell[431519, 9752, 170, 2, 22, "Print"],
Cell[431692, 9756, 98, 1, 21, "Print"],
Cell[431793, 9759, 331, 7, 22, "Print"],
Cell[432127, 9768, 364, 7, 22, "Print"],
Cell[432494, 9777, 298, 6, 21, "Print"],
Cell[432795, 9785, 98, 1, 21, "Print"],
Cell[432896, 9788, 354, 8, 22, "Print"],
Cell[433253, 9798, 364, 7, 22, "Print"],
Cell[433620, 9807, 296, 6, 22, "Print"],
Cell[433919, 9815, 147, 2, 22, "Print"],
Cell[434069, 9819, 133, 1, 22, "Print"],
Cell[434205, 9822, 153, 2, 22, "Print"],
Cell[434361, 9826, 137, 1, 21, "Print"],
Cell[434501, 9829, 343, 8, 22, "Print"],
Cell[434847, 9839, 100, 1, 21, "Print"],
Cell[434950, 9842, 331, 7, 22, "Print"],
Cell[435284, 9851, 368, 7, 22, "Print"],
Cell[435655, 9860, 366, 7, 22, "Print"],
Cell[436024, 9869, 300, 6, 21, "Print"],
Cell[436327, 9877, 98, 1, 21, "Print"],
Cell[436428, 9880, 354, 8, 22, "Print"],
Cell[436785, 9890, 296, 6, 22, "Print"],
Cell[437084, 9898, 137, 1, 22, "Print"],
Cell[437224, 9901, 170, 2, 22, "Print"],
Cell[437397, 9905, 96, 1, 21, "Print"],
Cell[437496, 9908, 331, 7, 22, "Print"],
Cell[437830, 9917, 360, 7, 22, "Print"],
Cell[438193, 9926, 294, 6, 21, "Print"],
Cell[438490, 9934, 98, 1, 21, "Print"],
Cell[438591, 9937, 354, 8, 22, "Print"],
Cell[438948, 9947, 293, 6, 22, "Print"],
Cell[439244, 9955, 147, 2, 22, "Print"],
Cell[439394, 9959, 133, 1, 22, "Print"],
Cell[439530, 9962, 154, 2, 22, "Print"],
Cell[439687, 9966, 137, 1, 21, "Print"],
Cell[439827, 9969, 343, 8, 22, "Print"],
Cell[440173, 9979, 100, 1, 21, "Print"],
Cell[440276, 9982, 333, 7, 22, "Print"],
Cell[440612, 9991, 364, 7, 22, "Print"],
Cell[440979, 10000, 366, 7, 22, "Print"],
Cell[441348, 10009, 298, 6, 21, "Print"],
Cell[441649, 10017, 100, 1, 21, "Print"],
Cell[441752, 10020, 354, 8, 22, "Print"],
Cell[442109, 10030, 362, 7, 22, "Print"],
Cell[442474, 10039, 363, 7, 22, "Print"],
Cell[442840, 10048, 296, 6, 22, "Print"],
Cell[443139, 10056, 141, 1, 22, "Print"],
Cell[443283, 10059, 170, 2, 22, "Print"],
Cell[443456, 10063, 98, 1, 21, "Print"],
Cell[443557, 10066, 333, 7, 22, "Print"],
Cell[443893, 10075, 362, 7, 22, "Print"],
Cell[444258, 10084, 294, 6, 21, "Print"],
Cell[444555, 10092, 98, 1, 21, "Print"],
Cell[444656, 10095, 354, 8, 22, "Print"],
Cell[445013, 10105, 362, 7, 22, "Print"],
Cell[445378, 10114, 296, 6, 22, "Print"],
Cell[445677, 10122, 147, 2, 22, "Print"],
Cell[445827, 10126, 133, 1, 22, "Print"],
Cell[445963, 10129, 154, 2, 22, "Print"],
Cell[446120, 10133, 137, 1, 21, "Print"],
Cell[446260, 10136, 348, 8, 22, "Print"],
Cell[446611, 10146, 100, 1, 21, "Print"],
Cell[446714, 10149, 331, 7, 22, "Print"],
Cell[447048, 10158, 368, 7, 22, "Print"],
Cell[447419, 10167, 362, 7, 22, "Print"],
Cell[447784, 10176, 364, 7, 22, "Print"],
Cell[448151, 10185, 362, 7, 22, "Print"],
Cell[448516, 10194, 300, 6, 21, "Print"],
Cell[448819, 10202, 100, 1, 21, "Print"],
Cell[448922, 10205, 354, 8, 22, "Print"],
Cell[449279, 10215, 363, 7, 22, "Print"],
Cell[449645, 10224, 296, 6, 22, "Print"],
Cell[449944, 10232, 142, 1, 22, "Print"],
Cell[450089, 10235, 171, 2, 22, "Print"],
Cell[450263, 10239, 100, 1, 21, "Print"],
Cell[450366, 10242, 331, 7, 22, "Print"],
Cell[450700, 10251, 364, 7, 22, "Print"],
Cell[451067, 10260, 296, 6, 21, "Print"],
Cell[451366, 10268, 98, 1, 21, "Print"],
Cell[451467, 10271, 354, 8, 22, "Print"],
Cell[451824, 10281, 364, 7, 22, "Print"],
Cell[452191, 10290, 296, 6, 22, "Print"],
Cell[452490, 10298, 148, 2, 22, "Print"],
Cell[452641, 10302, 134, 1, 22, "Print"],
Cell[452778, 10305, 155, 2, 22, "Print"],
Cell[452936, 10309, 140, 1, 21, "Print"],
Cell[453079, 10312, 346, 8, 22, "Print"],
Cell[453428, 10322, 98, 1, 21, "Print"],
Cell[453529, 10325, 331, 7, 22, "Print"],
Cell[453863, 10334, 366, 7, 22, "Print"],
Cell[454232, 10343, 362, 7, 22, "Print"],
Cell[454597, 10352, 361, 7, 22, "Print"],
Cell[454961, 10361, 362, 7, 22, "Print"],
Cell[455326, 10370, 298, 6, 21, "Print"],
Cell[455627, 10378, 100, 1, 21, "Print"],
Cell[455730, 10381, 354, 8, 22, "Print"],
Cell[456087, 10391, 366, 7, 22, "Print"],
Cell[456456, 10400, 298, 6, 22, "Print"],
Cell[456757, 10408, 140, 1, 22, "Print"],
Cell[456900, 10411, 173, 2, 22, "Print"],
Cell[457076, 10415, 100, 1, 21, "Print"],
Cell[457179, 10418, 331, 7, 22, "Print"],
Cell[457513, 10427, 363, 7, 22, "Print"],
Cell[457879, 10436, 296, 6, 21, "Print"],
Cell[458178, 10444, 100, 1, 21, "Print"],
Cell[458281, 10447, 354, 8, 22, "Print"],
Cell[458638, 10457, 364, 7, 22, "Print"],
Cell[459005, 10466, 296, 6, 22, "Print"],
Cell[459304, 10474, 150, 2, 22, "Print"],
Cell[459457, 10478, 134, 1, 22, "Print"],
Cell[459594, 10481, 154, 2, 22, "Print"],
Cell[459751, 10485, 141, 1, 21, "Print"],
Cell[459895, 10488, 346, 8, 22, "Print"],
Cell[460244, 10498, 98, 1, 21, "Print"],
Cell[460345, 10501, 331, 7, 22, "Print"],
Cell[460679, 10510, 369, 7, 22, "Print"],
Cell[461051, 10519, 364, 7, 22, "Print"],
Cell[461418, 10528, 366, 7, 22, "Print"],
Cell[461787, 10537, 366, 7, 22, "Print"],
Cell[462156, 10546, 304, 6, 21, "Print"],
Cell[462463, 10554, 98, 1, 21, "Print"],
Cell[462564, 10557, 354, 8, 22, "Print"],
Cell[462921, 10567, 366, 7, 22, "Print"],
Cell[463290, 10576, 362, 7, 22, "Print"],
Cell[463655, 10585, 362, 7, 22, "Print"],
Cell[464020, 10594, 362, 7, 22, "Print"],
Cell[464385, 10603, 298, 6, 22, "Print"],
Cell[464686, 10611, 140, 1, 22, "Print"],
Cell[464829, 10614, 171, 2, 22, "Print"],
Cell[465003, 10618, 98, 1, 21, "Print"],
Cell[465104, 10621, 331, 7, 22, "Print"],
Cell[465438, 10630, 362, 7, 22, "Print"],
Cell[465803, 10639, 294, 6, 21, "Print"],
Cell[466100, 10647, 98, 1, 21, "Print"],
Cell[466201, 10650, 356, 8, 22, "Print"],
Cell[466560, 10660, 362, 7, 22, "Print"],
Cell[466925, 10669, 294, 6, 22, "Print"],
Cell[467222, 10677, 149, 2, 22, "Print"],
Cell[467374, 10681, 135, 1, 22, "Print"],
Cell[467512, 10684, 158, 2, 22, "Print"],
Cell[467673, 10688, 142, 1, 21, "Print"],
Cell[467818, 10691, 346, 8, 22, "Print"],
Cell[468167, 10701, 98, 1, 21, "Print"],
Cell[468268, 10704, 331, 7, 22, "Print"],
Cell[468602, 10713, 368, 7, 22, "Print"],
Cell[468973, 10722, 364, 7, 22, "Print"],
Cell[469340, 10731, 364, 7, 22, "Print"],
Cell[469707, 10740, 366, 7, 22, "Print"],
Cell[470076, 10749, 302, 6, 21, "Print"],
Cell[470381, 10757, 98, 1, 21, "Print"],
Cell[470482, 10760, 356, 8, 22, "Print"],
Cell[470841, 10770, 368, 7, 22, "Print"],
Cell[471212, 10779, 297, 6, 22, "Print"],
Cell[471512, 10787, 141, 1, 22, "Print"],
Cell[471656, 10790, 174, 2, 22, "Print"],
Cell[471833, 10794, 100, 1, 21, "Print"],
Cell[471936, 10797, 331, 7, 22, "Print"],
Cell[472270, 10806, 362, 7, 22, "Print"],
Cell[472635, 10815, 293, 6, 21, "Print"],
Cell[472931, 10823, 98, 1, 21, "Print"],
Cell[473032, 10826, 356, 8, 22, "Print"],
Cell[473391, 10836, 293, 6, 22, "Print"],
Cell[473687, 10844, 149, 2, 22, "Print"],
Cell[473839, 10848, 135, 1, 22, "Print"],
Cell[473977, 10851, 158, 2, 22, "Print"],
Cell[474138, 10855, 142, 1, 21, "Print"],
Cell[474283, 10858, 346, 8, 22, "Print"],
Cell[474632, 10868, 98, 1, 21, "Print"],
Cell[474733, 10871, 331, 7, 22, "Print"],
Cell[475067, 10880, 370, 7, 22, "Print"],
Cell[475440, 10889, 366, 7, 22, "Print"],
Cell[475809, 10898, 368, 7, 22, "Print"],
Cell[476180, 10907, 366, 7, 22, "Print"],
Cell[476549, 10916, 302, 6, 21, "Print"],
Cell[476854, 10924, 98, 1, 21, "Print"],
Cell[476955, 10927, 354, 8, 22, "Print"],
Cell[477312, 10937, 366, 7, 22, "Print"],
Cell[477681, 10946, 298, 6, 22, "Print"],
Cell[477982, 10954, 141, 1, 22, "Print"],
Cell[478126, 10957, 172, 2, 22, "Print"],
Cell[478301, 10961, 98, 1, 21, "Print"],
Cell[478402, 10964, 331, 7, 22, "Print"],
Cell[478736, 10973, 362, 7, 22, "Print"],
Cell[479101, 10982, 293, 6, 21, "Print"],
Cell[479397, 10990, 98, 1, 21, "Print"],
Cell[479498, 10993, 354, 8, 22, "Print"],
Cell[479855, 11003, 294, 6, 22, "Print"],
Cell[480152, 11011, 149, 2, 22, "Print"],
Cell[480304, 11015, 135, 1, 22, "Print"],
Cell[480442, 11018, 158, 2, 22, "Print"],
Cell[480603, 11022, 144, 1, 21, "Print"],
Cell[480750, 11025, 348, 8, 22, "Print"],
Cell[481101, 11035, 98, 1, 21, "Print"],
Cell[481202, 11038, 331, 7, 22, "Print"],
Cell[481536, 11047, 370, 7, 22, "Print"],
Cell[481909, 11056, 366, 7, 22, "Print"],
Cell[482278, 11065, 366, 7, 22, "Print"],
Cell[482647, 11074, 366, 7, 22, "Print"],
Cell[483016, 11083, 302, 6, 21, "Print"],
Cell[483321, 11091, 98, 1, 21, "Print"],
Cell[483422, 11094, 354, 8, 22, "Print"],
Cell[483779, 11104, 294, 6, 22, "Print"],
Cell[484076, 11112, 141, 1, 22, "Print"],
Cell[484220, 11115, 172, 2, 22, "Print"],
Cell[484395, 11119, 98, 1, 21, "Print"],
Cell[484496, 11122, 331, 7, 22, "Print"],
Cell[484830, 11131, 362, 7, 22, "Print"],
Cell[485195, 11140, 294, 6, 21, "Print"],
Cell[485492, 11148, 96, 1, 21, "Print"],
Cell[485591, 11151, 356, 8, 22, "Print"],
Cell[485950, 11161, 294, 6, 22, "Print"],
Cell[486247, 11169, 151, 2, 22, "Print"],
Cell[486401, 11173, 137, 1, 22, "Print"],
Cell[486541, 11176, 156, 2, 22, "Print"],
Cell[486700, 11180, 142, 1, 21, "Print"],
Cell[486845, 11183, 349, 8, 22, "Print"],
Cell[487197, 11193, 96, 1, 21, "Print"],
Cell[487296, 11196, 358, 8, 22, "Print"],
Cell[487657, 11206, 98, 1, 21, "Print"],
Cell[487758, 11209, 331, 7, 22, "Print"],
Cell[488092, 11218, 368, 7, 22, "Print"],
Cell[488463, 11227, 368, 7, 22, "Print"],
Cell[488834, 11236, 366, 7, 22, "Print"],
Cell[489203, 11245, 365, 7, 22, "Print"],
Cell[489571, 11254, 366, 7, 22, "Print"],
Cell[489940, 11263, 366, 7, 22, "Print"],
Cell[490309, 11272, 368, 7, 22, "Print"],
Cell[490680, 11281, 368, 7, 22, "Print"],
Cell[491051, 11290, 368, 7, 22, "Print"],
Cell[491422, 11299, 370, 7, 22, "Print"],
Cell[491795, 11308, 368, 7, 22, "Print"],
Cell[492166, 11317, 370, 7, 22, "Print"],
Cell[492539, 11326, 98, 1, 21, "Print"],
Cell[492640, 11329, 293, 6, 22, "Print"],
Cell[492936, 11337, 302, 6, 21, "Print"],
Cell[493241, 11345, 100, 1, 21, "Print"],
Cell[493344, 11348, 356, 8, 22, "Print"],
Cell[493703, 11358, 362, 7, 22, "Print"],
Cell[494068, 11367, 362, 7, 22, "Print"],
Cell[494433, 11376, 361, 7, 22, "Print"],
Cell[494797, 11385, 362, 7, 22, "Print"],
Cell[495162, 11394, 364, 7, 22, "Print"],
Cell[495529, 11403, 362, 7, 22, "Print"],
Cell[495894, 11412, 370, 7, 22, "Print"],
Cell[496267, 11421, 368, 7, 22, "Print"],
Cell[496638, 11430, 368, 7, 22, "Print"],
Cell[497009, 11439, 364, 7, 22, "Print"],
Cell[497376, 11448, 363, 7, 22, "Print"],
Cell[497742, 11457, 364, 7, 22, "Print"],
Cell[498109, 11466, 302, 6, 22, "Print"],
Cell[498414, 11474, 141, 1, 22, "Print"],
Cell[498558, 11477, 172, 2, 22, "Print"],
Cell[498733, 11481, 98, 1, 21, "Print"],
Cell[498834, 11484, 331, 7, 22, "Print"],
Cell[499168, 11493, 364, 7, 22, "Print"],
Cell[499535, 11502, 293, 6, 21, "Print"],
Cell[499831, 11510, 97, 1, 21, "Print"],
Cell[499931, 11513, 354, 8, 22, "Print"],
Cell[500288, 11523, 362, 7, 22, "Print"],
Cell[500653, 11532, 293, 6, 22, "Print"],
Cell[500949, 11540, 149, 2, 22, "Print"],
Cell[501101, 11544, 135, 1, 22, "Print"],
Cell[501239, 11547, 156, 2, 22, "Print"],
Cell[501398, 11551, 146, 2, 21, "Print"],
Cell[501547, 11555, 349, 8, 22, "Print"],
Cell[501899, 11565, 98, 1, 21, "Print"],
Cell[502000, 11568, 358, 8, 22, "Print"],
Cell[502361, 11578, 98, 1, 21, "Print"],
Cell[502462, 11581, 331, 7, 22, "Print"],
Cell[502796, 11590, 368, 7, 22, "Print"],
Cell[503167, 11599, 366, 7, 22, "Print"],
Cell[503536, 11608, 366, 7, 22, "Print"],
Cell[503905, 11617, 368, 7, 22, "Print"],
Cell[504276, 11626, 366, 7, 22, "Print"],
Cell[504645, 11635, 368, 7, 22, "Print"],
Cell[505016, 11644, 367, 7, 22, "Print"],
Cell[505386, 11653, 368, 7, 22, "Print"],
Cell[505757, 11662, 368, 7, 22, "Print"],
Cell[506128, 11671, 370, 7, 22, "Print"],
Cell[506501, 11680, 368, 7, 22, "Print"],
Cell[506872, 11689, 368, 7, 22, "Print"],
Cell[507243, 11698, 100, 1, 21, "Print"],
Cell[507346, 11701, 293, 6, 22, "Print"],
Cell[507642, 11709, 304, 6, 21, "Print"],
Cell[507949, 11717, 98, 1, 21, "Print"],
Cell[508050, 11720, 356, 8, 22, "Print"],
Cell[508409, 11730, 366, 7, 22, "Print"],
Cell[508778, 11739, 368, 7, 22, "Print"],
Cell[509149, 11748, 366, 7, 22, "Print"],
Cell[509518, 11757, 298, 6, 22, "Print"],
Cell[509819, 11765, 141, 1, 22, "Print"],
Cell[509963, 11768, 172, 2, 22, "Print"],
Cell[510138, 11772, 98, 1, 21, "Print"],
Cell[510239, 11775, 331, 7, 22, "Print"],
Cell[510573, 11784, 361, 7, 22, "Print"],
Cell[510937, 11793, 294, 6, 21, "Print"],
Cell[511234, 11801, 100, 1, 21, "Print"],
Cell[511337, 11804, 356, 8, 22, "Print"],
Cell[511696, 11814, 294, 6, 22, "Print"],
Cell[511993, 11822, 149, 2, 22, "Print"],
Cell[512145, 11826, 135, 1, 22, "Print"],
Cell[512283, 11829, 156, 2, 22, "Print"],
Cell[512442, 11833, 147, 2, 21, "Print"],
Cell[512592, 11837, 138, 1, 22, "Print"],
Cell[512733, 11840, 121, 1, 22, "Print"],
Cell[512857, 11843, 186, 2, 22, "Print"],
Cell[513046, 11847, 102, 1, 21, "Print"]
}, Open  ]],
Cell[513163, 11851, 130, 3, 28, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[513330, 11859, 930, 23, 40, "Input"],
Cell[CellGroupData[{
Cell[514285, 11886, 318, 8, 22, "Print"],
Cell[514606, 11896, 76, 1, 21, "Print"],
Cell[514685, 11899, 552, 13, 22, "Print"],
Cell[515240, 11914, 390, 8, 22, "Print"],
Cell[515633, 11924, 98, 1, 21, "Print"],
Cell[515734, 11927, 247, 6, 21, "Print"],
Cell[515984, 11935, 277, 6, 21, "Print"],
Cell[516264, 11943, 347, 7, 21, "Print"],
Cell[516614, 11952, 76, 1, 21, "Print"],
Cell[516693, 11955, 311, 7, 22, "Print"],
Cell[517007, 11964, 341, 7, 22, "Print"],
Cell[517351, 11973, 276, 6, 21, "Print"],
Cell[517630, 11981, 76, 1, 21, "Print"],
Cell[517709, 11984, 332, 8, 22, "Print"],
Cell[518044, 11994, 272, 6, 22, "Print"],
Cell[518319, 12002, 117, 1, 22, "Print"],
Cell[518439, 12005, 147, 2, 22, "Print"],
Cell[518589, 12009, 76, 1, 21, "Print"],
Cell[518668, 12012, 308, 7, 22, "Print"],
Cell[518979, 12021, 342, 7, 22, "Print"],
Cell[519324, 12030, 274, 6, 21, "Print"],
Cell[519601, 12038, 76, 1, 21, "Print"],
Cell[519680, 12041, 332, 8, 22, "Print"],
Cell[520015, 12051, 272, 6, 22, "Print"],
Cell[520290, 12059, 125, 2, 22, "Print"],
Cell[520418, 12063, 110, 1, 22, "Print"],
Cell[520531, 12066, 134, 2, 22, "Print"],
Cell[520668, 12070, 111, 1, 21, "Print"],
Cell[520782, 12073, 323, 8, 22, "Print"],
Cell[521108, 12083, 76, 1, 21, "Print"],
Cell[521187, 12086, 309, 7, 22, "Print"],
Cell[521499, 12095, 342, 7, 22, "Print"],
Cell[521844, 12104, 344, 7, 22, "Print"],
Cell[522191, 12113, 278, 6, 21, "Print"],
Cell[522472, 12121, 78, 1, 21, "Print"],
Cell[522553, 12124, 334, 8, 22, "Print"],
Cell[522890, 12134, 344, 7, 22, "Print"],
Cell[523237, 12143, 274, 6, 22, "Print"],
Cell[523514, 12151, 116, 1, 22, "Print"],
Cell[523633, 12154, 148, 2, 22, "Print"],
Cell[523784, 12158, 76, 1, 21, "Print"],
Cell[523863, 12161, 309, 7, 22, "Print"],
Cell[524175, 12170, 342, 7, 22, "Print"],
Cell[524520, 12179, 274, 6, 21, "Print"],
Cell[524797, 12187, 76, 1, 21, "Print"],
Cell[524876, 12190, 332, 8, 22, "Print"],
Cell[525211, 12200, 342, 7, 22, "Print"],
Cell[525556, 12209, 274, 6, 22, "Print"],
Cell[525833, 12217, 125, 2, 22, "Print"],
Cell[525961, 12221, 113, 1, 22, "Print"],
Cell[526077, 12224, 132, 2, 22, "Print"],
Cell[526212, 12228, 117, 1, 21, "Print"],
Cell[526332, 12231, 321, 8, 22, "Print"],
Cell[526656, 12241, 76, 1, 21, "Print"],
Cell[526735, 12244, 309, 7, 22, "Print"],
Cell[527047, 12253, 346, 7, 22, "Print"],
Cell[527396, 12262, 346, 7, 22, "Print"],
Cell[527745, 12271, 276, 6, 21, "Print"],
Cell[528024, 12279, 76, 1, 21, "Print"],
Cell[528103, 12282, 332, 8, 22, "Print"],
Cell[528438, 12292, 272, 6, 22, "Print"],
Cell[528713, 12300, 119, 1, 22, "Print"],
Cell[528835, 12303, 150, 2, 22, "Print"],
Cell[528988, 12307, 76, 1, 21, "Print"],
Cell[529067, 12310, 307, 7, 22, "Print"],
Cell[529377, 12319, 340, 7, 22, "Print"],
Cell[529720, 12328, 272, 6, 21, "Print"],
Cell[529995, 12336, 75, 1, 21, "Print"],
Cell[530073, 12339, 332, 8, 22, "Print"],
Cell[530408, 12349, 274, 6, 22, "Print"],
Cell[530685, 12357, 125, 2, 22, "Print"],
Cell[530813, 12361, 113, 1, 22, "Print"],
Cell[530929, 12364, 132, 2, 22, "Print"],
Cell[531064, 12368, 117, 1, 21, "Print"],
Cell[531184, 12371, 321, 8, 22, "Print"],
Cell[531508, 12381, 78, 1, 21, "Print"],
Cell[531589, 12384, 309, 7, 22, "Print"],
Cell[531901, 12393, 341, 7, 22, "Print"],
Cell[532245, 12402, 346, 7, 22, "Print"],
Cell[532594, 12411, 276, 6, 21, "Print"],
Cell[532873, 12419, 76, 1, 21, "Print"],
Cell[532952, 12422, 331, 8, 22, "Print"],
Cell[533286, 12432, 340, 7, 22, "Print"],
Cell[533629, 12441, 342, 7, 22, "Print"],
Cell[533974, 12450, 274, 6, 22, "Print"],
Cell[534251, 12458, 117, 1, 22, "Print"],
Cell[534371, 12461, 148, 2, 22, "Print"],
Cell[534522, 12465, 76, 1, 21, "Print"],
Cell[534601, 12468, 309, 7, 22, "Print"],
Cell[534913, 12477, 340, 7, 22, "Print"],
Cell[535256, 12486, 272, 6, 21, "Print"],
Cell[535531, 12494, 76, 1, 21, "Print"],
Cell[535610, 12497, 334, 8, 22, "Print"],
Cell[535947, 12507, 340, 7, 22, "Print"],
Cell[536290, 12516, 272, 6, 22, "Print"],
Cell[536565, 12524, 125, 2, 22, "Print"],
Cell[536693, 12528, 111, 1, 22, "Print"],
Cell[536807, 12531, 134, 2, 22, "Print"],
Cell[536944, 12535, 115, 1, 21, "Print"],
Cell[537062, 12538, 326, 8, 22, "Print"],
Cell[537391, 12548, 76, 1, 21, "Print"],
Cell[537470, 12551, 311, 7, 22, "Print"],
Cell[537784, 12560, 348, 7, 22, "Print"],
Cell[538135, 12569, 340, 7, 22, "Print"],
Cell[538478, 12578, 342, 7, 22, "Print"],
Cell[538823, 12587, 340, 7, 22, "Print"],
Cell[539166, 12596, 278, 6, 21, "Print"],
Cell[539447, 12604, 76, 1, 21, "Print"],
Cell[539526, 12607, 332, 8, 22, "Print"],
Cell[539861, 12617, 342, 7, 22, "Print"],
Cell[540206, 12626, 276, 6, 22, "Print"],
Cell[540485, 12634, 118, 1, 22, "Print"],
Cell[540606, 12637, 149, 2, 22, "Print"],
Cell[540758, 12641, 74, 1, 21, "Print"],
Cell[540835, 12644, 311, 7, 22, "Print"],
Cell[541149, 12653, 342, 7, 22, "Print"],
Cell[541494, 12662, 274, 6, 21, "Print"],
Cell[541771, 12670, 78, 1, 21, "Print"],
Cell[541852, 12673, 334, 8, 22, "Print"],
Cell[542189, 12683, 342, 7, 22, "Print"],
Cell[542534, 12692, 274, 6, 22, "Print"],
Cell[542811, 12700, 126, 2, 22, "Print"],
Cell[542940, 12704, 112, 1, 22, "Print"],
Cell[543055, 12707, 133, 2, 22, "Print"],
Cell[543191, 12711, 119, 1, 21, "Print"],
Cell[543313, 12714, 324, 8, 22, "Print"],
Cell[543640, 12724, 78, 1, 21, "Print"],
Cell[543721, 12727, 311, 7, 22, "Print"],
Cell[544035, 12736, 344, 7, 22, "Print"],
Cell[544382, 12745, 340, 7, 22, "Print"],
Cell[544725, 12754, 340, 7, 22, "Print"],
Cell[545068, 12763, 340, 7, 22, "Print"],
Cell[545411, 12772, 276, 6, 21, "Print"],
Cell[545690, 12780, 76, 1, 21, "Print"],
Cell[545769, 12783, 334, 8, 22, "Print"],
Cell[546106, 12793, 344, 7, 22, "Print"],
Cell[546453, 12802, 276, 6, 22, "Print"],
Cell[546732, 12810, 120, 1, 22, "Print"],
Cell[546855, 12813, 151, 2, 22, "Print"],
Cell[547009, 12817, 78, 1, 21, "Print"],
Cell[547090, 12820, 308, 7, 22, "Print"],
Cell[547401, 12829, 344, 7, 22, "Print"],
Cell[547748, 12838, 276, 6, 21, "Print"],
Cell[548027, 12846, 76, 1, 21, "Print"],
Cell[548106, 12849, 332, 8, 22, "Print"],
Cell[548441, 12859, 342, 7, 22, "Print"],
Cell[548786, 12868, 276, 6, 22, "Print"],
Cell[549065, 12876, 128, 2, 22, "Print"],
Cell[549196, 12880, 112, 1, 22, "Print"],
Cell[549311, 12883, 135, 2, 22, "Print"],
Cell[549449, 12887, 119, 1, 21, "Print"],
Cell[549571, 12890, 324, 8, 22, "Print"],
Cell[549898, 12900, 78, 1, 21, "Print"],
Cell[549979, 12903, 309, 7, 22, "Print"],
Cell[550291, 12912, 350, 7, 22, "Print"],
Cell[550644, 12921, 342, 7, 22, "Print"],
Cell[550989, 12930, 342, 7, 22, "Print"],
Cell[551334, 12939, 342, 7, 22, "Print"],
Cell[551679, 12948, 280, 6, 21, "Print"],
Cell[551962, 12956, 76, 1, 21, "Print"],
Cell[552041, 12959, 330, 8, 22, "Print"],
Cell[552374, 12969, 346, 7, 22, "Print"],
Cell[552723, 12978, 340, 7, 22, "Print"],
Cell[553066, 12987, 340, 7, 22, "Print"],
Cell[553409, 12996, 340, 7, 22, "Print"],
Cell[553752, 13005, 276, 6, 22, "Print"],
Cell[554031, 13013, 118, 1, 22, "Print"],
Cell[554152, 13016, 150, 2, 22, "Print"],
Cell[554305, 13020, 76, 1, 21, "Print"],
Cell[554384, 13023, 309, 7, 22, "Print"],
Cell[554696, 13032, 342, 7, 22, "Print"],
Cell[555041, 13041, 272, 6, 21, "Print"],
Cell[555316, 13049, 76, 1, 21, "Print"],
Cell[555395, 13052, 334, 8, 22, "Print"],
Cell[555732, 13062, 342, 7, 22, "Print"],
Cell[556077, 13071, 272, 6, 22, "Print"],
Cell[556352, 13079, 127, 2, 22, "Print"],
Cell[556482, 13083, 113, 1, 22, "Print"],
Cell[556598, 13086, 134, 2, 22, "Print"],
Cell[556735, 13090, 119, 1, 21, "Print"],
Cell[556857, 13093, 324, 8, 22, "Print"],
Cell[557184, 13103, 78, 1, 21, "Print"],
Cell[557265, 13106, 309, 7, 22, "Print"],
Cell[557577, 13115, 346, 7, 22, "Print"],
Cell[557926, 13124, 342, 7, 22, "Print"],
Cell[558271, 13133, 342, 7, 22, "Print"],
Cell[558616, 13142, 344, 7, 22, "Print"],
Cell[558963, 13151, 280, 6, 21, "Print"],
Cell[559246, 13159, 76, 1, 21, "Print"],
Cell[559325, 13162, 332, 8, 22, "Print"],
Cell[559660, 13172, 346, 7, 22, "Print"],
Cell[560009, 13181, 275, 6, 22, "Print"],
Cell[560287, 13189, 119, 1, 22, "Print"],
Cell[560409, 13192, 150, 2, 22, "Print"],
Cell[560562, 13196, 76, 1, 21, "Print"],
Cell[560641, 13199, 309, 7, 22, "Print"],
Cell[560953, 13208, 342, 7, 22, "Print"],
Cell[561298, 13217, 274, 6, 21, "Print"],
Cell[561575, 13225, 76, 1, 21, "Print"],
Cell[561654, 13228, 332, 8, 22, "Print"],
Cell[561989, 13238, 272, 6, 22, "Print"],
Cell[562264, 13246, 126, 2, 22, "Print"],
Cell[562393, 13250, 115, 1, 22, "Print"],
Cell[562511, 13253, 134, 2, 22, "Print"],
Cell[562648, 13257, 120, 1, 21, "Print"],
Cell[562771, 13260, 326, 8, 22, "Print"],
Cell[563100, 13270, 76, 1, 21, "Print"],
Cell[563179, 13273, 311, 7, 22, "Print"],
Cell[563493, 13282, 350, 7, 22, "Print"],
Cell[563846, 13291, 343, 7, 22, "Print"],
Cell[564192, 13300, 344, 7, 22, "Print"],
Cell[564539, 13309, 344, 7, 22, "Print"],
Cell[564886, 13318, 280, 6, 21, "Print"],
Cell[565169, 13326, 76, 1, 21, "Print"],
Cell[565248, 13329, 332, 8, 22, "Print"],
Cell[565583, 13339, 344, 7, 22, "Print"],
Cell[565930, 13348, 276, 6, 22, "Print"],
Cell[566209, 13356, 121, 1, 22, "Print"],
Cell[566333, 13359, 150, 2, 22, "Print"],
Cell[566486, 13363, 76, 1, 21, "Print"],
Cell[566565, 13366, 307, 7, 22, "Print"],
Cell[566875, 13375, 340, 7, 22, "Print"],
Cell[567218, 13384, 272, 6, 21, "Print"],
Cell[567493, 13392, 76, 1, 21, "Print"],
Cell[567572, 13395, 334, 8, 22, "Print"],
Cell[567909, 13405, 272, 6, 22, "Print"],
Cell[568184, 13413, 127, 2, 22, "Print"],
Cell[568314, 13417, 115, 1, 22, "Print"],
Cell[568432, 13420, 136, 2, 22, "Print"],
Cell[568571, 13424, 122, 1, 21, "Print"],
Cell[568696, 13427, 326, 8, 22, "Print"],
Cell[569025, 13437, 78, 1, 21, "Print"],
Cell[569106, 13440, 309, 7, 22, "Print"],
Cell[569418, 13449, 348, 7, 22, "Print"],
Cell[569769, 13458, 344, 7, 22, "Print"],
Cell[570116, 13467, 344, 7, 22, "Print"],
Cell[570463, 13476, 344, 7, 22, "Print"],
Cell[570810, 13485, 280, 6, 21, "Print"],
Cell[571093, 13493, 76, 1, 21, "Print"],
Cell[571172, 13496, 332, 8, 22, "Print"],
Cell[571507, 13506, 272, 6, 22, "Print"],
Cell[571782, 13514, 119, 1, 22, "Print"],
Cell[571904, 13517, 150, 2, 22, "Print"],
Cell[572057, 13521, 78, 1, 21, "Print"],
Cell[572138, 13524, 309, 7, 22, "Print"],
Cell[572450, 13533, 340, 7, 22, "Print"],
Cell[572793, 13542, 272, 6, 21, "Print"],
Cell[573068, 13550, 76, 1, 21, "Print"],
Cell[573147, 13553, 332, 8, 22, "Print"],
Cell[573482, 13563, 274, 6, 22, "Print"],
Cell[573759, 13571, 127, 2, 22, "Print"],
Cell[573889, 13575, 113, 1, 22, "Print"],
Cell[574005, 13578, 133, 2, 22, "Print"],
Cell[574141, 13582, 120, 1, 21, "Print"],
Cell[574264, 13585, 329, 8, 22, "Print"],
Cell[574596, 13595, 75, 1, 21, "Print"],
Cell[574674, 13598, 336, 8, 22, "Print"],
Cell[575013, 13608, 76, 1, 21, "Print"],
Cell[575092, 13611, 309, 7, 22, "Print"],
Cell[575404, 13620, 346, 7, 22, "Print"],
Cell[575753, 13629, 344, 7, 22, "Print"],
Cell[576100, 13638, 346, 7, 22, "Print"],
Cell[576449, 13647, 346, 7, 22, "Print"],
Cell[576798, 13656, 344, 7, 22, "Print"],
Cell[577145, 13665, 344, 7, 22, "Print"],
Cell[577492, 13674, 346, 7, 22, "Print"],
Cell[577841, 13683, 346, 7, 22, "Print"],
Cell[578190, 13692, 348, 7, 22, "Print"],
Cell[578541, 13701, 346, 7, 22, "Print"],
Cell[578890, 13710, 346, 7, 22, "Print"],
Cell[579239, 13719, 348, 7, 22, "Print"],
Cell[579590, 13728, 76, 1, 21, "Print"],
Cell[579669, 13731, 271, 6, 22, "Print"],
Cell[579943, 13739, 282, 6, 21, "Print"],
Cell[580228, 13747, 75, 1, 21, "Print"],
Cell[580306, 13750, 332, 8, 22, "Print"],
Cell[580641, 13760, 342, 7, 22, "Print"],
Cell[580986, 13769, 342, 7, 22, "Print"],
Cell[581331, 13778, 342, 7, 22, "Print"],
Cell[581676, 13787, 340, 7, 22, "Print"],
Cell[582019, 13796, 340, 7, 22, "Print"],
Cell[582362, 13805, 342, 7, 22, "Print"],
Cell[582707, 13814, 346, 7, 22, "Print"],
Cell[583056, 13823, 346, 7, 22, "Print"],
Cell[583405, 13832, 346, 7, 22, "Print"],
Cell[583754, 13841, 344, 7, 22, "Print"],
Cell[584101, 13850, 342, 7, 22, "Print"],
Cell[584446, 13859, 340, 7, 22, "Print"],
Cell[584789, 13868, 280, 6, 22, "Print"],
Cell[585072, 13876, 118, 1, 22, "Print"],
Cell[585193, 13879, 150, 2, 22, "Print"],
Cell[585346, 13883, 78, 1, 21, "Print"],
Cell[585427, 13886, 311, 7, 22, "Print"],
Cell[585741, 13895, 340, 7, 22, "Print"],
Cell[586084, 13904, 272, 6, 21, "Print"],
Cell[586359, 13912, 78, 1, 21, "Print"],
Cell[586440, 13915, 334, 8, 22, "Print"],
Cell[586777, 13925, 340, 7, 22, "Print"],
Cell[587120, 13934, 274, 6, 22, "Print"],
Cell[587397, 13942, 127, 2, 22, "Print"],
Cell[587527, 13946, 113, 1, 22, "Print"],
Cell[587643, 13949, 134, 2, 22, "Print"],
Cell[587780, 13953, 125, 2, 21, "Print"],
Cell[587908, 13957, 329, 8, 22, "Print"],
Cell[588240, 13967, 76, 1, 21, "Print"],
Cell[588319, 13970, 336, 8, 22, "Print"],
Cell[588658, 13980, 76, 1, 21, "Print"],
Cell[588737, 13983, 309, 7, 22, "Print"],
Cell[589049, 13992, 346, 7, 22, "Print"],
Cell[589398, 14001, 346, 7, 22, "Print"],
Cell[589747, 14010, 344, 7, 22, "Print"],
Cell[590094, 14019, 346, 7, 22, "Print"],
Cell[590443, 14028, 346, 7, 22, "Print"],
Cell[590792, 14037, 348, 7, 22, "Print"],
Cell[591143, 14046, 346, 7, 22, "Print"],
Cell[591492, 14055, 346, 7, 22, "Print"],
Cell[591841, 14064, 346, 7, 22, "Print"],
Cell[592190, 14073, 348, 7, 22, "Print"],
Cell[592541, 14082, 346, 7, 22, "Print"],
Cell[592890, 14091, 346, 7, 22, "Print"],
Cell[593239, 14100, 76, 1, 21, "Print"],
Cell[593318, 14103, 271, 6, 22, "Print"],
Cell[593592, 14111, 282, 6, 21, "Print"],
Cell[593877, 14119, 74, 1, 21, "Print"],
Cell[593954, 14122, 332, 8, 22, "Print"],
Cell[594289, 14132, 344, 7, 22, "Print"],
Cell[594636, 14141, 344, 7, 22, "Print"],
Cell[594983, 14150, 343, 7, 22, "Print"],
Cell[595329, 14159, 277, 6, 22, "Print"],
Cell[595609, 14167, 119, 1, 22, "Print"],
Cell[595731, 14170, 150, 2, 22, "Print"],
Cell[595884, 14174, 76, 1, 21, "Print"],
Cell[595963, 14177, 309, 7, 22, "Print"],
Cell[596275, 14186, 340, 7, 22, "Print"],
Cell[596618, 14195, 272, 6, 21, "Print"],
Cell[596893, 14203, 76, 1, 21, "Print"],
Cell[596972, 14206, 332, 8, 22, "Print"],
Cell[597307, 14216, 274, 6, 22, "Print"],
Cell[597584, 14224, 129, 2, 22, "Print"],
Cell[597716, 14228, 113, 1, 22, "Print"],
Cell[597832, 14231, 134, 2, 22, "Print"],
Cell[597969, 14235, 125, 2, 21, "Print"],
Cell[598097, 14239, 115, 1, 22, "Print"],
Cell[598215, 14242, 99, 1, 22, "Print"],
Cell[598317, 14245, 167, 2, 22, "Print"],
Cell[598487, 14249, 80, 1, 21, "Print"]
}, Open  ]],
Cell[598582, 14253, 128, 3, 28, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[598747, 14261, 929, 23, 40, "Input"],
Cell[CellGroupData[{
Cell[599701, 14288, 317, 8, 22, "Print"],
Cell[600021, 14298, 76, 1, 21, "Print"],
Cell[600100, 14301, 550, 13, 22, "Print"],
Cell[600653, 14316, 390, 8, 22, "Print"],
Cell[601046, 14326, 100, 1, 21, "Print"],
Cell[601149, 14329, 245, 6, 21, "Print"],
Cell[601397, 14337, 277, 6, 21, "Print"],
Cell[601677, 14345, 343, 7, 21, "Print"],
Cell[602023, 14354, 76, 1, 21, "Print"],
Cell[602102, 14357, 309, 7, 22, "Print"],
Cell[602414, 14366, 342, 7, 22, "Print"],
Cell[602759, 14375, 274, 6, 21, "Print"],
Cell[603036, 14383, 78, 1, 21, "Print"],
Cell[603117, 14386, 334, 8, 22, "Print"],
Cell[603454, 14396, 274, 6, 22, "Print"],
Cell[603731, 14404, 116, 1, 22, "Print"],
Cell[603850, 14407, 150, 2, 22, "Print"],
Cell[604003, 14411, 76, 1, 21, "Print"],
Cell[604082, 14414, 309, 7, 22, "Print"],
Cell[604394, 14423, 340, 7, 22, "Print"],
Cell[604737, 14432, 274, 6, 21, "Print"],
Cell[605014, 14440, 75, 1, 21, "Print"],
Cell[605092, 14443, 332, 8, 22, "Print"],
Cell[605427, 14453, 271, 6, 22, "Print"],
Cell[605701, 14461, 127, 2, 22, "Print"],
Cell[605831, 14465, 111, 1, 22, "Print"],
Cell[605945, 14468, 132, 2, 22, "Print"],
Cell[606080, 14472, 114, 1, 21, "Print"],
Cell[606197, 14475, 320, 8, 22, "Print"],
Cell[606520, 14485, 78, 1, 21, "Print"],
Cell[606601, 14488, 309, 7, 22, "Print"],
Cell[606913, 14497, 342, 7, 22, "Print"],
Cell[607258, 14506, 344, 7, 22, "Print"],
Cell[607605, 14515, 276, 6, 21, "Print"],
Cell[607884, 14523, 76, 1, 21, "Print"],
Cell[607963, 14526, 332, 8, 22, "Print"],
Cell[608298, 14536, 344, 7, 22, "Print"],
Cell[608645, 14545, 274, 6, 22, "Print"],
Cell[608922, 14553, 119, 1, 22, "Print"],
Cell[609044, 14556, 147, 2, 22, "Print"],
Cell[609194, 14560, 76, 1, 21, "Print"],
Cell[609273, 14563, 309, 7, 22, "Print"],
Cell[609585, 14572, 340, 7, 22, "Print"],
Cell[609928, 14581, 274, 6, 21, "Print"],
Cell[610205, 14589, 76, 1, 21, "Print"],
Cell[610284, 14592, 332, 8, 22, "Print"],
Cell[610619, 14602, 344, 7, 22, "Print"],
Cell[610966, 14611, 274, 6, 22, "Print"],
Cell[611243, 14619, 127, 2, 22, "Print"],
Cell[611373, 14623, 111, 1, 22, "Print"],
Cell[611487, 14626, 134, 2, 22, "Print"],
Cell[611624, 14630, 115, 1, 21, "Print"],
Cell[611742, 14633, 321, 8, 22, "Print"],
Cell[612066, 14643, 76, 1, 21, "Print"],
Cell[612145, 14646, 308, 7, 22, "Print"],
Cell[612456, 14655, 344, 7, 22, "Print"],
Cell[612803, 14664, 344, 7, 22, "Print"],
Cell[613150, 14673, 276, 6, 21, "Print"],
Cell[613429, 14681, 75, 1, 21, "Print"],
Cell[613507, 14684, 334, 8, 22, "Print"],
Cell[613844, 14694, 272, 6, 22, "Print"],
Cell[614119, 14702, 117, 1, 22, "Print"],
Cell[614239, 14705, 150, 2, 22, "Print"],
Cell[614392, 14709, 76, 1, 21, "Print"],
Cell[614471, 14712, 309, 7, 22, "Print"],
Cell[614783, 14721, 342, 7, 22, "Print"],
Cell[615128, 14730, 274, 6, 21, "Print"],
Cell[615405, 14738, 78, 1, 21, "Print"],
Cell[615486, 14741, 334, 8, 22, "Print"],
Cell[615823, 14751, 272, 6, 22, "Print"],
Cell[616098, 14759, 125, 2, 22, "Print"],
Cell[616226, 14763, 111, 1, 22, "Print"],
Cell[616340, 14766, 132, 2, 22, "Print"],
Cell[616475, 14770, 115, 1, 21, "Print"],
Cell[616593, 14773, 323, 8, 22, "Print"],
Cell[616919, 14783, 76, 1, 21, "Print"],
Cell[616998, 14786, 309, 7, 22, "Print"],
Cell[617310, 14795, 341, 7, 22, "Print"],
Cell[617654, 14804, 346, 7, 22, "Print"],
Cell[618003, 14813, 276, 6, 21, "Print"],
Cell[618282, 14821, 76, 1, 21, "Print"],
Cell[618361, 14824, 332, 8, 22, "Print"],
Cell[618696, 14834, 340, 7, 22, "Print"],
Cell[619039, 14843, 342, 7, 22, "Print"],
Cell[619384, 14852, 274, 6, 22, "Print"],
Cell[619661, 14860, 117, 1, 22, "Print"],
Cell[619781, 14863, 150, 2, 22, "Print"],
Cell[619934, 14867, 76, 1, 21, "Print"],
Cell[620013, 14870, 311, 7, 22, "Print"],
Cell[620327, 14879, 339, 7, 22, "Print"],
Cell[620669, 14888, 272, 6, 21, "Print"],
Cell[620944, 14896, 76, 1, 21, "Print"],
Cell[621023, 14899, 334, 8, 22, "Print"],
Cell[621360, 14909, 340, 7, 22, "Print"],
Cell[621703, 14918, 270, 6, 22, "Print"],
Cell[621976, 14926, 125, 2, 22, "Print"],
Cell[622104, 14930, 109, 1, 22, "Print"],
Cell[622216, 14933, 132, 2, 22, "Print"],
Cell[622351, 14937, 115, 1, 21, "Print"],
Cell[622469, 14940, 324, 8, 22, "Print"],
Cell[622796, 14950, 76, 1, 21, "Print"],
Cell[622875, 14953, 309, 7, 22, "Print"],
Cell[623187, 14962, 345, 7, 22, "Print"],
Cell[623535, 14971, 340, 7, 22, "Print"],
Cell[623878, 14980, 340, 7, 22, "Print"],
Cell[624221, 14989, 339, 7, 22, "Print"],
Cell[624563, 14998, 278, 6, 21, "Print"],
Cell[624844, 15006, 76, 1, 21, "Print"],
Cell[624923, 15009, 332, 8, 22, "Print"],
Cell[625258, 15019, 342, 7, 22, "Print"],
Cell[625603, 15028, 273, 6, 22, "Print"],
Cell[625879, 15036, 118, 1, 22, "Print"],
Cell[626000, 15039, 149, 2, 22, "Print"],
Cell[626152, 15043, 76, 1, 21, "Print"],
Cell[626231, 15046, 309, 7, 22, "Print"],
Cell[626543, 15055, 342, 7, 22, "Print"],
Cell[626888, 15064, 274, 6, 21, "Print"],
Cell[627165, 15072, 76, 1, 21, "Print"],
Cell[627244, 15075, 331, 8, 22, "Print"],
Cell[627578, 15085, 342, 7, 22, "Print"],
Cell[627923, 15094, 276, 6, 22, "Print"],
Cell[628202, 15102, 128, 2, 22, "Print"],
Cell[628333, 15106, 111, 1, 22, "Print"],
Cell[628447, 15109, 135, 2, 22, "Print"],
Cell[628585, 15113, 121, 1, 21, "Print"],
Cell[628709, 15116, 326, 8, 22, "Print"],
Cell[629038, 15126, 78, 1, 21, "Print"],
Cell[629119, 15129, 309, 7, 22, "Print"],
Cell[629431, 15138, 344, 7, 22, "Print"],
Cell[629778, 15147, 340, 7, 22, "Print"],
Cell[630121, 15156, 340, 7, 22, "Print"],
Cell[630464, 15165, 340, 7, 22, "Print"],
Cell[630807, 15174, 276, 6, 21, "Print"],
Cell[631086, 15182, 76, 1, 21, "Print"],
Cell[631165, 15185, 332, 8, 22, "Print"],
Cell[631500, 15195, 344, 7, 22, "Print"],
Cell[631847, 15204, 276, 6, 22, "Print"],
Cell[632126, 15212, 118, 1, 22, "Print"],
Cell[632247, 15215, 151, 2, 22, "Print"],
Cell[632401, 15219, 78, 1, 21, "Print"],
Cell[632482, 15222, 309, 7, 22, "Print"],
Cell[632794, 15231, 344, 7, 22, "Print"],
Cell[633141, 15240, 274, 6, 21, "Print"],
Cell[633418, 15248, 76, 1, 21, "Print"],
Cell[633497, 15251, 334, 8, 22, "Print"],
Cell[633834, 15261, 342, 7, 22, "Print"],
Cell[634179, 15270, 276, 6, 22, "Print"],
Cell[634458, 15278, 128, 2, 22, "Print"],
Cell[634589, 15282, 112, 1, 22, "Print"],
Cell[634704, 15285, 133, 2, 22, "Print"],
Cell[634840, 15289, 119, 1, 21, "Print"],
Cell[634962, 15292, 324, 8, 22, "Print"],
Cell[635289, 15302, 76, 1, 21, "Print"],
Cell[635368, 15305, 308, 7, 22, "Print"],
Cell[635679, 15314, 348, 7, 22, "Print"],
Cell[636030, 15323, 344, 7, 22, "Print"],
Cell[636377, 15332, 344, 7, 22, "Print"],
Cell[636724, 15341, 342, 7, 22, "Print"],
Cell[637069, 15350, 280, 6, 21, "Print"],
Cell[637352, 15358, 78, 1, 21, "Print"],
Cell[637433, 15361, 332, 8, 22, "Print"],
Cell[637768, 15371, 344, 7, 22, "Print"],
Cell[638115, 15380, 342, 7, 22, "Print"],
Cell[638460, 15389, 340, 7, 22, "Print"],
Cell[638803, 15398, 340, 7, 22, "Print"],
Cell[639146, 15407, 278, 6, 22, "Print"],
Cell[639427, 15415, 118, 1, 22, "Print"],
Cell[639548, 15418, 149, 2, 22, "Print"],
Cell[639700, 15422, 76, 1, 21, "Print"],
Cell[639779, 15425, 309, 7, 22, "Print"],
Cell[640091, 15434, 340, 7, 22, "Print"],
Cell[640434, 15443, 272, 6, 21, "Print"],
Cell[640709, 15451, 76, 1, 21, "Print"],
Cell[640788, 15454, 332, 8, 22, "Print"],
Cell[641123, 15464, 340, 7, 22, "Print"],
Cell[641466, 15473, 272, 6, 22, "Print"],
Cell[641741, 15481, 127, 2, 22, "Print"],
Cell[641871, 15485, 113, 1, 22, "Print"],
Cell[641987, 15488, 134, 2, 22, "Print"],
Cell[642124, 15492, 120, 1, 21, "Print"],
Cell[642247, 15495, 324, 8, 22, "Print"],
Cell[642574, 15505, 78, 1, 21, "Print"],
Cell[642655, 15508, 311, 7, 22, "Print"],
Cell[642969, 15517, 348, 7, 22, "Print"],
Cell[643320, 15526, 342, 7, 22, "Print"],
Cell[643665, 15535, 341, 7, 22, "Print"],
Cell[644009, 15544, 346, 7, 22, "Print"],
Cell[644358, 15553, 280, 6, 21, "Print"],
Cell[644641, 15561, 76, 1, 21, "Print"],
Cell[644720, 15564, 334, 8, 22, "Print"],
Cell[645057, 15574, 344, 7, 22, "Print"],
Cell[645404, 15583, 276, 6, 22, "Print"],
Cell[645683, 15591, 119, 1, 22, "Print"],
Cell[645805, 15594, 150, 2, 22, "Print"],
Cell[645958, 15598, 76, 1, 21, "Print"],
Cell[646037, 15601, 308, 7, 22, "Print"],
Cell[646348, 15610, 342, 7, 22, "Print"],
Cell[646693, 15619, 274, 6, 21, "Print"],
Cell[646970, 15627, 78, 1, 21, "Print"],
Cell[647051, 15630, 332, 8, 22, "Print"],
Cell[647386, 15640, 274, 6, 22, "Print"],
Cell[647663, 15648, 126, 2, 22, "Print"],
Cell[647792, 15652, 115, 1, 22, "Print"],
Cell[647910, 15655, 134, 2, 22, "Print"],
Cell[648047, 15659, 120, 1, 21, "Print"],
Cell[648170, 15662, 324, 8, 22, "Print"],
Cell[648497, 15672, 78, 1, 21, "Print"],
Cell[648578, 15675, 311, 7, 22, "Print"],
Cell[648892, 15684, 348, 7, 22, "Print"],
Cell[649243, 15693, 344, 7, 22, "Print"],
Cell[649590, 15702, 346, 7, 22, "Print"],
Cell[649939, 15711, 346, 7, 22, "Print"],
Cell[650288, 15720, 282, 6, 21, "Print"],
Cell[650573, 15728, 76, 1, 21, "Print"],
Cell[650652, 15731, 332, 8, 22, "Print"],
Cell[650987, 15741, 344, 7, 22, "Print"],
Cell[651334, 15750, 276, 6, 22, "Print"],
Cell[651613, 15758, 119, 1, 22, "Print"],
Cell[651735, 15761, 150, 2, 22, "Print"],
Cell[651888, 15765, 76, 1, 21, "Print"],
Cell[651967, 15768, 311, 7, 22, "Print"],
Cell[652281, 15777, 342, 7, 22, "Print"],
Cell[652626, 15786, 272, 6, 21, "Print"],
Cell[652901, 15794, 78, 1, 21, "Print"],
Cell[652982, 15797, 332, 8, 22, "Print"],
Cell[653317, 15807, 274, 6, 22, "Print"],
Cell[653594, 15815, 129, 2, 22, "Print"],
Cell[653726, 15819, 113, 1, 22, "Print"],
Cell[653842, 15822, 134, 2, 22, "Print"],
Cell[653979, 15826, 120, 1, 21, "Print"],
Cell[654102, 15829, 324, 8, 22, "Print"],
Cell[654429, 15839, 78, 1, 21, "Print"],
Cell[654510, 15842, 309, 7, 22, "Print"],
Cell[654822, 15851, 348, 7, 22, "Print"],
Cell[655173, 15860, 344, 7, 22, "Print"],
Cell[655520, 15869, 346, 7, 22, "Print"],
Cell[655869, 15878, 344, 7, 22, "Print"],
Cell[656216, 15887, 280, 6, 21, "Print"],
Cell[656499, 15895, 76, 1, 21, "Print"],
Cell[656578, 15898, 332, 8, 22, "Print"],
Cell[656913, 15908, 272, 6, 22, "Print"],
Cell[657188, 15916, 119, 1, 22, "Print"],
Cell[657310, 15919, 150, 2, 22, "Print"],
Cell[657463, 15923, 76, 1, 21, "Print"],
Cell[657542, 15926, 311, 7, 22, "Print"],
Cell[657856, 15935, 340, 7, 22, "Print"],
Cell[658199, 15944, 271, 6, 21, "Print"],
Cell[658473, 15952, 76, 1, 21, "Print"],
Cell[658552, 15955, 332, 8, 22, "Print"],
Cell[658887, 15965, 272, 6, 22, "Print"],
Cell[659162, 15973, 127, 2, 22, "Print"],
Cell[659292, 15977, 115, 1, 22, "Print"],
Cell[659410, 15980, 134, 2, 22, "Print"],
Cell[659547, 15984, 120, 1, 21, "Print"],
Cell[659670, 15987, 327, 8, 22, "Print"],
Cell[660000, 15997, 78, 1, 21, "Print"],
Cell[660081, 16000, 336, 8, 22, "Print"],
Cell[660420, 16010, 78, 1, 21, "Print"],
Cell[660501, 16013, 309, 7, 22, "Print"],
Cell[660813, 16022, 346, 7, 22, "Print"],
Cell[661162, 16031, 344, 7, 22, "Print"],
Cell[661509, 16040, 344, 7, 22, "Print"],
Cell[661856, 16049, 346, 7, 22, "Print"],
Cell[662205, 16058, 344, 7, 22, "Print"],
Cell[662552, 16067, 343, 7, 22, "Print"],
Cell[662898, 16076, 345, 7, 22, "Print"],
Cell[663246, 16085, 346, 7, 22, "Print"],
Cell[663595, 16094, 348, 7, 22, "Print"],
Cell[663946, 16103, 346, 7, 22, "Print"],
Cell[664295, 16112, 348, 7, 22, "Print"],
Cell[664646, 16121, 346, 7, 22, "Print"],
Cell[664995, 16130, 76, 1, 21, "Print"],
Cell[665074, 16133, 270, 6, 22, "Print"],
Cell[665347, 16141, 284, 6, 21, "Print"],
Cell[665634, 16149, 76, 1, 21, "Print"],
Cell[665713, 16152, 331, 8, 22, "Print"],
Cell[666047, 16162, 340, 7, 22, "Print"],
Cell[666390, 16171, 340, 7, 22, "Print"],
Cell[666733, 16180, 340, 7, 22, "Print"],
Cell[667076, 16189, 340, 7, 22, "Print"],
Cell[667419, 16198, 340, 7, 22, "Print"],
Cell[667762, 16207, 340, 7, 22, "Print"],
Cell[668105, 16216, 348, 7, 22, "Print"],
Cell[668456, 16225, 348, 7, 22, "Print"],
Cell[668807, 16234, 346, 7, 22, "Print"],
Cell[669156, 16243, 342, 7, 22, "Print"],
Cell[669501, 16252, 342, 7, 22, "Print"],
Cell[669846, 16261, 344, 7, 22, "Print"],
Cell[670193, 16270, 280, 6, 22, "Print"],
Cell[670476, 16278, 119, 1, 22, "Print"],
Cell[670598, 16281, 150, 2, 22, "Print"],
Cell[670751, 16285, 76, 1, 21, "Print"],
Cell[670830, 16288, 309, 7, 22, "Print"],
Cell[671142, 16297, 340, 7, 22, "Print"],
Cell[671485, 16306, 274, 6, 21, "Print"],
Cell[671762, 16314, 76, 1, 21, "Print"],
Cell[671841, 16317, 332, 8, 22, "Print"],
Cell[672176, 16327, 340, 7, 22, "Print"],
Cell[672519, 16336, 274, 6, 22, "Print"],
Cell[672796, 16344, 127, 2, 22, "Print"],
Cell[672926, 16348, 113, 1, 22, "Print"],
Cell[673042, 16351, 134, 2, 22, "Print"],
Cell[673179, 16355, 125, 2, 21, "Print"],
Cell[673307, 16359, 327, 8, 22, "Print"],
Cell[673637, 16369, 76, 1, 21, "Print"],
Cell[673716, 16372, 338, 8, 22, "Print"],
Cell[674057, 16382, 76, 1, 21, "Print"],
Cell[674136, 16385, 311, 7, 22, "Print"],
Cell[674450, 16394, 346, 7, 22, "Print"],
Cell[674799, 16403, 343, 7, 22, "Print"],
Cell[675145, 16412, 344, 7, 22, "Print"],
Cell[675492, 16421, 344, 7, 22, "Print"],
Cell[675839, 16430, 344, 7, 22, "Print"],
Cell[676186, 16439, 346, 7, 22, "Print"],
Cell[676535, 16448, 346, 7, 22, "Print"],
Cell[676884, 16457, 346, 7, 22, "Print"],
Cell[677233, 16466, 346, 7, 22, "Print"],
Cell[677582, 16475, 348, 7, 22, "Print"],
Cell[677933, 16484, 348, 7, 22, "Print"],
Cell[678284, 16493, 346, 7, 22, "Print"],
Cell[678633, 16502, 76, 1, 21, "Print"],
Cell[678712, 16505, 271, 6, 22, "Print"],
Cell[678986, 16513, 284, 6, 21, "Print"],
Cell[679273, 16521, 76, 1, 21, "Print"],
Cell[679352, 16524, 334, 8, 22, "Print"],
Cell[679689, 16534, 344, 7, 22, "Print"],
Cell[680036, 16543, 344, 7, 22, "Print"],
Cell[680383, 16552, 344, 7, 22, "Print"],
Cell[680730, 16561, 278, 6, 22, "Print"],
Cell[681011, 16569, 118, 1, 22, "Print"],
Cell[681132, 16572, 150, 2, 22, "Print"],
Cell[681285, 16576, 76, 1, 21, "Print"],
Cell[681364, 16579, 309, 7, 22, "Print"],
Cell[681676, 16588, 340, 7, 22, "Print"],
Cell[682019, 16597, 272, 6, 21, "Print"],
Cell[682294, 16605, 76, 1, 21, "Print"],
Cell[682373, 16608, 332, 8, 22, "Print"],
Cell[682708, 16618, 272, 6, 22, "Print"],
Cell[682983, 16626, 127, 2, 22, "Print"],
Cell[683113, 16630, 113, 1, 22, "Print"],
Cell[683229, 16633, 136, 2, 22, "Print"],
Cell[683368, 16637, 125, 2, 21, "Print"],
Cell[683496, 16641, 115, 1, 22, "Print"],
Cell[683614, 16644, 101, 1, 22, "Print"],
Cell[683718, 16647, 162, 2, 22, "Print"],
Cell[683883, 16651, 80, 1, 21, "Print"]
}, Open  ]],
Cell[683978, 16655, 128, 3, 28, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[684143, 16663, 931, 23, 40, "Input"],
Cell[CellGroupData[{
Cell[685099, 16690, 318, 8, 22, "Print"],
Cell[685420, 16700, 76, 1, 21, "Print"],
Cell[685499, 16703, 548, 13, 22, "Print"],
Cell[686050, 16718, 388, 8, 22, "Print"],
Cell[686441, 16728, 98, 1, 21, "Print"],
Cell[686542, 16731, 245, 6, 21, "Print"],
Cell[686790, 16739, 275, 6, 21, "Print"],
Cell[687068, 16747, 343, 7, 21, "Print"],
Cell[687414, 16756, 76, 1, 21, "Print"],
Cell[687493, 16759, 311, 7, 22, "Print"],
Cell[687807, 16768, 342, 7, 22, "Print"],
Cell[688152, 16777, 274, 6, 21, "Print"],
Cell[688429, 16785, 75, 1, 21, "Print"],
Cell[688507, 16788, 334, 8, 22, "Print"],
Cell[688844, 16798, 274, 6, 22, "Print"],
Cell[689121, 16806, 117, 1, 22, "Print"],
Cell[689241, 16809, 148, 2, 22, "Print"],
Cell[689392, 16813, 78, 1, 21, "Print"],
Cell[689473, 16816, 309, 7, 22, "Print"],
Cell[689785, 16825, 340, 7, 22, "Print"],
Cell[690128, 16834, 272, 6, 21, "Print"],
Cell[690403, 16842, 76, 1, 21, "Print"],
Cell[690482, 16845, 332, 8, 22, "Print"],
Cell[690817, 16855, 274, 6, 22, "Print"],
Cell[691094, 16863, 127, 2, 22, "Print"],
Cell[691224, 16867, 111, 1, 22, "Print"],
Cell[691338, 16870, 131, 2, 22, "Print"],
Cell[691472, 16874, 112, 1, 21, "Print"],
Cell[691587, 16877, 323, 8, 22, "Print"],
Cell[691913, 16887, 76, 1, 21, "Print"],
Cell[691992, 16890, 309, 7, 22, "Print"],
Cell[692304, 16899, 340, 7, 22, "Print"],
Cell[692647, 16908, 343, 7, 22, "Print"],
Cell[692993, 16917, 278, 6, 21, "Print"],
Cell[693274, 16925, 78, 1, 21, "Print"],
Cell[693355, 16928, 332, 8, 22, "Print"],
Cell[693690, 16938, 344, 7, 22, "Print"],
Cell[694037, 16947, 274, 6, 22, "Print"],
Cell[694314, 16955, 119, 1, 22, "Print"],
Cell[694436, 16958, 148, 2, 22, "Print"],
Cell[694587, 16962, 78, 1, 21, "Print"],
Cell[694668, 16965, 311, 7, 22, "Print"],
Cell[694982, 16974, 342, 7, 22, "Print"],
Cell[695327, 16983, 274, 6, 21, "Print"],
Cell[695604, 16991, 76, 1, 21, "Print"],
Cell[695683, 16994, 332, 8, 22, "Print"],
Cell[696018, 17004, 342, 7, 22, "Print"],
Cell[696363, 17013, 274, 6, 22, "Print"],
Cell[696640, 17021, 125, 2, 22, "Print"],
Cell[696768, 17025, 111, 1, 22, "Print"],
Cell[696882, 17028, 132, 2, 22, "Print"],
Cell[697017, 17032, 114, 1, 21, "Print"],
Cell[697134, 17035, 320, 8, 22, "Print"],
Cell[697457, 17045, 76, 1, 21, "Print"],
Cell[697536, 17048, 309, 7, 22, "Print"],
Cell[697848, 17057, 346, 7, 22, "Print"],
Cell[698197, 17066, 344, 7, 22, "Print"],
Cell[698544, 17075, 276, 6, 21, "Print"],
Cell[698823, 17083, 76, 1, 21, "Print"],
Cell[698902, 17086, 330, 8, 22, "Print"],
Cell[699235, 17096, 272, 6, 22, "Print"],
Cell[699510, 17104, 119, 1, 22, "Print"],
Cell[699632, 17107, 148, 2, 22, "Print"],
Cell[699783, 17111, 78, 1, 21, "Print"],
Cell[699864, 17114, 309, 7, 22, "Print"],
Cell[700176, 17123, 340, 7, 22, "Print"],
Cell[700519, 17132, 272, 6, 21, "Print"],
Cell[700794, 17140, 76, 1, 21, "Print"],
Cell[700873, 17143, 331, 8, 22, "Print"],
Cell[701207, 17153, 272, 6, 22, "Print"],
Cell[701482, 17161, 125, 2, 22, "Print"],
Cell[701610, 17165, 111, 1, 22, "Print"],
Cell[701724, 17168, 134, 2, 22, "Print"],
Cell[701861, 17172, 117, 1, 21, "Print"],
Cell[701981, 17175, 321, 8, 22, "Print"],
Cell[702305, 17185, 76, 1, 21, "Print"],
Cell[702384, 17188, 309, 7, 22, "Print"],
Cell[702696, 17197, 342, 7, 22, "Print"],
Cell[703041, 17206, 344, 7, 22, "Print"],
Cell[703388, 17215, 276, 6, 21, "Print"],
Cell[703667, 17223, 76, 1, 21, "Print"],
Cell[703746, 17226, 332, 8, 22, "Print"],
Cell[704081, 17236, 339, 7, 22, "Print"],
Cell[704423, 17245, 342, 7, 22, "Print"],
Cell[704768, 17254, 274, 6, 22, "Print"],
Cell[705045, 17262, 117, 1, 22, "Print"],
Cell[705165, 17265, 150, 2, 22, "Print"],
Cell[705318, 17269, 76, 1, 21, "Print"],
Cell[705397, 17272, 309, 7, 22, "Print"],
Cell[705709, 17281, 340, 7, 22, "Print"],
Cell[706052, 17290, 272, 6, 21, "Print"],
Cell[706327, 17298, 76, 1, 21, "Print"],
Cell[706406, 17301, 332, 8, 22, "Print"],
Cell[706741, 17311, 342, 7, 22, "Print"],
Cell[707086, 17320, 272, 6, 22, "Print"],
Cell[707361, 17328, 123, 2, 22, "Print"],
Cell[707487, 17332, 113, 1, 22, "Print"],
Cell[707603, 17335, 132, 2, 22, "Print"],
Cell[707738, 17339, 115, 1, 21, "Print"],
Cell[707856, 17342, 324, 8, 22, "Print"],
Cell[708183, 17352, 76, 1, 21, "Print"],
Cell[708262, 17355, 308, 7, 22, "Print"],
Cell[708573, 17364, 348, 7, 22, "Print"],
Cell[708924, 17373, 339, 7, 22, "Print"],
Cell[709266, 17382, 342, 7, 22, "Print"],
Cell[709611, 17391, 340, 7, 22, "Print"],
Cell[709954, 17400, 278, 6, 21, "Print"],
Cell[710235, 17408, 78, 1, 21, "Print"],
Cell[710316, 17411, 331, 8, 22, "Print"],
Cell[710650, 17421, 344, 7, 22, "Print"],
Cell[710997, 17430, 274, 6, 22, "Print"],
Cell[711274, 17438, 118, 1, 22, "Print"],
Cell[711395, 17441, 149, 2, 22, "Print"],
Cell[711547, 17445, 76, 1, 21, "Print"],
Cell[711626, 17448, 309, 7, 22, "Print"],
Cell[711938, 17457, 342, 7, 22, "Print"],
Cell[712283, 17466, 274, 6, 21, "Print"],
Cell[712560, 17474, 76, 1, 21, "Print"],
Cell[712639, 17477, 331, 8, 22, "Print"],
Cell[712973, 17487, 342, 7, 22, "Print"],
Cell[713318, 17496, 276, 6, 22, "Print"],
Cell[713597, 17504, 126, 2, 22, "Print"],
Cell[713726, 17508, 112, 1, 22, "Print"],
Cell[713841, 17511, 133, 2, 22, "Print"],
Cell[713977, 17515, 121, 1, 21, "Print"],
Cell[714101, 17518, 324, 8, 22, "Print"],
Cell[714428, 17528, 76, 1, 21, "Print"],
Cell[714507, 17531, 308, 7, 22, "Print"],
Cell[714818, 17540, 344, 7, 22, "Print"],
Cell[715165, 17549, 340, 7, 22, "Print"],
Cell[715508, 17558, 342, 7, 22, "Print"],
Cell[715853, 17567, 340, 7, 22, "Print"],
Cell[716196, 17576, 278, 6, 21, "Print"],
Cell[716477, 17584, 76, 1, 21, "Print"],
Cell[716556, 17587, 332, 8, 22, "Print"],
Cell[716891, 17597, 344, 7, 22, "Print"],
Cell[717238, 17606, 276, 6, 22, "Print"],
Cell[717517, 17614, 117, 1, 22, "Print"],
Cell[717637, 17617, 149, 2, 22, "Print"],
Cell[717789, 17621, 76, 1, 21, "Print"],
Cell[717868, 17624, 309, 7, 22, "Print"],
Cell[718180, 17633, 344, 7, 22, "Print"],
Cell[718527, 17642, 274, 6, 21, "Print"],
Cell[718804, 17650, 76, 1, 21, "Print"],
Cell[718883, 17653, 331, 8, 22, "Print"],
Cell[719217, 17663, 342, 7, 22, "Print"],
Cell[719562, 17672, 276, 6, 22, "Print"],
Cell[719841, 17680, 126, 2, 22, "Print"],
Cell[719970, 17684, 112, 1, 22, "Print"],
Cell[720085, 17687, 133, 2, 22, "Print"],
Cell[720221, 17691, 121, 1, 21, "Print"],
Cell[720345, 17694, 324, 8, 22, "Print"],
Cell[720672, 17704, 76, 1, 21, "Print"],
Cell[720751, 17707, 308, 7, 22, "Print"],
Cell[721062, 17716, 348, 7, 22, "Print"],
Cell[721413, 17725, 342, 7, 22, "Print"],
Cell[721758, 17734, 342, 7, 22, "Print"],
Cell[722103, 17743, 344, 7, 22, "Print"],
Cell[722450, 17752, 280, 6, 21, "Print"],
Cell[722733, 17760, 76, 1, 21, "Print"],
Cell[722812, 17763, 332, 8, 22, "Print"],
Cell[723147, 17773, 346, 7, 22, "Print"],
Cell[723496, 17782, 340, 7, 22, "Print"],
Cell[723839, 17791, 340, 7, 22, "Print"],
Cell[724182, 17800, 340, 7, 22, "Print"],
Cell[724525, 17809, 276, 6, 22, "Print"],
Cell[724804, 17817, 118, 1, 22, "Print"],
Cell[724925, 17820, 152, 2, 22, "Print"],
Cell[725080, 17824, 78, 1, 21, "Print"],
Cell[725161, 17827, 311, 7, 22, "Print"],
Cell[725475, 17836, 342, 7, 22, "Print"],
Cell[725820, 17845, 272, 6, 21, "Print"],
Cell[726095, 17853, 76, 1, 21, "Print"],
Cell[726174, 17856, 334, 8, 22, "Print"],
Cell[726511, 17866, 342, 7, 22, "Print"],
Cell[726856, 17875, 272, 6, 22, "Print"],
Cell[727131, 17883, 127, 2, 22, "Print"],
Cell[727261, 17887, 113, 1, 22, "Print"],
Cell[727377, 17890, 134, 2, 22, "Print"],
Cell[727514, 17894, 119, 1, 21, "Print"],
Cell[727636, 17897, 326, 8, 22, "Print"],
Cell[727965, 17907, 76, 1, 21, "Print"],
Cell[728044, 17910, 311, 7, 22, "Print"],
Cell[728358, 17919, 346, 7, 22, "Print"],
Cell[728707, 17928, 341, 7, 22, "Print"],
Cell[729051, 17937, 342, 7, 22, "Print"],
Cell[729396, 17946, 343, 7, 22, "Print"],
Cell[729742, 17955, 280, 6, 21, "Print"],
Cell[730025, 17963, 76, 1, 21, "Print"],
Cell[730104, 17966, 334, 8, 22, "Print"],
Cell[730441, 17976, 344, 7, 22, "Print"],
Cell[730788, 17985, 276, 6, 22, "Print"],
Cell[731067, 17993, 121, 1, 22, "Print"],
Cell[731191, 17996, 150, 2, 22, "Print"],
Cell[731344, 18000, 78, 1, 21, "Print"],
Cell[731425, 18003, 309, 7, 22, "Print"],
Cell[731737, 18012, 342, 7, 22, "Print"],
Cell[732082, 18021, 272, 6, 21, "Print"],
Cell[732357, 18029, 76, 1, 21, "Print"],
Cell[732436, 18032, 334, 8, 22, "Print"],
Cell[732773, 18042, 272, 6, 22, "Print"],
Cell[733048, 18050, 127, 2, 22, "Print"],
Cell[733178, 18054, 113, 1, 22, "Print"],
Cell[733294, 18057, 134, 2, 22, "Print"],
Cell[733431, 18061, 120, 1, 21, "Print"],
Cell[733554, 18064, 326, 8, 22, "Print"],
Cell[733883, 18074, 76, 1, 21, "Print"],
Cell[733962, 18077, 309, 7, 22, "Print"],
Cell[734274, 18086, 348, 7, 22, "Print"],
Cell[734625, 18095, 344, 7, 22, "Print"],
Cell[734972, 18104, 343, 7, 22, "Print"],
Cell[735318, 18113, 344, 7, 22, "Print"],
Cell[735665, 18122, 280, 6, 21, "Print"],
Cell[735948, 18130, 76, 1, 21, "Print"],
Cell[736027, 18133, 334, 8, 22, "Print"],
Cell[736364, 18143, 346, 7, 22, "Print"],
Cell[736713, 18152, 276, 6, 22, "Print"],
Cell[736992, 18160, 119, 1, 22, "Print"],
Cell[737114, 18163, 150, 2, 22, "Print"],
Cell[737267, 18167, 78, 1, 21, "Print"],
Cell[737348, 18170, 309, 7, 22, "Print"],
Cell[737660, 18179, 340, 7, 22, "Print"],
Cell[738003, 18188, 272, 6, 21, "Print"],
Cell[738278, 18196, 76, 1, 21, "Print"],
Cell[738357, 18199, 332, 8, 22, "Print"],
Cell[738692, 18209, 272, 6, 22, "Print"],
Cell[738967, 18217, 127, 2, 22, "Print"],
Cell[739097, 18221, 115, 1, 22, "Print"],
Cell[739215, 18224, 134, 2, 22, "Print"],
Cell[739352, 18228, 122, 1, 21, "Print"],
Cell[739477, 18231, 323, 8, 22, "Print"],
Cell[739803, 18241, 76, 1, 21, "Print"],
Cell[739882, 18244, 309, 7, 22, "Print"],
Cell[740194, 18253, 350, 7, 22, "Print"],
Cell[740547, 18262, 343, 7, 22, "Print"],
Cell[740893, 18271, 344, 7, 22, "Print"],
Cell[741240, 18280, 344, 7, 22, "Print"],
Cell[741587, 18289, 280, 6, 21, "Print"],
Cell[741870, 18297, 76, 1, 21, "Print"],
Cell[741949, 18300, 332, 8, 22, "Print"],
Cell[742284, 18310, 272, 6, 22, "Print"],
Cell[742559, 18318, 119, 1, 22, "Print"],
Cell[742681, 18321, 150, 2, 22, "Print"],
Cell[742834, 18325, 78, 1, 21, "Print"],
Cell[742915, 18328, 311, 7, 22, "Print"],
Cell[743229, 18337, 340, 7, 22, "Print"],
Cell[743572, 18346, 272, 6, 21, "Print"],
Cell[743847, 18354, 78, 1, 21, "Print"],
Cell[743928, 18357, 332, 8, 22, "Print"],
Cell[744263, 18367, 274, 6, 22, "Print"],
Cell[744540, 18375, 127, 2, 22, "Print"],
Cell[744670, 18379, 113, 1, 22, "Print"],
Cell[744786, 18382, 136, 2, 22, "Print"],
Cell[744925, 18386, 120, 1, 21, "Print"],
Cell[745048, 18389, 327, 8, 22, "Print"],
Cell[745378, 18399, 76, 1, 21, "Print"],
Cell[745457, 18402, 336, 8, 22, "Print"],
Cell[745796, 18412, 78, 1, 21, "Print"],
Cell[745877, 18415, 309, 7, 22, "Print"],
Cell[746189, 18424, 344, 7, 22, "Print"],
Cell[746536, 18433, 344, 7, 22, "Print"],
Cell[746883, 18442, 343, 7, 22, "Print"],
Cell[747229, 18451, 344, 7, 22, "Print"],
Cell[747576, 18460, 344, 7, 22, "Print"],
Cell[747923, 18469, 344, 7, 22, "Print"],
Cell[748270, 18478, 346, 7, 22, "Print"],
Cell[748619, 18487, 346, 7, 22, "Print"],
Cell[748968, 18496, 346, 7, 22, "Print"],
Cell[749317, 18505, 348, 7, 22, "Print"],
Cell[749668, 18514, 348, 7, 22, "Print"],
Cell[750019, 18523, 346, 7, 22, "Print"],
Cell[750368, 18532, 76, 1, 21, "Print"],
Cell[750447, 18535, 271, 6, 22, "Print"],
Cell[750721, 18543, 284, 6, 21, "Print"],
Cell[751008, 18551, 76, 1, 21, "Print"],
Cell[751087, 18554, 332, 8, 22, "Print"],
Cell[751422, 18564, 342, 7, 22, "Print"],
Cell[751767, 18573, 340, 7, 22, "Print"],
Cell[752110, 18582, 342, 7, 22, "Print"],
Cell[752455, 18591, 340, 7, 22, "Print"],
Cell[752798, 18600, 342, 7, 22, "Print"],
Cell[753143, 18609, 340, 7, 22, "Print"],
Cell[753486, 18618, 346, 7, 22, "Print"],
Cell[753835, 18627, 348, 7, 22, "Print"],
Cell[754186, 18636, 348, 7, 22, "Print"],
Cell[754537, 18645, 342, 7, 22, "Print"],
Cell[754882, 18654, 342, 7, 22, "Print"],
Cell[755227, 18663, 342, 7, 22, "Print"],
Cell[755572, 18672, 280, 6, 22, "Print"],
Cell[755855, 18680, 119, 1, 22, "Print"],
Cell[755977, 18683, 149, 2, 22, "Print"],
Cell[756129, 18687, 76, 1, 21, "Print"],
Cell[756208, 18690, 309, 7, 22, "Print"],
Cell[756520, 18699, 339, 7, 22, "Print"],
Cell[756862, 18708, 272, 6, 21, "Print"],
Cell[757137, 18716, 78, 1, 21, "Print"],
Cell[757218, 18719, 334, 8, 22, "Print"],
Cell[757555, 18729, 340, 7, 22, "Print"],
Cell[757898, 18738, 271, 6, 22, "Print"],
Cell[758172, 18746, 127, 2, 22, "Print"],
Cell[758302, 18750, 113, 1, 22, "Print"],
Cell[758418, 18753, 134, 2, 22, "Print"],
Cell[758555, 18757, 125, 2, 21, "Print"],
Cell[758683, 18761, 327, 8, 22, "Print"],
Cell[759013, 18771, 76, 1, 21, "Print"],
Cell[759092, 18774, 336, 8, 22, "Print"],
Cell[759431, 18784, 76, 1, 21, "Print"],
Cell[759510, 18787, 311, 7, 22, "Print"],
Cell[759824, 18796, 346, 7, 22, "Print"],
Cell[760173, 18805, 344, 7, 22, "Print"],
Cell[760520, 18814, 344, 7, 22, "Print"],
Cell[760867, 18823, 344, 7, 22, "Print"],
Cell[761214, 18832, 344, 7, 22, "Print"],
Cell[761561, 18841, 346, 7, 22, "Print"],
Cell[761910, 18850, 346, 7, 22, "Print"],
Cell[762259, 18859, 346, 7, 22, "Print"],
Cell[762608, 18868, 348, 7, 22, "Print"],
Cell[762959, 18877, 347, 7, 22, "Print"],
Cell[763309, 18886, 346, 7, 22, "Print"],
Cell[763658, 18895, 346, 7, 22, "Print"],
Cell[764007, 18904, 76, 1, 21, "Print"],
Cell[764086, 18907, 271, 6, 22, "Print"],
Cell[764360, 18915, 281, 6, 21, "Print"],
Cell[764644, 18923, 76, 1, 21, "Print"],
Cell[764723, 18926, 332, 8, 22, "Print"],
Cell[765058, 18936, 344, 7, 22, "Print"],
Cell[765405, 18945, 344, 7, 22, "Print"],
Cell[765752, 18954, 346, 7, 22, "Print"],
Cell[766101, 18963, 278, 6, 22, "Print"],
Cell[766382, 18971, 121, 1, 22, "Print"],
Cell[766506, 18974, 150, 2, 22, "Print"],
Cell[766659, 18978, 74, 1, 21, "Print"],
Cell[766736, 18981, 309, 7, 22, "Print"],
Cell[767048, 18990, 339, 7, 22, "Print"],
Cell[767390, 18999, 272, 6, 21, "Print"],
Cell[767665, 19007, 78, 1, 21, "Print"],
Cell[767746, 19010, 332, 8, 22, "Print"],
Cell[768081, 19020, 274, 6, 22, "Print"],
Cell[768358, 19028, 127, 2, 22, "Print"],
Cell[768488, 19032, 113, 1, 22, "Print"],
Cell[768604, 19035, 136, 2, 22, "Print"],
Cell[768743, 19039, 125, 2, 21, "Print"],
Cell[768871, 19043, 116, 1, 22, "Print"],
Cell[768990, 19046, 98, 1, 22, "Print"],
Cell[769091, 19049, 164, 2, 22, "Print"],
Cell[769258, 19053, 80, 1, 21, "Print"]
}, Open  ]],
Cell[769353, 19057, 128, 3, 28, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[769518, 19065, 936, 23, 40, "Input"],
Cell[CellGroupData[{
Cell[770479, 19092, 318, 8, 22, "Print"],
Cell[770800, 19102, 76, 1, 21, "Print"],
Cell[770879, 19105, 560, 13, 22, "Print"],
Cell[771442, 19120, 390, 8, 22, "Print"],
Cell[771835, 19130, 98, 1, 21, "Print"],
Cell[771936, 19133, 245, 6, 21, "Print"],
Cell[772184, 19141, 274, 6, 21, "Print"],
Cell[772461, 19149, 360, 8, 21, "Print"],
Cell[772824, 19159, 76, 1, 21, "Print"],
Cell[772903, 19162, 309, 7, 22, "Print"],
Cell[773215, 19171, 342, 7, 22, "Print"],
Cell[773560, 19180, 273, 6, 21, "Print"],
Cell[773836, 19188, 76, 1, 21, "Print"],
Cell[773915, 19191, 332, 8, 22, "Print"],
Cell[774250, 19201, 272, 6, 22, "Print"],
Cell[774525, 19209, 117, 1, 22, "Print"],
Cell[774645, 19212, 150, 2, 22, "Print"],
Cell[774798, 19216, 76, 1, 21, "Print"],
Cell[774877, 19219, 309, 7, 22, "Print"],
Cell[775189, 19228, 340, 7, 22, "Print"],
Cell[775532, 19237, 274, 6, 21, "Print"],
Cell[775809, 19245, 78, 1, 21, "Print"],
Cell[775890, 19248, 334, 8, 22, "Print"],
Cell[776227, 19258, 272, 6, 22, "Print"],
Cell[776502, 19266, 124, 2, 22, "Print"],
Cell[776629, 19270, 110, 1, 22, "Print"],
Cell[776742, 19273, 132, 2, 22, "Print"],
Cell[776877, 19277, 112, 1, 21, "Print"],
Cell[776992, 19280, 321, 8, 22, "Print"],
Cell[777316, 19290, 76, 1, 21, "Print"],
Cell[777395, 19293, 309, 7, 22, "Print"],
Cell[777707, 19302, 342, 7, 22, "Print"],
Cell[778052, 19311, 344, 7, 22, "Print"],
Cell[778399, 19320, 276, 6, 21, "Print"],
Cell[778678, 19328, 76, 1, 21, "Print"],
Cell[778757, 19331, 332, 8, 22, "Print"],
Cell[779092, 19341, 342, 7, 22, "Print"],
Cell[779437, 19350, 274, 6, 22, "Print"],
Cell[779714, 19358, 117, 1, 22, "Print"],
Cell[779834, 19361, 150, 2, 22, "Print"],
Cell[779987, 19365, 76, 1, 21, "Print"],
Cell[780066, 19368, 309, 7, 22, "Print"],
Cell[780378, 19377, 342, 7, 22, "Print"],
Cell[780723, 19386, 273, 6, 21, "Print"],
Cell[780999, 19394, 76, 1, 21, "Print"],
Cell[781078, 19397, 332, 8, 22, "Print"],
Cell[781413, 19407, 344, 7, 22, "Print"],
Cell[781760, 19416, 274, 6, 22, "Print"],
Cell[782037, 19424, 125, 2, 22, "Print"],
Cell[782165, 19428, 113, 1, 22, "Print"],
Cell[782281, 19431, 132, 2, 22, "Print"],
Cell[782416, 19435, 117, 1, 21, "Print"],
Cell[782536, 19438, 321, 8, 22, "Print"],
Cell[782860, 19448, 78, 1, 21, "Print"],
Cell[782941, 19451, 311, 7, 22, "Print"],
Cell[783255, 19460, 344, 7, 22, "Print"],
Cell[783602, 19469, 346, 7, 22, "Print"],
Cell[783951, 19478, 276, 6, 21, "Print"],
Cell[784230, 19486, 76, 1, 21, "Print"],
Cell[784309, 19489, 332, 8, 22, "Print"],
Cell[784644, 19499, 272, 6, 22, "Print"],
Cell[784919, 19507, 117, 1, 22, "Print"],
Cell[785039, 19510, 148, 2, 22, "Print"],
Cell[785190, 19514, 76, 1, 21, "Print"],
Cell[785269, 19517, 309, 7, 22, "Print"],
Cell[785581, 19526, 340, 7, 22, "Print"],
Cell[785924, 19535, 272, 6, 21, "Print"],
Cell[786199, 19543, 78, 1, 21, "Print"],
Cell[786280, 19546, 332, 8, 22, "Print"],
Cell[786615, 19556, 272, 6, 22, "Print"],
Cell[786890, 19564, 125, 2, 22, "Print"],
Cell[787018, 19568, 111, 1, 22, "Print"],
Cell[787132, 19571, 134, 2, 22, "Print"],
Cell[787269, 19575, 117, 1, 21, "Print"],
Cell[787389, 19578, 321, 8, 22, "Print"],
Cell[787713, 19588, 74, 1, 21, "Print"],
Cell[787790, 19591, 308, 7, 22, "Print"],
Cell[788101, 19600, 342, 7, 22, "Print"],
Cell[788446, 19609, 344, 7, 22, "Print"],
Cell[788793, 19618, 276, 6, 21, "Print"],
Cell[789072, 19626, 76, 1, 21, "Print"],
Cell[789151, 19629, 332, 8, 22, "Print"],
Cell[789486, 19639, 342, 7, 22, "Print"],
Cell[789831, 19648, 342, 7, 22, "Print"],
Cell[790176, 19657, 276, 6, 22, "Print"],
Cell[790455, 19665, 117, 1, 22, "Print"],
Cell[790575, 19668, 148, 2, 22, "Print"],
Cell[790726, 19672, 78, 1, 21, "Print"],
Cell[790807, 19675, 309, 7, 22, "Print"],
Cell[791119, 19684, 340, 7, 22, "Print"],
Cell[791462, 19693, 272, 6, 21, "Print"],
Cell[791737, 19701, 76, 1, 21, "Print"],
Cell[791816, 19704, 332, 8, 22, "Print"],
Cell[792151, 19714, 342, 7, 22, "Print"],
Cell[792496, 19723, 274, 6, 22, "Print"],
Cell[792773, 19731, 125, 2, 22, "Print"],
Cell[792901, 19735, 110, 1, 22, "Print"],
Cell[793014, 19738, 132, 2, 22, "Print"],
Cell[793149, 19742, 117, 1, 21, "Print"],
Cell[793269, 19745, 326, 8, 22, "Print"],
Cell[793598, 19755, 76, 1, 21, "Print"],
Cell[793677, 19758, 309, 7, 22, "Print"],
Cell[793989, 19767, 346, 7, 22, "Print"],
Cell[794338, 19776, 340, 7, 22, "Print"],
Cell[794681, 19785, 340, 7, 22, "Print"],
Cell[795024, 19794, 342, 7, 22, "Print"],
Cell[795369, 19803, 275, 6, 21, "Print"],
Cell[795647, 19811, 76, 1, 21, "Print"],
Cell[795726, 19814, 332, 8, 22, "Print"],
Cell[796061, 19824, 272, 6, 22, "Print"],
Cell[796336, 19832, 117, 1, 22, "Print"],
Cell[796456, 19835, 150, 2, 22, "Print"],
Cell[796609, 19839, 75, 1, 21, "Print"],
Cell[796687, 19842, 311, 7, 22, "Print"],
Cell[797001, 19851, 342, 7, 22, "Print"],
Cell[797346, 19860, 272, 6, 21, "Print"],
Cell[797621, 19868, 76, 1, 21, "Print"],
Cell[797700, 19871, 332, 8, 22, "Print"],
Cell[798035, 19881, 272, 6, 22, "Print"],
Cell[798310, 19889, 127, 2, 22, "Print"],
Cell[798440, 19893, 111, 1, 22, "Print"],
Cell[798554, 19896, 132, 2, 22, "Print"],
Cell[798689, 19900, 118, 1, 21, "Print"],
Cell[798810, 19903, 326, 8, 22, "Print"],
Cell[799139, 19913, 78, 1, 21, "Print"],
Cell[799220, 19916, 309, 7, 22, "Print"],
Cell[799532, 19925, 344, 7, 22, "Print"],
Cell[799879, 19934, 340, 7, 22, "Print"],
Cell[800222, 19943, 340, 7, 22, "Print"],
Cell[800565, 19952, 340, 7, 22, "Print"],
Cell[800908, 19961, 276, 6, 21, "Print"],
Cell[801187, 19969, 76, 1, 21, "Print"],
Cell[801266, 19972, 334, 8, 22, "Print"],
Cell[801603, 19982, 344, 7, 22, "Print"],
Cell[801950, 19991, 278, 6, 22, "Print"],
Cell[802231, 19999, 118, 1, 22, "Print"],
Cell[802352, 20002, 151, 2, 22, "Print"],
Cell[802506, 20006, 76, 1, 21, "Print"],
Cell[802585, 20009, 309, 7, 22, "Print"],
Cell[802897, 20018, 342, 7, 22, "Print"],
Cell[803242, 20027, 273, 6, 21, "Print"],
Cell[803518, 20035, 76, 1, 21, "Print"],
Cell[803597, 20038, 332, 8, 22, "Print"],
Cell[803932, 20048, 342, 7, 22, "Print"],
Cell[804277, 20057, 274, 6, 22, "Print"],
Cell[804554, 20065, 126, 2, 22, "Print"],
Cell[804683, 20069, 112, 1, 22, "Print"],
Cell[804798, 20072, 133, 2, 22, "Print"],
Cell[804934, 20076, 119, 1, 21, "Print"],
Cell[805056, 20079, 324, 8, 22, "Print"],
Cell[805383, 20089, 78, 1, 21, "Print"],
Cell[805464, 20092, 309, 7, 22, "Print"],
Cell[805776, 20101, 348, 7, 22, "Print"],
Cell[806127, 20110, 342, 7, 22, "Print"],
Cell[806472, 20119, 342, 7, 22, "Print"],
Cell[806817, 20128, 342, 7, 22, "Print"],
Cell[807162, 20137, 280, 6, 21, "Print"],
Cell[807445, 20145, 76, 1, 21, "Print"],
Cell[807524, 20148, 332, 8, 22, "Print"],
Cell[807859, 20158, 344, 7, 22, "Print"],
Cell[808206, 20167, 342, 7, 22, "Print"],
Cell[808551, 20176, 340, 7, 22, "Print"],
Cell[808894, 20185, 342, 7, 22, "Print"],
Cell[809239, 20194, 276, 6, 22, "Print"],
Cell[809518, 20202, 118, 1, 22, "Print"],
Cell[809639, 20205, 152, 2, 22, "Print"],
Cell[809794, 20209, 76, 1, 21, "Print"],
Cell[809873, 20212, 309, 7, 22, "Print"],
Cell[810185, 20221, 340, 7, 22, "Print"],
Cell[810528, 20230, 272, 6, 21, "Print"],
Cell[810803, 20238, 75, 1, 21, "Print"],
Cell[810881, 20241, 332, 8, 22, "Print"],
Cell[811216, 20251, 340, 7, 22, "Print"],
Cell[811559, 20260, 272, 6, 22, "Print"],
Cell[811834, 20268, 127, 2, 22, "Print"],
Cell[811964, 20272, 115, 1, 22, "Print"],
Cell[812082, 20275, 134, 2, 22, "Print"],
Cell[812219, 20279, 120, 1, 21, "Print"],
Cell[812342, 20282, 324, 8, 22, "Print"],
Cell[812669, 20292, 76, 1, 21, "Print"],
Cell[812748, 20295, 309, 7, 22, "Print"],
Cell[813060, 20304, 344, 7, 22, "Print"],
Cell[813407, 20313, 344, 7, 22, "Print"],
Cell[813754, 20322, 342, 7, 22, "Print"],
Cell[814099, 20331, 344, 7, 22, "Print"],
Cell[814446, 20340, 278, 6, 21, "Print"],
Cell[814727, 20348, 75, 1, 21, "Print"],
Cell[814805, 20351, 332, 8, 22, "Print"],
Cell[815140, 20361, 272, 6, 22, "Print"],
Cell[815415, 20369, 119, 1, 22, "Print"],
Cell[815537, 20372, 150, 2, 22, "Print"],
Cell[815690, 20376, 76, 1, 21, "Print"],
Cell[815769, 20379, 309, 7, 22, "Print"],
Cell[816081, 20388, 340, 7, 22, "Print"],
Cell[816424, 20397, 272, 6, 21, "Print"],
Cell[816699, 20405, 76, 1, 21, "Print"],
Cell[816778, 20408, 332, 8, 22, "Print"],
Cell[817113, 20418, 272, 6, 22, "Print"],
Cell[817388, 20426, 127, 2, 22, "Print"],
Cell[817518, 20430, 113, 1, 22, "Print"],
Cell[817634, 20433, 136, 2, 22, "Print"],
Cell[817773, 20437, 120, 1, 21, "Print"],
Cell[817896, 20440, 324, 8, 22, "Print"],
Cell[818223, 20450, 76, 1, 21, "Print"],
Cell[818302, 20453, 309, 7, 22, "Print"],
Cell[818614, 20462, 346, 7, 22, "Print"],
Cell[818963, 20471, 344, 7, 22, "Print"],
Cell[819310, 20480, 344, 7, 22, "Print"],
Cell[819657, 20489, 344, 7, 22, "Print"],
Cell[820004, 20498, 282, 6, 21, "Print"],
Cell[820289, 20506, 76, 1, 21, "Print"],
Cell[820368, 20509, 334, 8, 22, "Print"],
Cell[820705, 20519, 272, 6, 22, "Print"],
Cell[820980, 20527, 119, 1, 22, "Print"],
Cell[821102, 20530, 150, 2, 22, "Print"],
Cell[821255, 20534, 76, 1, 21, "Print"],
Cell[821334, 20537, 311, 7, 22, "Print"],
Cell[821648, 20546, 342, 7, 22, "Print"],
Cell[821993, 20555, 274, 6, 21, "Print"],
Cell[822270, 20563, 78, 1, 21, "Print"],
Cell[822351, 20566, 332, 8, 22, "Print"],
Cell[822686, 20576, 274, 6, 22, "Print"],
Cell[822963, 20584, 127, 2, 22, "Print"],
Cell[823093, 20588, 115, 1, 22, "Print"],
Cell[823211, 20591, 134, 2, 22, "Print"],
Cell[823348, 20595, 120, 1, 21, "Print"],
Cell[823471, 20598, 326, 8, 22, "Print"],
Cell[823800, 20608, 78, 1, 21, "Print"],
Cell[823881, 20611, 307, 7, 22, "Print"],
Cell[824191, 20620, 348, 7, 22, "Print"],
Cell[824542, 20629, 343, 7, 22, "Print"],
Cell[824888, 20638, 343, 7, 22, "Print"],
Cell[825234, 20647, 344, 7, 22, "Print"],
Cell[825581, 20656, 282, 6, 21, "Print"],
Cell[825866, 20664, 76, 1, 21, "Print"],
Cell[825945, 20667, 332, 8, 22, "Print"],
Cell[826280, 20677, 272, 6, 22, "Print"],
Cell[826555, 20685, 118, 1, 22, "Print"],
Cell[826676, 20688, 150, 2, 22, "Print"],
Cell[826829, 20692, 76, 1, 21, "Print"],
Cell[826908, 20695, 309, 7, 22, "Print"],
Cell[827220, 20704, 340, 7, 22, "Print"],
Cell[827563, 20713, 274, 6, 21, "Print"],
Cell[827840, 20721, 76, 1, 21, "Print"],
Cell[827919, 20724, 334, 8, 22, "Print"],
Cell[828256, 20734, 272, 6, 22, "Print"],
Cell[828531, 20742, 127, 2, 22, "Print"],
Cell[828661, 20746, 113, 1, 22, "Print"],
Cell[828777, 20749, 136, 2, 22, "Print"],
Cell[828916, 20753, 120, 1, 21, "Print"],
Cell[829039, 20756, 327, 8, 22, "Print"],
Cell[829369, 20766, 76, 1, 21, "Print"],
Cell[829448, 20769, 336, 8, 22, "Print"],
Cell[829787, 20779, 76, 1, 21, "Print"],
Cell[829866, 20782, 311, 7, 22, "Print"],
Cell[830180, 20791, 344, 7, 22, "Print"],
Cell[830527, 20800, 346, 7, 22, "Print"],
Cell[830876, 20809, 346, 7, 22, "Print"],
Cell[831225, 20818, 344, 7, 22, "Print"],
Cell[831572, 20827, 344, 7, 22, "Print"],
Cell[831919, 20836, 344, 7, 22, "Print"],
Cell[832266, 20845, 348, 7, 22, "Print"],
Cell[832617, 20854, 348, 7, 22, "Print"],
Cell[832968, 20863, 348, 7, 22, "Print"],
Cell[833319, 20872, 346, 7, 22, "Print"],
Cell[833668, 20881, 345, 7, 22, "Print"],
Cell[834016, 20890, 345, 7, 22, "Print"],
Cell[834364, 20899, 76, 1, 21, "Print"],
Cell[834443, 20902, 271, 6, 22, "Print"],
Cell[834717, 20910, 282, 6, 21, "Print"],
Cell[835002, 20918, 76, 1, 21, "Print"],
Cell[835081, 20921, 334, 8, 22, "Print"],
Cell[835418, 20931, 340, 7, 22, "Print"],
Cell[835761, 20940, 339, 7, 22, "Print"],
Cell[836103, 20949, 342, 7, 22, "Print"],
Cell[836448, 20958, 342, 7, 22, "Print"],
Cell[836793, 20967, 339, 7, 22, "Print"],
Cell[837135, 20976, 340, 7, 22, "Print"],
Cell[837478, 20985, 348, 7, 22, "Print"],
Cell[837829, 20994, 346, 7, 22, "Print"],
Cell[838178, 21003, 348, 7, 22, "Print"],
Cell[838529, 21012, 342, 7, 22, "Print"],
Cell[838874, 21021, 342, 7, 22, "Print"],
Cell[839219, 21030, 342, 7, 22, "Print"],
Cell[839564, 21039, 282, 6, 22, "Print"],
Cell[839849, 21047, 119, 1, 22, "Print"],
Cell[839971, 21050, 150, 2, 22, "Print"],
Cell[840124, 21054, 76, 1, 21, "Print"],
Cell[840203, 21057, 309, 7, 22, "Print"],
Cell[840515, 21066, 339, 7, 22, "Print"],
Cell[840857, 21075, 271, 6, 21, "Print"],
Cell[841131, 21083, 76, 1, 21, "Print"],
Cell[841210, 21086, 334, 8, 22, "Print"],
Cell[841547, 21096, 340, 7, 22, "Print"],
Cell[841890, 21105, 272, 6, 22, "Print"],
Cell[842165, 21113, 127, 2, 22, "Print"],
Cell[842295, 21117, 113, 1, 22, "Print"],
Cell[842411, 21120, 134, 2, 22, "Print"],
Cell[842548, 21124, 127, 2, 21, "Print"],
Cell[842678, 21128, 327, 8, 22, "Print"],
Cell[843008, 21138, 76, 1, 21, "Print"],
Cell[843087, 21141, 338, 8, 22, "Print"],
Cell[843428, 21151, 75, 1, 21, "Print"],
Cell[843506, 21154, 311, 7, 22, "Print"],
Cell[843820, 21163, 346, 7, 22, "Print"],
Cell[844169, 21172, 343, 7, 22, "Print"],
Cell[844515, 21181, 344, 7, 22, "Print"],
Cell[844862, 21190, 346, 7, 22, "Print"],
Cell[845211, 21199, 344, 7, 22, "Print"],
Cell[845558, 21208, 346, 7, 22, "Print"],
Cell[845907, 21217, 348, 7, 22, "Print"],
Cell[846258, 21226, 346, 7, 22, "Print"],
Cell[846607, 21235, 348, 7, 22, "Print"],
Cell[846958, 21244, 348, 7, 22, "Print"],
Cell[847309, 21253, 348, 7, 22, "Print"],
Cell[847660, 21262, 348, 7, 22, "Print"],
Cell[848011, 21271, 76, 1, 21, "Print"],
Cell[848090, 21274, 271, 6, 22, "Print"],
Cell[848364, 21282, 282, 6, 21, "Print"],
Cell[848649, 21290, 78, 1, 21, "Print"],
Cell[848730, 21293, 332, 8, 22, "Print"],
Cell[849065, 21303, 272, 6, 22, "Print"],
Cell[849340, 21311, 119, 1, 22, "Print"],
Cell[849462, 21314, 150, 2, 22, "Print"],
Cell[849615, 21318, 78, 1, 21, "Print"],
Cell[849696, 21321, 308, 7, 22, "Print"],
Cell[850007, 21330, 342, 7, 22, "Print"],
Cell[850352, 21339, 272, 6, 21, "Print"],
Cell[850627, 21347, 76, 1, 21, "Print"],
Cell[850706, 21350, 332, 8, 22, "Print"],
Cell[851041, 21360, 272, 6, 22, "Print"],
Cell[851316, 21368, 127, 2, 22, "Print"],
Cell[851446, 21372, 115, 1, 22, "Print"],
Cell[851564, 21375, 136, 2, 22, "Print"],
Cell[851703, 21379, 127, 2, 21, "Print"],
Cell[851833, 21383, 116, 1, 22, "Print"],
Cell[851952, 21386, 98, 1, 22, "Print"],
Cell[852053, 21389, 173, 2, 22, "Print"],
Cell[852229, 21393, 80, 1, 21, "Print"]
}, Open  ]],
Cell[852324, 21397, 128, 3, 28, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[852489, 21405, 935, 23, 40, "Input"],
Cell[CellGroupData[{
Cell[853449, 21432, 318, 8, 22, "Print"],
Cell[853770, 21442, 75, 1, 21, "Print"],
Cell[853848, 21445, 560, 13, 22, "Print"],
Cell[854411, 21460, 390, 8, 22, "Print"],
Cell[854804, 21470, 98, 1, 21, "Print"],
Cell[854905, 21473, 247, 6, 21, "Print"],
Cell[855155, 21481, 275, 6, 21, "Print"],
Cell[855433, 21489, 358, 8, 22, "Print"],
Cell[855794, 21499, 76, 1, 21, "Print"],
Cell[855873, 21502, 307, 7, 22, "Print"],
Cell[856183, 21511, 344, 7, 22, "Print"],
Cell[856530, 21520, 274, 6, 21, "Print"],
Cell[856807, 21528, 78, 1, 21, "Print"],
Cell[856888, 21531, 332, 8, 22, "Print"],
Cell[857223, 21541, 272, 6, 22, "Print"],
Cell[857498, 21549, 117, 1, 22, "Print"],
Cell[857618, 21552, 150, 2, 22, "Print"],
Cell[857771, 21556, 76, 1, 21, "Print"],
Cell[857850, 21559, 308, 7, 22, "Print"],
Cell[858161, 21568, 340, 7, 22, "Print"],
Cell[858504, 21577, 272, 6, 21, "Print"],
Cell[858779, 21585, 76, 1, 21, "Print"],
Cell[858858, 21588, 332, 8, 22, "Print"],
Cell[859193, 21598, 272, 6, 22, "Print"],
Cell[859468, 21606, 124, 2, 22, "Print"],
Cell[859595, 21610, 111, 1, 22, "Print"],
Cell[859709, 21613, 134, 2, 22, "Print"],
Cell[859846, 21617, 114, 1, 21, "Print"],
Cell[859963, 21620, 321, 8, 22, "Print"],
Cell[860287, 21630, 78, 1, 21, "Print"],
Cell[860368, 21633, 309, 7, 22, "Print"],
Cell[860680, 21642, 339, 7, 22, "Print"],
Cell[861022, 21651, 344, 7, 22, "Print"],
Cell[861369, 21660, 276, 6, 21, "Print"],
Cell[861648, 21668, 76, 1, 21, "Print"],
Cell[861727, 21671, 332, 8, 22, "Print"],
Cell[862062, 21681, 344, 7, 22, "Print"],
Cell[862409, 21690, 274, 6, 22, "Print"],
Cell[862686, 21698, 115, 1, 22, "Print"],
Cell[862804, 21701, 148, 2, 22, "Print"],
Cell[862955, 21705, 78, 1, 21, "Print"],
Cell[863036, 21708, 309, 7, 22, "Print"],
Cell[863348, 21717, 344, 7, 22, "Print"],
Cell[863695, 21726, 276, 6, 21, "Print"],
Cell[863974, 21734, 76, 1, 21, "Print"],
Cell[864053, 21737, 334, 8, 22, "Print"],
Cell[864390, 21747, 342, 7, 22, "Print"],
Cell[864735, 21756, 274, 6, 22, "Print"],
Cell[865012, 21764, 125, 2, 22, "Print"],
Cell[865140, 21768, 111, 1, 22, "Print"],
Cell[865254, 21771, 134, 2, 22, "Print"],
Cell[865391, 21775, 117, 1, 21, "Print"],
Cell[865511, 21778, 321, 8, 22, "Print"],
Cell[865835, 21788, 76, 1, 21, "Print"],
Cell[865914, 21791, 309, 7, 22, "Print"],
Cell[866226, 21800, 346, 7, 22, "Print"],
Cell[866575, 21809, 344, 7, 22, "Print"],
Cell[866922, 21818, 278, 6, 21, "Print"],
Cell[867203, 21826, 76, 1, 21, "Print"],
Cell[867282, 21829, 331, 8, 22, "Print"],
Cell[867616, 21839, 272, 6, 22, "Print"],
Cell[867891, 21847, 117, 1, 22, "Print"],
Cell[868011, 21850, 150, 2, 22, "Print"],
Cell[868164, 21854, 76, 1, 21, "Print"],
Cell[868243, 21857, 311, 7, 22, "Print"],
Cell[868557, 21866, 340, 7, 22, "Print"],
Cell[868900, 21875, 272, 6, 21, "Print"],
Cell[869175, 21883, 76, 1, 21, "Print"],
Cell[869254, 21886, 332, 8, 22, "Print"],
Cell[869589, 21896, 274, 6, 22, "Print"],
Cell[869866, 21904, 125, 2, 22, "Print"],
Cell[869994, 21908, 113, 1, 22, "Print"],
Cell[870110, 21911, 132, 2, 22, "Print"],
Cell[870245, 21915, 115, 1, 21, "Print"],
Cell[870363, 21918, 321, 8, 22, "Print"],
Cell[870687, 21928, 76, 1, 21, "Print"],
Cell[870766, 21931, 309, 7, 22, "Print"],
Cell[871078, 21940, 344, 7, 22, "Print"],
Cell[871425, 21949, 344, 7, 22, "Print"],
Cell[871772, 21958, 276, 6, 21, "Print"],
Cell[872051, 21966, 76, 1, 21, "Print"],
Cell[872130, 21969, 332, 8, 22, "Print"],
Cell[872465, 21979, 340, 7, 22, "Print"],
Cell[872808, 21988, 342, 7, 22, "Print"],
Cell[873153, 21997, 274, 6, 22, "Print"],
Cell[873430, 22005, 117, 1, 22, "Print"],
Cell[873550, 22008, 148, 2, 22, "Print"],
Cell[873701, 22012, 78, 1, 21, "Print"],
Cell[873782, 22015, 309, 7, 22, "Print"],
Cell[874094, 22024, 340, 7, 22, "Print"],
Cell[874437, 22033, 272, 6, 21, "Print"],
Cell[874712, 22041, 78, 1, 21, "Print"],
Cell[874793, 22044, 332, 8, 22, "Print"],
Cell[875128, 22054, 340, 7, 22, "Print"],
Cell[875471, 22063, 272, 6, 22, "Print"],
Cell[875746, 22071, 125, 2, 22, "Print"],
Cell[875874, 22075, 111, 1, 22, "Print"],
Cell[875988, 22078, 132, 2, 22, "Print"],
Cell[876123, 22082, 115, 1, 21, "Print"],
Cell[876241, 22085, 323, 8, 22, "Print"],
Cell[876567, 22095, 76, 1, 21, "Print"],
Cell[876646, 22098, 308, 7, 22, "Print"],
Cell[876957, 22107, 345, 7, 22, "Print"],
Cell[877305, 22116, 340, 7, 22, "Print"],
Cell[877648, 22125, 340, 7, 22, "Print"],
Cell[877991, 22134, 340, 7, 22, "Print"],
Cell[878334, 22143, 280, 6, 21, "Print"],
Cell[878617, 22151, 76, 1, 21, "Print"],
Cell[878696, 22154, 334, 8, 22, "Print"],
Cell[879033, 22164, 344, 7, 22, "Print"],
Cell[879380, 22173, 274, 6, 22, "Print"],
Cell[879657, 22181, 118, 1, 22, "Print"],
Cell[879778, 22184, 149, 2, 22, "Print"],
Cell[879930, 22188, 76, 1, 21, "Print"],
Cell[880009, 22191, 311, 7, 22, "Print"],
Cell[880323, 22200, 342, 7, 22, "Print"],
Cell[880668, 22209, 276, 6, 21, "Print"],
Cell[880947, 22217, 78, 1, 21, "Print"],
Cell[881028, 22220, 334, 8, 22, "Print"],
Cell[881365, 22230, 342, 7, 22, "Print"],
Cell[881710, 22239, 276, 6, 22, "Print"],
Cell[881989, 22247, 126, 2, 22, "Print"],
Cell[882118, 22251, 112, 1, 22, "Print"],
Cell[882233, 22254, 135, 2, 22, "Print"],
Cell[882371, 22258, 121, 1, 21, "Print"],
Cell[882495, 22261, 324, 8, 22, "Print"],
Cell[882822, 22271, 76, 1, 21, "Print"],
Cell[882901, 22274, 309, 7, 22, "Print"],
Cell[883213, 22283, 344, 7, 22, "Print"],
Cell[883560, 22292, 340, 7, 22, "Print"],
Cell[883903, 22301, 340, 7, 22, "Print"],
Cell[884246, 22310, 340, 7, 22, "Print"],
Cell[884589, 22319, 275, 6, 21, "Print"],
Cell[884867, 22327, 76, 1, 21, "Print"],
Cell[884946, 22330, 334, 8, 22, "Print"],
Cell[885283, 22340, 346, 7, 22, "Print"],
Cell[885632, 22349, 276, 6, 22, "Print"],
Cell[885911, 22357, 118, 1, 22, "Print"],
Cell[886032, 22360, 151, 2, 22, "Print"],
Cell[886186, 22364, 76, 1, 21, "Print"],
Cell[886265, 22367, 309, 7, 22, "Print"],
Cell[886577, 22376, 342, 7, 22, "Print"],
Cell[886922, 22385, 273, 6, 21, "Print"],
Cell[887198, 22393, 76, 1, 21, "Print"],
Cell[887277, 22396, 332, 8, 22, "Print"],
Cell[887612, 22406, 344, 7, 22, "Print"],
Cell[887959, 22415, 274, 6, 22, "Print"],
Cell[888236, 22423, 125, 2, 22, "Print"],
Cell[888364, 22427, 114, 1, 22, "Print"],
Cell[888481, 22430, 133, 2, 22, "Print"],
Cell[888617, 22434, 119, 1, 21, "Print"],
Cell[888739, 22437, 324, 8, 22, "Print"],
Cell[889066, 22447, 76, 1, 21, "Print"],
Cell[889145, 22450, 309, 7, 22, "Print"],
Cell[889457, 22459, 348, 7, 22, "Print"],
Cell[889808, 22468, 344, 7, 22, "Print"],
Cell[890155, 22477, 344, 7, 22, "Print"],
Cell[890502, 22486, 342, 7, 22, "Print"],
Cell[890847, 22495, 280, 6, 21, "Print"],
Cell[891130, 22503, 76, 1, 21, "Print"],
Cell[891209, 22506, 332, 8, 22, "Print"],
Cell[891544, 22516, 346, 7, 22, "Print"],
Cell[891893, 22525, 340, 7, 22, "Print"],
Cell[892236, 22534, 342, 7, 22, "Print"],
Cell[892581, 22543, 340, 7, 22, "Print"],
Cell[892924, 22552, 278, 6, 22, "Print"],
Cell[893205, 22560, 118, 1, 22, "Print"],
Cell[893326, 22563, 152, 2, 22, "Print"],
Cell[893481, 22567, 76, 1, 21, "Print"],
Cell[893560, 22570, 309, 7, 22, "Print"],
Cell[893872, 22579, 340, 7, 22, "Print"],
Cell[894215, 22588, 272, 6, 21, "Print"],
Cell[894490, 22596, 76, 1, 21, "Print"],
Cell[894569, 22599, 332, 8, 22, "Print"],
Cell[894904, 22609, 340, 7, 22, "Print"],
Cell[895247, 22618, 272, 6, 22, "Print"],
Cell[895522, 22626, 129, 2, 22, "Print"],
Cell[895654, 22630, 115, 1, 22, "Print"],
Cell[895772, 22633, 136, 2, 22, "Print"],
Cell[895911, 22637, 120, 1, 21, "Print"],
Cell[896034, 22640, 324, 8, 22, "Print"],
Cell[896361, 22650, 76, 1, 21, "Print"],
Cell[896440, 22653, 309, 7, 22, "Print"],
Cell[896752, 22662, 346, 7, 22, "Print"],
Cell[897101, 22671, 342, 7, 22, "Print"],
Cell[897446, 22680, 342, 7, 22, "Print"],
Cell[897791, 22689, 344, 7, 22, "Print"],
Cell[898138, 22698, 280, 6, 21, "Print"],
Cell[898421, 22706, 78, 1, 21, "Print"],
Cell[898502, 22709, 334, 8, 22, "Print"],
Cell[898839, 22719, 344, 7, 22, "Print"],
Cell[899186, 22728, 276, 6, 22, "Print"],
Cell[899465, 22736, 119, 1, 22, "Print"],
Cell[899587, 22739, 150, 2, 22, "Print"],
Cell[899740, 22743, 76, 1, 21, "Print"],
Cell[899819, 22746, 309, 7, 22, "Print"],
Cell[900131, 22755, 340, 7, 22, "Print"],
Cell[900474, 22764, 272, 6, 21, "Print"],
Cell[900749, 22772, 76, 1, 21, "Print"],
Cell[900828, 22775, 332, 8, 22, "Print"],
Cell[901163, 22785, 272, 6, 22, "Print"],
Cell[901438, 22793, 127, 2, 22, "Print"],
Cell[901568, 22797, 113, 1, 22, "Print"],
Cell[901684, 22800, 136, 2, 22, "Print"],
Cell[901823, 22804, 120, 1, 21, "Print"],
Cell[901946, 22807, 326, 8, 22, "Print"],
Cell[902275, 22817, 78, 1, 21, "Print"],
Cell[902356, 22820, 309, 7, 22, "Print"],
Cell[902668, 22829, 348, 7, 22, "Print"],
Cell[903019, 22838, 344, 7, 22, "Print"],
Cell[903366, 22847, 344, 7, 22, "Print"],
Cell[903713, 22856, 344, 7, 22, "Print"],
Cell[904060, 22865, 282, 6, 21, "Print"],
Cell[904345, 22873, 76, 1, 21, "Print"],
Cell[904424, 22876, 332, 8, 22, "Print"],
Cell[904759, 22886, 344, 7, 22, "Print"],
Cell[905106, 22895, 278, 6, 22, "Print"],
Cell[905387, 22903, 121, 1, 22, "Print"],
Cell[905511, 22906, 150, 2, 22, "Print"],
Cell[905664, 22910, 78, 1, 21, "Print"],
Cell[905745, 22913, 309, 7, 22, "Print"],
Cell[906057, 22922, 340, 7, 22, "Print"],
Cell[906400, 22931, 272, 6, 21, "Print"],
Cell[906675, 22939, 76, 1, 21, "Print"],
Cell[906754, 22942, 332, 8, 22, "Print"],
Cell[907089, 22952, 272, 6, 22, "Print"],
Cell[907364, 22960, 127, 2, 22, "Print"],
Cell[907494, 22964, 115, 1, 22, "Print"],
Cell[907612, 22967, 134, 2, 22, "Print"],
Cell[907749, 22971, 122, 1, 21, "Print"],
Cell[907874, 22974, 323, 8, 22, "Print"],
Cell[908200, 22984, 76, 1, 21, "Print"],
Cell[908279, 22987, 309, 7, 22, "Print"],
Cell[908591, 22996, 350, 7, 22, "Print"],
Cell[908944, 23005, 344, 7, 22, "Print"],
Cell[909291, 23014, 344, 7, 22, "Print"],
Cell[909638, 23023, 346, 7, 22, "Print"],
Cell[909987, 23032, 280, 6, 21, "Print"],
Cell[910270, 23040, 76, 1, 21, "Print"],
Cell[910349, 23043, 332, 8, 22, "Print"],
Cell[910684, 23053, 272, 6, 22, "Print"],
Cell[910959, 23061, 119, 1, 22, "Print"],
Cell[911081, 23064, 150, 2, 22, "Print"],
Cell[911234, 23068, 76, 1, 21, "Print"],
Cell[911313, 23071, 309, 7, 22, "Print"],
Cell[911625, 23080, 340, 7, 22, "Print"],
Cell[911968, 23089, 272, 6, 21, "Print"],
Cell[912243, 23097, 76, 1, 21, "Print"],
Cell[912322, 23100, 334, 8, 22, "Print"],
Cell[912659, 23110, 272, 6, 22, "Print"],
Cell[912934, 23118, 127, 2, 22, "Print"],
Cell[913064, 23122, 113, 1, 22, "Print"],
Cell[913180, 23125, 133, 2, 22, "Print"],
Cell[913316, 23129, 120, 1, 21, "Print"],
Cell[913439, 23132, 329, 8, 22, "Print"],
Cell[913771, 23142, 76, 1, 21, "Print"],
Cell[913850, 23145, 338, 8, 22, "Print"],
Cell[914191, 23155, 76, 1, 21, "Print"],
Cell[914270, 23158, 309, 7, 22, "Print"],
Cell[914582, 23167, 346, 7, 22, "Print"],
Cell[914931, 23176, 344, 7, 22, "Print"],
Cell[915278, 23185, 346, 7, 22, "Print"],
Cell[915627, 23194, 344, 7, 22, "Print"],
Cell[915974, 23203, 344, 7, 22, "Print"],
Cell[916321, 23212, 344, 7, 22, "Print"],
Cell[916668, 23221, 346, 7, 22, "Print"],
Cell[917017, 23230, 348, 7, 22, "Print"],
Cell[917368, 23239, 348, 7, 22, "Print"],
Cell[917719, 23248, 348, 7, 22, "Print"],
Cell[918070, 23257, 346, 7, 22, "Print"],
Cell[918419, 23266, 346, 7, 22, "Print"],
Cell[918768, 23275, 75, 1, 21, "Print"],
Cell[918846, 23278, 271, 6, 22, "Print"],
Cell[919120, 23286, 284, 6, 21, "Print"],
Cell[919407, 23294, 74, 1, 21, "Print"],
Cell[919484, 23297, 332, 8, 22, "Print"],
Cell[919819, 23307, 342, 7, 22, "Print"],
Cell[920164, 23316, 342, 7, 22, "Print"],
Cell[920509, 23325, 342, 7, 22, "Print"],
Cell[920854, 23334, 340, 7, 22, "Print"],
Cell[921197, 23343, 340, 7, 22, "Print"],
Cell[921540, 23352, 342, 7, 22, "Print"],
Cell[921885, 23361, 346, 7, 22, "Print"],
Cell[922234, 23370, 346, 7, 22, "Print"],
Cell[922583, 23379, 348, 7, 22, "Print"],
Cell[922934, 23388, 344, 7, 22, "Print"],
Cell[923281, 23397, 342, 7, 22, "Print"],
Cell[923626, 23406, 344, 7, 22, "Print"],
Cell[923973, 23415, 280, 6, 22, "Print"],
Cell[924256, 23423, 121, 1, 22, "Print"],
Cell[924380, 23426, 150, 2, 22, "Print"],
Cell[924533, 23430, 76, 1, 21, "Print"],
Cell[924612, 23433, 309, 7, 22, "Print"],
Cell[924924, 23442, 340, 7, 22, "Print"],
Cell[925267, 23451, 272, 6, 21, "Print"],
Cell[925542, 23459, 76, 1, 21, "Print"],
Cell[925621, 23462, 332, 8, 22, "Print"],
Cell[925956, 23472, 340, 7, 22, "Print"],
Cell[926299, 23481, 274, 6, 22, "Print"],
Cell[926576, 23489, 127, 2, 22, "Print"],
Cell[926706, 23493, 113, 1, 22, "Print"],
Cell[926822, 23496, 136, 2, 22, "Print"],
Cell[926961, 23500, 125, 2, 21, "Print"],
Cell[927089, 23504, 327, 8, 22, "Print"],
Cell[927419, 23514, 74, 1, 21, "Print"],
Cell[927496, 23517, 336, 8, 22, "Print"],
Cell[927835, 23527, 76, 1, 21, "Print"],
Cell[927914, 23530, 309, 7, 22, "Print"],
Cell[928226, 23539, 348, 7, 22, "Print"],
Cell[928577, 23548, 346, 7, 22, "Print"],
Cell[928926, 23557, 344, 7, 22, "Print"],
Cell[929273, 23566, 344, 7, 22, "Print"],
Cell[929620, 23575, 344, 7, 22, "Print"],
Cell[929967, 23584, 346, 7, 22, "Print"],
Cell[930316, 23593, 346, 7, 22, "Print"],
Cell[930665, 23602, 346, 7, 22, "Print"],
Cell[931014, 23611, 346, 7, 22, "Print"],
Cell[931363, 23620, 348, 7, 22, "Print"],
Cell[931714, 23629, 346, 7, 22, "Print"],
Cell[932063, 23638, 346, 7, 22, "Print"],
Cell[932412, 23647, 76, 1, 21, "Print"],
Cell[932491, 23650, 271, 6, 22, "Print"],
Cell[932765, 23658, 282, 6, 21, "Print"],
Cell[933050, 23666, 76, 1, 21, "Print"],
Cell[933129, 23669, 331, 8, 22, "Print"],
Cell[933463, 23679, 344, 7, 22, "Print"],
Cell[933810, 23688, 346, 7, 22, "Print"],
Cell[934159, 23697, 344, 7, 22, "Print"],
Cell[934506, 23706, 277, 6, 22, "Print"],
Cell[934786, 23714, 119, 1, 22, "Print"],
Cell[934908, 23717, 150, 2, 22, "Print"],
Cell[935061, 23721, 76, 1, 21, "Print"],
Cell[935140, 23724, 311, 7, 22, "Print"],
Cell[935454, 23733, 342, 7, 22, "Print"],
Cell[935799, 23742, 272, 6, 21, "Print"],
Cell[936074, 23750, 78, 1, 21, "Print"],
Cell[936155, 23753, 332, 8, 22, "Print"],
Cell[936490, 23763, 272, 6, 22, "Print"],
Cell[936765, 23771, 129, 2, 22, "Print"],
Cell[936897, 23775, 113, 1, 22, "Print"],
Cell[937013, 23778, 134, 2, 22, "Print"],
Cell[937150, 23782, 125, 2, 21, "Print"],
Cell[937278, 23786, 116, 1, 22, "Print"],
Cell[937397, 23789, 101, 1, 22, "Print"],
Cell[937501, 23792, 171, 2, 22, "Print"],
Cell[937675, 23796, 80, 1, 21, "Print"]
}, Open  ]],
Cell[937770, 23800, 130, 3, 28, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[937937, 23808, 932, 23, 40, "Input"],
Cell[CellGroupData[{
Cell[938894, 23835, 318, 8, 22, "Print"],
Cell[939215, 23845, 76, 1, 21, "Print"],
Cell[939294, 23848, 556, 13, 22, "Print"],
Cell[939853, 23863, 388, 8, 22, "Print"],
Cell[940244, 23873, 98, 1, 21, "Print"],
Cell[940345, 23876, 245, 6, 21, "Print"],
Cell[940593, 23884, 275, 6, 21, "Print"],
Cell[940871, 23892, 354, 8, 22, "Print"],
Cell[941228, 23902, 78, 1, 21, "Print"],
Cell[941309, 23905, 309, 7, 22, "Print"],
Cell[941621, 23914, 342, 7, 22, "Print"],
Cell[941966, 23923, 274, 6, 21, "Print"],
Cell[942243, 23931, 78, 1, 21, "Print"],
Cell[942324, 23934, 332, 8, 22, "Print"],
Cell[942659, 23944, 274, 6, 22, "Print"],
Cell[942936, 23952, 119, 1, 22, "Print"],
Cell[943058, 23955, 148, 2, 22, "Print"],
Cell[943209, 23959, 76, 1, 21, "Print"],
Cell[943288, 23962, 311, 7, 22, "Print"],
Cell[943602, 23971, 340, 7, 22, "Print"],
Cell[943945, 23980, 272, 6, 21, "Print"],
Cell[944220, 23988, 76, 1, 21, "Print"],
Cell[944299, 23991, 332, 8, 22, "Print"],
Cell[944634, 24001, 272, 6, 22, "Print"],
Cell[944909, 24009, 124, 2, 22, "Print"],
Cell[945036, 24013, 111, 1, 22, "Print"],
Cell[945150, 24016, 132, 2, 22, "Print"],
Cell[945285, 24020, 110, 1, 21, "Print"],
Cell[945398, 24023, 321, 8, 22, "Print"],
Cell[945722, 24033, 76, 1, 21, "Print"],
Cell[945801, 24036, 311, 7, 22, "Print"],
Cell[946115, 24045, 340, 7, 22, "Print"],
Cell[946458, 24054, 344, 7, 22, "Print"],
Cell[946805, 24063, 276, 6, 21, "Print"],
Cell[947084, 24071, 75, 1, 21, "Print"],
Cell[947162, 24074, 334, 8, 22, "Print"],
Cell[947499, 24084, 342, 7, 22, "Print"],
Cell[947844, 24093, 276, 6, 22, "Print"],
Cell[948123, 24101, 119, 1, 22, "Print"],
Cell[948245, 24104, 148, 2, 22, "Print"],
Cell[948396, 24108, 78, 1, 21, "Print"],
Cell[948477, 24111, 309, 7, 22, "Print"],
Cell[948789, 24120, 342, 7, 22, "Print"],
Cell[949134, 24129, 274, 6, 21, "Print"],
Cell[949411, 24137, 76, 1, 21, "Print"],
Cell[949490, 24140, 332, 8, 22, "Print"],
Cell[949825, 24150, 342, 7, 22, "Print"],
Cell[950170, 24159, 274, 6, 22, "Print"],
Cell[950447, 24167, 125, 2, 22, "Print"],
Cell[950575, 24171, 111, 1, 22, "Print"],
Cell[950689, 24174, 134, 2, 22, "Print"],
Cell[950826, 24178, 114, 1, 21, "Print"],
Cell[950943, 24181, 321, 8, 22, "Print"],
Cell[951267, 24191, 76, 1, 21, "Print"],
Cell[951346, 24194, 311, 7, 22, "Print"],
Cell[951660, 24203, 342, 7, 22, "Print"],
Cell[952005, 24212, 346, 7, 22, "Print"],
Cell[952354, 24221, 276, 6, 21, "Print"],
Cell[952633, 24229, 76, 1, 21, "Print"],
Cell[952712, 24232, 332, 8, 22, "Print"],
Cell[953047, 24242, 272, 6, 22, "Print"],
Cell[953322, 24250, 119, 1, 22, "Print"],
Cell[953444, 24253, 148, 2, 22, "Print"],
Cell[953595, 24257, 78, 1, 21, "Print"],
Cell[953676, 24260, 311, 7, 22, "Print"],
Cell[953990, 24269, 342, 7, 22, "Print"],
Cell[954335, 24278, 272, 6, 21, "Print"],
Cell[954610, 24286, 78, 1, 21, "Print"],
Cell[954691, 24289, 334, 8, 22, "Print"],
Cell[955028, 24299, 269, 6, 22, "Print"],
Cell[955300, 24307, 125, 2, 22, "Print"],
Cell[955428, 24311, 113, 1, 22, "Print"],
Cell[955544, 24314, 132, 2, 22, "Print"],
Cell[955679, 24318, 115, 1, 21, "Print"],
Cell[955797, 24321, 321, 8, 22, "Print"],
Cell[956121, 24331, 76, 1, 21, "Print"],
Cell[956200, 24334, 308, 7, 22, "Print"],
Cell[956511, 24343, 340, 7, 22, "Print"],
Cell[956854, 24352, 344, 7, 22, "Print"],
Cell[957201, 24361, 278, 6, 21, "Print"],
Cell[957482, 24369, 78, 1, 21, "Print"],
Cell[957563, 24372, 334, 8, 22, "Print"],
Cell[957900, 24382, 340, 7, 22, "Print"],
Cell[958243, 24391, 342, 7, 22, "Print"],
Cell[958588, 24400, 274, 6, 22, "Print"],
Cell[958865, 24408, 119, 1, 22, "Print"],
Cell[958987, 24411, 148, 2, 22, "Print"],
Cell[959138, 24415, 78, 1, 21, "Print"],
Cell[959219, 24418, 309, 7, 22, "Print"],
Cell[959531, 24427, 340, 7, 22, "Print"],
Cell[959874, 24436, 274, 6, 21, "Print"],
Cell[960151, 24444, 76, 1, 21, "Print"],
Cell[960230, 24447, 332, 8, 22, "Print"],
Cell[960565, 24457, 339, 7, 22, "Print"],
Cell[960907, 24466, 274, 6, 22, "Print"],
Cell[961184, 24474, 127, 2, 22, "Print"],
Cell[961314, 24478, 111, 1, 22, "Print"],
Cell[961428, 24481, 132, 2, 22, "Print"],
Cell[961563, 24485, 113, 1, 21, "Print"],
Cell[961679, 24488, 326, 8, 22, "Print"],
Cell[962008, 24498, 76, 1, 21, "Print"],
Cell[962087, 24501, 311, 7, 22, "Print"],
Cell[962401, 24510, 348, 7, 22, "Print"],
Cell[962752, 24519, 340, 7, 22, "Print"],
Cell[963095, 24528, 340, 7, 22, "Print"],
Cell[963438, 24537, 340, 7, 22, "Print"],
Cell[963781, 24546, 278, 6, 21, "Print"],
Cell[964062, 24554, 76, 1, 21, "Print"],
Cell[964141, 24557, 332, 8, 22, "Print"],
Cell[964476, 24567, 342, 7, 22, "Print"],
Cell[964821, 24576, 274, 6, 22, "Print"],
Cell[965098, 24584, 120, 1, 22, "Print"],
Cell[965221, 24587, 149, 2, 22, "Print"],
Cell[965373, 24591, 78, 1, 21, "Print"],
Cell[965454, 24594, 309, 7, 22, "Print"],
Cell[965766, 24603, 341, 7, 22, "Print"],
Cell[966110, 24612, 276, 6, 21, "Print"],
Cell[966389, 24620, 76, 1, 21, "Print"],
Cell[966468, 24623, 334, 8, 22, "Print"],
Cell[966805, 24633, 342, 7, 22, "Print"],
Cell[967150, 24642, 274, 6, 22, "Print"],
Cell[967427, 24650, 126, 2, 22, "Print"],
Cell[967556, 24654, 114, 1, 22, "Print"],
Cell[967673, 24657, 135, 2, 22, "Print"],
Cell[967811, 24661, 119, 1, 21, "Print"],
Cell[967933, 24664, 326, 8, 22, "Print"],
Cell[968262, 24674, 76, 1, 21, "Print"],
Cell[968341, 24677, 309, 7, 22, "Print"],
Cell[968653, 24686, 346, 7, 22, "Print"],
Cell[969002, 24695, 340, 7, 22, "Print"],
Cell[969345, 24704, 340, 7, 22, "Print"],
Cell[969688, 24713, 339, 7, 22, "Print"],
Cell[970030, 24722, 277, 6, 21, "Print"],
Cell[970310, 24730, 76, 1, 21, "Print"],
Cell[970389, 24733, 332, 8, 22, "Print"],
Cell[970724, 24743, 343, 7, 22, "Print"],
Cell[971070, 24752, 276, 6, 22, "Print"],
Cell[971349, 24760, 118, 1, 22, "Print"],
Cell[971470, 24763, 149, 2, 22, "Print"],
Cell[971622, 24767, 76, 1, 21, "Print"],
Cell[971701, 24770, 309, 7, 22, "Print"],
Cell[972013, 24779, 339, 7, 22, "Print"],
Cell[972355, 24788, 272, 6, 21, "Print"],
Cell[972630, 24796, 78, 1, 21, "Print"],
Cell[972711, 24799, 332, 8, 22, "Print"],
Cell[973046, 24809, 342, 7, 22, "Print"],
Cell[973391, 24818, 276, 6, 22, "Print"],
Cell[973670, 24826, 126, 2, 22, "Print"],
Cell[973799, 24830, 112, 1, 22, "Print"],
Cell[973914, 24833, 133, 2, 22, "Print"],
Cell[974050, 24837, 119, 1, 21, "Print"],
Cell[974172, 24840, 323, 8, 22, "Print"],
Cell[974498, 24850, 78, 1, 21, "Print"],
Cell[974579, 24853, 309, 7, 22, "Print"],
Cell[974891, 24862, 350, 7, 22, "Print"],
Cell[975244, 24871, 342, 7, 22, "Print"],
Cell[975589, 24880, 342, 7, 22, "Print"],
Cell[975934, 24889, 344, 7, 22, "Print"],
Cell[976281, 24898, 280, 6, 21, "Print"],
Cell[976564, 24906, 76, 1, 21, "Print"],
Cell[976643, 24909, 334, 8, 22, "Print"],
Cell[976980, 24919, 346, 7, 22, "Print"],
Cell[977329, 24928, 340, 7, 22, "Print"],
Cell[977672, 24937, 340, 7, 22, "Print"],
Cell[978015, 24946, 340, 7, 22, "Print"],
Cell[978358, 24955, 276, 6, 22, "Print"],
Cell[978637, 24963, 120, 1, 22, "Print"],
Cell[978760, 24966, 152, 2, 22, "Print"],
Cell[978915, 24970, 76, 1, 21, "Print"],
Cell[978994, 24973, 309, 7, 22, "Print"],
Cell[979306, 24982, 340, 7, 22, "Print"],
Cell[979649, 24991, 272, 6, 21, "Print"],
Cell[979924, 24999, 78, 1, 21, "Print"],
Cell[980005, 25002, 332, 8, 22, "Print"],
Cell[980340, 25012, 340, 7, 22, "Print"],
Cell[980683, 25021, 271, 6, 22, "Print"],
Cell[980957, 25029, 129, 2, 22, "Print"],
Cell[981089, 25033, 113, 1, 22, "Print"],
Cell[981205, 25036, 136, 2, 22, "Print"],
Cell[981344, 25040, 122, 1, 21, "Print"],
Cell[981469, 25043, 324, 8, 22, "Print"],
Cell[981796, 25053, 75, 1, 21, "Print"],
Cell[981874, 25056, 309, 7, 22, "Print"],
Cell[982186, 25065, 347, 7, 22, "Print"],
Cell[982536, 25074, 341, 7, 22, "Print"],
Cell[982880, 25083, 341, 7, 22, "Print"],
Cell[983224, 25092, 346, 7, 22, "Print"],
Cell[983573, 25101, 279, 6, 21, "Print"],
Cell[983855, 25109, 76, 1, 21, "Print"],
Cell[983934, 25112, 332, 8, 22, "Print"],
Cell[984269, 25122, 346, 7, 22, "Print"],
Cell[984618, 25131, 276, 6, 22, "Print"],
Cell[984897, 25139, 119, 1, 22, "Print"],
Cell[985019, 25142, 152, 2, 22, "Print"],
Cell[985174, 25146, 76, 1, 21, "Print"],
Cell[985253, 25149, 311, 7, 22, "Print"],
Cell[985567, 25158, 342, 7, 22, "Print"],
Cell[985912, 25167, 272, 6, 21, "Print"],
Cell[986187, 25175, 78, 1, 21, "Print"],
Cell[986268, 25178, 334, 8, 22, "Print"],
Cell[986605, 25188, 272, 6, 22, "Print"],
Cell[986880, 25196, 127, 2, 22, "Print"],
Cell[987010, 25200, 113, 1, 22, "Print"],
Cell[987126, 25203, 134, 2, 22, "Print"],
Cell[987263, 25207, 122, 1, 21, "Print"],
Cell[987388, 25210, 326, 8, 22, "Print"],
Cell[987717, 25220, 76, 1, 21, "Print"],
Cell[987796, 25223, 308, 7, 22, "Print"],
Cell[988107, 25232, 350, 7, 22, "Print"],
Cell[988460, 25241, 344, 7, 22, "Print"],
Cell[988807, 25250, 346, 7, 22, "Print"],
Cell[989156, 25259, 344, 7, 22, "Print"],
Cell[989503, 25268, 280, 6, 21, "Print"],
Cell[989786, 25276, 76, 1, 21, "Print"],
Cell[989865, 25279, 332, 8, 22, "Print"],
Cell[990200, 25289, 344, 7, 22, "Print"],
Cell[990547, 25298, 276, 6, 22, "Print"],
Cell[990826, 25306, 119, 1, 22, "Print"],
Cell[990948, 25309, 152, 2, 22, "Print"],
Cell[991103, 25313, 75, 1, 21, "Print"],
Cell[991181, 25316, 309, 7, 22, "Print"],
Cell[991493, 25325, 340, 7, 22, "Print"],
Cell[991836, 25334, 272, 6, 21, "Print"],
Cell[992111, 25342, 76, 1, 21, "Print"],
Cell[992190, 25345, 334, 8, 22, "Print"],
Cell[992527, 25355, 272, 6, 22, "Print"],
Cell[992802, 25363, 129, 2, 22, "Print"],
Cell[992934, 25367, 113, 1, 22, "Print"],
Cell[993050, 25370, 136, 2, 22, "Print"],
Cell[993189, 25374, 120, 1, 21, "Print"],
Cell[993312, 25377, 326, 8, 22, "Print"],
Cell[993641, 25387, 76, 1, 21, "Print"],
Cell[993720, 25390, 309, 7, 22, "Print"],
Cell[994032, 25399, 350, 7, 22, "Print"],
Cell[994385, 25408, 344, 7, 22, "Print"],
Cell[994732, 25417, 344, 7, 22, "Print"],
Cell[995079, 25426, 344, 7, 22, "Print"],
Cell[995426, 25435, 280, 6, 21, "Print"],
Cell[995709, 25443, 78, 1, 21, "Print"],
Cell[995790, 25446, 332, 8, 22, "Print"],
Cell[996125, 25456, 272, 6, 22, "Print"],
Cell[996400, 25464, 121, 1, 22, "Print"],
Cell[996524, 25467, 150, 2, 22, "Print"],
Cell[996677, 25471, 78, 1, 21, "Print"],
Cell[996758, 25474, 308, 7, 22, "Print"],
Cell[997069, 25483, 342, 7, 22, "Print"],
Cell[997414, 25492, 272, 6, 21, "Print"],
Cell[997689, 25500, 76, 1, 21, "Print"],
Cell[997768, 25503, 334, 8, 22, "Print"],
Cell[998105, 25513, 272, 6, 22, "Print"],
Cell[998380, 25521, 127, 2, 22, "Print"],
Cell[998510, 25525, 112, 1, 22, "Print"],
Cell[998625, 25528, 136, 2, 22, "Print"],
Cell[998764, 25532, 120, 1, 21, "Print"],
Cell[998887, 25535, 329, 8, 22, "Print"],
Cell[999219, 25545, 76, 1, 21, "Print"],
Cell[999298, 25548, 336, 8, 22, "Print"],
Cell[999637, 25558, 76, 1, 21, "Print"],
Cell[999716, 25561, 309, 7, 22, "Print"],
Cell[1000028, 25570, 344, 7, 22, "Print"],
Cell[1000375, 25579, 346, 7, 22, "Print"],
Cell[1000724, 25588, 343, 7, 22, "Print"],
Cell[1001070, 25597, 344, 7, 22, "Print"],
Cell[1001417, 25606, 346, 7, 22, "Print"],
Cell[1001766, 25615, 344, 7, 22, "Print"],
Cell[1002113, 25624, 346, 7, 22, "Print"],
Cell[1002462, 25633, 346, 7, 22, "Print"],
Cell[1002811, 25642, 346, 7, 22, "Print"],
Cell[1003160, 25651, 346, 7, 22, "Print"],
Cell[1003509, 25660, 346, 7, 22, "Print"],
Cell[1003858, 25669, 348, 7, 22, "Print"],
Cell[1004209, 25678, 76, 1, 21, "Print"],
Cell[1004288, 25681, 271, 6, 22, "Print"],
Cell[1004562, 25689, 282, 6, 21, "Print"],
Cell[1004847, 25697, 76, 1, 21, "Print"],
Cell[1004926, 25700, 332, 8, 22, "Print"],
Cell[1005261, 25710, 340, 7, 22, "Print"],
Cell[1005604, 25719, 342, 7, 22, "Print"],
Cell[1005949, 25728, 340, 7, 22, "Print"],
Cell[1006292, 25737, 339, 7, 22, "Print"],
Cell[1006634, 25746, 338, 7, 22, "Print"],
Cell[1006975, 25755, 340, 7, 22, "Print"],
Cell[1007318, 25764, 346, 7, 22, "Print"],
Cell[1007667, 25773, 346, 7, 22, "Print"],
Cell[1008016, 25782, 346, 7, 22, "Print"],
Cell[1008365, 25791, 344, 7, 22, "Print"],
Cell[1008712, 25800, 344, 7, 22, "Print"],
Cell[1009059, 25809, 342, 7, 22, "Print"],
Cell[1009404, 25818, 280, 6, 22, "Print"],
Cell[1009687, 25826, 119, 1, 22, "Print"],
Cell[1009809, 25829, 150, 2, 22, "Print"],
Cell[1009962, 25833, 76, 1, 21, "Print"],
Cell[1010041, 25836, 309, 7, 22, "Print"],
Cell[1010353, 25845, 340, 7, 22, "Print"],
Cell[1010696, 25854, 272, 6, 21, "Print"],
Cell[1010971, 25862, 78, 1, 21, "Print"],
Cell[1011052, 25865, 332, 8, 22, "Print"],
Cell[1011387, 25875, 340, 7, 22, "Print"],
Cell[1011730, 25884, 271, 6, 22, "Print"],
Cell[1012004, 25892, 127, 2, 22, "Print"],
Cell[1012134, 25896, 115, 1, 22, "Print"],
Cell[1012252, 25899, 134, 2, 22, "Print"],
Cell[1012389, 25903, 125, 2, 21, "Print"],
Cell[1012517, 25907, 326, 8, 22, "Print"],
Cell[1012846, 25917, 76, 1, 21, "Print"],
Cell[1012925, 25920, 335, 8, 22, "Print"],
Cell[1013263, 25930, 76, 1, 21, "Print"],
Cell[1013342, 25933, 311, 7, 22, "Print"],
Cell[1013656, 25942, 345, 7, 22, "Print"],
Cell[1014004, 25951, 344, 7, 22, "Print"],
Cell[1014351, 25960, 343, 7, 22, "Print"],
Cell[1014697, 25969, 344, 7, 22, "Print"],
Cell[1015044, 25978, 344, 7, 22, "Print"],
Cell[1015391, 25987, 346, 7, 22, "Print"],
Cell[1015740, 25996, 346, 7, 22, "Print"],
Cell[1016089, 26005, 346, 7, 22, "Print"],
Cell[1016438, 26014, 346, 7, 22, "Print"],
Cell[1016787, 26023, 350, 7, 22, "Print"],
Cell[1017140, 26032, 346, 7, 22, "Print"],
Cell[1017489, 26041, 346, 7, 22, "Print"],
Cell[1017838, 26050, 76, 1, 21, "Print"],
Cell[1017917, 26053, 273, 6, 22, "Print"],
Cell[1018193, 26061, 284, 6, 21, "Print"],
Cell[1018480, 26069, 78, 1, 21, "Print"],
Cell[1018561, 26072, 332, 8, 22, "Print"],
Cell[1018896, 26082, 344, 7, 22, "Print"],
Cell[1019243, 26091, 343, 7, 22, "Print"],
Cell[1019589, 26100, 343, 7, 22, "Print"],
Cell[1019935, 26109, 278, 6, 22, "Print"],
Cell[1020216, 26117, 119, 1, 22, "Print"],
Cell[1020338, 26120, 152, 2, 22, "Print"],
Cell[1020493, 26124, 78, 1, 21, "Print"],
Cell[1020574, 26127, 309, 7, 22, "Print"],
Cell[1020886, 26136, 340, 7, 22, "Print"],
Cell[1021229, 26145, 274, 6, 21, "Print"],
Cell[1021506, 26153, 76, 1, 21, "Print"],
Cell[1021585, 26156, 331, 8, 22, "Print"],
Cell[1021919, 26166, 272, 6, 22, "Print"],
Cell[1022194, 26174, 127, 2, 22, "Print"],
Cell[1022324, 26178, 115, 1, 22, "Print"],
Cell[1022442, 26181, 136, 2, 22, "Print"],
Cell[1022581, 26185, 125, 2, 21, "Print"],
Cell[1022709, 26189, 116, 1, 22, "Print"],
Cell[1022828, 26192, 99, 1, 22, "Print"],
Cell[1022930, 26195, 168, 2, 22, "Print"],
Cell[1023101, 26199, 82, 1, 21, "Print"]
}, Open  ]],
Cell[1023198, 26203, 128, 3, 28, "Output"]
}, Closed]],
Cell[1023341, 26209, 179, 3, 22, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[1023557, 26217, 151, 3, 54, "Chapter"],
Cell[1023711, 26222, 1725, 43, 131, "Input"],
Cell[CellGroupData[{
Cell[1025461, 26269, 228, 4, 28, "Input"],
Cell[CellGroupData[{
Cell[1025714, 26277, 586, 9, 22, "Print"],
Cell[1026303, 26288, 859, 16, 22, "Print"],
Cell[1027165, 26306, 638, 10, 22, "Print"],
Cell[1027806, 26318, 574, 9, 21, "Print"],
Cell[1028383, 26329, 583, 9, 21, "Print"],
Cell[1028969, 26340, 635, 10, 22, "Print"],
Cell[1029607, 26352, 635, 10, 22, "Print"],
Cell[1030245, 26364, 572, 9, 21, "Print"],
Cell[1030820, 26375, 602, 9, 22, "Print"],
Cell[1031425, 26386, 572, 9, 21, "Print"],
Cell[1032000, 26397, 639, 10, 22, "Print"]
}, Open  ]]
}, Open  ]],
Cell[1032666, 26411, 351, 9, 28, "Input"],
Cell[1033020, 26422, 276, 5, 28, "Input"],
Cell[CellGroupData[{
Cell[1033321, 26431, 837, 12, 28, "Input"],
Cell[CellGroupData[{
Cell[1034183, 26447, 592, 9, 22, "Print"],
Cell[1034778, 26458, 612, 9, 22, "Print"],
Cell[1035393, 26469, 578, 9, 21, "Print"],
Cell[1035974, 26480, 716, 13, 21, "Print"],
Cell[1036693, 26495, 581, 9, 21, "Print"],
Cell[1037277, 26506, 608, 9, 21, "Print"],
Cell[1037888, 26517, 614, 9, 22, "Print"],
Cell[1038505, 26528, 620, 10, 22, "Print"],
Cell[1039128, 26540, 570, 9, 21, "Print"],
Cell[1039701, 26551, 602, 9, 22, "Print"],
Cell[1040306, 26562, 603, 9, 22, "Print"],
Cell[1040912, 26573, 600, 9, 22, "Print"],
Cell[1041515, 26584, 764, 14, 37, "Print"]
}, Open  ]]
}, Open  ]],
Cell[1042306, 26602, 611, 15, 46, "Input"],
Cell[CellGroupData[{
Cell[1042942, 26621, 861, 12, 28, "Input"],
Cell[CellGroupData[{
Cell[1043828, 26637, 1056, 19, 22, "Print"],
Cell[1044887, 26658, 583, 9, 21, "Print"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1045531, 26674, 203, 4, 54, "Chapter"],
Cell[CellGroupData[{
Cell[1045759, 26682, 2112, 31, 46, "Input"],
Cell[CellGroupData[{
Cell[1047896, 26717, 372, 6, 22, "Print"],
Cell[1048271, 26725, 597, 13, 22, "Print"],
Cell[1048871, 26740, 352, 5, 22, "Print"],
Cell[1049226, 26747, 534, 10, 22, "Print"],
Cell[1049763, 26759, 383, 6, 22, "Print"],
Cell[1050149, 26767, 870, 17, 22, "Print"],
Cell[1051022, 26786, 467, 9, 21, "Print"],
Cell[1051492, 26797, 821, 16, 22, "Print"],
Cell[1052316, 26815, 366, 5, 21, "Print"],
Cell[1052685, 26822, 631, 14, 22, "Print"],
Cell[1053319, 26838, 587, 13, 21, "Print"],
Cell[1053909, 26853, 563, 10, 22, "Print"],
Cell[1054475, 26865, 585, 13, 21, "Print"],
Cell[1055063, 26880, 549, 10, 22, "Print"],
Cell[1055615, 26892, 346, 5, 22, "Print"],
Cell[1055964, 26899, 370, 6, 22, "Print"],
Cell[1056337, 26907, 562, 10, 22, "Print"],
Cell[1056902, 26919, 721, 13, 22, "Print"],
Cell[1057626, 26934, 343, 5, 22, "Print"],
Cell[1057972, 26941, 328, 5, 21, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1058349, 26952, 523, 10, 40, "Input"],
Cell[CellGroupData[{
Cell[1058897, 26966, 232, 4, 22, "Print"],
Cell[1059132, 26972, 455, 11, 22, "Print"],
Cell[1059590, 26985, 208, 3, 22, "Print"],
Cell[1059801, 26990, 389, 8, 22, "Print"],
Cell[1060193, 27000, 241, 4, 22, "Print"],
Cell[1060437, 27006, 728, 15, 22, "Print"],
Cell[1061168, 27023, 325, 7, 21, "Print"],
Cell[1061496, 27032, 678, 14, 22, "Print"],
Cell[1062177, 27048, 222, 3, 21, "Print"],
Cell[1062402, 27053, 489, 12, 22, "Print"],
Cell[1062894, 27067, 445, 11, 21, "Print"],
Cell[1063342, 27080, 421, 8, 22, "Print"],
Cell[1063766, 27090, 443, 11, 21, "Print"]
}, Open  ]],
Cell[1064224, 27104, 243, 7, 24, "Message"],
Cell[CellGroupData[{
Cell[1064492, 27115, 407, 8, 22, "Print"],
Cell[1064902, 27125, 205, 3, 22, "Print"],
Cell[1065110, 27130, 231, 4, 22, "Print"],
Cell[1065344, 27136, 420, 8, 22, "Print"],
Cell[1065767, 27146, 581, 11, 22, "Print"],
Cell[1066351, 27159, 201, 3, 22, "Print"],
Cell[1066555, 27164, 186, 3, 21, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1066790, 27173, 517, 9, 40, "Input"],
Cell[CellGroupData[{
Cell[1067332, 27186, 231, 4, 22, "Print"],
Cell[1067566, 27192, 454, 11, 22, "Print"],
Cell[1068023, 27205, 209, 3, 22, "Print"],
Cell[1068235, 27210, 391, 8, 22, "Print"],
Cell[1068629, 27220, 244, 4, 22, "Print"],
Cell[1068876, 27226, 727, 15, 22, "Print"],
Cell[1069606, 27243, 326, 7, 21, "Print"],
Cell[1069935, 27252, 680, 14, 22, "Print"],
Cell[1070618, 27268, 223, 3, 21, "Print"],
Cell[1070844, 27273, 490, 12, 22, "Print"],
Cell[1071337, 27287, 446, 11, 21, "Print"],
Cell[1071786, 27300, 424, 8, 22, "Print"],
Cell[1072213, 27310, 444, 11, 21, "Print"]
}, Open  ]],
Cell[1072672, 27324, 241, 7, 24, "Message"],
Cell[CellGroupData[{
Cell[1072938, 27335, 408, 8, 22, "Print"],
Cell[1073349, 27345, 206, 3, 22, "Print"],
Cell[1073558, 27350, 230, 4, 22, "Print"],
Cell[1073791, 27356, 421, 8, 22, "Print"],
Cell[1074215, 27366, 580, 11, 22, "Print"],
Cell[1074798, 27379, 202, 3, 22, "Print"],
Cell[1075003, 27384, 189, 3, 21, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1075241, 27393, 520, 9, 40, "Input"],
Cell[CellGroupData[{
Cell[1075786, 27406, 235, 4, 22, "Print"],
Cell[1076024, 27412, 458, 11, 22, "Print"],
Cell[1076485, 27425, 213, 3, 22, "Print"],
Cell[1076701, 27430, 394, 8, 22, "Print"],
Cell[1077098, 27440, 246, 4, 22, "Print"],
Cell[1077347, 27446, 731, 15, 22, "Print"],
Cell[1078081, 27463, 330, 7, 21, "Print"],
Cell[1078414, 27472, 684, 14, 22, "Print"],
Cell[1079101, 27488, 227, 3, 21, "Print"],
Cell[1079331, 27493, 494, 12, 22, "Print"],
Cell[1079828, 27507, 450, 11, 21, "Print"],
Cell[1080281, 27520, 426, 8, 22, "Print"],
Cell[1080710, 27530, 448, 11, 21, "Print"]
}, Open  ]],
Cell[1081173, 27544, 241, 7, 24, "Message"],
Cell[CellGroupData[{
Cell[1081439, 27555, 410, 8, 22, "Print"],
Cell[1081852, 27565, 210, 3, 22, "Print"],
Cell[1082065, 27570, 234, 4, 22, "Print"],
Cell[1082302, 27576, 427, 8, 22, "Print"],
Cell[1082732, 27586, 584, 11, 22, "Print"],
Cell[1083319, 27599, 206, 3, 22, "Print"],
Cell[1083528, 27604, 191, 3, 21, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1083768, 27613, 527, 10, 40, "Input"],
Cell[CellGroupData[{
Cell[1084320, 27627, 231, 4, 22, "Print"],
Cell[1084554, 27633, 453, 11, 22, "Print"],
Cell[1085010, 27646, 209, 3, 22, "Print"],
Cell[1085222, 27651, 391, 8, 22, "Print"],
Cell[1085616, 27661, 242, 4, 22, "Print"],
Cell[1085861, 27667, 729, 15, 22, "Print"],
Cell[1086593, 27684, 328, 7, 21, "Print"],
Cell[1086924, 27693, 682, 14, 22, "Print"],
Cell[1087609, 27709, 223, 3, 21, "Print"],
Cell[1087835, 27714, 489, 12, 22, "Print"],
Cell[1088327, 27728, 444, 11, 21, "Print"],
Cell[1088774, 27741, 424, 8, 22, "Print"],
Cell[1089201, 27751, 446, 11, 21, "Print"]
}, Open  ]],
Cell[1089662, 27765, 241, 7, 24, "Message"],
Cell[CellGroupData[{
Cell[1089928, 27776, 410, 8, 22, "Print"],
Cell[1090341, 27786, 206, 3, 22, "Print"],
Cell[1090550, 27791, 230, 4, 22, "Print"],
Cell[1090783, 27797, 421, 8, 22, "Print"],
Cell[1091207, 27807, 580, 11, 22, "Print"],
Cell[1091790, 27820, 204, 3, 22, "Print"],
Cell[1091997, 27825, 187, 3, 21, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1092233, 27834, 531, 10, 40, "Input"],
Cell[CellGroupData[{
Cell[1092789, 27848, 235, 4, 22, "Print"],
Cell[1093027, 27854, 456, 11, 22, "Print"],
Cell[1093486, 27867, 213, 3, 22, "Print"],
Cell[1093702, 27872, 395, 8, 22, "Print"],
Cell[1094100, 27882, 244, 4, 22, "Print"],
Cell[1094347, 27888, 727, 15, 22, "Print"],
Cell[1095077, 27905, 330, 7, 21, "Print"],
Cell[1095410, 27914, 682, 14, 22, "Print"],
Cell[1096095, 27930, 221, 3, 21, "Print"],
Cell[1096319, 27935, 492, 12, 22, "Print"],
Cell[1096814, 27949, 448, 11, 21, "Print"],
Cell[1097265, 27962, 424, 8, 22, "Print"],
Cell[1097692, 27972, 446, 11, 21, "Print"]
}, Open  ]],
Cell[1098153, 27986, 241, 7, 24, "Message"],
Cell[CellGroupData[{
Cell[1098419, 27997, 410, 8, 22, "Print"],
Cell[1098832, 28007, 206, 3, 22, "Print"],
Cell[1099041, 28012, 234, 4, 22, "Print"],
Cell[1099278, 28018, 423, 8, 22, "Print"],
Cell[1099704, 28028, 584, 11, 22, "Print"],
Cell[1100291, 28041, 204, 3, 22, "Print"],
Cell[1100498, 28046, 189, 3, 21, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1100736, 28055, 479, 10, 40, "Input"],
Cell[CellGroupData[{
Cell[1101240, 28069, 235, 4, 22, "Print"],
Cell[1101478, 28075, 456, 11, 22, "Print"],
Cell[1101937, 28088, 211, 3, 22, "Print"],
Cell[1102151, 28093, 393, 8, 22, "Print"],
Cell[1102547, 28103, 244, 4, 22, "Print"],
Cell[1102794, 28109, 729, 15, 22, "Print"],
Cell[1103526, 28126, 328, 7, 21, "Print"],
Cell[1103857, 28135, 684, 14, 22, "Print"],
Cell[1104544, 28151, 225, 3, 21, "Print"],
Cell[1104772, 28156, 494, 12, 22, "Print"],
Cell[1105269, 28170, 450, 11, 21, "Print"],
Cell[1105722, 28183, 424, 8, 22, "Print"],
Cell[1106149, 28193, 448, 11, 21, "Print"]
}, Open  ]],
Cell[1106612, 28207, 243, 7, 24, "Message"],
Cell[CellGroupData[{
Cell[1106880, 28218, 410, 8, 22, "Print"],
Cell[1107293, 28228, 208, 3, 22, "Print"],
Cell[1107504, 28233, 232, 4, 22, "Print"],
Cell[1107739, 28239, 421, 8, 22, "Print"],
Cell[1108163, 28249, 582, 11, 22, "Print"],
Cell[1108748, 28262, 204, 3, 22, "Print"],
Cell[1108955, 28267, 189, 3, 21, "Print"]
}, Open  ]]
}, Closed]]
}, Closed]]
}
]
*)

