Notebook[List[Cell[BoxData[List[FormBox[RowBox[List[RowBox[List["S", "(", StyleBox["doctor", Rule[FontSlant, "Plain"]], ")"]], "=", RowBox[List[FractionBox[RowBox[List["1", TagBox[",", NumberComma, Rule[SyntaxForm, "0"]], "100"]], RowBox[List[RowBox[List["1", TagBox[",", NumberComma, Rule[SyntaxForm, "0"]], "100"]], "+", RowBox[List["1", TagBox[",", NumberComma, Rule[SyntaxForm, "0"]], "500"]], "+", "600"]]], "=", "0.34375"]]]], TraditionalForm], FormBox[RowBox[List[RowBox[List["S", "(", StyleBox["engineer", Rule[FontSlant, "Plain"]], ")"]], "=", RowBox[List[FractionBox[RowBox[List["1", TagBox[",", NumberComma, Rule[SyntaxForm, "0"]], "500"]], RowBox[List[RowBox[List["1", TagBox[",", NumberComma, Rule[SyntaxForm, "0"]], "100"]], "+", RowBox[List["1", TagBox[",", NumberComma, Rule[SyntaxForm, "0"]], "500"]], "+", "600"]]], "=", "0.46875"]]]], TraditionalForm], FormBox[RowBox[List[RowBox[List["S", "(", StyleBox["attorney", Rule[FontSlant, "Plain"]], ")"]], "=", RowBox[List[FractionBox["600", RowBox[List[RowBox[List["1", TagBox[",", NumberComma, Rule[SyntaxForm, "0"]], "100"]], "+", RowBox[List["1", TagBox[",", NumberComma, Rule[SyntaxForm, "0"]], "500"]], "+", "600"]]], "=", "0.1875"]]]], TraditionalForm]]], "Input"]]]