],
       TraditionalForm]}], 
     RowBox[{"1", "-", "D"}]]}], "-", 
   FractionBox[
    FormBox[
     TagBox[
      FormBox[
       RowBox[{
        SubscriptBox["\<\"A\"\>", "\<\"0\"\>"], "(", 
        SuperscriptBox["m", "2"], ")"}],
       TraditionalForm],
      HoldForm],
     TraditionalForm], 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "D"}], ")"}]}]]}], TraditionalForm]], "Output",
 CellTags->"B00",
 CellLabel->"Out[16]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B00", "[", 
  RowBox[{
   RowBox[{"SmallVariable", "[", 
    SuperscriptBox["M", "2"], "]"}], ",", 
   SuperscriptBox["m", "2"], ",", 
   SuperscriptBox["m", "2"]}], "]"}]], "Input",
 CellTags->"B00",
 CellLabel->"In[20]:=",
 CellID->1823175928],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["m", "2"], " ", 
      FormBox[
       TagBox[
        FormBox[
         RowBox[{
          SubscriptBox["\<\"B\"\>", "\<\"0\"\>"], "(", 
          RowBox[{
           SuperscriptBox["M", "2"], ",", 
           SuperscriptBox["m", "2"], ",", 
           SuperscriptBox["m", "2"]}], ")"}],
         TraditionalForm],
        HoldForm],
       TraditionalForm]}], 
     RowBox[{"1", "-", "D"}]]}], "-", 
   FractionBox[
    FormBox[
     TagBox[
      FormBox[
       RowBox[{
        SubscriptBox["\<\"A\"\>", "\<\"0\"\>"], "(", 
        SuperscriptBox["m", "2"], ")"}],
       TraditionalForm],
      HoldForm],
     TraditionalForm], 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "D"}], ")"}]}]]}], TraditionalForm]], "Output",
 CellTags->"B00",
 CellLabel->"Out[20]="]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Nul