Notebook[List[Cell[BoxData[FormBox[RowBox[List[SuperscriptBox["M", "\[Prime]"], "=", RowBox[List["M", "+", RowBox[List[OverscriptBox["T", "\[RightArrow]"], "*", RowBox[List[FractionBox[RowBox[List["(", RowBox[List["1", "+", RowBox[List["cos", "(", RowBox[List[FractionBox[RowBox[List["m", " ", "p"]], "r"], "*", "\[Pi]"]], ")"]]]], ")"]], "2"], SuperscriptBox["/", "*"]]]]]]]]], TraditionalForm]], "Input"]]]