diff --git a/expreduce/resources/rubi/Rubi4.12.nb b/expreduce/resources/rubi/Rubi4.12.nb
new file mode 100644
index 0000000..4007145
--- /dev/null
+++ b/expreduce/resources/rubi/Rubi4.12.nb
@@ -0,0 +1,428 @@
+(* 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[     18593,        419]
+NotebookOptionsPosition[     17655,        387]
+NotebookOutlinePosition[     18064,        404]
+CellTagsIndexPosition[     18021,        401]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+
+Cell[CellGroupData[{
+Cell[TextData[{
+ StyleBox["Rubi",
+  FontSlant->"Italic"],
+ " 4.12.1"
+}], "Title",
+ CellChangeTimes->{{3.4897813784127054`*^9, 3.4897813794267073`*^9}, 
+   3.518320509030015*^9, {3.5769613958072157`*^9, 3.576961399157221*^9}, {
+   3.5818113211358624`*^9, 3.581811322505864*^9}, {3.588014284106391*^9, 
+   3.5880142845587916`*^9}, {3.5933144297049866`*^9, 
+   3.5933144300349865`*^9}, {3.5953446914325457`*^9, 3.595344691902547*^9}, {
+   3.612238596642627*^9, 3.612238596892227*^9}, {3.6235574469855204`*^9, 
+   3.623557447305521*^9}, {3.6336310694366074`*^9, 3.633631070093645*^9}, {
+   3.6414292510530057`*^9, 3.6414292518174067`*^9}, {3.6669851230264883`*^9, 
+   3.66698512435649*^9}, {3.6809646450469093`*^9, 3.6809646561585455`*^9}, {
+   3.682799968357607*^9, 3.682799968746629*^9}, {3.683231370531602*^9, 
+   3.6832313714826565`*^9}, {3.685735947623728*^9, 3.6857359497737303`*^9}, {
+   3.686789919766761*^9, 3.6867899200487766`*^9}, {3.687230099297368*^9, 
+   3.6872300995693836`*^9}, {3.6892138635040665`*^9, 3.689213863730079*^9}, {
+   3.690146376179472*^9, 3.690146376547493*^9}, {3.6919485296883698`*^9, 
+   3.6919485300683703`*^9}, {3.6932827954675274`*^9, 
+   3.6932827957483277`*^9}, {3.695091542008456*^9, 3.6950915425794888`*^9}, {
+   3.6966170132343836`*^9, 3.696617013554384*^9}, {3.6976798751471663`*^9, 
+   3.6976798774002953`*^9}, {3.702673552626842*^9, 3.7026735531568427`*^9}, {
+   3.705885647832942*^9, 3.705885649283745*^9}, {3.706152621368204*^9, 
+   3.7061526217682047`*^9}, {3.7063765173533025`*^9, 3.706376517609317*^9}, {
+   3.706393141129644*^9, 3.7063931434617777`*^9}, {3.7090906465542336`*^9, 
+   3.7090906473842807`*^9}},
+ TextAlignment->Center],
+
+Cell["Rule-Based Integrator", "Subtitle",
+ CellChangeTimes->{{3.4897814556796412`*^9, 3.4897814580976458`*^9}, {
+  3.5769621785283117`*^9, 3.576962186368323*^9}},
+ TextAlignment->Center,
+ FontWeight->"Bold"],
+
+Cell["Crafted by Albert D. Rich, Applied Logician", "Subsubtitle",
+ TextAlignment->Center],
+
+Cell[TextData[{
+ "Store this ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " notebook file and the ",
+ StyleBox["Rubi",
+  FontSlant->"Italic"],
+ " package files in a directory of your choice.  Then press Shift-Enter or \
+use ",
+ StyleBox["Mathematica'",
+  FontSlant->"Italic"],
+ "s Evaluation>Evaluate Initialization Cells command to evaluate the cells in \
+this notebook.  This loads ",
+ StyleBox["Rubi",
+  FontSlant->"Italic"],
+ "\[CloseCurlyQuote]s integration rules, show-step routines and required \
+utility functions.  This process may require a few minutes, depending on the \
+speed of your computer."
+}], "Text",
+ CellChangeTimes->{{3.4897816406959662`*^9, 3.489781641288767*^9}, {
+   3.4897816777304316`*^9, 3.489781737369336*^9}, {3.489781785947821*^9, 
+   3.4897818697199683`*^9}, {3.4905072763181257`*^9, 3.490507283291338*^9}, {
+   3.4905073468458495`*^9, 3.490507371852693*^9}, {3.4905080078118114`*^9, 
+   3.490508028559848*^9}, {3.4905107317414007`*^9, 3.4905107735806737`*^9}, 
+   3.490510813766344*^9, {3.4905108637176323`*^9, 3.490510901812899*^9}, {
+   3.490511168120967*^9, 3.4905112618615313`*^9}, {3.490511322108837*^9, 
+   3.490511340345269*^9}, {3.490511371077323*^9, 3.4905113713113236`*^9}, {
+   3.5769622262183785`*^9, 3.5769622320083866`*^9}, {3.5769666010375414`*^9, 
+   3.576966623167572*^9}, {3.5769666536376147`*^9, 3.5769667748577843`*^9}, {
+   3.581811338675887*^9, 3.581811339045888*^9}, {3.5880143026080236`*^9, 
+   3.5880143030292244`*^9}, {3.593314440145001*^9, 3.5933144404550014`*^9}, 
+   3.623557507675606*^9, {3.633631105913694*^9, 3.6336311099999275`*^9}, {
+   3.6414292622226253`*^9, 3.641429263969828*^9}, {3.6669851340075035`*^9, 
+   3.6669851344275045`*^9}, {3.685735975257767*^9, 3.6857359759677677`*^9}, {
+   3.686330797987679*^9, 3.6863307983126974`*^9}, {3.696617275962763*^9, 
+   3.6966172778627653`*^9}, {3.697679910094166*^9, 3.6976799160475063`*^9}, {
+   3.706393246928695*^9, 3.7063932472577143`*^9}},
+ FontSize->16],
+
+Cell[TextData[{
+ "If the control variable ",
+ StyleBox["$LoadShowSteps",
+  FontWeight->"Bold"],
+ " is ",
+ StyleBox["True",
+  FontWeight->"Bold"],
+ " when the rules are being loaded, their definitions are modified so the \
+steps used to integrate expressions can be displayed.  To load ",
+ StyleBox["Rubi",
+  FontSlant->"Italic"],
+ " without this considerable overhead, change the value of the following \
+assignment to ",
+ StyleBox["False",
+  FontWeight->"Bold"],
+ " ",
+ StyleBox["before",
+  FontSlant->"Italic"],
+ " loading the system."
+}], "Text",
+ CellChangeTimes->{{3.4897816406959662`*^9, 3.489781641288767*^9}, {
+   3.4897816777304316`*^9, 3.489781737369336*^9}, {3.489781785947821*^9, 
+   3.4897818697199683`*^9}, {3.48978190503843*^9, 3.489781921356059*^9}, {
+   3.489781958094124*^9, 3.4897819858777723`*^9}, 3.4905074310943985`*^9, {
+   3.4905074899377017`*^9, 3.4905075045861273`*^9}, {3.4905076088723106`*^9, 
+   3.4905077000388703`*^9}, {3.4905077353105326`*^9, 
+   3.4905077417533436`*^9}, {3.4905077785850086`*^9, 
+   3.4905078144338713`*^9}, {3.490507855789544*^9, 3.4905078566007457`*^9}, {
+   3.490507922557661*^9, 3.490507970886546*^9}, {3.4905082544950447`*^9, 
+   3.4905082803130894`*^9}, {3.4905083779848614`*^9, 
+   3.4905083782812614`*^9}, {3.4905084158617277`*^9, 3.490508416033328*^9}, {
+   3.4905088136396275`*^9, 3.490508818304035*^9}, {3.490511426847421*^9, 
+   3.4905114499666615`*^9}, {3.576966785177799*^9, 3.5769668198978477`*^9}, {
+   3.7063765327261815`*^9, 3.706376547279014*^9}, {3.706376654571151*^9, 
+   3.706376659223417*^9}, {3.7063932941673975`*^9, 3.706393305249031*^9}, {
+   3.706393380809353*^9, 3.7063934646011457`*^9}, {3.7063935962866774`*^9, 
+   3.7063935965546927`*^9}, {3.706399491723877*^9, 3.706399495302082*^9}, {
+   3.7063997364058723`*^9, 3.706399779607343*^9}},
+ FontSize->16],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"$LoadShowSteps", " ", "=", " ", "True"}], ";"}]], "Code",
+ CellChangeTimes->{{3.4897820121794186`*^9, 3.4897820382626643`*^9}, {
+  3.7062395371073294`*^9, 3.706239538477331*^9}, {3.7063765636919527`*^9, 
+  3.7063765650210285`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Get", "[", 
+   RowBox[{
+    RowBox[{"NotebookDirectory", "[", "]"}], "<>", "\"\<Rubi.m\>\""}], "]"}], 
+  ";"}]], "Code",
+ CellChangeTimes->{{3.4897813390382366`*^9, 3.489781344779046*^9}, {
+   3.489782578869215*^9, 3.489782580725618*^9}, {3.490508624536095*^9, 
+   3.49050875250312*^9}, {3.4905090125087767`*^9, 3.49050901444318*^9}, {
+   3.490509114111755*^9, 3.4905091205077662`*^9}, {3.490510930204949*^9, 
+   3.490510959673401*^9}, {3.518320785100402*^9, 3.518320823170455*^9}, {
+   3.518321371471223*^9, 3.5183214048112693`*^9}, {3.518321436071313*^9, 
+   3.5183214540713387`*^9}, {3.518321503801408*^9, 3.5183215396314583`*^9}, {
+   3.576961432047267*^9, 3.576961570947461*^9}, {3.576961607167512*^9, 
+   3.5769616303175445`*^9}, {3.576961661427588*^9, 3.576961695047635*^9}, {
+   3.5769617588277245`*^9, 3.5769618302878246`*^9}, {3.5769619293479633`*^9, 
+   3.576961935817972*^9}, {3.576962004338068*^9, 3.5769620153680835`*^9}, {
+   3.576962478824736*^9, 3.5769624799947376`*^9}, {3.576965706486283*^9, 
+   3.5769657335563207`*^9}, 3.5981526491463847`*^9, 3.612238809426402*^9, {
+   3.6414293246225367`*^9, 3.6414293251373377`*^9}, {3.641429366322812*^9, 
+   3.641429494050638*^9}, {3.641435429004635*^9, 3.64143551650064*^9}, {
+   3.6414361647507176`*^9, 3.641436360038887*^9}, {3.641436542370316*^9, 
+   3.6414365842197094`*^9}, {3.6428031601188593`*^9, 3.642803169928873*^9}, {
+   3.6466313554150295`*^9, 3.6466313700328655`*^9}, {3.646631424689992*^9, 
+   3.646631444188107*^9}, {3.6466315486800833`*^9, 3.646631548931098*^9}, 
+   3.646631850006318*^9, {3.650664373911137*^9, 3.650664438781228*^9}, {
+   3.6506644734412766`*^9, 3.650664623111486*^9}, {3.650664665331545*^9, 
+   3.650664665801546*^9}, {3.650664703321598*^9, 3.6506647778017025`*^9}, {
+   3.6506705925161247`*^9, 3.6506706012861366`*^9}, {3.6832327302853756`*^9, 
+   3.6832327457572603`*^9}, {3.68323290414032*^9, 3.6832329107706985`*^9}, {
+   3.6976869146198015`*^9, 3.697686933288869*^9}, {3.706376572842476*^9, 
+   3.7063765753146176`*^9}, {3.706378010821724*^9, 3.7063780118937855`*^9}, {
+   3.7063796188806996`*^9, 3.706379628102227*^9}, {3.706379859684473*^9, 
+   3.706379875088354*^9}}],
+
+Cell[TextData[{
+ "The function ",
+ StyleBox["Int",
+  FontWeight->"Bold"],
+ " returns the antiderivative (indefinite integral) of an expression with \
+respect to a given variable.  ",
+ StyleBox["Int",
+  FontWeight->"Bold"],
+ " is ",
+ StyleBox["not",
+  FontSlant->"Italic"],
+ " able to compute definite integrals."
+}], "Text",
+ CellChangeTimes->{{3.4897816406959662`*^9, 3.489781641288767*^9}, {
+   3.4897816777304316`*^9, 3.489781737369336*^9}, {3.489781785947821*^9, 
+   3.4897818697199683`*^9}, {3.48978190503843*^9, 3.489781921356059*^9}, {
+   3.489781958094124*^9, 3.4897819858777723`*^9}, {3.4897820637063093`*^9, 
+   3.4897820981199694`*^9}, 3.4897822161497765`*^9, {3.4897840774906487`*^9, 
+   3.4897840907506723`*^9}, {3.4897842079224777`*^9, 
+   3.4897842092952805`*^9}, {3.4905088717965293`*^9, 3.490508881172146*^9}, {
+   3.4905089196730137`*^9, 3.4905089314354343`*^9}, {3.5769669579280405`*^9, 
+   3.5769671537783155`*^9}, {3.5770818401387987`*^9, 3.577082065184794*^9}, {
+   3.5770821198940897`*^9, 3.577082170594179*^9}, 3.577082332896864*^9, {
+   3.7063936678217688`*^9, 3.7063936685528107`*^9}, {3.706399437183758*^9, 
+   3.706399471405715*^9}, {3.706399511039982*^9, 3.7063995141081576`*^9}, {
+   3.706400022249222*^9, 3.7064000373220835`*^9}, {3.7064000680278397`*^9, 
+   3.7064001117953434`*^9}, {3.7064001435691605`*^9, 3.706400148399437*^9}, {
+   3.706400178509159*^9, 3.706400204874667*^9}, {3.7064005515774975`*^9, 
+   3.7064005938339148`*^9}, {3.7064006957517433`*^9, 
+   3.7064007156428814`*^9}, {3.7070019314478283`*^9, 3.707001951677985*^9}, {
+   3.7070039353025103`*^9, 3.707004082873951*^9}},
+ FontSize->16],
+
+Cell[BoxData[
+ RowBox[{"?", " ", "Int"}]], "Code",
+ CellChangeTimes->{
+  3.4905089424334536`*^9, {3.7063777742591934`*^9, 3.706377775711276*^9}}],
+
+Cell[TextData[{
+ "If ",
+ StyleBox["$LoadShowSteps",
+  FontWeight->"Bold"],
+ " was ",
+ StyleBox["True",
+  FontWeight->"Bold"],
+ " when ",
+ StyleBox["Rubi",
+  FontSlant->"Italic"],
+ " was loaded ",
+ StyleBox["and",
+  FontSlant->"Italic"],
+ " the control variable ",
+ StyleBox["ShowSteps",
+  FontWeight->"Bold"],
+ " is ",
+ StyleBox["True",
+  FontWeight->"Bold"],
+ ", ",
+ StyleBox["Int",
+  FontWeight->"Bold"],
+ " shows just one step of the integration and returns the intermediate \
+result.  If ",
+ StyleBox["$LoadShowSteps",
+  FontWeight->"Bold"],
+ " was ",
+ StyleBox["False",
+  FontWeight->"Bold"],
+ " when ",
+ StyleBox["Rubi",
+  FontSlant->"Italic"],
+ " was loaded ",
+ StyleBox["or",
+  FontSlant->"Italic"],
+ " the control variable ",
+ StyleBox["ShowSteps",
+  FontWeight->"Bold"],
+ " is ",
+ StyleBox["False",
+  FontWeight->"Bold"],
+ ", ",
+ StyleBox["Int",
+  FontWeight->"Bold"],
+ " returns the antiderivative without showing the steps."
+}], "Text",
+ CellChangeTimes->{{3.4897816406959662`*^9, 3.489781641288767*^9}, {
+   3.4897816777304316`*^9, 3.489781737369336*^9}, {3.489781785947821*^9, 
+   3.4897818697199683`*^9}, {3.48978190503843*^9, 3.489781921356059*^9}, {
+   3.489781958094124*^9, 3.4897819858777723`*^9}, {3.4897820637063093`*^9, 
+   3.4897820981199694`*^9}, 3.4897822161497765`*^9, {3.4897840774906487`*^9, 
+   3.4897840907506723`*^9}, {3.4897842079224777`*^9, 
+   3.4897842092952805`*^9}, {3.4905088717965293`*^9, 3.490508881172146*^9}, {
+   3.4905089196730137`*^9, 3.4905089314354343`*^9}, {3.5769669579280405`*^9, 
+   3.5769671537783155`*^9}, {3.5770818401387987`*^9, 3.577082065184794*^9}, {
+   3.5770821198940897`*^9, 3.577082170594179*^9}, 3.577082332896864*^9, {
+   3.7063936678217688`*^9, 3.7063936685528107`*^9}, {3.706399437183758*^9, 
+   3.706399471405715*^9}, {3.706399511039982*^9, 3.7063995141081576`*^9}, {
+   3.706400022249222*^9, 3.7064000373220835`*^9}, {3.7064000680278397`*^9, 
+   3.7064001117953434`*^9}, {3.7064001435691605`*^9, 3.706400148399437*^9}, {
+   3.706400178509159*^9, 3.706400204874667*^9}, {3.7064005515774975`*^9, 
+   3.7064006532903147`*^9}, {3.7064007512299166`*^9, 
+   3.7064008230720263`*^9}, {3.7064010427835927`*^9, 
+   3.7064010739973783`*^9}, {3.7064011124925795`*^9, 3.706401133173763*^9}, {
+   3.706401199246542*^9, 3.7064013036675143`*^9}, {3.7064013764556775`*^9, 
+   3.70640146339265*^9}},
+ FontSize->16],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ShowSteps", " ", "=", " ", "True"}], ";"}]], "Code",
+ CellChangeTimes->{
+  3.4905089424334536`*^9, {3.7063777742591934`*^9, 3.706377775711276*^9}, {
+   3.7064006167422247`*^9, 3.7064006200564137`*^9}, {3.7070041710129924`*^9, 
+   3.707004172412072*^9}}],
+
+Cell[BoxData[
+ RowBox[{"?", " ", "ShowSteps"}]], "Code",
+ CellChangeTimes->{
+  3.4905089424334536`*^9, {3.7063777742591934`*^9, 3.706377775711276*^9}, {
+   3.7064006167422247`*^9, 3.7064006200564137`*^9}}],
+
+Cell[TextData[{
+ "To see the remaining steps, successively evaluate the intermediate results \
+until it is completely integrated.  To change the display color of the rules \
+and conditions, set the control variables ",
+ StyleBox["$RuleColor",
+  FontWeight->"Bold"],
+ " and ",
+ StyleBox["$ConditionColor",
+  FontWeight->"Bold"],
+ " to the desired colors."
+}], "Text",
+ CellChangeTimes->{{3.4897816406959662`*^9, 3.489781641288767*^9}, {
+   3.4897816777304316`*^9, 3.489781737369336*^9}, {3.489781785947821*^9, 
+   3.4897818697199683`*^9}, {3.48978190503843*^9, 3.489781921356059*^9}, {
+   3.489781958094124*^9, 3.4897819858777723`*^9}, {3.4897820637063093`*^9, 
+   3.4897820981199694`*^9}, 3.4897822161497765`*^9, {3.4897840774906487`*^9, 
+   3.4897840907506723`*^9}, {3.4897842079224777`*^9, 
+   3.4897842092952805`*^9}, {3.4905088717965293`*^9, 3.490508881172146*^9}, {
+   3.4905089196730137`*^9, 3.4905089314354343`*^9}, {3.5769669579280405`*^9, 
+   3.5769671537783155`*^9}, {3.5770818401387987`*^9, 3.577082065184794*^9}, {
+   3.5770821198940897`*^9, 3.577082170594179*^9}, 3.577082332896864*^9, {
+   3.7063936678217688`*^9, 3.7063936685528107`*^9}, {3.706399437183758*^9, 
+   3.706399471405715*^9}, {3.706399511039982*^9, 3.7063995141081576`*^9}, {
+   3.706400253238433*^9, 3.706400285841298*^9}, {3.7064003254025607`*^9, 
+   3.706400351123032*^9}, {3.7064003851039753`*^9, 3.7064004756851563`*^9}, {
+   3.7064005442440777`*^9, 3.7064005499824057`*^9}, {3.70640085250871*^9, 
+   3.7064008527707243`*^9}, 3.7064008935520573`*^9, {3.7064009277310123`*^9, 
+   3.706400928899079*^9}, 3.706401268059478*^9, 3.7064013005593367`*^9, {
+   3.7064013410226507`*^9, 3.706401345291895*^9}},
+ FontSize->16],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"$RuleColor", " ", "=", " ", "Red"}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"$ConditionColor", " ", "=", " ", "Blue"}], ";"}]}], "Code",
+ CellChangeTimes->{
+  3.4905089424334536`*^9, {3.7063777742591934`*^9, 3.706377775711276*^9}, {
+   3.7064006167422247`*^9, 3.7064006200564137`*^9}, {3.706400992084693*^9, 
+   3.7064010187052155`*^9}, {3.7070016839306707`*^9, 3.7070017095881386`*^9}, 
+   3.7070041689718757`*^9}],
+
+Cell[TextData[{
+ "If ",
+ StyleBox["$LoadShowSteps",
+  FontWeight->"Bold"],
+ " was ",
+ StyleBox["True",
+  FontWeight->"Bold"],
+ " when ",
+ StyleBox["Rubi",
+  FontSlant->"Italic"],
+ " was loaded, the function ",
+ StyleBox["IntShowSteps",
+  FontWeight->"Bold"],
+ " displays all the integration rules and intermediate results required to \
+integrate an expression."
+}], "Text",
+ CellChangeTimes->{{3.4897816406959662`*^9, 3.489781641288767*^9}, {
+   3.4897816777304316`*^9, 3.489781737369336*^9}, {3.489781785947821*^9, 
+   3.4897818697199683`*^9}, {3.48978190503843*^9, 3.489781921356059*^9}, {
+   3.489781958094124*^9, 3.4897819858777723`*^9}, {3.4897820637063093`*^9, 
+   3.4897820981199694`*^9}, 3.4897822161497765`*^9, {3.4897840774906487`*^9, 
+   3.4897840907506723`*^9}, {3.4897842079224777`*^9, 
+   3.4897842092952805`*^9}, {3.4905088717965293`*^9, 3.490508881172146*^9}, {
+   3.4905089196730137`*^9, 3.4905089314354343`*^9}, {3.5769669579280405`*^9, 
+   3.5769671537783155`*^9}, {3.5770818401387987`*^9, 3.577082065184794*^9}, {
+   3.5770821198940897`*^9, 3.577082170594179*^9}, 3.577082332896864*^9, {
+   3.7063936678217688`*^9, 3.7063936685528107`*^9}, {3.706399437183758*^9, 
+   3.706399471405715*^9}, {3.706399511039982*^9, 3.7063995141081576`*^9}, {
+   3.706400253238433*^9, 3.706400285841298*^9}, {3.7064003254025607`*^9, 
+   3.706400351123032*^9}, {3.7064003851039753`*^9, 3.7064004756851563`*^9}, {
+   3.7064005442440777`*^9, 3.7064005499824057`*^9}, {3.70640085250871*^9, 
+   3.7064008527707243`*^9}, 3.7064008935520573`*^9, {3.7064009277310123`*^9, 
+   3.706400928899079*^9}, 3.706401268059478*^9, 3.7064013005593367`*^9, {
+   3.7064013410226507`*^9, 3.706401345291895*^9}, {3.7064015247661605`*^9, 
+   3.706401590952946*^9}, {3.707001880847934*^9, 3.7070018988469634`*^9}},
+ FontSize->16],
+
+Cell[BoxData[
+ RowBox[{"?", " ", "IntShowSteps"}]], "Code",
+ CellChangeTimes->{
+  3.4905089424334536`*^9, 3.7063777703489695`*^9, {3.7064015427701902`*^9, 
+   3.706401555594924*^9}}]
+}, Open  ]]
+},
+AutoGeneratedPackage->None,
+WindowSize->{1286, 687},
+WindowMargins->{{Automatic, 138}, {Automatic, 20}},
+Magnification->1.3000000715255737`,
+FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[CellGroupData[{
+Cell[567, 22, 1678, 27, 107, "Title"],
+Cell[2248, 51, 207, 4, 64, "Subtitle"],
+Cell[2458, 57, 90, 1, 37, "Subsubtitle"],
+Cell[2551, 60, 1980, 37, 122, "Text"],
+Cell[4534, 99, 1833, 38, 97, "Text"],
+Cell[6370, 139, 266, 5, 58, "Code"],
+Cell[6639, 146, 2205, 33, 58, "Code"],
+Cell[8847, 181, 1636, 31, 69, "Text"],
+Cell[10486, 214, 145, 3, 58, "Code"],
+Cell[10634, 219, 2365, 66, 98, "Text"],
+Cell[13002, 287, 288, 6, 58, "Code"],
+Cell[13293, 295, 205, 4, 58, "Code"],
+Cell[13501, 301, 1697, 29, 89, "Text"],
+Cell[15201, 332, 446, 9, 106, "Code"],
+Cell[15650, 343, 1804, 35, 89, "Text"],
+Cell[17457, 380, 182, 4, 75, "Code"]
+}, Open  ]]
+}
+]
+*)
+
+(* End of internal cache information *)