(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      2994,         97]
NotebookOptionsPosition[      2379,         74]
NotebookOutlinePosition[      2717,         89]
CellTagsIndexPosition[      2674,         86]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{"Answers", " ", "to", " ", "Exercises", "   ", 
   StyleBox["MyName",
    FontSlant->"Italic"]}], "Subtitle"]], "Input",
 CellChangeTimes->{{3.468672132238764*^9, 3.468672170176525*^9}, 
   3.468672215198397*^9, {3.468672245950893*^9, 3.468672250088371*^9}, {
   3.468672385248247*^9, 3.468672392364462*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"Week", " ", "1"}], "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.468672278227101*^9, 3.468672282623669*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.468672300315856*^9, 3.468672301970667*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"Week", " ", "2"}], "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.468672308650751*^9, 3.468672310061843*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.468672318086541*^9, 3.468672319140006*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"Week", " ", "3"}], "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.468672324659564*^9, 3.468672326040749*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.468672334849354*^9, 3.468672335021162*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"Week", " ", "4"}], "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.468672341091536*^9, 3.46867234252007*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.468672349432909*^9, 3.46867234957895*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"Week", " ", "5"}], "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.468672355201408*^9, 3.46867235705824*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.468672368547151*^9, 3.468672368674326*^9}}]
},
WindowSize->{640, 750},
WindowMargins->{{290, Automatic}, {Automatic, 88}},
FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 343, 7, 46, "Input"],
Cell[891, 29, 146, 3, 37, "Input"],
Cell[1040, 34, 146, 2, 77, "Input"],
Cell[1189, 38, 146, 3, 37, "Input"],
Cell[1338, 43, 146, 2, 77, "Input"],
Cell[1487, 47, 146, 3, 37, "Input"],
Cell[1636, 52, 146, 2, 77, "Input"],
Cell[1785, 56, 145, 3, 37, "Input"],
Cell[1933, 61, 145, 2, 77, "Input"],
Cell[2081, 65, 145, 3, 37, "Input"],
Cell[2229, 70, 146, 2, 77, "Input"]
}
]
*)

(* End of internal cache information *)