(* 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[    161261,       3726]
NotebookOptionsPosition[     40316,       1071]
NotebookOutlinePosition[    149557,       3455]
CellTagsIndexPosition[    145665,       3392]
WindowTitle->Automatic
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
This Mathematica notebook, \[Copyright] Copyright 2009 Scientific Arts, LLC, \
all rights reserved.\
\>", "Title",
 Editable->False,
 Deletable->False,
 CellFrame->{{0, 0}, {1, 1}},
 CellDingbat->None,
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {10, 10}},
 CellFrameMargins->10,
 TextAlignment->Center,
 FontFamily->"Helvetica",
 FontSize->12,
 FontWeight->"Plain",
 FontColor->GrayLevel[0.3],
 Background->GrayLevel[0.9],
 CellTags->"CoyyrightCell"],

Cell["Creating a new Stylesheet: an exercise in refinement", "Subsection",
 Editable->True,
 Deletable->True,
 CellDingbat->None,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[85167915765465541416858463063198025491]",
 CellChangeTimes->{{3.400282310037068*^9, 3.400282315016506*^9}},
 Background->RGBColor[
  0.9012345679012346, 0.9012345679012346, 0.9012345679012346],
 CellTags->{
  "EssayCell", "Subsection103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 17, 23.467045}]", 
   "CellGUID[113393560816394332998784571164070031372]", 
   "GUIDTag[103104049651225981921329679361664538153]", 
   "BlogEntryTitle103104049651225981921329679361664538153"},
 CellID->85076543],

Cell[TextData[{
 "Posted on: Tuesday, October 2, 2007 at 03:09 AM UT",
 "  ",
 ButtonBox["Notebook Version",
  BaseStyle->"Hyperlink",
  ButtonData:>{
    URL["BE3400283395/BE3400283395.nb"], None}]
}], "Subsubsection",
 FontFamily->"Helvetica",
 FontSize->11,
 FontWeight->"Bold",
 Background->GrayLevel[0.98]],

Cell[TextData[{
 "Many things are going into the next version of ",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 ", and I will write about them soon. In fact I have been busy with them and \
so haven't written to this blog for a while because of that."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[322874558154995968144937631215254941456]",
 CellChangeTimes->{{3.400280374842276*^9, 3.400280412730865*^9}, {
   3.400280700628454*^9, 3.40028070293167*^9}, 3.400280792036336*^9, 
   3.40028326455586*^9},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
   "CellGUID[140182128287370261083967082250037164163]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1804832946],

Cell[TextData[{
 "Today a ",
 ButtonBox["question was asked on MathGroup",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://groups.google.com/group/comp.soft-sys.math.mathematica/browse_\
thread/thread/6215a9816824b6cc"], None}],
 " about how to create and save one's own stylesheet.  At first I answered \
the question in a pretty complex way.  But then I learned some more and \
posted an update.  Then after that, and after dinner, I sat down to write a \
function that would do the job automatically.   I decided that it would be \
easy to do this: to write a function that would create a new StyleSheet for \
you to reuse as needed based on modifications to style definitions that you \
have made to a particular notebook.  "
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[322874558154995968144937631215254941456]",
 CellChangeTimes->{{3.400280374842276*^9, 3.400280602290223*^9}, 
   3.400280641047647*^9, {3.400280685509859*^9, 3.400280686155826*^9}},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
   "CellGUID[140182128287370261083967082250037164163]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->674933121],

Cell[TextData[{
 "It wasn't quite a simple as I first thought though, and I will perhaps have \
to modify it somewhat before releasing it into ",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 ".  Here is the code that I wrote..."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[322874558154995968144937631215254941456]",
 CellChangeTimes->{{3.400280374842276*^9, 3.400280602290223*^9}, 
   3.400280641047647*^9, {3.400280713740738*^9, 3.4002807140121803`*^9}, 
   3.400280793315856*^9},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
   "CellGUID[140182128287370261083967082250037164163]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->2117752510],

Cell["\<\
Well, hang on a moment.  I really need to make a marketing announcement \
first...\
\>", "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[75800742725724409817548914315749530302]",
 CellChangeTimes->{{3.400280721415058*^9, 3.400280746157097*^9}},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 25, 20.324239}]", 
   "CellGUID[85705673174855785275506963724522871477]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->82783],

Cell[TextData[{
 "If you are reading this you are most likely on the ",
 ButtonBox["website",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://scientificarts.com/worklife"], None}],
 " for ",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 ".  Perhaps you have come here from ",
 ButtonBox["MathGroup",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://groups.google.com/group/comp.soft-sys.math.mathematica"], 
    None}],
 ".  Whatever circuitous route has brought you here, you really should take a \
moment to ",
 ButtonBox["download a trial copy",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://scientificarts.com/worklife/trial.html"], None}],
 " of ",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 ".  It's a great product and will help you with all sorts of things. It \
extends ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " in all sorts of useful directions\[LongDash]and the simple function that \
follows is one of a huge number of such extensions. "
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[145593275044029187847013368304759128157]",
 CellChangeTimes->{{3.400280749816283*^9, 3.4002809289338703`*^9}, {
  3.400280961007895*^9, 3.40028104504675*^9}},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 25, 48.843426}]", 
   "CellGUID[320734074029266049240254129378920591591]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1391333881],

Cell[TextData[{
 ButtonBox["Give it a go",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://scientificarts.com/worklife/trial.html"], None}],
 ".  Please. And if you find it useful, it is quite inexpensive and is like \
getting several thousand hours of my consulting time  for about a single \
hour's cost. "
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[163330416965230132920255888795335526564]"},
 CellChangeTimes->{{3.400281048788656*^9, 3.400281138945964*^9}, {
  3.40028232660393*^9, 3.400282327978726*^9}},
 CellTags->{
  "DiaryDate[{2007, 10, 2, 2, 34, 36.405317}]", 
   "CellGUID[194503441759709428917332334899139208618]", "EssayCell", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "Text103104049651225981921329679361664538153", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->199105784],

Cell[TextData[{
 "Ok, so that's not enough to get you interested?  Then take a look at the ",
 ButtonBox["screencasts",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://scientificarts.com/worklife/screencasts/index.html"], None}],
 " to get a better sense of a small bit of ",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 "'s scope and usefulness."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[27504671101887089904156844862583723007]"},
 CellChangeTimes->{{3.400281143857526*^9, 3.4002812145206537`*^9}},
 CellTags->{
  "DiaryDate[{2007, 10, 2, 2, 34, 37.500233}]", 
   "CellGUID[334553395798356667590676684575644224512]", "EssayCell", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "Text103104049651225981921329679361664538153", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->931730918],

Cell["\<\
OK, I'm done with my marketing spiel.  Now on to the code\[LongDash]hot off \
the press with the ink still drying.\
\>", "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[323474997004305078802486816051303481249]",
 CellChangeTimes->{{3.400281234191924*^9, 3.4002812861990423`*^9}},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 33, 46.269952}]", 
   "CellGUID[217276879189272162452283397287118419379]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->150784902],

Cell[TextData[{
 "Here, first is the code (jump past it for continued discussion; also, you \
can download a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " notebook with this blog post in it\[LongDash]including the \
code\[LongDash]by using the \"",
 StyleBox["Notebook", "SB",
  FontColor->RGBColor[0, 0.3, 0.4]],
 "\" link at the end  of the post):"
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[336692462235170379165151116662639103090]",
 CellChangeTimes->{{3.400281291841634*^9, 3.40028129868692*^9}, {
   3.400281360789892*^9, 3.400281419947093*^9}, {3.400281455779582*^9, 
   3.4002814622000103`*^9}, 3.40028152978976*^9},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 34, 49.135423}]", 
   "CellGUID[201737813618274208979649041898866697817]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->211144454],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"CreateNewStylesheetFromNotebookPrivateStyles", "::", "usage"}], 
   "=", "\"\<CreateNewStylesheetFromNotebookPrivateStyles[nb] processes the \
notebook nb and opens a dialog that allows you to install a new Stylesheet \
into Mathematica based on the private style definitions that you have added \
to the notebook nb. In the dialog that opens\[LongDash]which is the standard \
Mathematica Install dialog\[LongDash]you should\\n\\n\\tchoose \\\"Stylesheet\
\\\" for the first menu item;\\n\\n\\tchoose \\\"From Clipboard\\\" from the \
second menu item;\\n\\n\\ttype the name you want your Stylesheet to have in \
the input field;\\n\\n\\tchoose the installation location using the radio \
buttons;\\n\\n\\tand then click \\\"Finish\\\".\\n\\n\\tThe resulting \
Stylesheet will then appear in your Mathematica Format>Stylesheet menu. \
\>\""}], ";"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[57483505282352493519943182645918950766]",
 CellChangeTimes->{3.400281311522916*^9},
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 35, 10.245593}]", 
   "CellGUID[325662099275379205749509618786673351033]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1061853534],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "CreateNewStylesheetFromNotebookPrivateStyles", "[", "nb_NotebookObject", 
    "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Catch", "@", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "stylenb", ",", "nbFrontEndObject", ",", "nbObjectID", ",", "tempID", 
        ",", "tempnb", ",", "choices", ",", "nbWindowTitle", ",", "objects"}],
        "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"nbWindowTitle", "=", 
        RowBox[{"WindowTitle", "/.", 
         RowBox[{"AbsoluteOptions", "[", "nb", "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"FrontEndExecute", "[", 
        RowBox[{"{", 
         RowBox[{"FrontEnd`FrontEndToken", "[", 
          RowBox[{"nb", ",", "\"\<EditStyleDefinitions\>\""}], "]"}], "}"}], 
        "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"tempnb", "=", 
        RowBox[{"CreateWindow", "[", 
         RowBox[{"Visible", "\[Rule]", "False"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"tempID", "=", 
        RowBox[{"Last", "[", "tempnb", "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"NotebookClose", "[", "tempnb", "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"nbFrontEndObject", "=", 
        RowBox[{"First", "@", "nb"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"nbObjectID", "=", 
        RowBox[{"Last", "@", "nb"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"objects", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"NotebookObject", "[", 
           RowBox[{"nbFrontEndObject", ",", "#"}], "]"}], "&"}], "/@", 
         RowBox[{"Range", "[", 
          RowBox[{"nbObjectID", ",", "tempID"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"choices", "=", 
        RowBox[{"Quiet", "@", 
         RowBox[{"Select", "[", 
          RowBox[{"objects", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"WindowTitle", "/.", 
                 RowBox[{"AbsoluteOptions", "[", "#", "]"}]}], ")"}], "===", 
               "nbWindowTitle"}], ")"}], "&&", 
             RowBox[{"#", "=!=", "nb"}]}], "&"}]}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"choices", "===", 
          RowBox[{"{", "}"}]}], ",", 
         RowBox[{"Throw", "[", "$Failed", "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Length", "@", "choices"}], ">", "1"}], ",", 
         RowBox[{"Throw", "[", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{
             RowBox[{
             "CreateNewStylesheetFromNotebookPrivateStyles", "::", 
              "toomany"}], ",", "nbWindowTitle"}], "]"}], ";", "$Failed"}], 
          "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"stylenb", "=", 
        RowBox[{"First", "[", "choices", "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"SelectionMove", "[", 
        RowBox[{"stylenb", ",", "All", ",", "Notebook"}], "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"FrontEndExecute", "[", 
        RowBox[{"{", 
         RowBox[{"FrontEnd`FrontEndToken", "[", 
          RowBox[{"stylenb", ",", "\"\<Copy\>\""}], "]"}], "}"}], "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"NotebookClose", "[", "stylenb", "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"FE`InstallDialog`InstallDialogFunc", "[", "]"}]}]}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}]}], ";"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[316601705095102856001304589787871346003]",
 CellChangeTimes->{3.400281332179613*^9, 3.400340169663684*^9},
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 35, 16.376878}]", 
   "CellGUID[228533627388647634186993079223466690454]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->983239368],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"CreateNewStylesheetFromNotebookPrivateStyles", "[", "]"}], ":=", 
   RowBox[{"CreateNewStylesheetFromNotebookPrivateStyles", "[", 
    RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ";"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[141271427413155952855910900239525378728]",
 CellChangeTimes->{3.400281354449547*^9},
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 35, 53.415994}]", 
   "CellGUID[19611053460865256634138564904291940934]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->417394311],

Cell[TextData[{
 "It turns out that this was trickier to do than I first thought.  The \
problem is not processing the notebook's private Stylesheet.  Rather the \
problem is figuring out how to get the ",
 StyleBox["NotebookObject", "MR"],
 " for that Stylesheet notebook.   It's there, but the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " function ",
 StyleBox["Notebooks[]", "MR"],
 " doesn't show Stylesheet notebooks.  This is by design.  So one needs a \
trick to figure it out. And embedded in this code is a trick that I figured \
out.  "
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[170644207977890741132162278814390253897]",
 CellChangeTimes->{{3.40028153755757*^9, 3.400281667006743*^9}, {
  3.400282358853861*^9, 3.4002823775810537`*^9}},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 38, 56.423740}]", 
   "CellGUID[39223760758963303202254089368010311706]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1464593875],

Cell["\<\
Now this piece of code seems to work fine (well, you should add a check to \
make sure that the notebook nb is open).\
\>", "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[312886699217785922698522580022360014918]",
 CellChangeTimes->{{3.400282381679997*^9, 3.400282411077819*^9}},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 53, 0.547799}]", 
   "CellGUID[26189124490482093205333561137478006294]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->696521403],

Cell[TextData[{
 "But, I started to write this blog posting and, as I was writing it I \
realized that I could do this in a ",
 StyleBox["much",
  FontSlant->"Italic"],
 " simpler way.  So between the previous two paragraphs I rewrote the code \
and came up with what follows.  But I decided to leave the previous bit of \
code above in this blog posting because it shows something that is \
pedagogically interesting\[LongDash]at least I think so, and I learned \
something..."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[331108558634581265738421053354867253029]",
 CellChangeTimes->{{3.4002824193931847`*^9, 3.400282537298141*^9}, 
   3.400283269406198*^9},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 53, 38.233346}]", 
   "CellGUID[213862942623640562833337035347381116572]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->501860424],

Cell[TextData[{
 "So here is the revised version of the code (which also needs a check for \
whether the notebook, nb, is actually open. (That's easy to do, but the way I \
do it is to use a function, ",
 StyleBox["NotebookOpenQ", "MR"],
 ", that is in",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 ", but I want to make this posting independent of that.  One way to do it is \
to evaluate ",
 StyleBox["NotebookInformation[nb]", "MR"],
 " and if it doesn't return ",
 StyleBox["$Failed", "MR"],
 " then nb is open...)"
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[101515149841141738015163266689277578934]",
 CellChangeTimes->{{3.400282543069233*^9, 3.400282670206896*^9}},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 55, 42.232489}]", 
   "CellGUID[121756768608985594823350948580146574870]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1599864399],

Cell[TextData[{
 "The function ",
 StyleBox["FE`InstallDialog`InstallDialogFunc", "MR"],
 " is not documented in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", but it does the job that is required. \n  \nNormally one would try to use \
\n\n",
 StyleBox["FrontEndExecute[FrontEndToken[\"Install\"]]", "MR"],
 "\n\nwhich is documented.  However this doesn' t work.  This is because, \
although the ",
 StyleBox["\"Install\"", "MR"],
 " ",
 StyleBox["FrontEndToken", "MR"],
 " is documented, it actually is not implemented in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".  I checked this out with the developers at Wolfram Research and they say \
that it is a documentation oversight that it is included in the documentation \
(though I personally think that it should just be implemented) and that the \
internal function ",
 StyleBox["FE`InstallDialog`InstallDialogFunc", "MR"],
 " is what can be used instead.   Of course this makes the code slightly \
fragile as this function, or its name, may change in future versions of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".   But for now the function does work ...\n"
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[306873682206703472834658875168835986958]",
 CellChangeTimes->{
  3.4003343089889317`*^9, {3.4003344025762978`*^9, 3.400334452373108*^9}, {
   3.400334493826207*^9, 3.400334500537154*^9}, {3.4003345972856607`*^9, 
   3.4003345981016703`*^9}},
 Background->RGBColor[0.8384985122453651, 0.8634927901121539, 1.],
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 17, 18, 27.320525}]", 
   "CellGUID[145909240946686057333866050045097720935]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->273491656],

Cell["Here's the revised code:", "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[123480204036057650085614235924106182617]",
 CellChangeTimes->{{3.400282733363394*^9, 3.400282740088726*^9}},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 58, 52.282198}]", 
   "CellGUID[121730882860960003599390074175675702410]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->278209906],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"CreateNewStylesheetFromNotebookPrivateStyles", "::", "usage"}], 
   "=", "\"\<CreateNewStylesheetFromNotebookPrivateStyles[nb] processes the \
notebook nb and opens a dialog that allows you to install a new Stylesheet \
into Mathematica based on the private style definitions that you have added \
to the notebook nb. In the dialog that opens\[LongDash]which is the standard \
Mathematica Install dialog\[LongDash]you should\\n\\n\\tchoose \\\"Stylesheet\
\\\" for the first menu item;\\n\\n\\tchoose \\\"From Clipboard\\\" from the \
second menu item;\\n\\n\\ttype the name you want your Stylesheet to have in \
the input field;\\n\\n\\tchoose the installation location using the radio \
buttons;\\n\\n\\tand then click \\\"Finish\\\".\\n\\n\\tThe resulting \
Stylesheet will then appear in your Mathematica Format>Stylesheet menu. \
\>\""}], ";"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[241933462476417324148600368299076976091]",
 CellChangeTimes->{3.400282743444549*^9},
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 59, 2.517945}]", 
   "CellGUID[254302936959898958279084518718432593304]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->801990623],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"CreateNewStylesheetFromNotebookPrivateStyles", "::", "nonew"}], 
   "=", "\"\<The notebook `1` does not have any private StyleDefinitions. \
Edit the notebook's styles first before creating a new style sheet from \
it\>\""}], ";"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[260727635619498463961920522182184646149]",
 CellChangeTimes->{3.400282801117845*^9, 3.4002828406504383`*^9},
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 0, 0.243075}]", 
   "CellGUID[94271534698037206547610622256040790131]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1449032189],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "CreateNewStylesheetFromNotebookPrivateStyles", "[", "nb_NotebookObject", 
    "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Catch", "@", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "styleDefinitions", "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"styleDefinitions", "=", 
        RowBox[{"StyleDefinitions", "/.", 
         RowBox[{"Options", "[", 
          RowBox[{"nb", ",", "StyleDefinitions"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Head", "[", "styleDefinitions", "]"}], "=!=", "Notebook"}],
          ",", 
         RowBox[{"Throw", "[", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{
             RowBox[{
             "CreateNewStylesheetFromNotebookPrivateStyles", "::", "nonew"}], 
             ",", "nb"}], "]"}], ";", "$Failed"}], "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"styleDefinitions", "=", 
        RowBox[{"First", "[", "styleDefinitions", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"NotebookPut", "[", 
        RowBox[{
         RowBox[{"Notebook", "[", "styleDefinitions", "]"}], ",", 
         RowBox[{"ClipboardNotebook", "[", "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"FE`InstallDialog`InstallDialogFunc", "[", "]"}]}]}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}]}], ";"}]], "Input",\

 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[33856266984731048880753398990756686394]",
 CellChangeTimes->{{3.4002828214420557`*^9, 3.400282845143445*^9}},
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 0, 20.499997}]", 
   "CellGUID[157696736368181547148433853929643659857]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1419443543],

Cell[BoxData[
 RowBox[{
  RowBox[{"CreateNewStylesheetFromNotebookPrivateStyles", "[", "]"}], ":=", 
  RowBox[{"CreateNewStylesheetFromNotebookPrivateStyles", "[", 
   RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[308918794168374636219209356304460991379]",
 CellChangeTimes->{{3.40028283254779*^9, 3.4002828489524918`*^9}},
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 0, 31.607740}]", 
   "CellGUID[12547022416924321992914918119607824371]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->191792678],

Cell[TextData[{
 "Now, that really is a bit simpler.  I will sit on it a bit, add a bit of \
functionality, and then add it to the StyleSheetsPalette for ",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 " for easy use."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[189828259635877915204251627017367148243]",
 CellChangeTimes->{{3.400282852439197*^9, 3.400282858820475*^9}, {
  3.400283100288621*^9, 3.400283153586585*^9}},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 0, 51.365066}]", 
   "CellGUID[279713224518831804584755092682611452778]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->86584999],

Cell["\<\
Perhaps I should have thought a bit more before coding the first version, but \
I learned something from the process...\
\>", "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[160623592234664925386568846889346399404]",
 CellChangeTimes->{{3.40028286213556*^9, 3.400282895093886*^9}},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 1, 1.180295}]", 
   "CellGUID[210423141055341520631467314293851129479]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1387649174],

Cell["So, I hope that you find this useful.", "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[13977035740042565194544747381133388059]",
 CellChangeTimes->{{3.4002829008569202`*^9, 3.400282909950142*^9}},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 1, 39.715906}]", 
   "CellGUID[325812377416173515777421121576598730997]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->547260998],

Cell[TextData[{
 Cell[GraphicsData["CompressedBitmap", "\<\
eJxlUTFLw0AYvRjFdhGyd8hfcMhfqJNDIKtIKEI6iNp0Kk7i1l+gi07tUhed
4+KSJUuWBBLR0JamoBmSQITSPr+kocR6cPd937133713d6x2tbNztdtuqeJR
R73U2i1dbF50aIvnGGN1mgciy3NQWi510GCMLwKPVfCMd32EZVEV0E4RdmnJ
MD8V4DYEhE72D3XgE/KRM67NbTSz4CsP+HHu4N/+RfeQDk/g9W0qbHgNGXGC
EmOslkcs/QHdqyHNihLZkwZXGeQyuZKY94wxkwTM7Lg8zq9FKwImVsyqzIyY
h4iS0iWHuC9zGJtRhbQIEJCjiRlV2kWY0hWfL/6mXQ2hIiN8HRX+g0cDiWVg
3BTg90eY69Q3V8TY/lp7ZMCTevgaXsGVbvA97NGTvG0ZXiUB0umCRNiY3Fu0
s0BqB1htDJcfx7hfd+xB/Q==\
\>"], "Input",
  Evaluatable->False,
  ImageSize->{9, 14},
  ImageMargins->0,
  ImageRegion->{{0, 1}, {0, 1}}],
 " Now, go ",
 ButtonBox["download the ",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://scientificarts.com/worklife/trial.html"], None}],
 "fully functional",
 ButtonBox[" trial version",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://scientificarts.com/worklife/trial.html"], None}],
 " of ",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 ". It's worth spending some time with..."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[308403602361310055745030497442685568752]",
 CellChangeTimes->{{3.400282913137229*^9, 3.400282992817914*^9}, {
   3.400283027028182*^9, 3.400283027030952*^9}, {3.400283073484366*^9, 
   3.400283089784924*^9}, {3.400283187556357*^9, 3.400283189687385*^9}, {
   3.400283232849183*^9, 3.400283274216242*^9}, {3.400283386542094*^9, 
   3.400283389123955*^9}, 3.400284211282794*^9},
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 1, 52.384543}]", 
   "CellGUID[22848159092260472479192573317948093448]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->143133285]
},
Editable->True,
ScreenStyleEnvironment->"Working",
WindowSize->{550, Automatic},
WindowMargins->{{118, Automatic}, {Automatic, 9}},
WindowTitle->Automatic,
Visible->True,
DockedCells->{},
ShowSelection->True,
TaggingRules:>{
 "3.0.0\[Beta]36", "GUIDTag[273932862660042016084904303083031309586]", 
  "Notebook"},
CreateCellID->True,
DefaultNewCellStyle->"Text",
Magnification->1.,
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData["Notebook"], PageHeaders -> {{
       Cell[
        TextData[{
          CounterBox["Page"]}], "PageNumber"], None, 
       Cell[
        TextData[{
          ValueBox["FileName"]}], "Header"]}, {
       Cell[
        TextData[{
          ValueBox["FileName"]}], "Header"], None, 
       Cell[
        TextData[{
          CounterBox["Page"]}], "PageNumber"]}}, CellFrameLabelMargins -> 6, 
    StyleMenuListing -> None], 
   Cell[
    StyleData["Section"], CellFrame -> {{0, 0}, {0, 1}}, 
    CellMargins -> {{27, Inherited}, {8, 34}}, 
    CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, 
    CellFrameMargins -> 4, DefaultNewInlineCellStyle -> "None", 
    InputAutoReplacements -> {"TeX" -> FormBox[
        StyleBox[
         RowBox[{"T", 
           AdjustmentBox[
           "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
           "X"}], SingleLetterItalics -> False], TraditionalForm], "LaTeX" -> 
      FormBox[
        StyleBox[
         RowBox[{"L", 
           StyleBox[
            AdjustmentBox[
            "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
             BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
           AdjustmentBox[
           "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
           "X"}], SingleLetterItalics -> False], TraditionalForm], "mma" -> 
      "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", 
      "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], ParentList}, 
    TextAlignment -> Center, LineSpacing -> {1, 2}, LanguageCategory -> 
    "NaturalLanguage", CounterIncrements -> "Section", 
    CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, 
    MenuPosition -> 1250, MenuCommandKey -> "4", FontFamily -> "Helvetica", 
    FontSize -> 20, FontWeight -> "Bold"], 
   Cell[
    StyleData["Subsection"], CellMargins -> {{20, Inherited}, {8, 12}}, 
    CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, 
    DefaultNewInlineCellStyle -> "None", 
    InputAutoReplacements -> {"TeX" -> StyleBox[
        RowBox[{"T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "LaTeX" -> StyleBox[
        RowBox[{"L", 
          StyleBox[
           AdjustmentBox[
           "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, 
            BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", 
      "MMA" -> "Mathematica", "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, 
    LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", 
    CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", 
    FontSize -> 14, FontWeight -> "Bold"], 
   Cell[
    StyleData["Subsubsection"], CellMargins -> {{25, Inherited}, {2, 10}}, 
    CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, 
    DefaultNewInlineCellStyle -> "None", 
    InputAutoReplacements -> {"TeX" -> StyleBox[
        RowBox[{"T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "LaTeX" -> StyleBox[
        RowBox[{"L", 
          StyleBox[
           AdjustmentBox[
           "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, 
            BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", 
      "MMA" -> "Mathematica", "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, 
    LanguageCategory -> "NaturalLanguage", CounterIncrements -> 
    "Subsubsection", FontFamily -> "Helvetica", FontSize -> 13, FontWeight -> 
    "Bold"], 
   Cell[
    StyleData["Text"], CellMargins -> {{25, 10}, {7, 7}}, 
    InputAutoReplacements -> {"TeX" -> StyleBox[
        RowBox[{"T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "LaTeX" -> StyleBox[
        RowBox[{"L", 
          StyleBox[
           AdjustmentBox[
           "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, 
            BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", 
      "MMA" -> "Mathematica", "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, 
    LineSpacing -> {1, 3}, CounterIncrements -> "Text"], 
   Cell[
    StyleData["Input"], CellMargins -> {{25, 10}, {5, 7}}, Evaluatable -> 
    True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> 
    True, PageBreakWithin -> False, GroupPageBreakWithin -> False, 
    DefaultFormatType -> DefaultInputFormatType, 
    "TwoByteSyntaxCharacterAutoReplacement" -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> 
    InputForm, ShowStringCharacters -> True, NumberMarks -> True, 
    LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input",
     FontWeight -> "Bold"], 
   Cell[
    StyleData["Output"], CellMargins -> {{66, 10}, {10, 5}}, 
    CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", 
    TextClipboardType -> "InputText", StripStyleOnPaste -> True, 
    PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> 
    True, CellAutoOverwrite -> True, DefaultFormatType -> 
    DefaultOutputFormatType, ContextMenu -> 
    FEPrivate`FrontEndResource["ContextMenus", "Output"], 
    "TwoByteSyntaxCharacterAutoReplacement" -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, 
    ShowStringCharacters -> False, CounterIncrements -> "Output", 
    MenuPosition -> 1550], 
   Cell[
    StyleData["Graphics"], 
    CellMargins -> {{30, Inherited}, {Inherited, Inherited}}, 
    CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, 
    PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> 
    True, ShowCellLabel -> False, DefaultFormatType -> 
    DefaultOutputFormatType, LanguageCategory -> None, FormatType -> 
    InputForm, CounterIncrements -> "Graphics", 
    ImageMargins -> {{43, Inherited}, {Inherited, 0}}, StyleMenuListing -> 
    None, FontFamily -> "Helvetica", FontSize -> 10], 
   Cell[
    StyleData["Picture"], CellMargins -> {{27, Inherited}, {4, 4}}, 
    CellGroupingRules -> "GraphicsGrouping", StyleMenuListing -> None], 
   Cell[
    StyleData["DisplayFormula"], 
    CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, 
    CellHorizontalScrolling -> True, DefaultFormatType -> 
    DefaultInputFormatType, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> 
    True, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
   Cell[
    StyleData["Program"], CellFrame -> {{0, 0}, {0.5, 0.5}}, 
    CellMargins -> {{60, 4}, {0, 8}}, CellHorizontalScrolling -> True, 
    Hyphenation -> False, LanguageCategory -> "Formula", ScriptLevel -> 1, 
    FontFamily -> "Courier"], 
   Cell[
    StyleData["SmallText"], CellMargins -> {{60, 10}, {6, 6}}, 
    DefaultNewInlineCellStyle -> "None", LineSpacing -> {1, 3}, 
    LanguageCategory -> "NaturalLanguage", CounterIncrements -> "SmallText", 
    MenuPosition -> 1750, StyleMenuListing -> None, FontFamily -> "Helvetica",
     FontSize -> 9], 
   Cell[
    StyleData["HTMLVerbatim"], CellMargins -> {{25, 10}, {7, 7}}, 
    ConversionRules -> {"HTML" -> Identity}, Hyphenation -> False, 
    LineSpacing -> {1, 3}, FontFamily -> "Geneva"], 
   Cell[
    StyleData["MathCaption"], CellMargins -> {{25, 10}, {7, 7}}, 
    InputAutoReplacements -> {"TeX" -> StyleBox[
        RowBox[{"T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "LaTeX" -> StyleBox[
        RowBox[{"L", 
          StyleBox[
           AdjustmentBox[
           "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, 
            BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", 
      "MMA" -> "Mathematica", "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, 
    LineSpacing -> {1, 3}, CounterIncrements -> "Text"], 
   Cell[
    StyleData["Item"], CellDingbat -> 
    Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], 
    CellMargins -> {{75, 10}, {4, 4}}, ReturnCreatesNewCell -> True, 
    CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
    CellFrameLabelMargins -> 4, CounterIncrements -> "Item", 
    CounterAssignments -> {{"Subitem", 0}, {"Subsubitem", 0}}, MenuPosition -> 
    1600], 
   Cell[
    StyleData["Subitem"], CellDingbat -> 
    Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], 
    CellMargins -> {{99, 12}, {4, 4}}, ReturnCreatesNewCell -> True, 
    CellGroupingRules -> {"GroupTogetherNestedGrouping", 15100}, 
    CellFrameLabelMargins -> 4, DefaultNewCellStyle -> "Item", 
    CounterIncrements -> "Subitem", CounterAssignments -> {{"Subsubitem", 0}},
     MenuPosition -> 1610], 
   Cell[
    StyleData["Subsubitem"], CellDingbat -> 
    Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], 
    CellMargins -> {{123, 12}, {4, 4}}, ReturnCreatesNewCell -> True, 
    CellGroupingRules -> {"GroupTogetherNestedGrouping", 15200}, 
    CellFrameLabelMargins -> 4, DefaultNewCellStyle -> "Subsubitem", 
    CounterIncrements -> "Subsubitem"], 
   Cell[
    StyleData["DisplayFormula"], 
    CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, 
    StripStyleOnPaste -> True, DefaultFormatType -> DefaultInputFormatType, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> 
    True, MenuPosition -> 1700, 
    UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
   Cell[
    StyleData["TR"], StyleMenuListing -> None, FontFamily -> "Times", 
    FontWeight -> "Plain", FontSlant -> "Plain"], 
   Cell[
    StyleData["TI"], StyleMenuListing -> None, FontFamily -> "Times", 
    FontWeight -> "Plain", FontSlant -> "Italic"], 
   Cell[
    StyleData["TB"], StyleMenuListing -> None, FontFamily -> "Times", 
    FontWeight -> "Bold"], 
   Cell[
    StyleData["TBI"], StyleMenuListing -> None, FontFamily -> "Times", 
    FontWeight -> "Bold", FontSlant -> "Italic"], 
   Cell[
    StyleData["MR"], 
    ConversionRules :> {
     "TeX" -> {{"\\texttt{", Automatic, "}"}, {"", Automatic, ""}}}, 
    Hyphenation -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", 
    FontSlant -> "Plain"], 
   Cell[
    StyleData["MO"], 
    ConversionRules :> {
     "TeX" -> {{"\\texttt{", Automatic, "}"}, {"", Automatic, ""}}}, 
    Hyphenation -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", 
    FontSlant -> "Italic"], 
   Cell[
    StyleData["MB"], 
    ConversionRules :> {
     "TeX" -> {{"\\texttt{", Automatic, "}"}, {"", Automatic, ""}}}, 
    Hyphenation -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold"], 
   
   Cell[
    StyleData["MBO"], 
    ConversionRules :> {
     "TeX" -> {{"\\texttt{", Automatic, "}"}, {"", Automatic, ""}}}, 
    Hyphenation -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", 
    FontSlant -> "Italic"], 
   Cell[
    StyleData["SR"], 
    ConversionRules :> {
     "TeX" -> {{"\\textsf{", Automatic, "}"}, {"", Automatic, ""}}}, 
    StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> 
    "Plain", FontSlant -> "Plain"], 
   Cell[
    StyleData["SO"], 
    ConversionRules :> {
     "TeX" -> {{"\\textsf{", Automatic, "}"}, {"", Automatic, ""}}}, 
    StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> 
    "Plain", FontSlant -> "Italic"], 
   Cell[
    StyleData["SB"], 
    ConversionRules :> {
     "TeX" -> {{"\\textsf{", Automatic, "}"}, {"", Automatic, ""}}}, 
    StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> 
    "Bold"], 
   Cell[
    StyleData["SBO"], 
    ConversionRules :> {
     "TeX" -> {{"\\textsf{", Automatic, "}"}, {"", Automatic, ""}}}, 
    StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold",
     FontSlant -> "Italic"]}, Visible -> False, FrontEndVersion -> 
  "7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "CoyyrightCell"->{
  Cell[568, 21, 465, 17, 70, "Title",
   CellTags->"CoyyrightCell"]},
 "EssayCell"->{
  Cell[1036, 40, 892, 20, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.467045}]", 
     "CellGUID[113393560816394332998784571164070031372]", 
     "GUIDTag[103104049651225981921329679361664538153]", 
     "BlogEntryTitle103104049651225981921329679361664538153"},
   CellID->85076543],
  Cell[2245, 75, 1494, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1804832946],
  Cell[3742, 118, 1470, 31, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->674933121],
  Cell[5215, 151, 1474, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->2117752510],
  Cell[6692, 194, 747, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 20.324239}]", 
     "CellGUID[85705673174855785275506963724522871477]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->82783],
  Cell[7442, 215, 2676, 81, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 48.843426}]", 
     "CellGUID[320734074029266049240254129378920591591]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1391333881],
  Cell[10121, 298, 1027, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 36.405317}]", 
     "CellGUID[194503441759709428917332334899139208618]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->199105784],
  Cell[11151, 325, 1505, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 37.500233}]", 
     "CellGUID[334553395798356667590676684575644224512]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->931730918],
  Cell[12659, 370, 787, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 33, 46.269952}]", 
     "CellGUID[217276879189272162452283397287118419379]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->150784902],
  Cell[13449, 391, 1140, 28, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 34, 49.135423}]", 
     "CellGUID[201737813618274208979649041898866697817]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->211144454],
  Cell[14592, 421, 1531, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 10.245593}]", 
     "CellGUID[325662099275379205749509618786673351033]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1061853534],
  Cell[16126, 453, 4735, 110, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 16.376878}]", 
     "CellGUID[228533627388647634186993079223466690454]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->983239368],
  Cell[20864, 565, 872, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 53.415994}]", 
     "CellGUID[19611053460865256634138564904291940934]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->417394311],
  Cell[21739, 588, 1265, 30, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 38, 56.423740}]", 
     "CellGUID[39223760758963303202254089368010311706]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1464593875],
  Cell[23007, 620, 786, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 0.547799}]", 
     "CellGUID[26189124490482093205333561137478006294]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->696521403],
  Cell[23796, 641, 1165, 27, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 38.233346}]", 
     "CellGUID[213862942623640562833337035347381116572]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->501860424],
  Cell[24964, 670, 1666, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 55, 42.232489}]", 
     "CellGUID[121756768608985594823350948580146574870]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1599864399],
  Cell[26633, 719, 2003, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 17, 18, 27.320525}]", 
     "CellGUID[145909240946686057333866050045097720935]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->273491656],
  Cell[28639, 768, 687, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 58, 52.282198}]", 
     "CellGUID[121730882860960003599390074175675702410]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->278209906],
  Cell[29329, 786, 1530, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 59, 2.517945}]", 
     "CellGUID[254302936959898958279084518718432593304]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->801990623],
  Cell[30862, 818, 935, 22, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 0.243075}]", 
     "CellGUID[94271534698037206547610622256040790131]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1449032189],
  Cell[31800, 842, 2285, 56, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 20.499997}]", 
     "CellGUID[157696736368181547148433853929643659857]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1419443543],
  Cell[34088, 900, 875, 20, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 31.607740}]", 
     "CellGUID[12547022416924321992914918119607824371]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->191792678],
  Cell[34966, 922, 1410, 40, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 51.365066}]", 
     "CellGUID[279713224518831804584755092682611452778]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->86584999],
  Cell[36379, 964, 788, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 1.180295}]", 
     "CellGUID[210423141055341520631467314293851129479]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1387649174],
  Cell[37170, 985, 700, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 39.715906}]", 
     "CellGUID[325812377416173515777421121576598730997]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->547260998],
  Cell[37873, 1003, 2439, 66, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 52.384543}]", 
     "CellGUID[22848159092260472479192573317948093448]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->143133285]},
 "Subsection103104049651225981921329679361664538153"->{
  Cell[1036, 40, 892, 20, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.467045}]", 
     "CellGUID[113393560816394332998784571164070031372]", 
     "GUIDTag[103104049651225981921329679361664538153]", 
     "BlogEntryTitle103104049651225981921329679361664538153"},
   CellID->85076543]},
 "EssayBodyCell103104049651225981921329679361664538153"->{
  Cell[1036, 40, 892, 20, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.467045}]", 
     "CellGUID[113393560816394332998784571164070031372]", 
     "GUIDTag[103104049651225981921329679361664538153]", 
     "BlogEntryTitle103104049651225981921329679361664538153"},
   CellID->85076543],
  Cell[2245, 75, 1494, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1804832946],
  Cell[3742, 118, 1470, 31, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->674933121],
  Cell[5215, 151, 1474, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->2117752510],
  Cell[6692, 194, 747, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 20.324239}]", 
     "CellGUID[85705673174855785275506963724522871477]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->82783],
  Cell[7442, 215, 2676, 81, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 48.843426}]", 
     "CellGUID[320734074029266049240254129378920591591]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1391333881],
  Cell[10121, 298, 1027, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 36.405317}]", 
     "CellGUID[194503441759709428917332334899139208618]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->199105784],
  Cell[11151, 325, 1505, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 37.500233}]", 
     "CellGUID[334553395798356667590676684575644224512]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->931730918],
  Cell[12659, 370, 787, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 33, 46.269952}]", 
     "CellGUID[217276879189272162452283397287118419379]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->150784902],
  Cell[13449, 391, 1140, 28, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 34, 49.135423}]", 
     "CellGUID[201737813618274208979649041898866697817]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->211144454],
  Cell[14592, 421, 1531, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 10.245593}]", 
     "CellGUID[325662099275379205749509618786673351033]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1061853534],
  Cell[16126, 453, 4735, 110, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 16.376878}]", 
     "CellGUID[228533627388647634186993079223466690454]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->983239368],
  Cell[20864, 565, 872, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 53.415994}]", 
     "CellGUID[19611053460865256634138564904291940934]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->417394311],
  Cell[21739, 588, 1265, 30, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 38, 56.423740}]", 
     "CellGUID[39223760758963303202254089368010311706]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1464593875],
  Cell[23007, 620, 786, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 0.547799}]", 
     "CellGUID[26189124490482093205333561137478006294]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->696521403],
  Cell[23796, 641, 1165, 27, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 38.233346}]", 
     "CellGUID[213862942623640562833337035347381116572]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->501860424],
  Cell[24964, 670, 1666, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 55, 42.232489}]", 
     "CellGUID[121756768608985594823350948580146574870]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1599864399],
  Cell[26633, 719, 2003, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 17, 18, 27.320525}]", 
     "CellGUID[145909240946686057333866050045097720935]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->273491656],
  Cell[28639, 768, 687, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 58, 52.282198}]", 
     "CellGUID[121730882860960003599390074175675702410]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->278209906],
  Cell[29329, 786, 1530, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 59, 2.517945}]", 
     "CellGUID[254302936959898958279084518718432593304]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->801990623],
  Cell[30862, 818, 935, 22, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 0.243075}]", 
     "CellGUID[94271534698037206547610622256040790131]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1449032189],
  Cell[31800, 842, 2285, 56, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 20.499997}]", 
     "CellGUID[157696736368181547148433853929643659857]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1419443543],
  Cell[34088, 900, 875, 20, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 31.607740}]", 
     "CellGUID[12547022416924321992914918119607824371]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->191792678],
  Cell[34966, 922, 1410, 40, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 51.365066}]", 
     "CellGUID[279713224518831804584755092682611452778]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->86584999],
  Cell[36379, 964, 788, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 1.180295}]", 
     "CellGUID[210423141055341520631467314293851129479]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1387649174],
  Cell[37170, 985, 700, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 39.715906}]", 
     "CellGUID[325812377416173515777421121576598730997]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->547260998],
  Cell[37873, 1003, 2439, 66, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 52.384543}]", 
     "CellGUID[22848159092260472479192573317948093448]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->143133285]},
 "EssayCell103104049651225981921329679361664538153"->{
  Cell[1036, 40, 892, 20, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.467045}]", 
     "CellGUID[113393560816394332998784571164070031372]", 
     "GUIDTag[103104049651225981921329679361664538153]", 
     "BlogEntryTitle103104049651225981921329679361664538153"},
   CellID->85076543],
  Cell[2245, 75, 1494, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1804832946],
  Cell[3742, 118, 1470, 31, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->674933121],
  Cell[5215, 151, 1474, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->2117752510],
  Cell[6692, 194, 747, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 20.324239}]", 
     "CellGUID[85705673174855785275506963724522871477]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->82783],
  Cell[7442, 215, 2676, 81, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 48.843426}]", 
     "CellGUID[320734074029266049240254129378920591591]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1391333881],
  Cell[10121, 298, 1027, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 36.405317}]", 
     "CellGUID[194503441759709428917332334899139208618]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->199105784],
  Cell[11151, 325, 1505, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 37.500233}]", 
     "CellGUID[334553395798356667590676684575644224512]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->931730918],
  Cell[12659, 370, 787, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 33, 46.269952}]", 
     "CellGUID[217276879189272162452283397287118419379]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->150784902],
  Cell[13449, 391, 1140, 28, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 34, 49.135423}]", 
     "CellGUID[201737813618274208979649041898866697817]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->211144454],
  Cell[14592, 421, 1531, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 10.245593}]", 
     "CellGUID[325662099275379205749509618786673351033]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1061853534],
  Cell[16126, 453, 4735, 110, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 16.376878}]", 
     "CellGUID[228533627388647634186993079223466690454]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->983239368],
  Cell[20864, 565, 872, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 53.415994}]", 
     "CellGUID[19611053460865256634138564904291940934]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->417394311],
  Cell[21739, 588, 1265, 30, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 38, 56.423740}]", 
     "CellGUID[39223760758963303202254089368010311706]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1464593875],
  Cell[23007, 620, 786, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 0.547799}]", 
     "CellGUID[26189124490482093205333561137478006294]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->696521403],
  Cell[23796, 641, 1165, 27, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 38.233346}]", 
     "CellGUID[213862942623640562833337035347381116572]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->501860424],
  Cell[24964, 670, 1666, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 55, 42.232489}]", 
     "CellGUID[121756768608985594823350948580146574870]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1599864399],
  Cell[26633, 719, 2003, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 17, 18, 27.320525}]", 
     "CellGUID[145909240946686057333866050045097720935]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->273491656],
  Cell[28639, 768, 687, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 58, 52.282198}]", 
     "CellGUID[121730882860960003599390074175675702410]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->278209906],
  Cell[29329, 786, 1530, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 59, 2.517945}]", 
     "CellGUID[254302936959898958279084518718432593304]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->801990623],
  Cell[30862, 818, 935, 22, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 0.243075}]", 
     "CellGUID[94271534698037206547610622256040790131]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1449032189],
  Cell[31800, 842, 2285, 56, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 20.499997}]", 
     "CellGUID[157696736368181547148433853929643659857]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1419443543],
  Cell[34088, 900, 875, 20, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 31.607740}]", 
     "CellGUID[12547022416924321992914918119607824371]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->191792678],
  Cell[34966, 922, 1410, 40, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 51.365066}]", 
     "CellGUID[279713224518831804584755092682611452778]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->86584999],
  Cell[36379, 964, 788, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 1.180295}]", 
     "CellGUID[210423141055341520631467314293851129479]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1387649174],
  Cell[37170, 985, 700, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 39.715906}]", 
     "CellGUID[325812377416173515777421121576598730997]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->547260998],
  Cell[37873, 1003, 2439, 66, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 52.384543}]", 
     "CellGUID[22848159092260472479192573317948093448]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->143133285]},
 "DiaryDate[{2007, 10, 2, 2, 17, 23.467045}]"->{
  Cell[1036, 40, 892, 20, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.467045}]", 
     "CellGUID[113393560816394332998784571164070031372]", 
     "GUIDTag[103104049651225981921329679361664538153]", 
     "BlogEntryTitle103104049651225981921329679361664538153"},
   CellID->85076543]},
 "CellGUID[113393560816394332998784571164070031372]"->{
  Cell[1036, 40, 892, 20, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.467045}]", 
     "CellGUID[113393560816394332998784571164070031372]", 
     "GUIDTag[103104049651225981921329679361664538153]", 
     "BlogEntryTitle103104049651225981921329679361664538153"},
   CellID->85076543]},
 "GUIDTag[103104049651225981921329679361664538153]"->{
  Cell[1036, 40, 892, 20, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.467045}]", 
     "CellGUID[113393560816394332998784571164070031372]", 
     "GUIDTag[103104049651225981921329679361664538153]", 
     "BlogEntryTitle103104049651225981921329679361664538153"},
   CellID->85076543],
  Cell[2245, 75, 1494, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1804832946],
  Cell[3742, 118, 1470, 31, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->674933121],
  Cell[5215, 151, 1474, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->2117752510],
  Cell[6692, 194, 747, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 20.324239}]", 
     "CellGUID[85705673174855785275506963724522871477]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->82783],
  Cell[7442, 215, 2676, 81, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 48.843426}]", 
     "CellGUID[320734074029266049240254129378920591591]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1391333881],
  Cell[10121, 298, 1027, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 36.405317}]", 
     "CellGUID[194503441759709428917332334899139208618]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->199105784],
  Cell[11151, 325, 1505, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 37.500233}]", 
     "CellGUID[334553395798356667590676684575644224512]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->931730918],
  Cell[12659, 370, 787, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 33, 46.269952}]", 
     "CellGUID[217276879189272162452283397287118419379]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->150784902],
  Cell[13449, 391, 1140, 28, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 34, 49.135423}]", 
     "CellGUID[201737813618274208979649041898866697817]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->211144454],
  Cell[14592, 421, 1531, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 10.245593}]", 
     "CellGUID[325662099275379205749509618786673351033]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1061853534],
  Cell[16126, 453, 4735, 110, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 16.376878}]", 
     "CellGUID[228533627388647634186993079223466690454]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->983239368],
  Cell[20864, 565, 872, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 53.415994}]", 
     "CellGUID[19611053460865256634138564904291940934]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->417394311],
  Cell[21739, 588, 1265, 30, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 38, 56.423740}]", 
     "CellGUID[39223760758963303202254089368010311706]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1464593875],
  Cell[23007, 620, 786, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 0.547799}]", 
     "CellGUID[26189124490482093205333561137478006294]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->696521403],
  Cell[23796, 641, 1165, 27, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 38.233346}]", 
     "CellGUID[213862942623640562833337035347381116572]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->501860424],
  Cell[24964, 670, 1666, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 55, 42.232489}]", 
     "CellGUID[121756768608985594823350948580146574870]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1599864399],
  Cell[26633, 719, 2003, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 17, 18, 27.320525}]", 
     "CellGUID[145909240946686057333866050045097720935]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->273491656],
  Cell[28639, 768, 687, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 58, 52.282198}]", 
     "CellGUID[121730882860960003599390074175675702410]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->278209906],
  Cell[29329, 786, 1530, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 59, 2.517945}]", 
     "CellGUID[254302936959898958279084518718432593304]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->801990623],
  Cell[30862, 818, 935, 22, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 0.243075}]", 
     "CellGUID[94271534698037206547610622256040790131]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1449032189],
  Cell[31800, 842, 2285, 56, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 20.499997}]", 
     "CellGUID[157696736368181547148433853929643659857]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1419443543],
  Cell[34088, 900, 875, 20, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 31.607740}]", 
     "CellGUID[12547022416924321992914918119607824371]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->191792678],
  Cell[34966, 922, 1410, 40, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 51.365066}]", 
     "CellGUID[279713224518831804584755092682611452778]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->86584999],
  Cell[36379, 964, 788, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 1.180295}]", 
     "CellGUID[210423141055341520631467314293851129479]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1387649174],
  Cell[37170, 985, 700, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 39.715906}]", 
     "CellGUID[325812377416173515777421121576598730997]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->547260998],
  Cell[37873, 1003, 2439, 66, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 52.384543}]", 
     "CellGUID[22848159092260472479192573317948093448]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->143133285]},
 "BlogEntryTitle103104049651225981921329679361664538153"->{
  Cell[1036, 40, 892, 20, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.467045}]", 
     "CellGUID[113393560816394332998784571164070031372]", 
     "GUIDTag[103104049651225981921329679361664538153]", 
     "BlogEntryTitle103104049651225981921329679361664538153"},
   CellID->85076543]},
 "Text103104049651225981921329679361664538153"->{
  Cell[2245, 75, 1494, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1804832946],
  Cell[3742, 118, 1470, 31, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->674933121],
  Cell[5215, 151, 1474, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->2117752510],
  Cell[6692, 194, 747, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 20.324239}]", 
     "CellGUID[85705673174855785275506963724522871477]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->82783],
  Cell[7442, 215, 2676, 81, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 48.843426}]", 
     "CellGUID[320734074029266049240254129378920591591]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1391333881],
  Cell[10121, 298, 1027, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 36.405317}]", 
     "CellGUID[194503441759709428917332334899139208618]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->199105784],
  Cell[11151, 325, 1505, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 37.500233}]", 
     "CellGUID[334553395798356667590676684575644224512]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->931730918],
  Cell[12659, 370, 787, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 33, 46.269952}]", 
     "CellGUID[217276879189272162452283397287118419379]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->150784902],
  Cell[13449, 391, 1140, 28, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 34, 49.135423}]", 
     "CellGUID[201737813618274208979649041898866697817]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->211144454],
  Cell[21739, 588, 1265, 30, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 38, 56.423740}]", 
     "CellGUID[39223760758963303202254089368010311706]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1464593875],
  Cell[23007, 620, 786, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 0.547799}]", 
     "CellGUID[26189124490482093205333561137478006294]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->696521403],
  Cell[23796, 641, 1165, 27, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 38.233346}]", 
     "CellGUID[213862942623640562833337035347381116572]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->501860424],
  Cell[24964, 670, 1666, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 55, 42.232489}]", 
     "CellGUID[121756768608985594823350948580146574870]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1599864399],
  Cell[26633, 719, 2003, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 17, 18, 27.320525}]", 
     "CellGUID[145909240946686057333866050045097720935]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->273491656],
  Cell[28639, 768, 687, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 58, 52.282198}]", 
     "CellGUID[121730882860960003599390074175675702410]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->278209906],
  Cell[34966, 922, 1410, 40, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 51.365066}]", 
     "CellGUID[279713224518831804584755092682611452778]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->86584999],
  Cell[36379, 964, 788, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 1.180295}]", 
     "CellGUID[210423141055341520631467314293851129479]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1387649174],
  Cell[37170, 985, 700, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 39.715906}]", 
     "CellGUID[325812377416173515777421121576598730997]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->547260998],
  Cell[37873, 1003, 2439, 66, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 52.384543}]", 
     "CellGUID[22848159092260472479192573317948093448]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->143133285]},
 "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]"->{
  Cell[2245, 75, 1494, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1804832946],
  Cell[3742, 118, 1470, 31, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->674933121],
  Cell[5215, 151, 1474, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->2117752510]},
 "CellGUID[140182128287370261083967082250037164163]"->{
  Cell[2245, 75, 1494, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1804832946],
  Cell[3742, 118, 1470, 31, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->674933121],
  Cell[5215, 151, 1474, 41, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
     "CellGUID[140182128287370261083967082250037164163]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->2117752510]},
 "DiaryDate[{2007, 10, 2, 2, 25, 20.324239}]"->{
  Cell[6692, 194, 747, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 20.324239}]", 
     "CellGUID[85705673174855785275506963724522871477]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->82783]},
 "CellGUID[85705673174855785275506963724522871477]"->{
  Cell[6692, 194, 747, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 20.324239}]", 
     "CellGUID[85705673174855785275506963724522871477]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->82783]},
 "DiaryDate[{2007, 10, 2, 2, 25, 48.843426}]"->{
  Cell[7442, 215, 2676, 81, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 48.843426}]", 
     "CellGUID[320734074029266049240254129378920591591]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1391333881]},
 "CellGUID[320734074029266049240254129378920591591]"->{
  Cell[7442, 215, 2676, 81, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 25, 48.843426}]", 
     "CellGUID[320734074029266049240254129378920591591]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1391333881]},
 "DiaryDate[{2007, 10, 2, 2, 34, 36.405317}]"->{
  Cell[10121, 298, 1027, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 36.405317}]", 
     "CellGUID[194503441759709428917332334899139208618]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->199105784]},
 "CellGUID[194503441759709428917332334899139208618]"->{
  Cell[10121, 298, 1027, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 36.405317}]", 
     "CellGUID[194503441759709428917332334899139208618]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->199105784]},
 "DiaryDate[{2007, 10, 2, 2, 34, 37.500233}]"->{
  Cell[11151, 325, 1505, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 37.500233}]", 
     "CellGUID[334553395798356667590676684575644224512]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->931730918]},
 "CellGUID[334553395798356667590676684575644224512]"->{
  Cell[11151, 325, 1505, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 10, 2, 2, 34, 37.500233}]", 
     "CellGUID[334553395798356667590676684575644224512]", "EssayCell", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "Text103104049651225981921329679361664538153", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->931730918]},
 "DiaryDate[{2007, 10, 2, 2, 33, 46.269952}]"->{
  Cell[12659, 370, 787, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 33, 46.269952}]", 
     "CellGUID[217276879189272162452283397287118419379]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->150784902]},
 "CellGUID[217276879189272162452283397287118419379]"->{
  Cell[12659, 370, 787, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 33, 46.269952}]", 
     "CellGUID[217276879189272162452283397287118419379]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->150784902]},
 "DiaryDate[{2007, 10, 2, 2, 34, 49.135423}]"->{
  Cell[13449, 391, 1140, 28, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 34, 49.135423}]", 
     "CellGUID[201737813618274208979649041898866697817]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->211144454]},
 "CellGUID[201737813618274208979649041898866697817]"->{
  Cell[13449, 391, 1140, 28, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 34, 49.135423}]", 
     "CellGUID[201737813618274208979649041898866697817]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->211144454]},
 "Input103104049651225981921329679361664538153"->{
  Cell[14592, 421, 1531, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 10.245593}]", 
     "CellGUID[325662099275379205749509618786673351033]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1061853534],
  Cell[16126, 453, 4735, 110, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 16.376878}]", 
     "CellGUID[228533627388647634186993079223466690454]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->983239368],
  Cell[20864, 565, 872, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 53.415994}]", 
     "CellGUID[19611053460865256634138564904291940934]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->417394311],
  Cell[29329, 786, 1530, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 59, 2.517945}]", 
     "CellGUID[254302936959898958279084518718432593304]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->801990623],
  Cell[30862, 818, 935, 22, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 0.243075}]", 
     "CellGUID[94271534698037206547610622256040790131]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1449032189],
  Cell[31800, 842, 2285, 56, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 20.499997}]", 
     "CellGUID[157696736368181547148433853929643659857]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1419443543],
  Cell[34088, 900, 875, 20, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 31.607740}]", 
     "CellGUID[12547022416924321992914918119607824371]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->191792678]},
 "DiaryDate[{2007, 10, 2, 2, 35, 10.245593}]"->{
  Cell[14592, 421, 1531, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 10.245593}]", 
     "CellGUID[325662099275379205749509618786673351033]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1061853534]},
 "CellGUID[325662099275379205749509618786673351033]"->{
  Cell[14592, 421, 1531, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 10.245593}]", 
     "CellGUID[325662099275379205749509618786673351033]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1061853534]},
 "DiaryDate[{2007, 10, 2, 2, 35, 16.376878}]"->{
  Cell[16126, 453, 4735, 110, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 16.376878}]", 
     "CellGUID[228533627388647634186993079223466690454]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->983239368]},
 "CellGUID[228533627388647634186993079223466690454]"->{
  Cell[16126, 453, 4735, 110, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 16.376878}]", 
     "CellGUID[228533627388647634186993079223466690454]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->983239368]},
 "DiaryDate[{2007, 10, 2, 2, 35, 53.415994}]"->{
  Cell[20864, 565, 872, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 53.415994}]", 
     "CellGUID[19611053460865256634138564904291940934]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->417394311]},
 "CellGUID[19611053460865256634138564904291940934]"->{
  Cell[20864, 565, 872, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 35, 53.415994}]", 
     "CellGUID[19611053460865256634138564904291940934]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->417394311]},
 "DiaryDate[{2007, 10, 2, 2, 38, 56.423740}]"->{
  Cell[21739, 588, 1265, 30, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 38, 56.423740}]", 
     "CellGUID[39223760758963303202254089368010311706]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1464593875]},
 "CellGUID[39223760758963303202254089368010311706]"->{
  Cell[21739, 588, 1265, 30, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 38, 56.423740}]", 
     "CellGUID[39223760758963303202254089368010311706]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1464593875]},
 "DiaryDate[{2007, 10, 2, 2, 53, 0.547799}]"->{
  Cell[23007, 620, 786, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 0.547799}]", 
     "CellGUID[26189124490482093205333561137478006294]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->696521403]},
 "CellGUID[26189124490482093205333561137478006294]"->{
  Cell[23007, 620, 786, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 0.547799}]", 
     "CellGUID[26189124490482093205333561137478006294]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->696521403]},
 "DiaryDate[{2007, 10, 2, 2, 53, 38.233346}]"->{
  Cell[23796, 641, 1165, 27, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 38.233346}]", 
     "CellGUID[213862942623640562833337035347381116572]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->501860424]},
 "CellGUID[213862942623640562833337035347381116572]"->{
  Cell[23796, 641, 1165, 27, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 53, 38.233346}]", 
     "CellGUID[213862942623640562833337035347381116572]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->501860424]},
 "DiaryDate[{2007, 10, 2, 2, 55, 42.232489}]"->{
  Cell[24964, 670, 1666, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 55, 42.232489}]", 
     "CellGUID[121756768608985594823350948580146574870]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1599864399]},
 "CellGUID[121756768608985594823350948580146574870]"->{
  Cell[24964, 670, 1666, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 55, 42.232489}]", 
     "CellGUID[121756768608985594823350948580146574870]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1599864399]},
 "DiaryDate[{2007, 10, 2, 17, 18, 27.320525}]"->{
  Cell[26633, 719, 2003, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 17, 18, 27.320525}]", 
     "CellGUID[145909240946686057333866050045097720935]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->273491656]},
 "CellGUID[145909240946686057333866050045097720935]"->{
  Cell[26633, 719, 2003, 47, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 17, 18, 27.320525}]", 
     "CellGUID[145909240946686057333866050045097720935]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->273491656]},
 "DiaryDate[{2007, 10, 2, 2, 58, 52.282198}]"->{
  Cell[28639, 768, 687, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 58, 52.282198}]", 
     "CellGUID[121730882860960003599390074175675702410]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->278209906]},
 "CellGUID[121730882860960003599390074175675702410]"->{
  Cell[28639, 768, 687, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 58, 52.282198}]", 
     "CellGUID[121730882860960003599390074175675702410]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->278209906]},
 "DiaryDate[{2007, 10, 2, 2, 59, 2.517945}]"->{
  Cell[29329, 786, 1530, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 59, 2.517945}]", 
     "CellGUID[254302936959898958279084518718432593304]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->801990623]},
 "CellGUID[254302936959898958279084518718432593304]"->{
  Cell[29329, 786, 1530, 30, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 2, 59, 2.517945}]", 
     "CellGUID[254302936959898958279084518718432593304]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->801990623]},
 "DiaryDate[{2007, 10, 2, 3, 0, 0.243075}]"->{
  Cell[30862, 818, 935, 22, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 0.243075}]", 
     "CellGUID[94271534698037206547610622256040790131]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1449032189]},
 "CellGUID[94271534698037206547610622256040790131]"->{
  Cell[30862, 818, 935, 22, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 0.243075}]", 
     "CellGUID[94271534698037206547610622256040790131]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1449032189]},
 "DiaryDate[{2007, 10, 2, 3, 0, 20.499997}]"->{
  Cell[31800, 842, 2285, 56, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 20.499997}]", 
     "CellGUID[157696736368181547148433853929643659857]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1419443543]},
 "CellGUID[157696736368181547148433853929643659857]"->{
  Cell[31800, 842, 2285, 56, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 20.499997}]", 
     "CellGUID[157696736368181547148433853929643659857]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1419443543]},
 "DiaryDate[{2007, 10, 2, 3, 0, 31.607740}]"->{
  Cell[34088, 900, 875, 20, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 31.607740}]", 
     "CellGUID[12547022416924321992914918119607824371]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->191792678]},
 "CellGUID[12547022416924321992914918119607824371]"->{
  Cell[34088, 900, 875, 20, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 31.607740}]", 
     "CellGUID[12547022416924321992914918119607824371]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->191792678]},
 "DiaryDate[{2007, 10, 2, 3, 0, 51.365066}]"->{
  Cell[34966, 922, 1410, 40, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 51.365066}]", 
     "CellGUID[279713224518831804584755092682611452778]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->86584999]},
 "CellGUID[279713224518831804584755092682611452778]"->{
  Cell[34966, 922, 1410, 40, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 0, 51.365066}]", 
     "CellGUID[279713224518831804584755092682611452778]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->86584999]},
 "DiaryDate[{2007, 10, 2, 3, 1, 1.180295}]"->{
  Cell[36379, 964, 788, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 1.180295}]", 
     "CellGUID[210423141055341520631467314293851129479]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1387649174]},
 "CellGUID[210423141055341520631467314293851129479]"->{
  Cell[36379, 964, 788, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 1.180295}]", 
     "CellGUID[210423141055341520631467314293851129479]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->1387649174]},
 "DiaryDate[{2007, 10, 2, 3, 1, 39.715906}]"->{
  Cell[37170, 985, 700, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 39.715906}]", 
     "CellGUID[325812377416173515777421121576598730997]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->547260998]},
 "CellGUID[325812377416173515777421121576598730997]"->{
  Cell[37170, 985, 700, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 39.715906}]", 
     "CellGUID[325812377416173515777421121576598730997]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->547260998]},
 "DiaryDate[{2007, 10, 2, 3, 1, 52.384543}]"->{
  Cell[37873, 1003, 2439, 66, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 52.384543}]", 
     "CellGUID[22848159092260472479192573317948093448]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->143133285]},
 "CellGUID[22848159092260472479192573317948093448]"->{
  Cell[37873, 1003, 2439, 66, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text103104049651225981921329679361664538153", 
     "EssayBodyCell103104049651225981921329679361664538153", 
     "EssayCell103104049651225981921329679361664538153", 
     "DiaryDate[{2007, 10, 2, 3, 1, 52.384543}]", 
     "CellGUID[22848159092260472479192573317948093448]", 
     "GUIDTag[103104049651225981921329679361664538153]"},
   CellID->143133285]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"CoyyrightCell", 56140, 1420},
 {"EssayCell", 56226, 1423},
 {"Subsection103104049651225981921329679361664538153", 68546, 1695},
 {"EssayBodyCell103104049651225981921329679361664538153", 69129, 1707},
 {"EssayCell103104049651225981921329679361664538153", 81448, 1979},
 {"DiaryDate[{2007, 10, 2, 2, 17, 23.467045}]", 93761, 2251},
 {"CellGUID[113393560816394332998784571164070031372]", 94341, 2263},
 {"GUIDTag[103104049651225981921329679361664538153]", 94920, 2275},
 {"BlogEntryTitle103104049651225981921329679361664538153", 107244, 2547},
 {"Text103104049651225981921329679361664538153", 107818, 2559},
 {"DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 116437, 2750},
 {"CellGUID[140182128287370261083967082250037164163]", 117848, 2781},
 {"DiaryDate[{2007, 10, 2, 2, 25, 20.324239}]", 119252, 2812},
 {"CellGUID[85705673174855785275506963724522871477]", 119753, 2823},
 {"DiaryDate[{2007, 10, 2, 2, 25, 48.843426}]", 120248, 2834},
 {"CellGUID[320734074029266049240254129378920591591]", 120757, 2845},
 {"DiaryDate[{2007, 10, 2, 2, 34, 36.405317}]", 121259, 2856},
 {"CellGUID[194503441759709428917332334899139208618]", 121768, 2867},
 {"DiaryDate[{2007, 10, 2, 2, 34, 37.500233}]", 122270, 2878},
 {"CellGUID[334553395798356667590676684575644224512]", 122779, 2889},
 {"DiaryDate[{2007, 10, 2, 2, 33, 46.269952}]", 123281, 2900},
 {"CellGUID[217276879189272162452283397287118419379]", 123789, 2911},
 {"DiaryDate[{2007, 10, 2, 2, 34, 49.135423}]", 124290, 2922},
 {"CellGUID[201737813618274208979649041898866697817]", 124799, 2933},
 {"Input103104049651225981921329679361664538153", 125303, 2944},
 {"DiaryDate[{2007, 10, 2, 2, 35, 10.245593}]", 128524, 3015},
 {"CellGUID[325662099275379205749509618786673351033]", 129036, 3026},
 {"DiaryDate[{2007, 10, 2, 2, 35, 16.376878}]", 129541, 3037},
 {"CellGUID[228533627388647634186993079223466690454]", 130053, 3048},
 {"DiaryDate[{2007, 10, 2, 2, 35, 53.415994}]", 130558, 3059},
 {"CellGUID[19611053460865256634138564904291940934]", 131066, 3070},
 {"DiaryDate[{2007, 10, 2, 2, 38, 56.423740}]", 131568, 3081},
 {"CellGUID[39223760758963303202254089368010311706]", 132076, 3092},
 {"DiaryDate[{2007, 10, 2, 2, 53, 0.547799}]", 132577, 3103},
 {"CellGUID[26189124490482093205333561137478006294]", 133082, 3114},
 {"DiaryDate[{2007, 10, 2, 2, 53, 38.233346}]", 133581, 3125},
 {"CellGUID[213862942623640562833337035347381116572]", 134090, 3136},
 {"DiaryDate[{2007, 10, 2, 2, 55, 42.232489}]", 134592, 3147},
 {"CellGUID[121756768608985594823350948580146574870]", 135102, 3158},
 {"DiaryDate[{2007, 10, 2, 17, 18, 27.320525}]", 135606, 3169},
 {"CellGUID[145909240946686057333866050045097720935]", 136116, 3180},
 {"DiaryDate[{2007, 10, 2, 2, 58, 52.282198}]", 136619, 3191},
 {"CellGUID[121730882860960003599390074175675702410]", 137127, 3202},
 {"DiaryDate[{2007, 10, 2, 2, 59, 2.517945}]", 137627, 3213},
 {"CellGUID[254302936959898958279084518718432593304]", 138137, 3224},
 {"DiaryDate[{2007, 10, 2, 3, 0, 0.243075}]", 138638, 3235},
 {"CellGUID[94271534698037206547610622256040790131]", 139145, 3246},
 {"DiaryDate[{2007, 10, 2, 3, 0, 20.499997}]", 139645, 3257},
 {"CellGUID[157696736368181547148433853929643659857]", 140156, 3268},
 {"DiaryDate[{2007, 10, 2, 3, 0, 31.607740}]", 140659, 3279},
 {"CellGUID[12547022416924321992914918119607824371]", 141166, 3290},
 {"DiaryDate[{2007, 10, 2, 3, 0, 51.365066}]", 141666, 3301},
 {"CellGUID[279713224518831804584755092682611452778]", 142173, 3312},
 {"DiaryDate[{2007, 10, 2, 3, 1, 1.180295}]", 142671, 3323},
 {"CellGUID[210423141055341520631467314293851129479]", 143178, 3334},
 {"DiaryDate[{2007, 10, 2, 3, 1, 39.715906}]", 143677, 3345},
 {"CellGUID[325812377416173515777421121576598730997]", 144184, 3356},
 {"DiaryDate[{2007, 10, 2, 3, 1, 52.384543}]", 144683, 3367},
 {"CellGUID[22848159092260472479192573317948093448]", 145190, 3378}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 465, 17, 70, "Title",
 CellTags->"CoyyrightCell"],
Cell[1036, 40, 892, 20, 70, "Subsection",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Subsection103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 17, 23.467045}]", 
   "CellGUID[113393560816394332998784571164070031372]", 
   "GUIDTag[103104049651225981921329679361664538153]", 
   "BlogEntryTitle103104049651225981921329679361664538153"},
 CellID->85076543],
Cell[1931, 62, 311, 11, 70, "Subsubsection"],
Cell[2245, 75, 1494, 41, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
   "CellGUID[140182128287370261083967082250037164163]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1804832946],
Cell[3742, 118, 1470, 31, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
   "CellGUID[140182128287370261083967082250037164163]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->674933121],
Cell[5215, 151, 1474, 41, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 17, 23.857144}]", 
   "CellGUID[140182128287370261083967082250037164163]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->2117752510],
Cell[6692, 194, 747, 19, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 25, 20.324239}]", 
   "CellGUID[85705673174855785275506963724522871477]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->82783],
Cell[7442, 215, 2676, 81, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 25, 48.843426}]", 
   "CellGUID[320734074029266049240254129378920591591]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1391333881],
Cell[10121, 298, 1027, 25, 70, "Text",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 10, 2, 2, 34, 36.405317}]", 
   "CellGUID[194503441759709428917332334899139208618]", "EssayCell", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "Text103104049651225981921329679361664538153", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->199105784],
Cell[11151, 325, 1505, 43, 70, "Text",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 10, 2, 2, 34, 37.500233}]", 
   "CellGUID[334553395798356667590676684575644224512]", "EssayCell", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "Text103104049651225981921329679361664538153", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->931730918],
Cell[12659, 370, 787, 19, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 33, 46.269952}]", 
   "CellGUID[217276879189272162452283397287118419379]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->150784902],
Cell[13449, 391, 1140, 28, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 34, 49.135423}]", 
   "CellGUID[201737813618274208979649041898866697817]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->211144454],
Cell[14592, 421, 1531, 30, 70, "Input",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 35, 10.245593}]", 
   "CellGUID[325662099275379205749509618786673351033]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1061853534],
Cell[16126, 453, 4735, 110, 70, "Input",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 35, 16.376878}]", 
   "CellGUID[228533627388647634186993079223466690454]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->983239368],
Cell[20864, 565, 872, 21, 70, "Input",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 35, 53.415994}]", 
   "CellGUID[19611053460865256634138564904291940934]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->417394311],
Cell[21739, 588, 1265, 30, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 38, 56.423740}]", 
   "CellGUID[39223760758963303202254089368010311706]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1464593875],
Cell[23007, 620, 786, 19, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 53, 0.547799}]", 
   "CellGUID[26189124490482093205333561137478006294]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->696521403],
Cell[23796, 641, 1165, 27, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 53, 38.233346}]", 
   "CellGUID[213862942623640562833337035347381116572]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->501860424],
Cell[24964, 670, 1666, 47, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 55, 42.232489}]", 
   "CellGUID[121756768608985594823350948580146574870]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1599864399],
Cell[26633, 719, 2003, 47, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 17, 18, 27.320525}]", 
   "CellGUID[145909240946686057333866050045097720935]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->273491656],
Cell[28639, 768, 687, 16, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 58, 52.282198}]", 
   "CellGUID[121730882860960003599390074175675702410]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->278209906],
Cell[29329, 786, 1530, 30, 70, "Input",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 2, 59, 2.517945}]", 
   "CellGUID[254302936959898958279084518718432593304]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->801990623],
Cell[30862, 818, 935, 22, 70, "Input",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 0, 0.243075}]", 
   "CellGUID[94271534698037206547610622256040790131]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1449032189],
Cell[31800, 842, 2285, 56, 70, "Input",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 0, 20.499997}]", 
   "CellGUID[157696736368181547148433853929643659857]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1419443543],
Cell[34088, 900, 875, 20, 70, "Input",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Input103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 0, 31.607740}]", 
   "CellGUID[12547022416924321992914918119607824371]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->191792678],
Cell[34966, 922, 1410, 40, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 0, 51.365066}]", 
   "CellGUID[279713224518831804584755092682611452778]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->86584999],
Cell[36379, 964, 788, 19, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 1, 1.180295}]", 
   "CellGUID[210423141055341520631467314293851129479]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->1387649174],
Cell[37170, 985, 700, 16, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 1, 39.715906}]", 
   "CellGUID[325812377416173515777421121576598730997]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->547260998],
Cell[37873, 1003, 2439, 66, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text103104049651225981921329679361664538153", 
   "EssayBodyCell103104049651225981921329679361664538153", 
   "EssayCell103104049651225981921329679361664538153", 
   "DiaryDate[{2007, 10, 2, 3, 1, 52.384543}]", 
   "CellGUID[22848159092260472479192573317948093448]", 
   "GUIDTag[103104049651225981921329679361664538153]"},
 CellID->143133285]
}
]
*)

(* End of internal cache information *)