(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    325741,       7047]
NotebookOptionsPosition[     67096,       1570]
NotebookOutlinePosition[    313079,       6751]
CellTagsIndexPosition[    308952,       6685]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "Almost nothing to do with ",
 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 ",
 ButtonBox["time",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://en.wikipedia.org/wiki/Time"], None}],
 " will ",
 ButtonBox["tell",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.time.gov/"], None}],
 "..."
}], "SubsectionFirst",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[167961000239754438523542296196430741618]",
 CellChangeTimes->{{3.393109741365102*^9, 3.393109771382522*^9}, {
  3.393110204827375*^9, 3.393110204833774*^9}, {3.3931128612011967`*^9, 
  3.3931128868729887`*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Subsection148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 19, 14.340632}]", 
   "CellGUID[259844136962850962406675843607216580116]", 
   "GUIDTag[148009450148681707102991804282939394023]", 
   "BlogEntryTitle148009450148681707102991804282939394023"},
 CellID->66402803],

Cell["Posted on: Tuesday 7/10, 2007;  11:12 PM", "Subsubsection",
 Background->RGBColor[0.9, 1, 0.83]],

Cell[TextData[{
 "Today I read Chris Carlson's ",
 ButtonBox["Wolfram Blog",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://blog.wolfram.com/"], None}],
 " posting about ",
 ButtonBox["implementing an analog clock",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://blog.wolfram.com/2007/07/always_the_right_time.html"], 
    None}],
 " in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 6."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[313638539982519071195699993828709974961]",
 CellChangeTimes->{{3.393109183348431*^9, 3.3931092904703417`*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 19, 14.707568}]", 
   "CellGUID[38131502278139371182680346303455797153]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1487897228],

Cell[TextData[{
 "One of the main points of Chris's post was the comparison of the trials and \
tribulations that one has to endure in ",
 ButtonBox["implementing such a thing",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.mathworks.com/matlabcentral/fileexchange/loadFile.do?\
objectId=9503&objectType=file"], None}],
 " in ",
 ButtonBox["MatLab",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.mathworks.com/"], None}],
 " contrasted with the elemental straighforwardness of taking on the same \
task in ",
 StyleBox["Mathematica.",
  FontSlant->"Italic"]
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[249826564222751292945255545865637275470]",
 CellChangeTimes->{{3.393109306870441*^9, 3.393109459528586*^9}, 
   3.393112259510058*^9},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 21, 44.688076}]", 
   "CellGUID[271406656583722200744613732373476241431]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->821844414],

Cell[TextData[{
 "Chris posted a ",
 ButtonBox["side-by-side",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://blog.wolfram.com/carlson/MatlabClockBlog2.html"], None}],
 " of the ",
 ButtonBox["two approaches",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://blog.wolfram.com/carlson/linebyline.html"], None}],
 ". Of course it's striking.  But what I find even more striking is the \
simplicity with which one can modify the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " code, as well as how one can use the code that Chris wrote as a starting \
point\[LongDash]a seedling\[LongDash]for an application of greater and \
greater sophistication.  I will give my example below, but the point that \
this can drive is that the ",
 StyleBox["process of developing applications in Mathematica",
  FontSlant->"Italic",
  FontColor->RGBColor[
   0.5427176317998016, 0.10382238498512246`, 0.1390859845883879]],
 " is also vastly simpler and self-illuminating.  Chris does indeed comment \
on this, but I just feel like emphasizing this point somewhat more. Start \
from something and then continue to build on it.  And the iterative process \
of doing this in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " is completely natural, transparent,  familiar\[LongDash]at least to me \
and, I suspect, to folks that come from a background of creative discovery in \
the sciences.  It's just the way one naturally explores.  Watch kids, they \
explore this way too..."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[69469492798421648850983947877564841963]",
 CellChangeTimes->{{3.3931094993684063`*^9, 3.393109527926462*^9}, {
  3.393109558466251*^9, 3.393109718081717*^9}, {3.3931097807132177`*^9, 
  3.393109781381877*^9}, {3.393109873998413*^9, 3.393109875492669*^9}, {
  3.393110144141747*^9, 3.3931101482222424`*^9}, {3.393110290494766*^9, 
  3.393110322440583*^9}, {3.393110529674368*^9, 3.393110601814682*^9}, {
  3.393111945714869*^9, 3.393112011138672*^9}, {3.393112262666606*^9, 
  3.3931122720525703`*^9}, {3.3931130261470757`*^9, 3.393113087551817*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 24, 58.224798}]", 
   "CellGUID[177427947296929111567606116509457981936]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->124248594],

Cell[TextData[{
 "So, starting with Chris's code, the first thing that I wanted to do is to \
make the clock smaller and to shrink the font as well.  My ultimate intention \
was to create a small window containing a small clock that I could leave open \
to keep track of the time (yes, there are gazillions of applications like \
this, but I was having fun, and the morning coffee wasn't ready yet).  Then I \
decided that it would be ",
 StyleBox["really",
  FontSlant->"Italic"],
 " annoying to have the clock ticking.  So I added this along with several \
options to control the ticking. "
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[45061467838368367711030640714172498753]",
 CellChangeTimes->{{3.393110616162141*^9, 3.393110770912932*^9}, {
  3.393111377392724*^9, 3.393111406493924*^9}, {3.3931122767353153`*^9, 
  3.393112278224477*^9}, {3.3931131049447937`*^9, 3.3931131224276543`*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 43, 34.027845}]", 
   "CellGUID[237059512043180511944102625697772043222]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->901770267],

Cell["\<\
The final result (really, intermediate, since I am sure that I will have \
another go at it when I am in a future state of pre-coffee stupor) is this \
code:\
\>", "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[171644935105115688705646373813187614931]",
 CellChangeTimes->{{3.393111412152952*^9, 3.393111475906415*^9}, {
  3.3931115952490597`*^9, 3.39311160170638*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 56, 51.255139}]", 
   "CellGUID[180061436785565876357181724075116507381]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1125046775],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TickTockClock", "::", "usage"}], "=", 
   "\"\<TickTockClock[] opens an analog clock in a small window so that you \
can tell time in the old fashioned way.  The code is based on the code \
presented in http://blog.wolfram.com/2007/07/always_the_right_time.html. \
\>\""}], ";"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[652970770870407441815676869328866311]"},
 CellChangeTimes->{{3.390316907229645*^9, 3.390316968247817*^9}, {
   3.393075422039172*^9, 3.393075492489814*^9}, {3.393075560345387*^9, 
   3.393075586393087*^9}, 3.3930756238254223`*^9, {3.3930756870856524`*^9, 
   3.393075890205546*^9}, {3.3930759248707123`*^9, 3.3930759958429623`*^9}, {
   3.393076058220031*^9, 3.3930761420233088`*^9}, {3.393076188178665*^9, 
   3.393076280373808*^9}, {3.393076385724783*^9, 3.393076411239007*^9}, {
   3.3930764631064177`*^9, 3.393076477646585*^9}, {3.393076514979054*^9, 
   3.39307657042695*^9}, {3.3930767489789248`*^9, 3.3930767868473473`*^9}, {
   3.393076839543868*^9, 3.3930768815430107`*^9}, {3.393077036421459*^9, 
   3.393077073468802*^9}, {3.3930771799761744`*^9, 3.393077180968204*^9}, {
   3.393077222777028*^9, 3.393077227577454*^9}, {3.393077305859041*^9, 
   3.3930773499207487`*^9}, {3.393077511031426*^9, 3.393077561110153*^9}, {
   3.39307759489222*^9, 3.393077651491416*^9}, {3.393077748712633*^9, 
   3.393077753295067*^9}, {3.3930778433543253`*^9, 3.3930778536045313`*^9}, {
   3.393077913868972*^9, 3.393077926990691*^9}, {3.393078440466956*^9, 
   3.393078491726026*^9}, {3.393078690180112*^9, 3.393078713243988*^9}, {
   3.393108762999957*^9, 3.393108770296129*^9}, 3.3931089906339817`*^9, {
   3.393110791444689*^9, 3.393111075459713*^9}, {3.3931111150897617`*^9, 
   3.393111123967559*^9}, {3.393111176317779*^9, 3.3931112653545103`*^9}, {
   3.393111309448059*^9, 3.393111356199067*^9}},
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 23.754945}]", 
   "CellGUID[336117660067519836183596924721581471540]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->267683156],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TickTock", "::", "usage"}], "=", 
   "\"\<TickTock is an option for TickTockClock that determines whether the \
TickTockClock will tick. It's default value, to keep you from going nuts, is \
False. \>\""}], ";"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[191959774057678955958689109964563926205]"},
 CellChangeTimes->{{3.390316907229645*^9, 3.390316968247817*^9}, {
   3.393075422039172*^9, 3.393075492489814*^9}, {3.393075560345387*^9, 
   3.393075586393087*^9}, 3.3930756238254223`*^9, {3.3930756870856524`*^9, 
   3.393075890205546*^9}, {3.3930759248707123`*^9, 3.3930759958429623`*^9}, {
   3.393076058220031*^9, 3.3930761420233088`*^9}, {3.393076188178665*^9, 
   3.393076280373808*^9}, {3.393076385724783*^9, 3.393076411239007*^9}, {
   3.3930764631064177`*^9, 3.393076477646585*^9}, {3.393076514979054*^9, 
   3.39307657042695*^9}, {3.3930767489789248`*^9, 3.3930767868473473`*^9}, {
   3.393076839543868*^9, 3.3930768815430107`*^9}, {3.393077036421459*^9, 
   3.393077073468802*^9}, {3.3930771799761744`*^9, 3.393077180968204*^9}, {
   3.393077222777028*^9, 3.393077227577454*^9}, {3.393077305859041*^9, 
   3.3930773499207487`*^9}, {3.393077511031426*^9, 3.393077561110153*^9}, {
   3.39307759489222*^9, 3.393077651491416*^9}, {3.393077748712633*^9, 
   3.393077753295067*^9}, {3.3930778433543253`*^9, 3.3930778536045313`*^9}, {
   3.393077913868972*^9, 3.393077926990691*^9}, {3.393078440466956*^9, 
   3.393078491726026*^9}, {3.393078690180112*^9, 3.393078713243988*^9}, {
   3.393108762999957*^9, 3.393108770296129*^9}, 3.3931089906339817`*^9, {
   3.393110791444689*^9, 3.393111075459713*^9}, {3.3931111150897617`*^9, 
   3.393111123967559*^9}, {3.393111176317779*^9, 3.3931112653545103`*^9}, {
   3.393111309448059*^9, 3.3931113400614223`*^9}},
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 25.563289}]", 
   "CellGUID[163446101256336850676605236616396898559]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->2120046074],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TickTockInstrument", "::", "usage"}], "=", 
   "\"\<TickTockInstrument is an option for TickTockClock that specifies the \
instrument that is doing the ticking. Its default value is \
\\\"PizzicatoStrings\\\". See the Mathematica 6 documentation for the \
function SoundNote for a list of other possible choices for this option. \
\>\""}], ";"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[33821412902271271577597764774407236945]"},
 CellChangeTimes->{{3.390316907229645*^9, 3.390316968247817*^9}, {
   3.393075422039172*^9, 3.393075492489814*^9}, {3.393075560345387*^9, 
   3.393075586393087*^9}, 3.3930756238254223`*^9, {3.3930756870856524`*^9, 
   3.393075890205546*^9}, {3.3930759248707123`*^9, 3.3930759958429623`*^9}, {
   3.393076058220031*^9, 3.3930761420233088`*^9}, {3.393076188178665*^9, 
   3.393076280373808*^9}, {3.393076385724783*^9, 3.393076411239007*^9}, {
   3.3930764631064177`*^9, 3.393076477646585*^9}, {3.393076514979054*^9, 
   3.39307657042695*^9}, {3.3930767489789248`*^9, 3.3930767868473473`*^9}, {
   3.393076839543868*^9, 3.3930768815430107`*^9}, {3.393077036421459*^9, 
   3.393077073468802*^9}, {3.3930771799761744`*^9, 3.393077180968204*^9}, {
   3.393077222777028*^9, 3.393077227577454*^9}, {3.393077305859041*^9, 
   3.3930773499207487`*^9}, {3.393077511031426*^9, 3.393077561110153*^9}, {
   3.39307759489222*^9, 3.393077651491416*^9}, {3.393077748712633*^9, 
   3.393077753295067*^9}, {3.3930778433543253`*^9, 3.3930778536045313`*^9}, {
   3.393077913868972*^9, 3.393077926990691*^9}, {3.393078440466956*^9, 
   3.393078491726026*^9}, {3.393078690180112*^9, 3.393078713243988*^9}, {
   3.393108762999957*^9, 3.393108770296129*^9}, 3.3931089906339817`*^9, {
   3.393110791444689*^9, 3.393111075459713*^9}, {3.3931111150897617`*^9, 
   3.393111123967559*^9}, {3.393111176317779*^9, 3.3931112653545103`*^9}, {
   3.393111309448059*^9, 3.3931113386942873`*^9}},
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 26.562684}]", 
   "CellGUID[95847261364287338441701510493386514351]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->565694694],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TickTockNote", "::", "usage"}], "=", 
   "\"\<TickTockNote is an option for TickTockClock that specifies the pitch \
to use for the tick. \>\""}], ";"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[287630350259295579359079570339656735031]"},
 CellChangeTimes->{{3.390316907229645*^9, 3.390316968247817*^9}, {
   3.393075422039172*^9, 3.393075492489814*^9}, {3.393075560345387*^9, 
   3.393075586393087*^9}, 3.3930756238254223`*^9, {3.3930756870856524`*^9, 
   3.393075890205546*^9}, {3.3930759248707123`*^9, 3.3930759958429623`*^9}, {
   3.393076058220031*^9, 3.3930761420233088`*^9}, {3.393076188178665*^9, 
   3.393076280373808*^9}, {3.393076385724783*^9, 3.393076411239007*^9}, {
   3.3930764631064177`*^9, 3.393076477646585*^9}, {3.393076514979054*^9, 
   3.39307657042695*^9}, {3.3930767489789248`*^9, 3.3930767868473473`*^9}, {
   3.393076839543868*^9, 3.3930768815430107`*^9}, {3.393077036421459*^9, 
   3.393077073468802*^9}, {3.3930771799761744`*^9, 3.393077180968204*^9}, {
   3.393077222777028*^9, 3.393077227577454*^9}, {3.393077305859041*^9, 
   3.3930773499207487`*^9}, {3.393077511031426*^9, 3.393077561110153*^9}, {
   3.39307759489222*^9, 3.393077651491416*^9}, {3.393077748712633*^9, 
   3.393077753295067*^9}, {3.3930778433543253`*^9, 3.3930778536045313`*^9}, {
   3.393077913868972*^9, 3.393077926990691*^9}, {3.393078440466956*^9, 
   3.393078491726026*^9}, {3.393078690180112*^9, 3.393078713243988*^9}, {
   3.393108762999957*^9, 3.393108770296129*^9}, 3.3931089906339817`*^9, {
   3.393110791444689*^9, 3.393111075459713*^9}, {3.3931111150897617`*^9, 
   3.393111123967559*^9}, {3.393111176317779*^9, 3.3931112653545103`*^9}, {
   3.393111309448059*^9, 3.3931113371915894`*^9}, {3.393112415133646*^9, 
   3.393112426086375*^9}, {3.393113457937829*^9, 3.393113467766741*^9}, {
   3.393113534656311*^9, 3.393113541949572*^9}, {3.393113584387953*^9, 
   3.393113586545231*^9}},
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
   "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->720616789],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Options", "[", "TickTockClock", "]"}], "=", "\[IndentingNewLine]",
    
   RowBox[{"{", 
    RowBox[{
     RowBox[{"FontSize", "\[Rule]", "10"}], ",", "\[IndentingNewLine]", 
     RowBox[{"FontFamily", " ", "\[Rule]", " ", "\"\<Helvetica\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ImageSize", "\[Rule]", "100"}], ",", "\[IndentingNewLine]", 
     RowBox[{"CreateDocument", "\[Rule]", "True"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"TickTock", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", 
     RowBox[{"TickTockInstrument", "\[Rule]", 
      StyleBox["\"\<PizzicatoStrings\>\"",
       ShowStringCharacters->True]}], 
     StyleBox[",",
      ShowStringCharacters->True], 
     StyleBox["\[IndentingNewLine]",
      ShowStringCharacters->True], 
     RowBox[{"TickTockNote", "\[Rule]", "\"\<C6\>\""}]}], "}"}]}], 
  ";"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[287630350259295579359079570339656735031]"},
 CellChangeTimes->{{3.390316907229645*^9, 3.390316968247817*^9}, {
   3.393075422039172*^9, 3.393075492489814*^9}, {3.393075560345387*^9, 
   3.393075586393087*^9}, 3.3930756238254223`*^9, {3.3930756870856524`*^9, 
   3.393075890205546*^9}, {3.3930759248707123`*^9, 3.3930759958429623`*^9}, {
   3.393076058220031*^9, 3.3930761420233088`*^9}, {3.393076188178665*^9, 
   3.393076280373808*^9}, {3.393076385724783*^9, 3.393076411239007*^9}, {
   3.3930764631064177`*^9, 3.393076477646585*^9}, {3.393076514979054*^9, 
   3.39307657042695*^9}, {3.3930767489789248`*^9, 3.3930767868473473`*^9}, {
   3.393076839543868*^9, 3.3930768815430107`*^9}, {3.393077036421459*^9, 
   3.393077073468802*^9}, {3.3930771799761744`*^9, 3.393077180968204*^9}, {
   3.393077222777028*^9, 3.393077227577454*^9}, {3.393077305859041*^9, 
   3.3930773499207487`*^9}, {3.393077511031426*^9, 3.393077561110153*^9}, {
   3.39307759489222*^9, 3.393077651491416*^9}, {3.393077748712633*^9, 
   3.393077753295067*^9}, {3.3930778433543253`*^9, 3.3930778536045313`*^9}, {
   3.393077913868972*^9, 3.393077926990691*^9}, {3.393078440466956*^9, 
   3.393078491726026*^9}, {3.393078690180112*^9, 3.393078713243988*^9}, {
   3.393108762999957*^9, 3.393108770296129*^9}, 3.3931089906339817`*^9, {
   3.393110791444689*^9, 3.393111075459713*^9}, {3.3931111150897617`*^9, 
   3.393111123967559*^9}, {3.393111176317779*^9, 3.3931112653545103`*^9}, {
   3.393111309448059*^9, 3.3931113371915894`*^9}, {3.393112415133646*^9, 
   3.393112426086375*^9}, {3.393113457937829*^9, 3.393113467766741*^9}, {
   3.393113534656311*^9, 3.393113541949572*^9}, {3.393113584387953*^9, 
   3.3931135885165997`*^9}},
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
   "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1709029956],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TickTockClock", "[", 
    RowBox[{"opts", ":", 
     RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "makeHand", ",", "hourHand", ",", "minuteHand", ",", "secondHand", ",", 
       "fontSize", ",", "createDocument", ",", "theClock", ",", "fontFamily", 
       ",", "imageSize", ",", "tickTock", ",", "tickTockInstrument", ",", 
       "tickTockNote"}], "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "fontSize", ",", "fontFamily", ",", "createDocument", ",", 
         "imageSize", ",", "tickTock", ",", "tickTockInstrument", ",", 
         "tickTockNote"}], "}"}], "=", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "FontSize", ",", "FontFamily", ",", "CreateDocument", ",", 
          "ImageSize", ",", "TickTock", ",", "TickTockInstrument", ",", 
          "TickTockNote"}], "}"}], "/.", 
        RowBox[{"Flatten", "[", 
         RowBox[{"{", 
          RowBox[{"opts", ",", 
           RowBox[{"Options", "[", "TickTockClock", "]"}]}], "}"}], "]"}]}]}],
       ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"makeHand", "[", 
        RowBox[{"fl_", ",", " ", "bl_", ",", " ", "fw_", ",", " ", "bw_"}], 
        "]"}], " ", ":=", 
       RowBox[{"Polygon", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "bw"}], ",", " ", 
             RowBox[{"-", "bl"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"bw", ",", " ", 
             RowBox[{"-", "bl"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"fw", ",", " ", "fl"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"0", ",", " ", 
             RowBox[{"fl", " ", "+", " ", 
              RowBox[{"8", " ", "fw"}]}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "fw"}], ",", " ", "fl"}], "}"}]}], "}"}], "/", 
         "9"}], "]"}]}], ";", "\n", "\[IndentingNewLine]", 
      RowBox[{"hourHand", " ", "=", " ", 
       RowBox[{"makeHand", "[", 
        RowBox[{"5", ",", " ", 
         FractionBox["5", "3"], ",", " ", ".1", ",", " ", ".3"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"minuteHand", " ", "=", " ", 
       RowBox[{"makeHand", "[", 
        RowBox[{"7", ",", " ", 
         FractionBox["7", "3"], ",", " ", ".1", ",", " ", ".3"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"secondHand", " ", "=", " ", 
       RowBox[{"{", 
        RowBox[{"Red", ",", " ", 
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", " ", 
         RowBox[{"makeHand", "[", 
          RowBox[{"7", ",", " ", 
           FractionBox["7", "3"], ",", " ", 
           RowBox[{".1", "/", "2"}], ",", 
           RowBox[{".3", "/", "2"}]}], "]"}]}], "}"}]}], ";", "\n", 
      "\[IndentingNewLine]", 
      RowBox[{"theClock", "=", 
       RowBox[{"Graphics", "[", 
        RowBox[{
         RowBox[{"{", "\n", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Thickness", "[", ".03", "]"}], ",", " ", 
             RowBox[{"Circle", "[", "]"}]}], "}"}], ",", 
           RowBox[{"(*", " ", "Rim", " ", "*)"}], "\n", "\[IndentingNewLine]",
            
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Thickness", "[", ".003", "]"}], ",", " ", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"Line", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{".9", " ", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Cos", "[", "a", "]"}], ",", " ", 
                    RowBox[{"Sin", "[", "a", "]"}]}], "}"}]}], ",", " ", 
                  RowBox[{".95", " ", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Cos", "[", "a", "]"}], ",", " ", 
                    RowBox[{"Sin", "[", "a", "]"}]}], "}"}]}]}], "}"}], "]"}],
                ",", " ", 
               RowBox[{"{", 
                RowBox[{"a", ",", "0", ",", 
                 RowBox[{"2", " ", "\[Pi]"}], ",", 
                 FractionBox[
                  RowBox[{"2", " ", "\[Pi]"}], "60"]}], "}"}]}], "]"}]}], 
            "}"}], ",", " ", 
           RowBox[{"(*", " ", 
            RowBox[{"Thin", " ", "ticks"}], " ", "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Thickness", "[", ".01", "]"}], ",", " ", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"Line", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{".9", " ", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Cos", "[", "a", "]"}], ",", " ", 
                    RowBox[{"Sin", "[", "a", "]"}]}], "}"}]}], ",", " ", 
                  RowBox[{".95", " ", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Cos", "[", "a", "]"}], ",", " ", 
                    RowBox[{"Sin", "[", "a", "]"}]}], "}"}]}]}], "}"}], "]"}],
                ",", " ", 
               RowBox[{"{", 
                RowBox[{"a", ",", "0", ",", 
                 RowBox[{"2", " ", "\[Pi]"}], ",", 
                 FractionBox[
                  RowBox[{"2", " ", "\[Pi]"}], "12"]}], "}"}]}], "]"}]}], 
            "}"}], ",", " ", 
           RowBox[{"(*", " ", 
            RowBox[{"Thick", " ", "ticks"}], " ", "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"Style", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"Text", "[", 
                RowBox[{"i", ",", " ", 
                 RowBox[{".77", " ", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Cos", "[", 
                    RowBox[{
                    RowBox[{"-", 
                    FractionBox[
                    RowBox[{"i", " ", "\[Pi]"}], "6"]}], "+", 
                    FractionBox["\[Pi]", "2"]}], "]"}], ",", 
                    RowBox[{"Sin", "[", 
                    RowBox[{
                    RowBox[{"-", 
                    FractionBox[
                    RowBox[{"i", " ", "\[Pi]"}], "6"]}], "+", 
                    FractionBox["\[Pi]", "2"]}], "]"}]}], "}"}]}]}], "]"}], 
               ",", " ", 
               RowBox[{"{", 
                RowBox[{"i", ",", " ", "1", ",", " ", "12"}], "}"}]}], "]"}], 
             ",", " ", 
             RowBox[{"FontFamily", " ", "\[Rule]", " ", "fontFamily"}], ",", 
             " ", 
             RowBox[{"FontSize", " ", "\[Rule]", " ", "fontSize"}]}], "]"}], 
           ",", " ", 
           RowBox[{"(*", " ", "Numbers", " ", "*)"}], "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"Rotate", "[", 
            RowBox[{"hourHand", ",", " ", 
             RowBox[{"Dynamic", "[", 
              RowBox[{"Refresh", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "30"}], " ", 
                 RowBox[{"Mod", "[", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"AbsoluteTime", "[", "]"}], "3600"], ",", " ", 
                   "60"}], "]"}], " ", "\[Degree]"}], ",", " ", 
                RowBox[{"UpdateInterval", " ", "\[Rule]", " ", "60"}]}], 
               "]"}], "]"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"0", ",", " ", "0"}], "}"}]}], "]"}], ",", "\n", 
           "\[IndentingNewLine]", 
           RowBox[{"Rotate", "[", 
            RowBox[{"minuteHand", ",", " ", 
             RowBox[{"Dynamic", "[", 
              RowBox[{"Refresh", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"If", "[", 
                  RowBox[{"tickTock", ",", 
                   RowBox[{"EmitSound", "[", 
                    RowBox[{"Sound", "[", 
                    RowBox[{"SoundNote", "[", 
                    RowBox[{
                    "tickTockNote", ",", ".1", ",", "tickTockInstrument", ",",
                     
                    RowBox[{"SoundVolume", "\[Rule]", ".1"}]}], "]"}], "]"}], 
                    "]"}]}], "]"}], ";", 
                 RowBox[{
                  RowBox[{"-", "6"}], " ", 
                  RowBox[{"Mod", "[", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"AbsoluteTime", "[", "]"}], "60"], ",", " ", 
                    "60"}], "]"}], " ", "\[Degree]"}]}], ",", " ", 
                RowBox[{"UpdateInterval", " ", "\[Rule]", " ", "1"}]}], "]"}],
               "]"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"0", ",", " ", "0"}], "}"}]}], "]"}], ",", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"Rotate", "[", 
            RowBox[{"secondHand", ",", " ", 
             RowBox[{"Dynamic", "[", 
              RowBox[{"Refresh", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "6"}], " ", 
                 RowBox[{"Mod", "[", 
                  RowBox[{
                   RowBox[{"AbsoluteTime", "[", "]"}], ",", " ", "60"}], 
                  "]"}], " ", "\[Degree]"}], ",", " ", 
                RowBox[{"UpdateInterval", " ", "\[Rule]", " ", 
                 FractionBox["1", "20"]}]}], "]"}], "]"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"0", ",", " ", "0"}], "}"}]}], "]"}]}], "\n", "  ", 
          "}"}], ",", 
         RowBox[{"FilterRules", "[", 
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{"{", 
             RowBox[{"opts", ",", 
              RowBox[{"Options", "[", "TickTockClock", "]"}]}], "}"}], "]"}], 
           ",", 
           RowBox[{"Options", "[", "Graphics", "]"}]}], "]"}]}], "]"}]}], ";",
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Switch", "[", 
       RowBox[{
       "createDocument", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "True", ",", "\[IndentingNewLine]", 
        RowBox[{"CreateDocument", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"TextCell", "[", 
            RowBox[{
             RowBox[{"Grid", "[", 
              RowBox[{"{", 
               RowBox[{"{", "theClock", "}"}], "}"}], "]"}], ",", 
             RowBox[{"TextAlignment", "\[Rule]", "Center"}], ",", 
             RowBox[{"CellMargins", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", 
             RowBox[{"ShowCellBracket", "\[Rule]", "False"}]}], "]"}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"WindowFrame", "\[Rule]", "\"\<Palette\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"WindowSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"imageSize", "+", "5"}], ",", 
             RowBox[{"imageSize", "+", "5"}]}], "}"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"WindowElements", "\[Rule]", 
           RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"WindowFrameElements", "\[Rule]", 
           RowBox[{"{", "\"\<CloseBox\>\"", "}"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"WindowTitle", "\[Rule]", "\"\<Clock\>\""}]}], "]"}], ",", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "_", ",", 
        "\[IndentingNewLine]", "theClock"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[136130642856902049641049778175060970585]"},
 CellChangeTimes->{{3.390316907229645*^9, 3.390316968247817*^9}, {
   3.393075422039172*^9, 3.393075492489814*^9}, {3.393075560345387*^9, 
   3.393075586393087*^9}, 3.3930756238254223`*^9, {3.3930756870856524`*^9, 
   3.393075890205546*^9}, {3.3930759248707123`*^9, 3.3930759958429623`*^9}, {
   3.393076058220031*^9, 3.3930761420233088`*^9}, {3.393076188178665*^9, 
   3.393076280373808*^9}, {3.393076385724783*^9, 3.393076411239007*^9}, {
   3.3930764631064177`*^9, 3.393076477646585*^9}, {3.393076514979054*^9, 
   3.39307657042695*^9}, {3.3930767489789248`*^9, 3.3930767868473473`*^9}, {
   3.393076839543868*^9, 3.3930768815430107`*^9}, {3.393077036421459*^9, 
   3.393077073468802*^9}, {3.3930771799761744`*^9, 3.393077180968204*^9}, {
   3.393077222777028*^9, 3.393077227577454*^9}, {3.393077305859041*^9, 
   3.3930773499207487`*^9}, {3.393077511031426*^9, 3.393077561110153*^9}, {
   3.39307759489222*^9, 3.393077651491416*^9}, {3.393077748712633*^9, 
   3.393077753295067*^9}, {3.3930778433543253`*^9, 3.3930778536045313`*^9}, {
   3.393077913868972*^9, 3.393077926990691*^9}, {3.393078440466956*^9, 
   3.393078491726026*^9}, {3.393078690180112*^9, 3.393078713243988*^9}, {
   3.393108762999957*^9, 3.393108770296129*^9}, 3.3931089906339817`*^9, {
   3.393110791444689*^9, 3.393111075459713*^9}, {3.3931111150897617`*^9, 
   3.393111123967559*^9}, {3.393111176317779*^9, 3.3931112653545103`*^9}, {
   3.393111309448059*^9, 3.3931113487497463`*^9}, {3.39311316446535*^9, 
   3.3931132655504217`*^9}},
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 28.637275}]", 
   "CellGUID[283345208605157960266220599344066686939]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1746087290],

Cell["\<\
Then just execute the following to get your own pizzicato clock\
\>", "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[118861590554576190297869917112566045900]",
 CellChangeTimes->{{3.393111642632786*^9, 3.393111656982939*^9}, 
   3.393112286081347*^9},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 3, 0, 39.975592}]", 
   "CellGUID[53061909893788666873250428944790715895]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1950684065],

Cell[BoxData[
 RowBox[{"TickTockClock", "[", 
  RowBox[{"TickTock", "\[Rule]", "True"}], "]"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[337527656285142488292408764811985323323]"},
 CellChangeTimes->{{3.393111137009961*^9, 3.3931111577998877`*^9}, {
  3.39311127834374*^9, 3.3931113016685057`*^9}},
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 29.749151}]", 
   "CellGUID[119750592526457856726619177125875381080]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->718231181],

Cell["Or, for a slightly different effect:", "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[219029315798260233935985031875046363395]"},
 CellChangeTimes->{{3.3931116656931953`*^9, 3.3931116705356197`*^9}, {
  3.393111895678228*^9, 3.393111901971731*^9}},
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 5, 12.579907}]", 
   "CellGUID[219104043176776377085733216682636650814]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1661725353],

Cell[BoxData[
 RowBox[{"TickTockClock", "[", 
  RowBox[{
   RowBox[{"TickTock", "\[Rule]", " ", "True"}], ",", " ", 
   RowBox[{"TickTockInstrument", "\[Rule]", " ", "\"\<Glockenspiel\>\""}]}], 
  "]"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[258961763289549090891143685655379092685]"},
 CellChangeTimes->{{3.3931133743682547`*^9, 3.393113375349928*^9}},
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 5, 14.292772}]", 
   "CellGUID[196378433009786578128730726405513681697]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->974665623],

Cell["\<\
To show the TickTockClock in-line rather than in a seperate window, just \
execute \
\>", "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[162775258931684042152744061171260547999]"},
 CellChangeTimes->{{3.393112052391254*^9, 3.393112065645533*^9}, {
  3.39311231918624*^9, 3.3931123387869053`*^9}},
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 9, 52.890210}]", 
   "CellGUID[11660762009918339029987099657118745507]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->199866445],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"TickTockClock", "[", 
   RowBox[{
    RowBox[{"TickTock", "\[Rule]", "True"}], ",", 
    RowBox[{"CreateDocument", "\[Rule]", "False"}]}], "]"}], " "}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[62855834412220865975571203192029997591]"},
 CellChangeTimes->{{3.39311207422626*^9, 3.393112102152617*^9}, {
   3.393112228529016*^9, 3.393112229919869*^9}, 3.393116918900231*^9, {
   3.393117148704093*^9, 3.393117151778555*^9}},
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
   "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->490917207],

Cell[BoxData[
 GraphicsBox[{
   {Thickness[0.03], CircleBox[{0, 0}]}, 
   {Thickness[0.003], LineBox[{{0.9, 0}, {0.95, 0}}], 
    LineBox[{{0.895069705831446, 0.09407561694088812}, {0.9447958005998596, 
     0.09930204010427078}}], 
    LineBox[{{0.8803328406604252, 0.1871205217359834}, {0.9292402206971153, 
     0.19751610627687133`}}], 
    LineBox[{{0.8559508646656382, 0.27811529493745274`}, {0.9035036904803958, 
     0.29356614465620007`}}], 
    LineBox[{{0.8221909118783408, 0.36606297876822014`}, {0.8678681847604708, 
     0.38639981092201015`}}], 
    LineBox[{{0.7794228634059948, 0.45}, {0.8227241335952167, 0.475}}], 
    LineBox[{{0.7281152949374528, 0.5290067270632258}, {0.7685661446562, 
     0.5583959896778494}}], 
    LineBox[{{0.6688303429296548, 0.6022175457229725}, {0.7059875842035245, 
     0.6356740760409153}}], 
    LineBox[{{0.6022175457229725, 0.6688303429296548}, {0.6356740760409153, 
     0.7059875842035245}}], 
    LineBox[{{0.5290067270632258, 0.7281152949374528}, {0.5583959896778494, 
     0.7685661446562}}], 
    LineBox[{{0.45, 0.7794228634059948}, {0.475, 0.8227241335952167}}], 
    LineBox[{{0.36606297876822014`, 0.8221909118783408}, {
     0.38639981092201015`, 0.8678681847604708}}], 
    LineBox[{{0.27811529493745274`, 0.8559508646656382}, {
     0.29356614465620007`, 0.9035036904803958}}], 
    LineBox[{{0.1871205217359834, 0.8803328406604252}, {0.19751610627687133`, 
     0.9292402206971153}}], 
    LineBox[{{0.09407561694088812, 0.895069705831446}, {0.09930204010427078, 
     0.9447958005998596}}], LineBox[{{0, 0.9}, {0, 0.95}}], 
    LineBox[{{-0.09407561694088812, 0.895069705831446}, {-0.09930204010427078,
      0.9447958005998596}}], 
    LineBox[{{-0.1871205217359834, 
     0.8803328406604252}, {-0.19751610627687133`, 0.9292402206971153}}], 
    LineBox[{{-0.27811529493745274`, 
     0.8559508646656382}, {-0.29356614465620007`, 0.9035036904803958}}], 
    LineBox[{{-0.36606297876822014`, 
     0.8221909118783408}, {-0.38639981092201015`, 0.8678681847604708}}], 
    LineBox[{{-0.45, 0.7794228634059948}, {-0.475, 0.8227241335952167}}], 
    LineBox[{{-0.5290067270632258, 0.7281152949374528}, {-0.5583959896778494, 
     0.7685661446562}}], 
    LineBox[{{-0.6022175457229725, 0.6688303429296548}, {-0.6356740760409153, 
     0.7059875842035245}}], 
    LineBox[{{-0.6688303429296548, 0.6022175457229725}, {-0.7059875842035245, 
     0.6356740760409153}}], 
    LineBox[{{-0.7281152949374528, 0.5290067270632258}, {-0.7685661446562, 
     0.5583959896778494}}], 
    LineBox[{{-0.7794228634059948, 0.45}, {-0.8227241335952167, 0.475}}], 
    LineBox[{{-0.8221909118783408, 
     0.36606297876822014`}, {-0.8678681847604708, 0.38639981092201015`}}], 
    LineBox[{{-0.8559508646656382, 
     0.27811529493745274`}, {-0.9035036904803958, 0.29356614465620007`}}], 
    LineBox[{{-0.8803328406604252, 0.1871205217359834}, {-0.9292402206971153, 
     0.19751610627687133`}}], 
    LineBox[{{-0.895069705831446, 0.09407561694088812}, {-0.9447958005998596, 
     0.09930204010427078}}], LineBox[{{-0.9, 0}, {-0.95, 0}}], 
    LineBox[{{-0.895069705831446, -0.09407561694088812}, \
{-0.9447958005998596, -0.09930204010427078}}], 
    LineBox[{{-0.8803328406604252, -0.1871205217359834}, \
{-0.9292402206971153, -0.19751610627687133`}}], 
    LineBox[{{-0.8559508646656382, -0.27811529493745274`}, \
{-0.9035036904803958, -0.29356614465620007`}}], 
    LineBox[{{-0.8221909118783408, -0.36606297876822014`}, \
{-0.8678681847604708, -0.38639981092201015`}}], 
    LineBox[{{-0.7794228634059948, -0.45}, {-0.8227241335952167, -0.475}}], 
    LineBox[{{-0.7281152949374528, -0.5290067270632258}, {-0.7685661446562, \
-0.5583959896778494}}], 
    LineBox[{{-0.6688303429296548, -0.6022175457229725}, \
{-0.7059875842035245, -0.6356740760409153}}], 
    LineBox[{{-0.6022175457229725, -0.6688303429296548}, \
{-0.6356740760409153, -0.7059875842035245}}], 
    LineBox[{{-0.5290067270632258, -0.7281152949374528}, \
{-0.5583959896778494, -0.7685661446562}}], 
    LineBox[{{-0.45, -0.7794228634059948}, {-0.475, -0.8227241335952167}}], 
    LineBox[{{-0.36606297876822014`, -0.8221909118783408}, \
{-0.38639981092201015`, -0.8678681847604708}}], 
    LineBox[{{-0.27811529493745274`, -0.8559508646656382}, \
{-0.29356614465620007`, -0.9035036904803958}}], 
    LineBox[{{-0.1871205217359834, -0.8803328406604252}, \
{-0.19751610627687133`, -0.9292402206971153}}], 
    LineBox[{{-0.09407561694088812, -0.895069705831446}, \
{-0.09930204010427078, -0.9447958005998596}}], 
    LineBox[{{0, -0.9}, {0, -0.95}}], 
    LineBox[{{0.09407561694088812, -0.895069705831446}, {
     0.09930204010427078, -0.9447958005998596}}], 
    LineBox[{{0.1871205217359834, -0.8803328406604252}, {
     0.19751610627687133`, -0.9292402206971153}}], 
    LineBox[{{0.27811529493745274`, -0.8559508646656382}, {
     0.29356614465620007`, -0.9035036904803958}}], 
    LineBox[{{0.36606297876822014`, -0.8221909118783408}, {
     0.38639981092201015`, -0.8678681847604708}}], 
    LineBox[{{0.45, -0.7794228634059948}, {0.475, -0.8227241335952167}}], 
    LineBox[{{0.5290067270632258, -0.7281152949374528}, {
     0.5583959896778494, -0.7685661446562}}], 
    LineBox[{{0.6022175457229725, -0.6688303429296548}, {
     0.6356740760409153, -0.7059875842035245}}], 
    LineBox[{{0.6688303429296548, -0.6022175457229725}, {
     0.7059875842035245, -0.6356740760409153}}], 
    LineBox[{{0.7281152949374528, -0.5290067270632258}, {
     0.7685661446562, -0.5583959896778494}}], 
    LineBox[{{0.7794228634059948, -0.45}, {0.8227241335952167, -0.475}}], 
    LineBox[{{0.8221909118783408, -0.36606297876822014`}, {
     0.8678681847604708, -0.38639981092201015`}}], 
    LineBox[{{0.8559508646656382, -0.27811529493745274`}, {
     0.9035036904803958, -0.29356614465620007`}}], 
    LineBox[{{0.8803328406604252, -0.1871205217359834}, {
     0.9292402206971153, -0.19751610627687133`}}], 
    LineBox[{{0.895069705831446, -0.09407561694088812}, {
     0.9447958005998596, -0.09930204010427078}}], 
    LineBox[{{0.9, 0}, {0.95, 0}}]}, 
   {Thickness[0.01], LineBox[{{0.9, 0}, {0.95, 0}}], 
    LineBox[{{0.7794228634059948, 0.45}, {0.8227241335952167, 0.475}}], 
    LineBox[{{0.45, 0.7794228634059948}, {0.475, 0.8227241335952167}}], 
    LineBox[{{0, 0.9}, {0, 0.95}}], 
    LineBox[{{-0.45, 0.7794228634059948}, {-0.475, 0.8227241335952167}}], 
    LineBox[{{-0.7794228634059948, 0.45}, {-0.8227241335952167, 0.475}}], 
    LineBox[{{-0.9, 0}, {-0.95, 0}}], 
    LineBox[{{-0.7794228634059948, -0.45}, {-0.8227241335952167, -0.475}}], 
    LineBox[{{-0.45, -0.7794228634059948}, {-0.475, -0.8227241335952167}}], 
    LineBox[{{0, -0.9}, {0, -0.95}}], 
    LineBox[{{0.45, -0.7794228634059948}, {0.475, -0.8227241335952167}}], 
    LineBox[{{0.7794228634059948, -0.45}, {0.8227241335952167, -0.475}}], 
    LineBox[{{0.9, 0}, {0.95, 0}}]}, 
   StyleBox[{InsetBox["1", {0.385, 0.6668395609140177}], 
     InsetBox["2", {0.6668395609140177, 0.385}], InsetBox["3", {0.77, 0}], 
     InsetBox["4", {0.6668395609140177, -0.385}], 
     InsetBox["5", {0.385, -0.6668395609140177}], InsetBox["6", {0, -0.77}], 
     InsetBox["7", {-0.385, -0.6668395609140177}], 
     InsetBox["8", {-0.6668395609140177, -0.385}], InsetBox["9", {-0.77, 0}], 
     InsetBox["10", {-0.6668395609140177, 0.385}], 
     InsetBox["11", {-0.385, 0.6668395609140177}], InsetBox["12", {0, 0.77}]},
    
    StripOnInput->False,
    FontFamily->"Helvetica",
    FontSize->10], 
   GeometricTransformationBox[
    GeometricTransformationBox[
     GeometricTransformationBox[
      PolygonBox[
       NCache[{{-0.03333333333333333, Rational[-5, 27]}, {
         0.03333333333333333, Rational[-5, 27]}, {
         0.011111111111111112`, Rational[5, 9]}, {
         0, 0.6444444444444444}, {-0.011111111111111112`, Rational[
          5, 9]}}, {{-0.03333333333333333, -0.18518518518518517`}, {
         0.03333333333333333, -0.18518518518518517`}, {0.011111111111111112`, 
         0.5555555555555556}, {
         0, 0.6444444444444444}, {-0.011111111111111112`, 
         0.5555555555555556}}]], {{{1, 0}, {0, 1}}, {0, 0}}], {{{
       Cos[Dynamic[
         Refresh[((-30) Mod[AbsoluteTime[]/3600, 60]) Degree, UpdateInterval -> 
           60]]], -Sin[
         Dynamic[Refresh[((-30) Mod[AbsoluteTime[]/3600, 60]) Degree, 
            UpdateInterval -> 60]]]}, {
       Sin[Dynamic[
         Refresh[((-30) Mod[AbsoluteTime[]/3600, 60]) Degree, UpdateInterval -> 
           60]]], Cos[
        Dynamic[Refresh[((-30) Mod[AbsoluteTime[]/3600, 60]) Degree, 
           UpdateInterval -> 60]]]}}, {0, 0}}], {{{1, 0}, {0, 1}}, {0, 0}}], 
   GeometricTransformationBox[
    GeometricTransformationBox[
     GeometricTransformationBox[
      PolygonBox[
       NCache[{{-0.03333333333333333, Rational[-7, 27]}, {
         0.03333333333333333, Rational[-7, 27]}, {
         0.011111111111111112`, Rational[7, 9]}, {
         0, 0.8666666666666666}, {-0.011111111111111112`, Rational[
          7, 9]}}, {{-0.03333333333333333, -0.25925925925925924`}, {
         0.03333333333333333, -0.25925925925925924`}, {0.011111111111111112`, 
         0.7777777777777778}, {
         0, 0.8666666666666666}, {-0.011111111111111112`, 
         0.7777777777777778}}]], {{{1, 0}, {0, 1}}, {0, 0}}], {{{
       Cos[Dynamic[
         Refresh[If[$CellContext`tickTock$7376, EmitSound[
             Sound[SoundNote[$CellContext`tickTockNote$7376, 
                0.1, $CellContext`tickTockInstrument$7376, SoundVolume -> 
                0.1]]]]; ((-6) Mod[AbsoluteTime[]/60, 60]) Degree, 
           UpdateInterval -> 1]]], -
        Sin[Dynamic[
          Refresh[If[$CellContext`tickTock$7376, EmitSound[
              Sound[SoundNote[$CellContext`tickTockNote$7376, 
                 0.1, $CellContext`tickTockInstrument$7376, SoundVolume -> 
                 0.1]]]]; ((-6) Mod[AbsoluteTime[]/60, 60]) Degree, 
            UpdateInterval -> 1]]]}, {
       Sin[Dynamic[
         Refresh[If[$CellContext`tickTock$7376, EmitSound[
             Sound[SoundNote[$CellContext`tickTockNote$7376, 
                0.1, $CellContext`tickTockInstrument$7376, SoundVolume -> 
                0.1]]]]; ((-6) Mod[AbsoluteTime[]/60, 60]) Degree, 
           UpdateInterval -> 1]]], Cos[
        Dynamic[Refresh[
          If[$CellContext`tickTock$7376, EmitSound[
             Sound[SoundNote[$CellContext`tickTockNote$7376, 
                0.1, $CellContext`tickTockInstrument$7376, SoundVolume -> 
                0.1]]]]; ((-6) Mod[AbsoluteTime[]/60, 60]) Degree, 
           UpdateInterval -> 1]]]}}, {0, 0}}], {{{1, 0}, {0, 1}}, {0, 0}}], 
   GeometricTransformationBox[
    GeometricTransformationBox[GeometricTransformationBox[
      {RGBColor[1, 0, 0], EdgeForm[GrayLevel[0]], 
       PolygonBox[
        NCache[{{-0.016666666666666666`, Rational[-7, 27]}, {
          0.016666666666666666`, Rational[-7, 27]}, {
          0.005555555555555556, Rational[7, 9]}, {
          0, 0.8222222222222222}, {-0.005555555555555556, Rational[
           7, 9]}}, {{-0.016666666666666666`, -0.25925925925925924`}, {
          0.016666666666666666`, -0.25925925925925924`}, {
          0.005555555555555556, 0.7777777777777778}, {
          0, 0.8222222222222222}, {-0.005555555555555556, 
          0.7777777777777778}}]]}, {{{1, 0}, {0, 1}}, {0, 0}}], {{{
       Cos[Dynamic[
         Refresh[((-6) Mod[AbsoluteTime[], 60]) Degree, UpdateInterval -> 
           1/20]]], -
        Sin[Dynamic[
          Refresh[((-6) Mod[AbsoluteTime[], 60]) Degree, UpdateInterval -> 
            1/20]]]}, {
       Sin[Dynamic[
         Refresh[((-6) Mod[AbsoluteTime[], 60]) Degree, UpdateInterval -> 
           1/20]]], Cos[
        Dynamic[Refresh[((-6) Mod[AbsoluteTime[], 60]) Degree, UpdateInterval -> 
           1/20]]]}}, {0, 0}}], {{{1, 0}, {0, 1}}, {0, 0}}]},
  ImageSize->100]], "Output",
 Editable->True,
 Deletable->True,
 Evaluatable->False,
 Copyable->True,
 CellOpen->True,
 CellChangeTimes->{3.393117097143071*^9, 3.393117146059965*^9},
 ImageSize->{100, -101},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
   "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1046809331]
}, Open  ]],

Cell[TextData[{
 "And, of course, when you open this notebook in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 6 the clock will be working, rather than the Gif that the blog version of \
this posting displays."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[258843333152311457577659827536638400148]"},
 CellChangeTimes->{{3.3931121200067253`*^9, 3.393112176908485*^9}},
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 10, 21.523010}]", 
   "CellGUID[239404089808925998357509098939043692508]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->786667973],

Cell[TextData[{
 "It would be quite easy to turn this into an alarm clock which would play \
anything you program it to as its alarm. Or perhaps create an option to make \
it a ",
 ButtonBox["Looking-glass Clock",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://thewhiterabbit.net/images/teaclock.gif"], None}],
 ". But, I have other things to attend to, such as the continuing development \
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]],
 "..."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[186310293122585682283321005128279731786]",
 CellChangeTimes->{{3.393111483076989*^9, 3.393111574664785*^9}, {
  3.3931174062457542`*^9, 3.3931174661862173`*^9}, {3.393117915515257*^9, 
  3.393117939266633*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 57, 59.764346}]", 
   "CellGUID[34022711628720218202925413791834307246]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->67635590],

Cell[TextData[{
 "Chris says that creating his ",
 ButtonBox["analog clock",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://blog.wolfram.com/carlson/codecomparison.nb"], None}],
 " took him about five minutes.  I'm just not that fast, but I am also still \
coming up to speed with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 6, and he's one of the people who \"wrote the book.\"  For me, starting \
with Chris's code, I took another 20 minutes to come up with the code above. \
Then, even though I didn't want to, I had to go attend to other things.  I \
acruued another 10 minutes making sure that the usage messages were in place \
for this blog posting. "
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[11991512314086562513608659805929191951]",
 CellChangeTimes->{{3.393109992933846*^9, 3.393110135693397*^9}, 
   3.3931105097930613`*^9, 3.393112299236973*^9, {3.393112654375066*^9, 
   3.393112709907761*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 33, 9.827138}]", 
   "CellGUID[49846713681010691717348535460223751398]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->63142654],

Cell["\<\
I suspect that this next 20 minutes of development would have taken a bit \
more relative effort in MatLab.\
\>", "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[294054130651970615889854584587806604439]",
 CellChangeTimes->{{3.39311292070485*^9, 3.393112954688119*^9}, {
  3.393116858722755*^9, 3.393116861656945*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 3, 21, 58.432027}]", 
   "CellGUID[84970061915359689507625068263245297843]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1386572357],

Cell["\<\
Somewhere in between the 20 minutes and the 10 minutes I had a cup of coffee \
and lived out the middle of my day...\
\>", "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[281241560383893983286502813538004830741]",
 CellChangeTimes->{{3.39311269612423*^9, 3.3931127344119987`*^9}, {
  3.393112790808558*^9, 3.393112790975884*^9}, {3.393112961256794*^9, 
  3.393112962952559*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 3, 18, 14.900801}]", 
   "CellGUID[105747126616235741634126228524758649684]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1632129184],

Cell[CellGroupData[{

Cell[TextData[{
 "But what does this have to do with ",
 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]],
 "?"
}], "Subsection",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[72682446503733209487938322360532783185]",
 CellChangeTimes->{{3.393109820530439*^9, 3.393109833370624*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Subsection148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 30, 17.316939}]", 
   "CellGUID[116700216043845232119367801809976834833]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->503924811],

Cell[TextData[{
 "So what does this have to do with ",
 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]],
 "? I think that the main point is that ",
 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]],
 " would not have been possible if it were not for the powerful \
self-illuminating way that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " code can be created, and the ease with which one can go through the \
process of coding by creative discovery.  I was reminded of this experience \
\"in the small\" as I started to play with Chris's bit of code and add some \
additional ideas to it..."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[232495120274147084132213115015093776400]",
 CellChangeTimes->{{3.393109921197109*^9, 3.393109953292451*^9}, {
  3.393110334774605*^9, 3.393110385984054*^9}, {3.393112018163932*^9, 
  3.3931120289159117`*^9}, {3.393112525491254*^9, 3.393112578234432*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 31, 56.964084}]", 
   "CellGUID[282510196427601416476635723131018162220]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1936278356],

Cell[TextData[{
 "My experience \"in the large\" is the several thousand hours I spent (most \
of it enjoyable!) creating and coding ",
 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]],
 ". My process of adding features and refining what is already 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]],
 " feels exactly the same as the experience I had with Chris's code. "
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[216508340045381078925835011565414510086]",
 CellChangeTimes->{{3.3931125973902807`*^9, 3.393112644750876*^9}, {
  3.393112745132635*^9, 3.3931127870391006`*^9}, {3.393116828022106*^9, 
  3.393116832680307*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 3, 16, 25.470057}]", 
   "CellGUID[101226750487075148299152045749186890543]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1885517988]
}, Open  ]],

Cell[CellGroupData[{

Cell["Notebook version....", "Subsection",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[246394562208608107634599537339800753502]",
 CellChangeTimes->{{3.3931102272057047`*^9, 3.393110232227004*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Subsection148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 37, 5.582973}]", 
   "CellGUID[158310562554746338258710820404505299177]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->381664160],

Cell[TextData[{
 "You can download a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 6 notebook version of this blog post from the \"",
 StyleBox["Notebook",
  FontFamily->"Helvetica"],
 "\" link just below..."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[245697259014780777112394882734309786814]",
 CellChangeTimes->{{3.3931102350299387`*^9, 3.393110274165675*^9}, {
  3.393113642196677*^9, 3.393113642617659*^9}},
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 37, 14.120969}]", 
   "CellGUID[328244319966305702013101369582433246766]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->95883531]
}, Open  ]]
},
Editable->True,
ScreenStyleEnvironment->"Working",
WindowSize->{550, Automatic},
WindowMargins->{{236, Automatic}, {Automatic, 26}},
WindowTitle->Automatic,
Visible->True,
DockedCells->{
  Cell[
   BoxData[
    RowBox[{
      ButtonBox[
       StyleBox[
        RowBox[{"Save"}], FontFamily -> "Helvetica", FontWeight -> "Bold", 
        FontSize -> 10, FontColor -> RGBColor[0.5, 0, 0.5], 
        SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, 
       ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> 
       "Save", ButtonFunction :> (FrontEnd`MessagesToConsole[
        Needs["Diary`Diary`"]; ToExpression["NotebookSave[ButtonNotebook[]]"]; 
         ToExpression["SaveNotebookState[]"]]& ), Evaluator -> Automatic, 
       Enabled -> True, FrameMargins -> 1], 
      ButtonBox[
       StyleBox[
        RowBox[{"DateTag"}], FontFamily -> "Helvetica", FontWeight -> "Bold", 
        FontSize -> 10, FontColor -> RGBColor[0.5, 0, 0.5], 
        SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, 
       ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> 
       "DateTag", 
       ButtonFunction :> (FrontEnd`MessagesToConsole[
        Needs["Diary`Diary`"]; 
         ToExpression["DateTagNotebook[ButtonNotebook[],AlertDialog]"]; 
         Null]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 
       1], 
      ButtonBox[
       StyleBox[
        RowBox[{"Password Protect"}], FontFamily -> "Helvetica", FontWeight -> 
        "Bold", FontSize -> 10, FontColor -> RGBColor[0.5, 0, 0.5], 
        SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, 
       ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> 
       "Password Protect", 
       ButtonFunction :> (FrontEnd`MessagesToConsole[
        Needs["Diary`Diary`"]; ToExpression["SelfEncryptNotebook[]"]; 
         ToExpression[
          "AddRecordToMathematicaUsageDatabase[{\"PasswordProtect\",\
NotebookGUID[ButtonNotebook[]]}]"]; Null]& ), Evaluator -> Automatic, Enabled -> 
       True, FrameMargins -> 1], 
      ButtonBox[
       StyleBox[
        RowBox[{"Notebook's directory"}], FontFamily -> "Helvetica", 
        FontWeight -> "Bold", FontSize -> 10, FontColor -> 
        RGBColor[0.5, 0, 0.5], SingleLetterItalics -> False], 
       FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> 
       RGBColor[1, 1, 0.9], ButtonNote -> "Notebook's directory", 
       ButtonFunction :> (FrontEnd`MessagesToConsole[
        Needs["Diary`Diary`"]; 
         ToExpression[
          "OpenFileOrDirectory[NotebookDirectory[ButtonNotebook[]]]"]]& ), 
       Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], 
      ButtonBox[
       StyleBox[
        RowBox[{"Top"}], FontFamily -> "Helvetica", FontWeight -> "Bold", 
        FontSize -> 10, FontColor -> RGBColor[0.1, 0.1, 1], 
        SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, 
       ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> 
       "Top", ButtonFunction :> (FrontEnd`MessagesToConsole[
        Needs["Diary`Diary`"]; 
         ToExpression[
          "SelectionMove[ButtonNotebook[], Before, Notebook]"]]& ), Evaluator -> 
       Automatic, Enabled -> True, FrameMargins -> 1], 
      ButtonBox[
       StyleBox[
        RowBox[{"Bottom"}], FontFamily -> "Helvetica", FontWeight -> "Bold", 
        FontSize -> 10, FontColor -> RGBColor[0.1, 0.1, 1], 
        SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, 
       ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> 
       "Bottom", 
       ButtonFunction :> (FrontEnd`MessagesToConsole[
        Needs["Diary`Diary`"]; 
         ToExpression["SelectionMove[ButtonNotebook[], After, Notebook]"]]& ),
        Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], 
      ButtonBox[
       StyleBox[
        RowBox[{
          TagBox[
           TooltipBox[
           "\"Close Toolbar\"", 
            "\"Use the \\\"Toggle Toolbar\\\" button in the Notebooks Palette \
to restore the Toolbar.\""], 
           Annotation[#, 
            "Use the \"Toggle Toolbar\" button in the Notebooks Palette to \
restore the Toolbar.", "Tooltip"]& ]}], FontColor -> GrayLevel[0.6], 
        FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
        FontColor -> GrayLevel[0], SingleLetterItalics -> False], 
       FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> 
       RGBColor[1, 1, 0.9], ButtonNote -> "Close Toolbar", 
       ButtonFunction :> (FrontEnd`MessagesToConsole[
        Needs["Diary`Diary`"]; 
         ToExpression[
          "ToggleSaveBackupToolbarCellOpenClosed[ButtonNotebook[]]"]]& ), 
       Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], "\n", 
      TagBox[
       TooltipBox[
        PopupMenuBox[
         Dynamic[{"ActionMenu", Automatic}, 
          Part[{Style[
             "WorkLife Tools", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression[
              "WorkLifeToolsPalette[Sequence @@ \
$WorkLifeToolsPaletteExtraButtons]"]), 
            Style["Additional Tools", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression[
              "AdditionalToolsPalette[Sequence @@ \
$AdditionalToolsPaletteExtraButtons]"]), 
            Style["All Notebooks", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["AllOpenNotebooksPalette[]"]), 
            Style["Analytics", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression[
              "AnalyticsPalette[Sequence @@ $AnalyticsPaletteExtraButtons]"]),
             Style["Blog Tools", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["BlogPalette[]"]), 
            Style["Computations", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["ComputationPalette[]"]), 
            Style["Databases", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["DatabasesPalette[]"]), 
            Style["Diary Access", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["DiaryAccessPalette[True]"]), 
            Style["Diary Entries", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["DiaryEntriesPalette[]"]), 
            Style["Diary Entry", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["DiaryEntryPalette[]"]), 
            Style["Diary Headings", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["DiaryHeadingsPalette[]"]), 
            Style["Diary List", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["DiaryListPalette[]"]), 
            Style["Diary Templates", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["DiaryTemplatesPalette[]"]), 
            Style["Email", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression[
              "EmailPalette[Sequence @@ $EmailPaletteExtraButtons]"]), 
            Style["Essay", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression[
              "EssayPalette[Sequence @@ $EssayPaletteExtraButtons]"]), 
            Style["Evaluation", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["EvaluationPalette[]"]), 
            Style["Favorite Palettes", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["FavoritePalettesPalette[]"]), 
            Style["Favorites & Recent", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["FavoritesAndRecentPalette[]"]), 
            Style["File Sets", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["FileSetsPalette[]"]), 
            Style["Formatting", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression[
              "FormattingPalette[Sequence @@ \
$FormattingPaletteExtraButtons]"]), 
            Style["Form Templates", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["FormTemplatesPalette[]"]), 
            Style["Notebooks", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["NotebooksPalette[]"]), 
            Style["Notebook Styles", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["NotebookStylesPalette[]"]), 
            Style["Organizations", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["OrganizationsPalette[]"]), 
            Style["OtherFiles", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["OtherFilesPalette[]"]), 
            Style["Outlining & Slides", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["OutliningAndSlidesPalette[]"]), 
            Style["Package Programming", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["PackageProgrammingPalette[]"]), 
            Style["Packages", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["PackagesPalette[]"]), 
            Style["Plugins Loading", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["PluginsLoadingPalette[]"]), 
            Style["Programming", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["ProgrammingPalette[]"]), 
            Style["RSS Feeds", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["RSSFeedsPalette[]"]), 
            Style["Style Sheets", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["StyleSheetsPalette[]"]), 
            Style["Tagging", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["TaggingPalette[$TaggingList]"]), 
            Style["ToDos", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["ToDosPalette[]"]), 
            Style["Web Search", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["WebSearchPalette[]"]), 
            Style["WorkFlows", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["WorkFlowsPalette[]"]), Delimiter, 
            Style["Custom1", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["Custom1Palette[]"]), 
            Style["Custom2", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["Custom2Palette[]"]), 
            Style["Custom3", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["Custom3Palette[]"]), 
            Style["Custom4", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["Custom4Palette[]"]), 
            Style["Custom5", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["Custom5Palette[]"]), 
            Style["Custom6", {
              FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10,
                FontColor -> RGBColor[
                 Rational[1, 3], 
                 Rational[1, 3], 
                 Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; 
             ToExpression["Custom6Palette[]"])}, #, 2]& , Evaluator -> 
          Automatic], {
         1 -> StyleBox[
           "\"WorkLife Tools\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 2 -> 
          StyleBox[
           "\"Additional Tools\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 3 -> 
          StyleBox[
           "\"All Notebooks\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 4 -> 
          StyleBox[
           "\"Analytics\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 5 -> 
          StyleBox[
           "\"Blog Tools\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 6 -> 
          StyleBox[
           "\"Computations\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 7 -> 
          StyleBox[
           "\"Databases\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 8 -> 
          StyleBox[
           "\"Diary Access\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 9 -> 
          StyleBox[
           "\"Diary Entries\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 10 -> 
          StyleBox[
           "\"Diary Entry\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 11 -> 
          StyleBox[
           "\"Diary Headings\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 12 -> 
          StyleBox[
           "\"Diary List\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 13 -> 
          StyleBox[
           "\"Diary Templates\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 14 -> 
          StyleBox[
           "\"Email\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 15 -> 
          StyleBox[
           "\"Essay\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 16 -> 
          StyleBox[
           "\"Evaluation\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 17 -> 
          StyleBox[
           "\"Favorite Palettes\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 18 -> 
          StyleBox[
           "\"Favorites & Recent\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 19 -> 
          StyleBox[
           "\"File Sets\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 20 -> 
          StyleBox[
           "\"Formatting\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 21 -> 
          StyleBox[
           "\"Form Templates\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 22 -> 
          StyleBox[
           "\"Notebooks\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 23 -> 
          StyleBox[
           "\"Notebook Styles\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 24 -> 
          StyleBox[
           "\"Organizations\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 25 -> 
          StyleBox[
           "\"OtherFiles\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 26 -> 
          StyleBox[
           "\"Outlining & Slides\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 27 -> 
          StyleBox[
           "\"Package Programming\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 28 -> 
          StyleBox[
           "\"Packages\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 29 -> 
          StyleBox[
           "\"Plugins Loading\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 30 -> 
          StyleBox[
           "\"Programming\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 31 -> 
          StyleBox[
           "\"RSS Feeds\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 32 -> 
          StyleBox[
           "\"Style Sheets\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 33 -> 
          StyleBox[
           "\"Tagging\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 34 -> 
          StyleBox[
           "\"ToDos\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 35 -> 
          StyleBox[
           "\"Web Search\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 36 -> 
          StyleBox[
           "\"WorkFlows\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], Delimiter, 
          38 -> StyleBox[
           "\"Custom1\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 39 -> 
          StyleBox[
           "\"Custom2\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 40 -> 
          StyleBox[
           "\"Custom3\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 41 -> 
          StyleBox[
           "\"Custom4\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False], 42 -> 
          StyleBox[
           "\"Custom5\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}, StripOnInput -> False], 43 -> 
          StyleBox[
           "\"Custom6\"", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> RGBColor[
               Rational[1, 3], 
               Rational[1, 3], 
               Rational[1, 3]]}, StripOnInput -> False]}, 
         StyleBox[
         "\"Open a Palette\"", FontColor -> 
          RGBColor[0., 0.30000000000000004`, 0.], FontFamily -> "Helvetica", 
          FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0], 
          StripOnInput -> False], Background -> Automatic, ImageSize -> 
         Automatic, Appearance -> "ActionMenu", MenuAppearance -> "Menu", 
         FieldSize -> {{1, 30}, 1}, FrameMargins -> {{2, 0}, {-4, -4}}], 
        "\"Select a Palette from A WorkLife FrameWork\"", ActionDelay -> 0.5],
        Annotation[#, "Select a Palette from A WorkLife FrameWork", 
        "Tooltip"]& ], 
      PopupMenuBox[
       Dynamic[{"ActionMenu", Automatic}, 
        Part[{Style[
           "Backup", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}] :> Catch[
            
            Module[{}, Needs["Diary`Diary`"]; 
             ToExpression[
              "If[DiaryQ[EvaluationNotebook[]],Throw[Message[DiaryQ::\
notadiary]]]"]; (
              ToExpression[
               "BackupNotebookWithCommentary[EvaluationNotebook[],ShowBackups-\
>True];ShowBackups[EvaluationNotebook[]]"]; 
              ToExpression[
               "AddRecordToMathematicaUsageDatabase[{\"Backup\",NotebookGUID[\
EvaluationNotebook[]]}]"])]], 
          Style["Show Backups", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
           ToExpression["ShowBackups[EvaluationNotebook[],True]"]), 
          Style["Hide Backups", {
            FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
             FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; 
           ToExpression["ShowBackups[EvaluationNotebook[],False]"])}, #, 2]& ,
         Evaluator -> Automatic], {
       1 -> StyleBox[
         "\"Backup\"", {
          FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
           FontColor -> GrayLevel[0]}, StripOnInput -> False], 2 -> 
        StyleBox[
         "\"Show Backups\"", {
          FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
           FontColor -> GrayLevel[0]}, StripOnInput -> False], 3 -> 
        StyleBox[
         "\"Hide Backups\"", {
          FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
           FontColor -> GrayLevel[0]}, StripOnInput -> False]}, 
       StyleBox[
       "\"Backups\"", FontColor -> RGBColor[0., 0.30000000000000004`, 0.], 
        FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, 
        FontColor -> GrayLevel[0], StripOnInput -> False], Background -> 
       Automatic, ImageSize -> Automatic, Appearance -> "ActionMenu", 
       MenuAppearance -> "Menu", FieldSize -> {{1, 30}, 1}, 
       FrameMargins -> {{2, 0}, {-4, -4}}]}]], "Text", 
   CellTags -> {"SaveBackupToolbarCell", "ToHide"}, Editable -> False, 
   Deletable -> False, TextAlignment -> Center, Background -> GrayLevel[0.9], 
   CellFrame -> {{0, 0}, {0.5, 0}}, CellFrameMargins -> {{0, 0}, {1, 3}}, 
   ShowCellBracket -> False, ShowCellTags -> False, 
   CellMargins -> {{0, 0}, {0, 0}}]},
ShowSelection->True,
TaggingRules:>{
 "2.1.0\[Beta]", "GUIDTag[143518590281327802069194362895810688181]", 
  "Notebook"},
CreateCellID->True,
DefaultNewCellStyle->"Text",
Magnification->1.,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell["Modify the definitions below to change the default appearance of all \
cells in a given style. \nMake modifications to any definition using commands \
in the Format menu.", "Text"], 
   Cell[
    CellGroupData[{
      Cell["Style Definitions", "Title"], 
      Cell[
      "Modify the definitions below to change the default appearance of all \
cells in a given style.  Make modifications to any definition using commands \
in the Format menu.", "Text"], 
      Cell[
       CellGroupData[{
         Cell["Style Environment Names", "Section"], 
         Cell[
          StyleData[All, "Working"], PageWidth -> WindowWidth, 
          CellBracketOptions -> {
           "Color" -> RGBColor[0.269993, 0.308507, 0.6]}, 
          CellLabelMargins -> {{12, Inherited}, {Inherited, Inherited}}, 
          ScriptMinSize -> 9], 
         Cell[
          StyleData[All, "Presentation"], PageWidth -> WindowWidth, 
          CellLabelMargins -> {{24, Inherited}, {Inherited, Inherited}}, 
          ScriptMinSize -> 12], 
         Cell[
          StyleData[All, "Condensed"], PageWidth -> WindowWidth, 
          CellLabelMargins -> {{8, Inherited}, {Inherited, Inherited}}, 
          ScriptMinSize -> 8], 
         Cell[
          StyleData[All, "SlideShow"], PageWidth -> WindowWidth, 
          ScrollingOptions -> {
           "PagewiseDisplay" -> True, "VerticalScrollRange" -> Fit}, 
          ShowCellBracket -> False, ScriptMinSize -> 9], 
         Cell[
          StyleData[All, "Printout"], PageWidth -> PaperWidth, 
          CellLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          ScriptMinSize -> 5, 
          PrivateFontOptions -> {"FontType" -> "Outline"}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Notebook Options", "Section"], 
         Cell[
         "The options defined for the style below will be used at the \
Notebook level.", "Text"], 
         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]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Headings", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Title"], CellMargins -> {{10, Inherited}, {10, 30}}, 
             CellGroupingRules -> {"TitleGrouping", 0}, 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}, LineSpacing -> {1, 11}, LanguageCategory -> 
             "NaturalLanguage", CounterIncrements -> "Title", 
             CounterAssignments -> {{"Section", 0}, {"Equation", 0}, {
               "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> 
             "Helvetica", FontSize -> 36, FontWeight -> "Bold"], 
            Cell[
             StyleData["Title", "Presentation"], 
             CellMargins -> {{27, 10}, {10, 30}}, LineSpacing -> {1, 0}, 
             FontSize -> 44], 
            Cell[
             StyleData["Title", "Condensed"], 
             CellMargins -> {{8, 10}, {4, 8}}, FontSize -> 20], 
            Cell[
             StyleData["Title", "SlideShow"]], 
            Cell[
             StyleData["Title", "Printout"], 
             CellMargins -> {{2, 10}, {12, 30}}, FontSize -> 24]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Subtitle"], CellMargins -> {{10, Inherited}, {20, 2}},
              CellGroupingRules -> {"TitleGrouping", 10}, 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 -> "Subtitle", 
             CounterAssignments -> {{"Section", 0}, {"Equation", 0}, {
               "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", 
             FontSize -> 24], 
            Cell[
             StyleData["Subtitle", "Presentation"], 
             CellMargins -> {{27, 10}, {20, 2}}, LineSpacing -> {1, 0}, 
             FontSize -> 36], 
            Cell[
             StyleData["Subtitle", "Condensed"], 
             CellMargins -> {{8, 10}, {4, 4}}, FontSize -> 14], 
            Cell[
             StyleData["Subtitle", "SlideShow"]], 
            Cell[
             StyleData["Subtitle", "Printout"], 
             CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 18]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Subsubtitle"], 
             CellMargins -> {{10, Inherited}, {8, 2}}, 
             CellGroupingRules -> {"TitleGrouping", 20}, 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 -> "Subsubtitle", 
             CounterAssignments -> {{"Section", 0}, {"Equation", 0}, {
               "Figure", 0}}, FontFamily -> "Helvetica", FontSize -> 16], 
            Cell[
             StyleData["Subsubtitle", "Presentation"], 
             CellMargins -> {{24, 10}, {20, 20}}, LineSpacing -> {1, 0}, 
             FontSize -> 24], 
            Cell[
             StyleData["Subsubtitle", "Condensed"], 
             CellMargins -> {{8, 10}, {8, 8}}, FontSize -> 12], 
            Cell[
             StyleData["Subsubtitle", "SlideShow"]], 
            Cell[
             StyleData["Subsubtitle", "Printout"], 
             CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 14]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Section"], CellFrame -> {{0, 0}, {0, 1}}, 
             CellMargins -> {{10, Inherited}, {8, 25}}, 
             CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> 
             False, CellFrameMargins -> 4, 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}, LineSpacing -> {1, 2}, LanguageCategory -> 
             "NaturalLanguage", CounterIncrements -> "Section", 
             CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, 
             FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Bold"],
             
            Cell[
             StyleData["Section", "Presentation"], 
             CellMargins -> {{40, 10}, {11, 32}}, LineSpacing -> {1, 0}, 
             FontSize -> 24], 
            Cell[
             StyleData["Section", "Condensed"], 
             CellMargins -> {{18, Inherited}, {6, 12}}, FontSize -> 12], 
            Cell[
             StyleData["Section", "SlideShow"]], 
            Cell[
             StyleData["Section", "Printout"], 
             CellMargins -> {{2, 0}, {7, 22}}, FontSize -> 14]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SubsectionFirst"], 
             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", Background -> 
             RGBColor[0.893797, 0.937102, 1]], 
            Cell[
             StyleData["SubsectionFirst", "Presentation"], 
             CellMargins -> {{36, 10}, {11, 32}}, LineSpacing -> {1, 0}, 
             FontSize -> 22], 
            Cell[
             StyleData["SubsectionFirst", "Condensed"], 
             CellMargins -> {{16, Inherited}, {6, 12}}, FontSize -> 12], 
            Cell[
             StyleData["SubsectionFirst", "SlideShow"]], 
            Cell[
             StyleData["SubsectionFirst", "Printout"], 
             CellMargins -> {{9, 0}, {7, 22}}, FontSize -> 12]}, Closed]], 
         Cell[
          CellGroupData[{
            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["Subsection", "Presentation"], 
             CellMargins -> {{36, 10}, {11, 32}}, LineSpacing -> {1, 0}, 
             FontSize -> 22], 
            Cell[
             StyleData["Subsection", "Condensed"], 
             CellMargins -> {{16, Inherited}, {6, 12}}, FontSize -> 12], 
            Cell[
             StyleData["Subsection", "SlideShow"]], 
            Cell[
             StyleData["Subsection", "Printout"], 
             CellMargins -> {{9, 0}, {7, 22}}, FontSize -> 12]}, Closed]], 
         Cell[
          CellGroupData[{
            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 -> "Times", 
             FontWeight -> "Bold"], 
            Cell[
             StyleData["Subsubsection", "Presentation"], 
             CellMargins -> {{34, 10}, {11, 26}}, LineSpacing -> {1, 0}, 
             FontSize -> 18], 
            Cell[
             StyleData["Subsubsection", "Condensed"], 
             CellMargins -> {{17, Inherited}, {6, 12}}, FontSize -> 10], 
            Cell[
             StyleData["Subsubsection", "SlideShow"]], 
            Cell[
             StyleData["Subsubsection", "Printout"], 
             CellMargins -> {{9, 0}, {7, 14}}, FontSize -> 11]}, Closed]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Body Text", "Section"], 
         Cell[
          CellGroupData[{
            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["Text", "Presentation"], 
             CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, 
             FontSize -> 16], 
            Cell[
             StyleData["Text", "Condensed"], CellMargins -> {{8, 10}, {6, 6}},
              LineSpacing -> {1, 1}, FontSize -> 11], 
            Cell[
             StyleData["Text", "SlideShow"]], 
            Cell[
             StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, 
             TextJustification -> 0.5, Hyphenation -> True, FontSize -> 10]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SmallText"], CellMargins -> {{25, 10}, {6, 6}}, 
             DefaultNewInlineCellStyle -> "None", LineSpacing -> {1, 3}, 
             LanguageCategory -> "NaturalLanguage", CounterIncrements -> 
             "SmallText", FontFamily -> "Helvetica", FontSize -> 9], 
            Cell[
             StyleData["SmallText", "Presentation"], 
             CellMargins -> {{24, 10}, {8, 8}}, LineSpacing -> {1, 5}, 
             FontSize -> 12], 
            Cell[
             StyleData["SmallText", "Condensed"], 
             CellMargins -> {{8, 10}, {5, 5}}, LineSpacing -> {1, 2}, 
             FontSize -> 9], 
            Cell[
             StyleData["SmallText", "SlideShow"]], 
            Cell[
             StyleData["SmallText", "Printout"], 
             CellMargins -> {{2, 2}, {5, 5}}, TextJustification -> 0.5, 
             Hyphenation -> True, FontSize -> 7]}, Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Input/Output", "Section"], 
         Cell[
         "The cells in this section define styles used for input and output \
to the kernel.  Be careful when modifying, renaming, or removing these \
styles, because the front end associates special meanings with these style \
names. Some attributes for these styles are actually set in FormatType Styles \
(in the last section of this stylesheet). ", "Text"], 
         Cell[
          CellGroupData[{
            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["Input", "Presentation"], 
             CellMargins -> {{72, Inherited}, {8, 10}}, LineSpacing -> {1, 0},
              FontSize -> 16], 
            Cell[
             StyleData["Input", "Condensed"], 
             CellMargins -> {{40, 10}, {2, 3}}, FontSize -> 11], 
            Cell[
             StyleData["Input", "SlideShow"]], 
            Cell[
             StyleData["Input", "Printout"], CellMargins -> {{39, 0}, {4, 6}},
              LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, 
           Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["InputOnly"], CellMargins -> {{25, 10}, {7, 7}}, 
             Evaluatable -> True, CellGroupingRules -> "InputGrouping", 
             CellHorizontalScrolling -> True, 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", StyleMenuListing -> None, 
             FontWeight -> "Bold"], 
            Cell[
             StyleData["InputOnly", "Presentation"], 
             CellMargins -> {{72, Inherited}, {8, 10}}, LineSpacing -> {1, 0},
              FontSize -> 16], 
            Cell[
             StyleData["InputOnly", "Condensed"], 
             CellMargins -> {{40, 10}, {2, 3}}, FontSize -> 11], 
            Cell[
             StyleData["InputOnly", "SlideShow"]], 
            Cell[
             StyleData["InputOnly", "Printout"], 
             CellMargins -> {{39, 0}, {4, 6}}, 
             LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Output"], CellMargins -> {{30, 10}, {7, 5}}, 
             CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping",
              CellHorizontalScrolling -> True, PageBreakWithin -> False, 
             GroupPageBreakWithin -> False, GeneratedCell -> True, 
             CellAutoOverwrite -> True, DefaultFormatType -> 
             DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> 
             True, HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, 
             AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> 
             InputForm, CounterIncrements -> "Output"], 
            Cell[
             StyleData["Output", "Presentation"], 
             CellMargins -> {{72, Inherited}, {10, 8}}, LineSpacing -> {1, 0},
              FontSize -> 16], 
            Cell[
             StyleData["Output", "Condensed"], 
             CellMargins -> {{41, Inherited}, {3, 2}}, FontSize -> 11], 
            Cell[
             StyleData["Output", "SlideShow"]], 
            Cell[
             StyleData["Output", "Printout"], 
             CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Message"], 
             CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, 
             CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, 
             GroupPageBreakWithin -> False, GeneratedCell -> True, 
             CellAutoOverwrite -> True, ShowCellLabel -> False, 
             DefaultFormatType -> DefaultOutputFormatType, 
             "TwoByteSyntaxCharacterAutoReplacement" -> True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, 
             AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> 
             InputForm, CounterIncrements -> "Message", StyleMenuListing -> 
             None, FontFamily -> "Helvetica", FontSize -> 10, FontColor -> 
             RGBColor[0.6, 0.100008, 0.100008]], 
            Cell[
             StyleData["Message", "Presentation"], 
             CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, 
             LineSpacing -> {1, 0}, FontSize -> 16], 
            Cell[
             StyleData["Message", "Condensed"], 
             CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, 
             FontSize -> 11], 
            Cell[
             StyleData["Message", "SlideShow"]], 
            Cell[
             StyleData["Message", "Printout"], 
             CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, 
             FontSize -> 7, FontColor -> GrayLevel[0]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Print"], 
             CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, 
             CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> 
             True, PageBreakWithin -> False, GroupPageBreakWithin -> False, 
             GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> 
             False, DefaultFormatType -> DefaultOutputFormatType, 
             "TwoByteSyntaxCharacterAutoReplacement" -> True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, 
             AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> 
             InputForm, CounterIncrements -> "Print", StyleMenuListing -> 
             None], 
            Cell[
             StyleData["Print", "Presentation"], 
             CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, 
             LineSpacing -> {1, 0}, FontSize -> 16], 
            Cell[
             StyleData["Print", "Condensed"], 
             CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, 
             FontSize -> 11], 
            Cell[
             StyleData["Print", "SlideShow"]], 
            Cell[
             StyleData["Print", "Printout"], 
             CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, 
             FontSize -> 8]}, Closed]], 
         Cell[
          CellGroupData[{
            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 -> "Courier", FontSize -> 
             10], 
            Cell[
             StyleData["Graphics", "Presentation"], 
             ImageMargins -> {{62, Inherited}, {Inherited, 0}}], 
            Cell[
             StyleData["Graphics", "Condensed"], 
             ImageMargins -> {{38, Inherited}, {Inherited, 0}}, Magnification -> 
             0.6], 
            Cell[
             StyleData["Graphics", "SlideShow"]], 
            Cell[
             StyleData["Graphics", "Printout"], 
             ImageMargins -> {{30, Inherited}, {Inherited, 0}}, Magnification -> 
             0.8]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["CellLabel"], LanguageCategory -> None, 
             StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 
             9, FontColor -> RGBColor[0.269993, 0.308507, 0.6]], 
            Cell[
             StyleData["CellLabel", "Presentation"], FontSize -> 12], 
            Cell[
             StyleData["CellLabel", "Condensed"], FontSize -> 9], 
            Cell[
             StyleData["CellLabel", "SlideShow"]], 
            Cell[
             StyleData["CellLabel", "Printout"], FontFamily -> "Courier", 
             FontSize -> 8, FontSlant -> "Italic", FontColor -> 
             GrayLevel[0]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["FrameLabel"], LanguageCategory -> None, 
             StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 
             9], 
            Cell[
             StyleData["FrameLabel", "Presentation"], FontSize -> 12], 
            Cell[
             StyleData["FrameLabel", "Condensed"], FontSize -> 9], 
            Cell[
             StyleData["FrameLabel", "SlideShow"]], 
            Cell[
             StyleData["FrameLabel", "Printout"], FontFamily -> "Courier", 
             FontSize -> 8, FontSlant -> "Italic", FontColor -> 
             GrayLevel[0]]}, Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Inline Formatting", "Section"], 
         Cell[
         "These styles are for modifying individual words or letters in a \
cell exclusive of the cell tag.", "Text"], 
         Cell[
          StyleData["RM"], StyleMenuListing -> None, FontWeight -> "Plain", 
          FontSlant -> "Plain"], 
         Cell[
          StyleData["BF"], StyleMenuListing -> None, FontWeight -> "Bold"], 
         Cell[
          StyleData["IT"], StyleMenuListing -> None, FontSlant -> "Italic"], 
         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", FontSlant -> "Plain"], 
         Cell[
          StyleData["TBI"], StyleMenuListing -> None, FontFamily -> "Times", 
          FontWeight -> "Bold", FontSlant -> "Italic"], 
         Cell[
          StyleData["MR"], "TwoByteSyntaxCharacterAutoReplacement" -> True, 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> 
          "Plain", FontSlant -> "Plain"], 
         Cell[
          StyleData["MO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> 
          "Plain", FontSlant -> "Italic"], 
         Cell[
          StyleData["MB"], "TwoByteSyntaxCharacterAutoReplacement" -> True, 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> 
          "Bold", FontSlant -> "Plain"], 
         Cell[
          StyleData["MBO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> 
          "Bold", FontSlant -> "Italic"], 
         Cell[
          StyleData["SR"], StyleMenuListing -> None, FontFamily -> 
          "Helvetica", FontWeight -> "Plain", FontSlant -> "Plain"], 
         Cell[
          StyleData["SO"], StyleMenuListing -> None, FontFamily -> 
          "Helvetica", FontWeight -> "Plain", FontSlant -> "Italic"], 
         Cell[
          StyleData["SB"], StyleMenuListing -> None, FontFamily -> 
          "Helvetica", FontWeight -> "Bold", FontSlant -> "Plain"], 
         Cell[
          StyleData["SBO"], StyleMenuListing -> None, FontFamily -> 
          "Helvetica", FontWeight -> "Bold", FontSlant -> "Italic"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SO10"], StyleMenuListing -> None, FontFamily -> 
             "Helvetica", FontSize -> 10, FontWeight -> "Plain", FontSlant -> 
             "Italic"], 
            Cell[
             StyleData["SO10", "Printout"], StyleMenuListing -> None, 
             FontFamily -> "Helvetica", FontSize -> 7, FontWeight -> "Plain", 
             FontSlant -> "Italic"]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Inert"], StyleMenuListing -> None, Background -> 
             RGBColor[0.870588, 0.905882, 0.972549]], 
            Cell[
             StyleData["Inert", "Printout"], StyleMenuListing -> None, 
             Background -> GrayLevel[1]]}, Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Formulas and Programming", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}}, 
             CellHorizontalScrolling -> True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Formula", ScriptLevel -> 1, SingleLetterItalics -> True], 
            Cell[
             StyleData["InlineFormula", "Presentation"], 
             CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, 
             FontSize -> 16], 
            Cell[
             StyleData["InlineFormula", "Condensed"], 
             CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
             FontSize -> 11], 
            Cell[
             StyleData["InlineFormula", "SlideShow"]], 
            Cell[
             StyleData["InlineFormula", "Printout"], 
             CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 10]}, Closed]], 
         Cell[
          CellGroupData[{
            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["DisplayFormula", "Presentation"], 
             LineSpacing -> {1, 5}, FontSize -> 16], 
            Cell[
             StyleData["DisplayFormula", "Condensed"], LineSpacing -> {1, 1}, 
             FontSize -> 11], 
            Cell[
             StyleData["DisplayFormula", "SlideShow"]], 
            Cell[
             StyleData["DisplayFormula", "Printout"], FontSize -> 10]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            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["Program", "Presentation"], 
             CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, 
             FontSize -> 16], 
            Cell[
             StyleData["Program", "Condensed"], 
             CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
             FontSize -> 11], 
            Cell[
             StyleData["Program", "SlideShow"]], 
            Cell[
             StyleData["Program", "Printout"], 
             CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 9]}, Closed]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell["Outline Styles", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Outline1"], CellMargins -> {{60, 10}, {7, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 50}, 
             ParagraphIndent -> -38, CounterIncrements -> "Outline1", 
             CounterAssignments -> {{"Outline2", 0}, {"Outline3", 0}, {
               "Outline4", 0}}, FontSize -> 18, FontWeight -> "Bold", 
             CounterBoxOptions -> {
              CounterFunction :> Global`CapitalRomanNumeral}], 
            Cell[
             StyleData["Outline1", "SlideShow"]], 
            Cell[
             StyleData["Outline1", "Printout"], 
             CounterBoxOptions -> {
              CounterFunction :> Global`CapitalRomanNumeral}]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Outline2"], CellMargins -> {{90, 10}, {7, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, 
             ParagraphIndent -> -27, CounterIncrements -> "Outline2", 
             CounterAssignments -> {{"Outline3", 0}, {"Outline4", 0}}, 
             FontSize -> 15, FontWeight -> "Bold", 
             CounterBoxOptions -> {CounterFunction :> (Part[
                 CharacterRange["A", "Z"], #]& )}], 
            Cell[
             StyleData["Outline2", "SlideShow"]], 
            Cell[
             StyleData["Outline2", "Printout"], 
             CounterBoxOptions -> {CounterFunction :> (Part[
                 CharacterRange["A", "Z"], #]& )}]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Outline3"], CellMargins -> {{120, 10}, {7, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 70}, 
             ParagraphIndent -> -21, CounterIncrements -> "Outline3", 
             CounterAssignments -> {{"Outline4", 0}}, FontSize -> 12, 
             CounterBoxOptions -> {CounterFunction :> Identity}], 
            Cell[
             StyleData["Outline3", "SlideShow"]], 
            Cell[
             StyleData["Outline3", "Printout"], 
             CounterBoxOptions -> {CounterFunction :> Identity}]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Outline4"], CellMargins -> {{150, 10}, {7, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 80}, 
             ParagraphIndent -> -18, CounterIncrements -> "Outline4", 
             FontSize -> 10, CounterBoxOptions -> {CounterFunction :> (Part[
                 CharacterRange["a", "z"], #]& )}], 
            Cell[
             StyleData["Outline4", "SlideShow"]], 
            Cell[
             StyleData["Outline4", "Printout"]]}, Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Hyperlink Styles", "Section"], 
         Cell[
         "The cells below define styles useful for making hypertext \
ButtonBoxes.  The \"Hyperlink\" style is for links within the same Notebook, \
or between Notebooks.", "Text"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Hyperlink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, FontColor -> 
             RGBColor[0.269993, 0.308507, 0.6], 
             ButtonBoxOptions -> {
              Active -> True, ButtonFrame -> "None", 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> 
               ButtonData}], 
            Cell[
             StyleData["Hyperlink", "Presentation"], FontSize -> 16], 
            Cell[
             StyleData["Hyperlink", "Condensed"], FontSize -> 11], 
            Cell[
             StyleData["Hyperlink", "SlideShow"]], 
            Cell[
             StyleData["Hyperlink", "Printout"], FontSize -> 10, 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Closed]], 
         Cell[
         "The following styles are for linking automatically to the on-line \
help system.", "Text"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["MainBookLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, FontColor -> 
             RGBColor[0.269993, 0.308507, 0.6], 
             ButtonBoxOptions -> {
              Active -> True, ButtonFrame -> "None", 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], 
            Cell[
             StyleData["MainBookLink", "Presentation"], FontSize -> 16], 
            Cell[
             StyleData["MainBookLink", "Condensed"], FontSize -> 11], 
            Cell[
             StyleData["MainBookLink", "SlideShow"]], 
            Cell[
             StyleData["MainBookLink", "Printout"], FontSize -> 10, 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["AddOnsLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", 
             FontColor -> RGBColor[0.269993, 0.308507, 0.6], 
             ButtonBoxOptions -> {
              Active -> True, ButtonFrame -> "None", 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], 
            Cell[
             StyleData["AddOnsLink", "Presentation"], FontSize -> 16], 
            Cell[
             StyleData["AddOnsLink", "Condensed"], FontSize -> 11], 
            Cell[
             StyleData["AddOnsLink", "SlideShow"]], 
            Cell[
             StyleData["AddOnsLink", "Printout"], FontSize -> 10, 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["RefGuideLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", 
             FontColor -> RGBColor[0.269993, 0.308507, 0.6], 
             ButtonBoxOptions -> {
              Active -> True, ButtonFrame -> "None", 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], 
            Cell[
             StyleData["RefGuideLink", "Presentation"], FontSize -> 16], 
            Cell[
             StyleData["RefGuideLink", "Condensed"], FontSize -> 11], 
            Cell[
             StyleData["RefGuideLink", "SlideShow"]], 
            Cell[
             StyleData["RefGuideLink", "Printout"], FontSize -> 10, 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["RefGuideLinkText"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, FontColor -> 
             RGBColor[0.269993, 0.308507, 0.6], 
             ButtonBoxOptions -> {
              Active -> True, ButtonFrame -> "None", 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], 
            Cell[
             StyleData["RefGuideLinkText", "Presentation"], FontSize -> 16], 
            Cell[
             StyleData["RefGuideLinkText", "Condensed"], FontSize -> 11], 
            Cell[
             StyleData["RefGuideLinkText", "SlideShow"]], 
            Cell[
             StyleData["RefGuideLinkText", "Printout"], FontSize -> 10, 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["GettingStartedLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, FontColor -> 
             RGBColor[0.269993, 0.308507, 0.6], 
             ButtonBoxOptions -> {
              Active -> True, ButtonFrame -> "None", 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}], 
            Cell[
             StyleData["GettingStartedLink", "Presentation"], FontSize -> 16],
             
            Cell[
             StyleData["GettingStartedLink", "Condensed"], FontSize -> 11], 
            Cell[
             StyleData["GettingStartedLink", "SlideShow"]], 
            Cell[
             StyleData["GettingStartedLink", "Printout"], FontSize -> 10, 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DemosLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, FontColor -> 
             RGBColor[0.269993, 0.308507, 0.6], 
             ButtonBoxOptions -> {
              Active -> True, ButtonFrame -> "None", 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["Demos", #]}]& )}], 
            Cell[
             StyleData["DemosLink", "SlideShow"]], 
            Cell[
             StyleData["DemosLink", "Printout"], 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["TourLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, FontColor -> 
             RGBColor[0.269993, 0.308507, 0.6], 
             ButtonBoxOptions -> {
              Active -> True, ButtonFrame -> "None", 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["Tour", #]}]& )}], 
            Cell[
             StyleData["TourLink", "SlideShow"]], 
            Cell[
             StyleData["TourLink", "Printout"], 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["OtherInformationLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, FontColor -> 
             RGBColor[0.269993, 0.308507, 0.6], 
             ButtonBoxOptions -> {
              Active -> True, ButtonFrame -> "None", 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], 
            Cell[
             StyleData["OtherInformationLink", "Presentation"], FontSize -> 
             16], 
            Cell[
             StyleData["OtherInformationLink", "Condensed"], FontSize -> 11], 
            
            Cell[
             StyleData["OtherInformationLink", "SlideShow"]], 
            Cell[
             StyleData["OtherInformationLink", "Printout"], FontSize -> 10, 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["MasterIndexLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, FontColor -> 
             RGBColor[0.269993, 0.308507, 0.6], 
             ButtonBoxOptions -> {
              Active -> True, ButtonFrame -> "None", 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["MasterIndex", #]}]& )}], 
            Cell[
             StyleData["MasterIndexLink", "SlideShow"]], 
            Cell[
             StyleData["MasterIndexLink", "Printout"], 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Headers and Footers", "Section"], 
         Cell[
          StyleData["Header"], CellMargins -> {{0, 0}, {4, 1}}, 
          DefaultNewInlineCellStyle -> "None", LanguageCategory -> 
          "NaturalLanguage", StyleMenuListing -> None, FontSize -> 10, 
          FontSlant -> "Italic"], 
         Cell[
          StyleData["Footer"], CellMargins -> {{0, 0}, {0, 4}}, 
          DefaultNewInlineCellStyle -> "None", LanguageCategory -> 
          "NaturalLanguage", StyleMenuListing -> None, FontSize -> 9, 
          FontSlant -> "Italic"], 
         Cell[
          StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, 
          StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 10]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell["Palette Styles", "Section"], 
         Cell[
         "The cells below define styles that define standard ButtonFunctions, \
for use in palette buttons.", "Text"], 
         Cell[
          StyleData["Paste"], StyleMenuListing -> None, 
          ButtonStyleMenuListing -> Automatic, 
          ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
               FrontEnd`NotebookApply[
                FrontEnd`InputNotebook[], #, Placeholder]}]& )}], 
         Cell[
          StyleData["Evaluate"], StyleMenuListing -> None, 
          ButtonStyleMenuListing -> Automatic, 
          ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
               FrontEnd`NotebookApply[
                FrontEnd`InputNotebook[], #, All], 
               FrontEnd`SelectionEvaluate[
                FrontEnd`InputNotebook[], All]}]& )}], 
         Cell[
          StyleData["EvaluateCell"], StyleMenuListing -> None, 
          ButtonStyleMenuListing -> Automatic, 
          ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
               FrontEnd`NotebookApply[
                FrontEnd`InputNotebook[], #, All], 
               FrontEnd`SelectionMove[
                FrontEnd`InputNotebook[], All, Cell, 1], 
               FrontEnd`SelectionEvaluateCreateCell[
                FrontEnd`InputNotebook[], All]}]& )}], 
         Cell[
          StyleData["CopyEvaluate"], StyleMenuListing -> None, 
          ButtonStyleMenuListing -> Automatic, 
          ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
               FrontEnd`SelectionCreateCell[
                FrontEnd`InputNotebook[], All], 
               FrontEnd`NotebookApply[
                FrontEnd`InputNotebook[], #, All], 
               FrontEnd`SelectionEvaluate[
                FrontEnd`InputNotebook[], All]}]& )}], 
         Cell[
          StyleData["CopyEvaluateCell"], StyleMenuListing -> None, 
          ButtonStyleMenuListing -> Automatic, 
          ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
               FrontEnd`SelectionCreateCell[
                FrontEnd`InputNotebook[], All], 
               FrontEnd`NotebookApply[
                FrontEnd`InputNotebook[], #, All], 
               FrontEnd`SelectionEvaluateCreateCell[
                FrontEnd`InputNotebook[], All]}]& )}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Placeholder Styles", "Section"], 
         Cell[
         "The cells below define styles useful for making placeholder objects \
in palette templates.", "Text"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Placeholder"], Placeholder -> True, StyleMenuListing -> 
             None, FontSlant -> "Italic", FontColor -> 
             RGBColor[0.890623, 0.864698, 0.384756], 
             TagBoxOptions -> {
              Editable -> False, Selectable -> False, StripWrapperBoxes -> 
               False}], 
            Cell[
             StyleData["Placeholder", "Presentation"]], 
            Cell[
             StyleData["Placeholder", "Condensed"]], 
            Cell[
             StyleData["Placeholder", "SlideShow"]], 
            Cell[
             StyleData["Placeholder", "Printout"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["PrimaryPlaceholder"], StyleMenuListing -> None, 
             DrawHighlighted -> True, FontSlant -> "Italic", Background -> 
             RGBColor[0.912505, 0.891798, 0.507774], 
             TagBoxOptions -> {
              Editable -> False, Selectable -> False, StripWrapperBoxes -> 
               False}], 
            Cell[
             StyleData["PrimaryPlaceholder", "Presentation"]], 
            Cell[
             StyleData["PrimaryPlaceholder", "Condensed"]], 
            Cell[
             StyleData["PrimaryPlaceholder", "SlideShow"]], 
            Cell[
             StyleData["PrimaryPlaceholder", "Printout"]]}, Closed]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell["FormatType Styles", "Section"], 
         Cell[
         "The cells below define styles that are mixed in with the styles of \
most cells.  If a cell's FormatType matches the name of one of the styles \
defined below, then that style is applied between the cell's style and its \
own options. This is particularly true of Input and Output.", "Text"], 
         Cell[
          StyleData["CellExpression"], PageWidth -> DirectedInfinity[1], 
          CellMargins -> {{6, Inherited}, {Inherited, Inherited}}, 
          ShowCellLabel -> False, ShowSpecialCharacters -> False, 
          AllowInlineCells -> False, Hyphenation -> False, 
          AutoItalicWords -> {}, StyleMenuListing -> None, FontFamily -> 
          "Courier", FontSize -> 12, Background -> GrayLevel[1]], 
         Cell[
          StyleData["InputForm"], InputAutoReplacements -> {}, 
          AllowInlineCells -> False, Hyphenation -> False, StyleMenuListing -> 
          None, FontFamily -> "Courier"], 
         Cell[
          StyleData["OutputForm"], PageWidth -> DirectedInfinity[1], 
          TextAlignment -> Left, LineSpacing -> {0.6, 1}, StyleMenuListing -> 
          None, FontFamily -> "Courier"], 
         Cell[
          StyleData["StandardForm"], 
          InputAutoReplacements -> {
           "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> 
            "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", 
            "==" -> "\[Equal]", Inherited}, 
          "TwoByteSyntaxCharacterAutoReplacement" -> True, 
          LineSpacing -> {1.25, 0}, StyleMenuListing -> None, FontFamily -> 
          "Courier"], 
         Cell[
          StyleData["TraditionalForm"], 
          InputAutoReplacements -> {
           "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> 
            "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", 
            "==" -> "\[Equal]", Inherited}, 
          "TwoByteSyntaxCharacterAutoReplacement" -> True, 
          LineSpacing -> {1.25, 0}, SingleLetterItalics -> True, 
          TraditionalFunctionNotation -> True, DelimiterMatching -> None, 
          StyleMenuListing -> None], 
         Cell[
         "The style defined below is mixed in to any cell that is in an \
inline cell within another.", "Text"], 
         Cell[
          StyleData["InlineCell"], LanguageCategory -> "Formula", ScriptLevel -> 
          1, StyleMenuListing -> None], 
         Cell[
          StyleData["InlineCellEditing"], StyleMenuListing -> None, 
          Background -> RGBColor[0.964706, 0.929412, 0.839216]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Automatic Styles", "Section"], 
         Cell[
         "The cells below define styles that are used to affect the display \
of certain types of objects in typeset expressions.  For example, \
\"UnmatchedBracket\" style defines how unmatched bracket, curly bracket, and \
parenthesis characters are displayed (typically by coloring them to make them \
stand out).", "Text"], 
         Cell[
          StyleData["UnmatchedBracket"], StyleMenuListing -> None, FontColor -> 
          RGBColor[0.760006, 0.330007, 0.8]], 
         Cell[
          StyleData["Completions"], StyleMenuListing -> None, FontFamily -> 
          "Courier"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles from HelpBrowser", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["MathCaption"], CellFrame -> {{0, 0}, {0, 0.5}}, 
             CellMargins -> {{40, 12}, {2, 15}}, PageBreakBelow -> False, 
             CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> 
             GrayLevel[0.700008], CellFrameLabelMargins -> 4, 
             LineSpacing -> {1, 1}, ParagraphSpacing -> {0, 8}, 
             StyleMenuListing -> None, FontColor -> GrayLevel[0.2]], 
            Cell[
             StyleData["MathCaption", "Presentation"], FontSize -> 18], 
            Cell[
             StyleData["MathCaption", "SlideShow"]], 
            Cell[
             StyleData["MathCaption", "Printout"], 
             CellMargins -> {{39, 0}, {0, 14}}, Hyphenation -> True, FontSize -> 
             9, FontColor -> GrayLevel[0]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["ObjectName"], ShowCellBracket -> True, 
             CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, 
             CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, 
             GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, 
             CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, 
             DefaultFormatType -> DefaultInputFormatType, 
             ShowSpecialCharacters -> Automatic, 
             "TwoByteSyntaxCharacterAutoReplacement" -> True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> 
             True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> 
             "Bold"], 
            Cell[
             StyleData["ObjectName", "Presentation"], FontSize -> 18], 
            Cell[
             StyleData["ObjectName", "SlideShow"]], 
            Cell[
             StyleData["ObjectName", "Printout"], ShowCellBracket -> False, 
             CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Usage"], ShowCellBracket -> True, 
             CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, 
             CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, 
             GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, 
             CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, 
             DefaultFormatType -> DefaultInputFormatType, 
             ShowSpecialCharacters -> Automatic, 
             "TwoByteSyntaxCharacterAutoReplacement" -> True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> 
             True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> 
             "Bold"], 
            Cell[
             StyleData["Usage", "Presentation"], FontSize -> 18], 
            Cell[
             StyleData["Usage", "SlideShow"]], 
            Cell[
             StyleData["Usage", "Printout"], ShowCellBracket -> False, 
             CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Notes"], ShowCellBracket -> True, 
             CellMargins -> {{40, 4}, {8, 8}}, Evaluatable -> True, 
             CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, 
             GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, 
             CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, 
             DefaultFormatType -> DefaultInputFormatType, 
             ShowSpecialCharacters -> Automatic, 
             "TwoByteSyntaxCharacterAutoReplacement" -> True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> 
             True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> 
             "Bold"], 
            Cell[
             StyleData["Notes", "Presentation"], FontSize -> 18], 
            Cell[
             StyleData["Notes", "SlideShow"]], 
            Cell[
             StyleData["Notes", "Printout"], ShowCellBracket -> False, 
             CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["InlineOutput"], ShowCellBracket -> True, 
             CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, 
             CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, 
             GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, 
             CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, 
             DefaultFormatType -> DefaultInputFormatType, 
             ShowSpecialCharacters -> Automatic, 
             "TwoByteSyntaxCharacterAutoReplacement" -> True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> 
             True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> 
             "Bold"], 
            Cell[
             StyleData["InlineOutput", "Presentation"], FontSize -> 18], 
            Cell[
             StyleData["InlineOutput", "SlideShow"]], 
            Cell[
             StyleData["InlineOutput", "Printout"], ShowCellBracket -> False, 
             CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Emphasis Boxes and Pictures", "Subsection"], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Box"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941],
                 StyleMenuListing -> None, Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, 
                GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["Box", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["Box", "SlideShow"]], 
               Cell[
                StyleData["Box", "Printout"], CellMargins -> {{2, 0}, {0, 8}},
                 FontSize -> 10, Background -> GrayLevel[0.900008]]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["DoubleBox"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941],
                 StyleMenuListing -> None, Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Top}}, "RowsIndexed" -> {}}, 
                  GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[1.4]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["DoubleBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["DoubleBox", "SlideShow"]], 
               Cell[
                StyleData["DoubleBox", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[0.900008]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["1ColumnBox"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941],
                 LineIndent -> 0, StyleMenuListing -> None, Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, 
                GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["1ColumnBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["1ColumnBox", "SlideShow"]], 
               Cell[
                StyleData["1ColumnBox", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[0.900008]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["2ColumnBox"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941],
                 SingleLetterItalics -> False, LineIndent -> 0, 
                StyleMenuListing -> None, Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, 
                GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.31], {
                    Scaled[0.67]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["2ColumnBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["2ColumnBox", "SlideShow"]], 
               Cell[
                StyleData["2ColumnBox", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9, Background -> 
                GrayLevel[0.900008]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["2ColumnEvenBox"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941],
                 LineIndent -> 0, StyleMenuListing -> None, Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, 
                GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{
                    Scaled[0.46]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["2ColumnEvenBox", "Presentation"], FontSize -> 18], 
               
               Cell[
                StyleData["2ColumnEvenBox", "SlideShow"]], 
               Cell[
                StyleData["2ColumnEvenBox", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[0.900008]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["2ColumnSmallBox"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941],
                 LineIndent -> 0, StyleMenuListing -> None, Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {{
                    Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[1.0499999999999998`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["2ColumnSmallBox", "Presentation"], FontSize -> 18],
                
               Cell[
                StyleData["2ColumnSmallBox", "SlideShow"]], 
               Cell[
                StyleData["2ColumnSmallBox", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[0.900008]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["3ColumnBox"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941],
                 LineIndent -> 0, StyleMenuListing -> None, Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, 
                GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{
                    Scaled[0.32]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["3ColumnBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["3ColumnBox", "SlideShow"]], 
               Cell[
                StyleData["3ColumnBox", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[0.900008]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["3ColumnSmallBox"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941],
                 LineIndent -> 0, StyleMenuListing -> None, Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {Right, Center, {Left}}, 
                    "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
                    "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{
                    Scaled[0.24]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[1.0499999999999998`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["3ColumnSmallBox", "Presentation"], FontSize -> 18],
                
               Cell[
                StyleData["3ColumnSmallBox", "SlideShow"]], 
               Cell[
                StyleData["3ColumnSmallBox", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[0.900008]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["4ColumnBox"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941],
                 SingleLetterItalics -> False, LineIndent -> 0, 
                StyleMenuListing -> None, Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, 
                GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.13], 
                    Scaled[0.35], 
                    Scaled[0.13], {
                    Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["4ColumnBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["4ColumnBox", "SlideShow"]], 
               Cell[
                StyleData["4ColumnBox", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[0.900008]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["5ColumnBox"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941],
                 LineIndent -> 0, StyleMenuListing -> None, Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, 
                GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{
                    Scaled[0.202]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
                     "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["5ColumnBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["5ColumnBox", "SlideShow"]], 
               Cell[
                StyleData["5ColumnBox", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9, Background -> 
                GrayLevel[0.900008]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["6ColumnBox"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941],
                 LineIndent -> 0, StyleMenuListing -> None, Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, 
                GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.12], 
                    Scaled[0.22], 
                    Scaled[0.12], 
                    Scaled[0.12], 
                    Scaled[0.22], {
                    Scaled[0.12]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["6ColumnBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["6ColumnBox", "SlideShow"]], 
               Cell[
                StyleData["6ColumnBox", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[0.900008]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["FramedBox"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, PageBreakWithin -> False, CellFrameColor -> 
                RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, 
                AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> 
                None, FontWeight -> "Plain", Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.6]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["FramedBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["FramedBox", "SlideShow"]], 
               Cell[
                StyleData["FramedBox", "Printout"], 
                CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[1]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["DefinitionBox"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, PageBreakWithin -> False, CellFrameColor -> 
                RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, 
                AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> 
                None, FontWeight -> "Plain", Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.4], {
                    Scaled[0.6]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.6]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["DefinitionBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["DefinitionBox", "SlideShow"]], 
               Cell[
                StyleData["DefinitionBox", "Printout"], 
                CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[1]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["DefinitionBox3Col"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, PageBreakWithin -> False, CellFrameColor -> 
                RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, 
                AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> 
                None, FontWeight -> "Plain", Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.35], 
                    Scaled[0.2], {
                    Scaled[0.45]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.6]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["DefinitionBox3Col", "Presentation"], FontSize -> 
                18], 
               Cell[
                StyleData["DefinitionBox3Col", "SlideShow"]], 
               Cell[
                StyleData["DefinitionBox3Col", "Printout"], 
                CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[1]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["DefinitionBox4Col"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, PageBreakWithin -> False, CellFrameColor -> 
                RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, 
                AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> 
                None, FontWeight -> "Plain", Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.15], 
                    Scaled[0.35], 
                    Scaled[0.15], {
                    Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.6]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["DefinitionBox4Col", "Presentation"], FontSize -> 
                18], 
               Cell[
                StyleData["DefinitionBox4Col", "SlideShow"]], 
               Cell[
                StyleData["DefinitionBox4Col", "Printout"], 
                CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[1]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["DefinitionBox5Col"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, PageBreakWithin -> False, CellFrameColor -> 
                RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, 
                AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> 
                None, FontWeight -> "Plain", Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {{
                    Scaled[0.2]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.6]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["DefinitionBox5Col", "Presentation"], FontSize -> 
                18], 
               Cell[
                StyleData["DefinitionBox5Col", "SlideShow"]], 
               Cell[
                StyleData["DefinitionBox5Col", "Printout"], 
                CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[1]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["DefinitionBox6Col"], CellFrame -> 0.5, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, PageBreakWithin -> False, CellFrameColor -> 
                RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, 
                AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> 
                None, FontWeight -> "Plain", Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.13], 
                    Scaled[0.24], 
                    Scaled[0.13], 
                    Scaled[0.13], 
                    Scaled[0.24], {
                    Scaled[0.13]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.6]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["DefinitionBox6Col", "Presentation"], FontSize -> 
                18], 
               Cell[
                StyleData["DefinitionBox6Col", "SlideShow"]], 
               Cell[
                StyleData["DefinitionBox6Col", "Printout"], 
                CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> 
                GrayLevel[1]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["TopBox"], CellFrame -> {{0.5, 0.5}, {0, 0.5}}, 
                CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> 
                True, PageBreakBelow -> False, CellFrameColor -> 
                RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, 
                AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> 
                None, FontWeight -> "Plain", Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.31], {
                    Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.6]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["TopBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["TopBox", "SlideShow"]], 
               Cell[
                StyleData["TopBox", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, Background -> GrayLevel[1]]},
               Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["MiddleBox"], CellFrame -> {{0.5, 0.5}, {0, 0}}, 
                CellMargins -> {{27, 12}, {0, -7}}, CellHorizontalScrolling -> 
                True, PageBreakAbove -> False, PageBreakBelow -> False, 
                CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], 
                AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, 
                StyleMenuListing -> None, FontWeight -> "Plain", Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.31], {
                    Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.6]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["MiddleBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["MiddleBox", "SlideShow"]], 
               Cell[
                StyleData["MiddleBox", "Printout"], 
                CellMargins -> {{2, 0}, {0, 2}}, Background -> GrayLevel[1]]},
               Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["BottomBox"], CellFrame -> {{0.5, 0.5}, {0.5, 0}}, 
                CellMargins -> {{27, 12}, {0, -7}}, CellHorizontalScrolling -> 
                True, PageBreakAbove -> False, PageBreakBelow -> False, 
                CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], 
                AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, 
                StyleMenuListing -> None, FontWeight -> "Plain", Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.31], {
                    Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.6]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["BottomBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["BottomBox", "SlideShow"]], 
               Cell[
                StyleData["BottomBox", "Printout"], 
                CellMargins -> {{2, 0}, {0, -5}}, FontSize -> 10, Background -> 
                GrayLevel[1], 
                GridBoxOptions -> {
                 GridBoxItemSize -> {
                   "Columns" -> {{All}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{2.2}}, "RowsIndexed" -> {}}}]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["TopSpanBox"], CellFrame -> {{0.5, 0.5}, {0, 0.5}}, 
                CellMargins -> {{27, 12}, {-2, 8}}, CellHorizontalScrolling -> 
                True, PageBreakBelow -> False, CellFrameColor -> 
                RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, 
                AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> 
                None, FontWeight -> "Plain", Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.9], {
                    Scaled[0.03]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.6]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["TopSpanBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["TopSpanBox", "SlideShow"]], 
               Cell[
                StyleData["TopSpanBox", "Printout"], 
                CellMargins -> {{2, 0}, {-2, 8}}, FontSize -> 10, Background -> 
                GrayLevel[1]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["MiddleSpanBox"], CellFrame -> {{0.5, 0.5}, {0, 0}},
                 CellMargins -> {{27, 12}, {0, 0}}, CellHorizontalScrolling -> 
                True, PageBreakAbove -> False, PageBreakBelow -> False, 
                CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], 
                AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, 
                StyleMenuListing -> None, FontWeight -> "Plain", Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.9], {
                    Scaled[0.03]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.6]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["MiddleSpanBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["MiddleSpanBox", "SlideShow"]], 
               Cell[
                StyleData["MiddleSpanBox", "Printout"], 
                CellMargins -> {{2, 0}, {-5, 0}}, FontSize -> 10, Background -> 
                GrayLevel[1], 
                GridBoxOptions -> {
                 GridBoxItemSize -> {
                   "Columns" -> {{All}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{1.8}}, "RowsIndexed" -> {}}}]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Picture"], 
                CellMargins -> {{27, Inherited}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", CellHorizontalScrolling -> True, 
                StyleMenuListing -> None], 
               Cell[
                StyleData["Picture", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["Picture", "SlideShow"]], 
               Cell[
                StyleData["Picture", "Printout"], 
                CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 
                0.65]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["OpenCloseItemizedPicture"], 
                CellMargins -> {{88, 4}, {4, 4}}, 
                PrivateCellOptions -> {"DefaultCellGroupOpen" -> False}, 
                CellGroupingRules -> "GraphicsGrouping", 
                CellHorizontalScrolling -> True, StyleMenuListing -> None], 
               Cell[
                StyleData["OpenCloseItemizedPicture", "Presentation"], 
                FontSize -> 18], 
               Cell[
                StyleData["OpenCloseItemizedPicture", "SlideShow"]], 
               Cell[
                StyleData["OpenCloseItemizedPicture", "Printout"], 
                CellMargins -> {{76, 2}, {0, 0}}, 
                CellElementSpacings -> {
                 "CellMinHeight" -> 1, "ClosedCellHeight" -> 0}, CellOpen -> 
                False]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["ItemizedPicture"], 
                CellMargins -> {{88, 4}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", CellHorizontalScrolling -> True, 
                StyleMenuListing -> None], 
               Cell[
                StyleData["ItemizedPicture", "Presentation"], FontSize -> 18],
                
               Cell[
                StyleData["ItemizedPicture", "SlideShow"]], 
               Cell[
                StyleData["ItemizedPicture", "Printout"], 
                CellMargins -> {{77, 2}, {4, -4}}, Magnification -> 0.5]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["ListGraphic"], CellMargins -> {{88, 4}, {4, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", 
                CellHorizontalScrolling -> True, StyleMenuListing -> None], 
               Cell[
                StyleData["ListGraphic", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["ListGraphic", "SlideShow"]], 
               Cell[
                StyleData["ListGraphic", "Printout"], 
                CellMargins -> {{77, 2}, {4, -4}}, Magnification -> 0.5]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["ListNoteBox"], CellFrame -> 0.5, 
                CellMargins -> {{88, 12}, {8, 8}}, CellHorizontalScrolling -> 
                True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941],
                 LineIndent -> 0, StyleMenuListing -> None, Background -> 
                RGBColor[0.964706, 0.929412, 0.839216], 
                FrameBoxOptions -> {FrameMargins -> {{1, 1}, {1.5, 1.5}}}, 
                GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["ListNoteBox", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["ListNoteBox", "SlideShow"]], 
               Cell[
                StyleData["ListNoteBox", "Printout"], 
                CellMargins -> {{77, 4}, {6, 2}}, FontSize -> 10, Background -> 
                GrayLevel[0.900008]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["PictureGroup"], CellMargins -> {{41, 4}, {0, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", 
                CellHorizontalScrolling -> True, StyleMenuListing -> None], 
               Cell[
                StyleData["PictureGroup", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["PictureGroup", "SlideShow"]], 
               Cell[
                StyleData["PictureGroup", "Printout"], 
                CellMargins -> {{76, 2}, {0, 0}}, 
                CellElementSpacings -> {
                 "CellMinHeight" -> 1, "ClosedCellHeight" -> 0}, CellOpen -> 
                False]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Sound"], ShowCellBracket -> True, 
                CellMargins -> {{27, Inherited}, {0, 8}}, StyleMenuListing -> 
                None], 
               Cell[
                StyleData["Sound", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["Sound", "SlideShow"]], 
               Cell[
                StyleData["Sound", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10]}, Closed]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell["Tables", "Subsection"], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["2ColumnTable"], CellMargins -> {{35, 4}, {0, 8}}, 
                CellHorizontalScrolling -> True, LineIndent -> 0, 
                StyleMenuListing -> None, 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.34], {
                    Scaled[0.64]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["2ColumnTable", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["2ColumnTable", "SlideShow"]], 
               Cell[
                StyleData["2ColumnTable", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["2ColumnEvenTable"], 
                CellMargins -> {{35, 4}, {0, 8}}, CellHorizontalScrolling -> 
                True, LineIndent -> 0, StyleMenuListing -> None, 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {{
                    Scaled[0.49]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["2ColumnEvenTable", "Presentation"], FontSize -> 
                18], 
               Cell[
                StyleData["2ColumnEvenTable", "SlideShow"]], 
               Cell[
                StyleData["2ColumnEvenTable", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["3ColumnTable"], CellMargins -> {{35, 4}, {0, 8}}, 
                CellHorizontalScrolling -> True, LineIndent -> 0, 
                StyleMenuListing -> None, 
                GridBoxOptions -> {
                 GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
                  GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.28], 
                    Scaled[0.28], {
                    Scaled[0.43]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                    "RowsIndexed" -> {}}}], 
               Cell[
                StyleData["3ColumnTable", "Presentation"], FontSize -> 18], 
               Cell[
                StyleData["3ColumnTable", "SlideShow"]], 
               Cell[
                StyleData["3ColumnTable", "Printout"], 
                CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9]}, Closed]]}, 
           Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Slide Show Styles", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SlideShowNavigationBar"], Editable -> False, 
             CellFrame -> True, CellMargins -> {{0, 0}, {3, 3}}, 
             CellElementSpacings -> {"CellMinHeight" -> 0.8125}, 
             CellGroupingRules -> {"SectionGrouping", 30}, CellFrameMargins -> 
             False, CellFrameColor -> GrayLevel[1], CellFrameLabelMargins -> 
             False, TextAlignment -> Center, CounterIncrements -> 
             "SlideShowNavigationBar", StyleMenuListing -> None, FontSize -> 
             10, Magnification -> 1, Background -> GrayLevel[0.8], 
             GridBoxOptions -> {
              BaselinePosition -> Center, 
               GridBoxAlignment -> {
                "Columns" -> {
                  Center, Center, Center, Center, Center, Center, Right, {
                   Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
                 "RowsIndexed" -> {}}, 
               GridBoxItemSize -> {
                "Columns" -> {3.5, 3.5, 3.5, 3.5, 13, 5, {4}}, 
                 "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                 "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["SlideShowNavigationBar", "Presentation"]], 
            Cell[
             StyleData["SlideShowNavigationBar", "SlideShow"], Deletable -> 
             False, ShowCellBracket -> False, 
             CellMargins -> {{-1, -1}, {-1, -1}}, PageBreakAbove -> True, 
             CellFrameMargins -> {{1, 1}, {0, 0}}], 
            Cell[
             StyleData["SlideShowNavigationBar", "Printout"], 
             CellMargins -> {{18, 4}, {4, 4}}, LineSpacing -> {1, 3}, 
             FontSize -> 10]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SlideShowSection"], CellFrame -> {{0, 0}, {0, 0.5}}, 
             CellMargins -> {{0, 0}, {10, 0}}, 
             CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> 
             False, CellFrameMargins -> {{12, 4}, {6, 12}}, 
             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}, CounterIncrements -> "Section", 
             CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, 
             StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 
             18, FontWeight -> "Plain", FontColor -> GrayLevel[1], Background -> 
             RGBColor[0.408011, 0.440726, 0.8]], 
            Cell[
             StyleData["SlideShowSection", "Presentation"], 
             CellFrameMargins -> {{20, 10}, {10, 18}}, FontSize -> 27], 
            Cell[
             StyleData["SlideShowSection", "SlideShow"], ShowCellBracket -> 
             False, PageBreakAbove -> True], 
            Cell[
             StyleData["SlideShowSection", "Printout"], 
             CellMargins -> {{18, 30}, {0, 30}}, CellFrameMargins -> 5, 
             FontSize -> 14]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SlideHyperlink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, FontSize -> 26, FontColor -> 
             GrayLevel[0.400015], 
             ButtonBoxOptions -> {
              Active -> True, ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`NotebookLocate[#2]}]& ), ButtonMargins -> 0.5, 
               ButtonMinHeight -> 0.85, ButtonNote -> None}], 
            Cell[
             StyleData["SlideHyperlink", "Presentation"], 
             CellMargins -> {{14, 10}, {6, 12}}, FontSize -> 36], 
            Cell[
             StyleData["SlideHyperlink", "SlideShow"]], 
            Cell[
             StyleData["SlideHyperlink", "Printout"], FontSize -> 10, 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SlideTOCLink"], 
             CellMargins -> {{24, Inherited}, {Inherited, Inherited}}, 
             StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, 
             FontFamily -> "Helvetica", 
             ButtonBoxOptions -> {
              Active -> True, ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`NotebookLocate[#2]}]& ), ButtonMargins -> 1.5, 
               ButtonNote -> ButtonData}], 
            Cell[
             StyleData["SlideTOCLink", "Presentation"], 
             CellMargins -> {{35, 10}, {8, 8}}, FontSize -> 18], 
            Cell[
             StyleData["SlideTOCLink", "SlideShow"]], 
            Cell[
             StyleData["SlideTOCLink", "Printout"], 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SlideTOC"], CellDingbat -> "\[Bullet]", 
             CellMargins -> {{18, Inherited}, {Inherited, Inherited}}, 
             StyleMenuListing -> None, FontFamily -> "Helvetica"], 
            Cell[
             StyleData["SlideTOC", "Presentation"], 
             CellMargins -> {{25, 10}, {10, 5}}, FontSize -> 18], 
            Cell[
             StyleData["SlideTOC", "SlideShow"], FontSize -> 14], 
            Cell[
             StyleData["SlideTOC", "Printout"], FontSize -> 10, FontColor -> 
             GrayLevel[0]]}, Closed]]}, Closed]]}, Open]]}, Visible -> False, 
  FrontEndVersion -> "6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "EssayCell"->{
  Cell[568, 21, 1660, 51, 70, "SubsectionFirst",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.340632}]", 
     "CellGUID[259844136962850962406675843607216580116]", 
     "GUIDTag[148009450148681707102991804282939394023]", 
     "BlogEntryTitle148009450148681707102991804282939394023"},
   CellID->66402803],
  Cell[2336, 77, 1078, 32, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.707568}]", 
     "CellGUID[38131502278139371182680346303455797153]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1487897228],
  Cell[3417, 111, 1274, 34, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 21, 44.688076}]", 
     "CellGUID[271406656583722200744613732373476241431]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->821844414],
  Cell[4694, 147, 2589, 55, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 24, 58.224798}]", 
     "CellGUID[177427947296929111567606116509457981936]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->124248594],
  Cell[7286, 204, 1400, 29, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 43, 34.027845}]", 
     "CellGUID[237059512043180511944102625697772043222]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->901770267],
  Cell[8689, 235, 879, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 56, 51.255139}]", 
     "CellGUID[180061436785565876357181724075116507381]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1125046775],
  Cell[9571, 258, 2375, 42, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 23.754945}]", 
     "CellGUID[336117660067519836183596924721581471540]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->267683156],
  Cell[11949, 302, 2314, 41, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 25.563289}]", 
     "CellGUID[163446101256336850676605236616396898559]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->2120046074],
  Cell[14266, 345, 2444, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 26.562684}]", 
     "CellGUID[95847261364287338441701510493386514351]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->565694694],
  Cell[16713, 390, 2449, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->720616789],
  Cell[19165, 435, 3151, 60, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1709029956],
  Cell[22319, 497, 14119, 322, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 28.637275}]", 
     "CellGUID[283345208605157960266220599344066686939]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1746087290],
  Cell[36441, 821, 759, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 0, 39.975592}]", 
     "CellGUID[53061909893788666873250428944790715895]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1950684065],
  Cell[37203, 842, 806, 19, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 29.749151}]", 
     "CellGUID[119750592526457856726619177125875381080]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->718231181],
  Cell[38012, 863, 754, 17, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 12.579907}]", 
     "CellGUID[219104043176776377085733216682636650814]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1661725353],
  Cell[38769, 882, 864, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 14.292772}]", 
     "CellGUID[196378433009786578128730726405513681697]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->974665623],
  Cell[39636, 905, 804, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 52.890210}]", 
     "CellGUID[11660762009918339029987099657118745507]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->199866445],
  Cell[40465, 929, 964, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->490917207],
  Cell[41432, 954, 12473, 236, 70, "Output",
   Evaluatable->False,
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1046809331],
  Cell[53920, 1193, 882, 22, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 10, 21.523010}]", 
     "CellGUID[239404089808925998357509098939043692508]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->786667973],
  Cell[54805, 1217, 1704, 48, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 57, 59.764346}]", 
     "CellGUID[34022711628720218202925413791834307246]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->67635590],
  Cell[56512, 1267, 1435, 33, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 33, 9.827138}]", 
     "CellGUID[49846713681010691717348535460223751398]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->63142654],
  Cell[57950, 1302, 826, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 21, 58.432027}]", 
     "CellGUID[84970061915359689507625068263245297843]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1386572357],
  Cell[58779, 1324, 887, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 18, 14.900801}]", 
     "CellGUID[105747126616235741634126228524758649684]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1632129184],
  Cell[59691, 1349, 1260, 38, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 30, 17.316939}]", 
     "CellGUID[116700216043845232119367801809976834833]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->503924811],
  Cell[60954, 1389, 2364, 67, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 31, 56.964084}]", 
     "CellGUID[282510196427601416476635723131018162220]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1936278356],
  Cell[63321, 1458, 2097, 61, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 16, 25.470057}]", 
     "CellGUID[101226750487075148299152045749186890543]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1885517988],
  Cell[65455, 1524, 696, 16, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 5.582973}]", 
     "CellGUID[158310562554746338258710820404505299177]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->381664160],
  Cell[66154, 1542, 926, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 14.120969}]", 
     "CellGUID[328244319966305702013101369582433246766]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->95883531]},
 "EssayBodyCell148009450148681707102991804282939394023"->{
  Cell[568, 21, 1660, 51, 70, "SubsectionFirst",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.340632}]", 
     "CellGUID[259844136962850962406675843607216580116]", 
     "GUIDTag[148009450148681707102991804282939394023]", 
     "BlogEntryTitle148009450148681707102991804282939394023"},
   CellID->66402803],
  Cell[2336, 77, 1078, 32, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.707568}]", 
     "CellGUID[38131502278139371182680346303455797153]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1487897228],
  Cell[3417, 111, 1274, 34, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 21, 44.688076}]", 
     "CellGUID[271406656583722200744613732373476241431]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->821844414],
  Cell[4694, 147, 2589, 55, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 24, 58.224798}]", 
     "CellGUID[177427947296929111567606116509457981936]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->124248594],
  Cell[7286, 204, 1400, 29, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 43, 34.027845}]", 
     "CellGUID[237059512043180511944102625697772043222]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->901770267],
  Cell[8689, 235, 879, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 56, 51.255139}]", 
     "CellGUID[180061436785565876357181724075116507381]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1125046775],
  Cell[9571, 258, 2375, 42, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 23.754945}]", 
     "CellGUID[336117660067519836183596924721581471540]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->267683156],
  Cell[11949, 302, 2314, 41, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 25.563289}]", 
     "CellGUID[163446101256336850676605236616396898559]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->2120046074],
  Cell[14266, 345, 2444, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 26.562684}]", 
     "CellGUID[95847261364287338441701510493386514351]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->565694694],
  Cell[16713, 390, 2449, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->720616789],
  Cell[19165, 435, 3151, 60, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1709029956],
  Cell[22319, 497, 14119, 322, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 28.637275}]", 
     "CellGUID[283345208605157960266220599344066686939]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1746087290],
  Cell[36441, 821, 759, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 0, 39.975592}]", 
     "CellGUID[53061909893788666873250428944790715895]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1950684065],
  Cell[37203, 842, 806, 19, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 29.749151}]", 
     "CellGUID[119750592526457856726619177125875381080]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->718231181],
  Cell[38012, 863, 754, 17, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 12.579907}]", 
     "CellGUID[219104043176776377085733216682636650814]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1661725353],
  Cell[38769, 882, 864, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 14.292772}]", 
     "CellGUID[196378433009786578128730726405513681697]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->974665623],
  Cell[39636, 905, 804, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 52.890210}]", 
     "CellGUID[11660762009918339029987099657118745507]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->199866445],
  Cell[40465, 929, 964, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->490917207],
  Cell[41432, 954, 12473, 236, 70, "Output",
   Evaluatable->False,
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1046809331],
  Cell[53920, 1193, 882, 22, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 10, 21.523010}]", 
     "CellGUID[239404089808925998357509098939043692508]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->786667973],
  Cell[54805, 1217, 1704, 48, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 57, 59.764346}]", 
     "CellGUID[34022711628720218202925413791834307246]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->67635590],
  Cell[56512, 1267, 1435, 33, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 33, 9.827138}]", 
     "CellGUID[49846713681010691717348535460223751398]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->63142654],
  Cell[57950, 1302, 826, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 21, 58.432027}]", 
     "CellGUID[84970061915359689507625068263245297843]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1386572357],
  Cell[58779, 1324, 887, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 18, 14.900801}]", 
     "CellGUID[105747126616235741634126228524758649684]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1632129184],
  Cell[59691, 1349, 1260, 38, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 30, 17.316939}]", 
     "CellGUID[116700216043845232119367801809976834833]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->503924811],
  Cell[60954, 1389, 2364, 67, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 31, 56.964084}]", 
     "CellGUID[282510196427601416476635723131018162220]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1936278356],
  Cell[63321, 1458, 2097, 61, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 16, 25.470057}]", 
     "CellGUID[101226750487075148299152045749186890543]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1885517988],
  Cell[65455, 1524, 696, 16, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 5.582973}]", 
     "CellGUID[158310562554746338258710820404505299177]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->381664160],
  Cell[66154, 1542, 926, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 14.120969}]", 
     "CellGUID[328244319966305702013101369582433246766]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->95883531]},
 "EssayCell148009450148681707102991804282939394023"->{
  Cell[568, 21, 1660, 51, 70, "SubsectionFirst",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.340632}]", 
     "CellGUID[259844136962850962406675843607216580116]", 
     "GUIDTag[148009450148681707102991804282939394023]", 
     "BlogEntryTitle148009450148681707102991804282939394023"},
   CellID->66402803],
  Cell[2336, 77, 1078, 32, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.707568}]", 
     "CellGUID[38131502278139371182680346303455797153]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1487897228],
  Cell[3417, 111, 1274, 34, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 21, 44.688076}]", 
     "CellGUID[271406656583722200744613732373476241431]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->821844414],
  Cell[4694, 147, 2589, 55, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 24, 58.224798}]", 
     "CellGUID[177427947296929111567606116509457981936]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->124248594],
  Cell[7286, 204, 1400, 29, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 43, 34.027845}]", 
     "CellGUID[237059512043180511944102625697772043222]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->901770267],
  Cell[8689, 235, 879, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 56, 51.255139}]", 
     "CellGUID[180061436785565876357181724075116507381]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1125046775],
  Cell[9571, 258, 2375, 42, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 23.754945}]", 
     "CellGUID[336117660067519836183596924721581471540]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->267683156],
  Cell[11949, 302, 2314, 41, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 25.563289}]", 
     "CellGUID[163446101256336850676605236616396898559]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->2120046074],
  Cell[14266, 345, 2444, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 26.562684}]", 
     "CellGUID[95847261364287338441701510493386514351]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->565694694],
  Cell[16713, 390, 2449, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->720616789],
  Cell[19165, 435, 3151, 60, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1709029956],
  Cell[22319, 497, 14119, 322, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 28.637275}]", 
     "CellGUID[283345208605157960266220599344066686939]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1746087290],
  Cell[36441, 821, 759, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 0, 39.975592}]", 
     "CellGUID[53061909893788666873250428944790715895]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1950684065],
  Cell[37203, 842, 806, 19, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 29.749151}]", 
     "CellGUID[119750592526457856726619177125875381080]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->718231181],
  Cell[38012, 863, 754, 17, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 12.579907}]", 
     "CellGUID[219104043176776377085733216682636650814]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1661725353],
  Cell[38769, 882, 864, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 14.292772}]", 
     "CellGUID[196378433009786578128730726405513681697]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->974665623],
  Cell[39636, 905, 804, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 52.890210}]", 
     "CellGUID[11660762009918339029987099657118745507]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->199866445],
  Cell[40465, 929, 964, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->490917207],
  Cell[41432, 954, 12473, 236, 70, "Output",
   Evaluatable->False,
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1046809331],
  Cell[53920, 1193, 882, 22, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 10, 21.523010}]", 
     "CellGUID[239404089808925998357509098939043692508]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->786667973],
  Cell[54805, 1217, 1704, 48, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 57, 59.764346}]", 
     "CellGUID[34022711628720218202925413791834307246]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->67635590],
  Cell[56512, 1267, 1435, 33, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 33, 9.827138}]", 
     "CellGUID[49846713681010691717348535460223751398]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->63142654],
  Cell[57950, 1302, 826, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 21, 58.432027}]", 
     "CellGUID[84970061915359689507625068263245297843]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1386572357],
  Cell[58779, 1324, 887, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 18, 14.900801}]", 
     "CellGUID[105747126616235741634126228524758649684]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1632129184],
  Cell[59691, 1349, 1260, 38, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 30, 17.316939}]", 
     "CellGUID[116700216043845232119367801809976834833]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->503924811],
  Cell[60954, 1389, 2364, 67, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 31, 56.964084}]", 
     "CellGUID[282510196427601416476635723131018162220]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1936278356],
  Cell[63321, 1458, 2097, 61, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 16, 25.470057}]", 
     "CellGUID[101226750487075148299152045749186890543]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1885517988],
  Cell[65455, 1524, 696, 16, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 5.582973}]", 
     "CellGUID[158310562554746338258710820404505299177]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->381664160],
  Cell[66154, 1542, 926, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 14.120969}]", 
     "CellGUID[328244319966305702013101369582433246766]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->95883531]},
 "Subsection148009450148681707102991804282939394023"->{
  Cell[568, 21, 1660, 51, 70, "SubsectionFirst",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.340632}]", 
     "CellGUID[259844136962850962406675843607216580116]", 
     "GUIDTag[148009450148681707102991804282939394023]", 
     "BlogEntryTitle148009450148681707102991804282939394023"},
   CellID->66402803],
  Cell[59691, 1349, 1260, 38, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 30, 17.316939}]", 
     "CellGUID[116700216043845232119367801809976834833]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->503924811],
  Cell[65455, 1524, 696, 16, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 5.582973}]", 
     "CellGUID[158310562554746338258710820404505299177]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->381664160]},
 "DiaryDate[{2007, 7, 11, 2, 19, 14.340632}]"->{
  Cell[568, 21, 1660, 51, 70, "SubsectionFirst",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.340632}]", 
     "CellGUID[259844136962850962406675843607216580116]", 
     "GUIDTag[148009450148681707102991804282939394023]", 
     "BlogEntryTitle148009450148681707102991804282939394023"},
   CellID->66402803]},
 "CellGUID[259844136962850962406675843607216580116]"->{
  Cell[568, 21, 1660, 51, 70, "SubsectionFirst",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.340632}]", 
     "CellGUID[259844136962850962406675843607216580116]", 
     "GUIDTag[148009450148681707102991804282939394023]", 
     "BlogEntryTitle148009450148681707102991804282939394023"},
   CellID->66402803]},
 "GUIDTag[148009450148681707102991804282939394023]"->{
  Cell[568, 21, 1660, 51, 70, "SubsectionFirst",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.340632}]", 
     "CellGUID[259844136962850962406675843607216580116]", 
     "GUIDTag[148009450148681707102991804282939394023]", 
     "BlogEntryTitle148009450148681707102991804282939394023"},
   CellID->66402803],
  Cell[2336, 77, 1078, 32, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.707568}]", 
     "CellGUID[38131502278139371182680346303455797153]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1487897228],
  Cell[3417, 111, 1274, 34, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 21, 44.688076}]", 
     "CellGUID[271406656583722200744613732373476241431]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->821844414],
  Cell[4694, 147, 2589, 55, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 24, 58.224798}]", 
     "CellGUID[177427947296929111567606116509457981936]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->124248594],
  Cell[7286, 204, 1400, 29, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 43, 34.027845}]", 
     "CellGUID[237059512043180511944102625697772043222]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->901770267],
  Cell[8689, 235, 879, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 56, 51.255139}]", 
     "CellGUID[180061436785565876357181724075116507381]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1125046775],
  Cell[9571, 258, 2375, 42, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 23.754945}]", 
     "CellGUID[336117660067519836183596924721581471540]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->267683156],
  Cell[11949, 302, 2314, 41, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 25.563289}]", 
     "CellGUID[163446101256336850676605236616396898559]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->2120046074],
  Cell[14266, 345, 2444, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 26.562684}]", 
     "CellGUID[95847261364287338441701510493386514351]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->565694694],
  Cell[16713, 390, 2449, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->720616789],
  Cell[19165, 435, 3151, 60, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1709029956],
  Cell[22319, 497, 14119, 322, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 28.637275}]", 
     "CellGUID[283345208605157960266220599344066686939]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1746087290],
  Cell[36441, 821, 759, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 0, 39.975592}]", 
     "CellGUID[53061909893788666873250428944790715895]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1950684065],
  Cell[37203, 842, 806, 19, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 29.749151}]", 
     "CellGUID[119750592526457856726619177125875381080]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->718231181],
  Cell[38012, 863, 754, 17, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 12.579907}]", 
     "CellGUID[219104043176776377085733216682636650814]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1661725353],
  Cell[38769, 882, 864, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 14.292772}]", 
     "CellGUID[196378433009786578128730726405513681697]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->974665623],
  Cell[39636, 905, 804, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 52.890210}]", 
     "CellGUID[11660762009918339029987099657118745507]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->199866445],
  Cell[40465, 929, 964, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->490917207],
  Cell[41432, 954, 12473, 236, 70, "Output",
   Evaluatable->False,
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1046809331],
  Cell[53920, 1193, 882, 22, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 10, 21.523010}]", 
     "CellGUID[239404089808925998357509098939043692508]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->786667973],
  Cell[54805, 1217, 1704, 48, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 57, 59.764346}]", 
     "CellGUID[34022711628720218202925413791834307246]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->67635590],
  Cell[56512, 1267, 1435, 33, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 33, 9.827138}]", 
     "CellGUID[49846713681010691717348535460223751398]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->63142654],
  Cell[57950, 1302, 826, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 21, 58.432027}]", 
     "CellGUID[84970061915359689507625068263245297843]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1386572357],
  Cell[58779, 1324, 887, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 18, 14.900801}]", 
     "CellGUID[105747126616235741634126228524758649684]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1632129184],
  Cell[59691, 1349, 1260, 38, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 30, 17.316939}]", 
     "CellGUID[116700216043845232119367801809976834833]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->503924811],
  Cell[60954, 1389, 2364, 67, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 31, 56.964084}]", 
     "CellGUID[282510196427601416476635723131018162220]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1936278356],
  Cell[63321, 1458, 2097, 61, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 16, 25.470057}]", 
     "CellGUID[101226750487075148299152045749186890543]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1885517988],
  Cell[65455, 1524, 696, 16, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 5.582973}]", 
     "CellGUID[158310562554746338258710820404505299177]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->381664160],
  Cell[66154, 1542, 926, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 14.120969}]", 
     "CellGUID[328244319966305702013101369582433246766]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->95883531]},
 "BlogEntryTitle148009450148681707102991804282939394023"->{
  Cell[568, 21, 1660, 51, 70, "SubsectionFirst",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.340632}]", 
     "CellGUID[259844136962850962406675843607216580116]", 
     "GUIDTag[148009450148681707102991804282939394023]", 
     "BlogEntryTitle148009450148681707102991804282939394023"},
   CellID->66402803]},
 "Text148009450148681707102991804282939394023"->{
  Cell[2336, 77, 1078, 32, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.707568}]", 
     "CellGUID[38131502278139371182680346303455797153]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1487897228],
  Cell[3417, 111, 1274, 34, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 21, 44.688076}]", 
     "CellGUID[271406656583722200744613732373476241431]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->821844414],
  Cell[4694, 147, 2589, 55, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 24, 58.224798}]", 
     "CellGUID[177427947296929111567606116509457981936]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->124248594],
  Cell[7286, 204, 1400, 29, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 43, 34.027845}]", 
     "CellGUID[237059512043180511944102625697772043222]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->901770267],
  Cell[8689, 235, 879, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 56, 51.255139}]", 
     "CellGUID[180061436785565876357181724075116507381]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1125046775],
  Cell[36441, 821, 759, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 0, 39.975592}]", 
     "CellGUID[53061909893788666873250428944790715895]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1950684065],
  Cell[38012, 863, 754, 17, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 12.579907}]", 
     "CellGUID[219104043176776377085733216682636650814]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1661725353],
  Cell[39636, 905, 804, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 52.890210}]", 
     "CellGUID[11660762009918339029987099657118745507]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->199866445],
  Cell[53920, 1193, 882, 22, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 10, 21.523010}]", 
     "CellGUID[239404089808925998357509098939043692508]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->786667973],
  Cell[54805, 1217, 1704, 48, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 57, 59.764346}]", 
     "CellGUID[34022711628720218202925413791834307246]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->67635590],
  Cell[56512, 1267, 1435, 33, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 33, 9.827138}]", 
     "CellGUID[49846713681010691717348535460223751398]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->63142654],
  Cell[57950, 1302, 826, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 21, 58.432027}]", 
     "CellGUID[84970061915359689507625068263245297843]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1386572357],
  Cell[58779, 1324, 887, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 18, 14.900801}]", 
     "CellGUID[105747126616235741634126228524758649684]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1632129184],
  Cell[60954, 1389, 2364, 67, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 31, 56.964084}]", 
     "CellGUID[282510196427601416476635723131018162220]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1936278356],
  Cell[63321, 1458, 2097, 61, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 16, 25.470057}]", 
     "CellGUID[101226750487075148299152045749186890543]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1885517988],
  Cell[66154, 1542, 926, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 14.120969}]", 
     "CellGUID[328244319966305702013101369582433246766]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->95883531]},
 "DiaryDate[{2007, 7, 11, 2, 19, 14.707568}]"->{
  Cell[2336, 77, 1078, 32, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.707568}]", 
     "CellGUID[38131502278139371182680346303455797153]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1487897228]},
 "CellGUID[38131502278139371182680346303455797153]"->{
  Cell[2336, 77, 1078, 32, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 19, 14.707568}]", 
     "CellGUID[38131502278139371182680346303455797153]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1487897228]},
 "DiaryDate[{2007, 7, 11, 2, 21, 44.688076}]"->{
  Cell[3417, 111, 1274, 34, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 21, 44.688076}]", 
     "CellGUID[271406656583722200744613732373476241431]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->821844414]},
 "CellGUID[271406656583722200744613732373476241431]"->{
  Cell[3417, 111, 1274, 34, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 21, 44.688076}]", 
     "CellGUID[271406656583722200744613732373476241431]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->821844414]},
 "DiaryDate[{2007, 7, 11, 2, 24, 58.224798}]"->{
  Cell[4694, 147, 2589, 55, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 24, 58.224798}]", 
     "CellGUID[177427947296929111567606116509457981936]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->124248594]},
 "CellGUID[177427947296929111567606116509457981936]"->{
  Cell[4694, 147, 2589, 55, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 24, 58.224798}]", 
     "CellGUID[177427947296929111567606116509457981936]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->124248594]},
 "DiaryDate[{2007, 7, 11, 2, 43, 34.027845}]"->{
  Cell[7286, 204, 1400, 29, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 43, 34.027845}]", 
     "CellGUID[237059512043180511944102625697772043222]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->901770267]},
 "CellGUID[237059512043180511944102625697772043222]"->{
  Cell[7286, 204, 1400, 29, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 43, 34.027845}]", 
     "CellGUID[237059512043180511944102625697772043222]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->901770267]},
 "DiaryDate[{2007, 7, 11, 2, 56, 51.255139}]"->{
  Cell[8689, 235, 879, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 56, 51.255139}]", 
     "CellGUID[180061436785565876357181724075116507381]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1125046775]},
 "CellGUID[180061436785565876357181724075116507381]"->{
  Cell[8689, 235, 879, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 56, 51.255139}]", 
     "CellGUID[180061436785565876357181724075116507381]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1125046775]},
 "DiaryDate[{2007, 7, 11, 3, 0, 23.754945}]"->{
  Cell[9571, 258, 2375, 42, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 23.754945}]", 
     "CellGUID[336117660067519836183596924721581471540]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->267683156]},
 "CellGUID[336117660067519836183596924721581471540]"->{
  Cell[9571, 258, 2375, 42, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 23.754945}]", 
     "CellGUID[336117660067519836183596924721581471540]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->267683156]},
 "Input148009450148681707102991804282939394023"->{
  Cell[9571, 258, 2375, 42, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 23.754945}]", 
     "CellGUID[336117660067519836183596924721581471540]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->267683156],
  Cell[11949, 302, 2314, 41, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 25.563289}]", 
     "CellGUID[163446101256336850676605236616396898559]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->2120046074],
  Cell[14266, 345, 2444, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 26.562684}]", 
     "CellGUID[95847261364287338441701510493386514351]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->565694694],
  Cell[16713, 390, 2449, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->720616789],
  Cell[19165, 435, 3151, 60, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1709029956],
  Cell[22319, 497, 14119, 322, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 28.637275}]", 
     "CellGUID[283345208605157960266220599344066686939]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1746087290],
  Cell[37203, 842, 806, 19, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 29.749151}]", 
     "CellGUID[119750592526457856726619177125875381080]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->718231181],
  Cell[38769, 882, 864, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 14.292772}]", 
     "CellGUID[196378433009786578128730726405513681697]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->974665623],
  Cell[40465, 929, 964, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->490917207],
  Cell[41432, 954, 12473, 236, 70, "Output",
   Evaluatable->False,
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1046809331]},
 "DiaryDate[{2007, 7, 11, 3, 0, 25.563289}]"->{
  Cell[11949, 302, 2314, 41, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 25.563289}]", 
     "CellGUID[163446101256336850676605236616396898559]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->2120046074]},
 "CellGUID[163446101256336850676605236616396898559]"->{
  Cell[11949, 302, 2314, 41, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 25.563289}]", 
     "CellGUID[163446101256336850676605236616396898559]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->2120046074]},
 "DiaryDate[{2007, 7, 11, 3, 0, 26.562684}]"->{
  Cell[14266, 345, 2444, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 26.562684}]", 
     "CellGUID[95847261364287338441701510493386514351]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->565694694]},
 "CellGUID[95847261364287338441701510493386514351]"->{
  Cell[14266, 345, 2444, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 26.562684}]", 
     "CellGUID[95847261364287338441701510493386514351]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->565694694]},
 "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]"->{
  Cell[16713, 390, 2449, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->720616789],
  Cell[19165, 435, 3151, 60, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1709029956]},
 "CellGUID[160224112799882840524737091113268973749]"->{
  Cell[16713, 390, 2449, 43, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->720616789],
  Cell[19165, 435, 3151, 60, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
     "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1709029956]},
 "DiaryDate[{2007, 7, 11, 3, 0, 28.637275}]"->{
  Cell[22319, 497, 14119, 322, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 28.637275}]", 
     "CellGUID[283345208605157960266220599344066686939]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1746087290]},
 "CellGUID[283345208605157960266220599344066686939]"->{
  Cell[22319, 497, 14119, 322, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 28.637275}]", 
     "CellGUID[283345208605157960266220599344066686939]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1746087290]},
 "DiaryDate[{2007, 7, 11, 3, 0, 39.975592}]"->{
  Cell[36441, 821, 759, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 0, 39.975592}]", 
     "CellGUID[53061909893788666873250428944790715895]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1950684065]},
 "CellGUID[53061909893788666873250428944790715895]"->{
  Cell[36441, 821, 759, 19, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 0, 39.975592}]", 
     "CellGUID[53061909893788666873250428944790715895]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1950684065]},
 "DiaryDate[{2007, 7, 11, 3, 0, 29.749151}]"->{
  Cell[37203, 842, 806, 19, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 29.749151}]", 
     "CellGUID[119750592526457856726619177125875381080]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->718231181]},
 "CellGUID[119750592526457856726619177125875381080]"->{
  Cell[37203, 842, 806, 19, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 0, 29.749151}]", 
     "CellGUID[119750592526457856726619177125875381080]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->718231181]},
 "DiaryDate[{2007, 7, 11, 3, 5, 12.579907}]"->{
  Cell[38012, 863, 754, 17, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 12.579907}]", 
     "CellGUID[219104043176776377085733216682636650814]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1661725353]},
 "CellGUID[219104043176776377085733216682636650814]"->{
  Cell[38012, 863, 754, 17, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 12.579907}]", 
     "CellGUID[219104043176776377085733216682636650814]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1661725353]},
 "DiaryDate[{2007, 7, 11, 3, 5, 14.292772}]"->{
  Cell[38769, 882, 864, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 14.292772}]", 
     "CellGUID[196378433009786578128730726405513681697]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->974665623]},
 "CellGUID[196378433009786578128730726405513681697]"->{
  Cell[38769, 882, 864, 21, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 5, 14.292772}]", 
     "CellGUID[196378433009786578128730726405513681697]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->974665623]},
 "DiaryDate[{2007, 7, 11, 3, 9, 52.890210}]"->{
  Cell[39636, 905, 804, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 52.890210}]", 
     "CellGUID[11660762009918339029987099657118745507]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->199866445]},
 "CellGUID[11660762009918339029987099657118745507]"->{
  Cell[39636, 905, 804, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 52.890210}]", 
     "CellGUID[11660762009918339029987099657118745507]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->199866445]},
 "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]"->{
  Cell[40465, 929, 964, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->490917207],
  Cell[41432, 954, 12473, 236, 70, "Output",
   Evaluatable->False,
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1046809331]},
 "CellGUID[9347170395788413098032566794994642619]"->{
  Cell[40465, 929, 964, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->490917207],
  Cell[41432, 954, 12473, 236, 70, "Output",
   Evaluatable->False,
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
     "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Input148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1046809331]},
 "DiaryDate[{2007, 7, 11, 3, 10, 21.523010}]"->{
  Cell[53920, 1193, 882, 22, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 10, 21.523010}]", 
     "CellGUID[239404089808925998357509098939043692508]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->786667973]},
 "CellGUID[239404089808925998357509098939043692508]"->{
  Cell[53920, 1193, 882, 22, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2007, 7, 11, 3, 10, 21.523010}]", 
     "CellGUID[239404089808925998357509098939043692508]", "EssayCell", 
     "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->786667973]},
 "DiaryDate[{2007, 7, 11, 2, 57, 59.764346}]"->{
  Cell[54805, 1217, 1704, 48, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 57, 59.764346}]", 
     "CellGUID[34022711628720218202925413791834307246]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->67635590]},
 "CellGUID[34022711628720218202925413791834307246]"->{
  Cell[54805, 1217, 1704, 48, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 57, 59.764346}]", 
     "CellGUID[34022711628720218202925413791834307246]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->67635590]},
 "DiaryDate[{2007, 7, 11, 2, 33, 9.827138}]"->{
  Cell[56512, 1267, 1435, 33, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 33, 9.827138}]", 
     "CellGUID[49846713681010691717348535460223751398]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->63142654]},
 "CellGUID[49846713681010691717348535460223751398]"->{
  Cell[56512, 1267, 1435, 33, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 33, 9.827138}]", 
     "CellGUID[49846713681010691717348535460223751398]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->63142654]},
 "DiaryDate[{2007, 7, 11, 3, 21, 58.432027}]"->{
  Cell[57950, 1302, 826, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 21, 58.432027}]", 
     "CellGUID[84970061915359689507625068263245297843]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1386572357]},
 "CellGUID[84970061915359689507625068263245297843]"->{
  Cell[57950, 1302, 826, 20, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 21, 58.432027}]", 
     "CellGUID[84970061915359689507625068263245297843]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1386572357]},
 "DiaryDate[{2007, 7, 11, 3, 18, 14.900801}]"->{
  Cell[58779, 1324, 887, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 18, 14.900801}]", 
     "CellGUID[105747126616235741634126228524758649684]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1632129184]},
 "CellGUID[105747126616235741634126228524758649684]"->{
  Cell[58779, 1324, 887, 21, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 18, 14.900801}]", 
     "CellGUID[105747126616235741634126228524758649684]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1632129184]},
 "DiaryDate[{2007, 7, 11, 2, 30, 17.316939}]"->{
  Cell[59691, 1349, 1260, 38, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 30, 17.316939}]", 
     "CellGUID[116700216043845232119367801809976834833]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->503924811]},
 "CellGUID[116700216043845232119367801809976834833]"->{
  Cell[59691, 1349, 1260, 38, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 30, 17.316939}]", 
     "CellGUID[116700216043845232119367801809976834833]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->503924811]},
 "DiaryDate[{2007, 7, 11, 2, 31, 56.964084}]"->{
  Cell[60954, 1389, 2364, 67, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 31, 56.964084}]", 
     "CellGUID[282510196427601416476635723131018162220]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1936278356]},
 "CellGUID[282510196427601416476635723131018162220]"->{
  Cell[60954, 1389, 2364, 67, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 31, 56.964084}]", 
     "CellGUID[282510196427601416476635723131018162220]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1936278356]},
 "DiaryDate[{2007, 7, 11, 3, 16, 25.470057}]"->{
  Cell[63321, 1458, 2097, 61, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 16, 25.470057}]", 
     "CellGUID[101226750487075148299152045749186890543]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1885517988]},
 "CellGUID[101226750487075148299152045749186890543]"->{
  Cell[63321, 1458, 2097, 61, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 3, 16, 25.470057}]", 
     "CellGUID[101226750487075148299152045749186890543]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->1885517988]},
 "DiaryDate[{2007, 7, 11, 2, 37, 5.582973}]"->{
  Cell[65455, 1524, 696, 16, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 5.582973}]", 
     "CellGUID[158310562554746338258710820404505299177]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->381664160]},
 "CellGUID[158310562554746338258710820404505299177]"->{
  Cell[65455, 1524, 696, 16, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Subsection148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 5.582973}]", 
     "CellGUID[158310562554746338258710820404505299177]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->381664160]},
 "DiaryDate[{2007, 7, 11, 2, 37, 14.120969}]"->{
  Cell[66154, 1542, 926, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 14.120969}]", 
     "CellGUID[328244319966305702013101369582433246766]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->95883531]},
 "CellGUID[328244319966305702013101369582433246766]"->{
  Cell[66154, 1542, 926, 25, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
     "EssayCell148009450148681707102991804282939394023", 
     "Text148009450148681707102991804282939394023", 
     "DiaryDate[{2007, 7, 11, 2, 37, 14.120969}]", 
     "CellGUID[328244319966305702013101369582433246766]", 
     "GUIDTag[148009450148681707102991804282939394023]"},
   CellID->95883531]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"EssayCell", 212530, 4565},
 {"EssayBodyCell148009450148681707102991804282939394023", 225820, 4858},
 {"EssayCell148009450148681707102991804282939394023", 239106, 5151},
 {"Subsection148009450148681707102991804282939394023", 252393, 5444},
 {"DiaryDate[{2007, 7, 11, 2, 19, 14.340632}]", 253899, 5476},
 {"CellGUID[259844136962850962406675843607216580116]", 254484, 5488},
 {"GUIDTag[148009450148681707102991804282939394023]", 255068, 5500},
 {"BlogEntryTitle148009450148681707102991804282939394023", 268359, 5793},
 {"Text148009450148681707102991804282939394023", 268938, 5805},
 {"DiaryDate[{2007, 7, 11, 2, 19, 14.707568}]", 276209, 5966},
 {"CellGUID[38131502278139371182680346303455797153]", 276715, 5977},
 {"DiaryDate[{2007, 7, 11, 2, 21, 44.688076}]", 277215, 5988},
 {"CellGUID[271406656583722200744613732373476241431]", 277723, 5999},
 {"DiaryDate[{2007, 7, 11, 2, 24, 58.224798}]", 278224, 6010},
 {"CellGUID[177427947296929111567606116509457981936]", 278732, 6021},
 {"DiaryDate[{2007, 7, 11, 2, 43, 34.027845}]", 279233, 6032},
 {"CellGUID[237059512043180511944102625697772043222]", 279741, 6043},
 {"DiaryDate[{2007, 7, 11, 2, 56, 51.255139}]", 280242, 6054},
 {"CellGUID[180061436785565876357181724075116507381]", 280750, 6065},
 {"DiaryDate[{2007, 7, 11, 3, 0, 23.754945}]", 281250, 6076},
 {"CellGUID[336117660067519836183596924721581471540]", 281759, 6087},
 {"Input148009450148681707102991804282939394023", 282263, 6098},
 {"DiaryDate[{2007, 7, 11, 3, 0, 25.563289}]", 286865, 6200},
 {"CellGUID[163446101256336850676605236616396898559]", 287376, 6211},
 {"DiaryDate[{2007, 7, 11, 3, 0, 26.562684}]", 287879, 6222},
 {"CellGUID[95847261364287338441701510493386514351]", 288387, 6233},
 {"DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 288888, 6244},
 {"CellGUID[160224112799882840524737091113268973749]", 289852, 6265},
 {"DiaryDate[{2007, 7, 11, 3, 0, 28.637275}]", 290808, 6286},
 {"CellGUID[283345208605157960266220599344066686939]", 291321, 6297},
 {"DiaryDate[{2007, 7, 11, 3, 0, 39.975592}]", 291826, 6308},
 {"CellGUID[53061909893788666873250428944790715895]", 292332, 6319},
 {"DiaryDate[{2007, 7, 11, 3, 0, 29.749151}]", 292831, 6330},
 {"CellGUID[119750592526457856726619177125875381080]", 293340, 6341},
 {"DiaryDate[{2007, 7, 11, 3, 5, 12.579907}]", 293841, 6352},
 {"CellGUID[219104043176776377085733216682636650814]", 294349, 6363},
 {"DiaryDate[{2007, 7, 11, 3, 5, 14.292772}]", 294849, 6374},
 {"CellGUID[196378433009786578128730726405513681697]", 295358, 6385},
 {"DiaryDate[{2007, 7, 11, 3, 9, 52.890210}]", 295859, 6396},
 {"CellGUID[11660762009918339029987099657118745507]", 296364, 6407},
 {"DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 296862, 6418},
 {"CellGUID[9347170395788413098032566794994642619]", 297845, 6440},
 {"DiaryDate[{2007, 7, 11, 3, 10, 21.523010}]", 298823, 6462},
 {"CellGUID[239404089808925998357509098939043692508]", 299332, 6473},
 {"DiaryDate[{2007, 7, 11, 2, 57, 59.764346}]", 299834, 6484},
 {"CellGUID[34022711628720218202925413791834307246]", 300341, 6495},
 {"DiaryDate[{2007, 7, 11, 2, 33, 9.827138}]", 300841, 6506},
 {"CellGUID[49846713681010691717348535460223751398]", 301347, 6517},
 {"DiaryDate[{2007, 7, 11, 3, 21, 58.432027}]", 301847, 6528},
 {"CellGUID[84970061915359689507625068263245297843]", 302355, 6539},
 {"DiaryDate[{2007, 7, 11, 3, 18, 14.900801}]", 302857, 6550},
 {"CellGUID[105747126616235741634126228524758649684]", 303367, 6561},
 {"DiaryDate[{2007, 7, 11, 2, 30, 17.316939}]", 303870, 6572},
 {"CellGUID[116700216043845232119367801809976834833]", 304392, 6583},
 {"DiaryDate[{2007, 7, 11, 2, 31, 56.964084}]", 304907, 6594},
 {"CellGUID[282510196427601416476635723131018162220]", 305418, 6605},
 {"DiaryDate[{2007, 7, 11, 3, 16, 25.470057}]", 305922, 6616},
 {"CellGUID[101226750487075148299152045749186890543]", 306433, 6627},
 {"DiaryDate[{2007, 7, 11, 2, 37, 5.582973}]", 306936, 6638},
 {"CellGUID[158310562554746338258710820404505299177]", 307456, 6649},
 {"DiaryDate[{2007, 7, 11, 2, 37, 14.120969}]", 307969, 6660},
 {"CellGUID[328244319966305702013101369582433246766]", 308477, 6671}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 1660, 51, 70, "SubsectionFirst",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Subsection148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 19, 14.340632}]", 
   "CellGUID[259844136962850962406675843607216580116]", 
   "GUIDTag[148009450148681707102991804282939394023]", 
   "BlogEntryTitle148009450148681707102991804282939394023"},
 CellID->66402803],
Cell[2231, 74, 102, 1, 70, "Subsubsection"],
Cell[2336, 77, 1078, 32, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 19, 14.707568}]", 
   "CellGUID[38131502278139371182680346303455797153]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1487897228],
Cell[3417, 111, 1274, 34, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 21, 44.688076}]", 
   "CellGUID[271406656583722200744613732373476241431]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->821844414],
Cell[4694, 147, 2589, 55, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 24, 58.224798}]", 
   "CellGUID[177427947296929111567606116509457981936]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->124248594],
Cell[7286, 204, 1400, 29, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 43, 34.027845}]", 
   "CellGUID[237059512043180511944102625697772043222]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->901770267],
Cell[8689, 235, 879, 21, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 56, 51.255139}]", 
   "CellGUID[180061436785565876357181724075116507381]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1125046775],
Cell[9571, 258, 2375, 42, 70, "Input",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 23.754945}]", 
   "CellGUID[336117660067519836183596924721581471540]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->267683156],
Cell[11949, 302, 2314, 41, 70, "Input",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 25.563289}]", 
   "CellGUID[163446101256336850676605236616396898559]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->2120046074],
Cell[14266, 345, 2444, 43, 70, "Input",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 26.562684}]", 
   "CellGUID[95847261364287338441701510493386514351]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->565694694],
Cell[16713, 390, 2449, 43, 70, "Input",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
   "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->720616789],
Cell[19165, 435, 3151, 60, 70, "Input",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 27.528844}]", 
   "CellGUID[160224112799882840524737091113268973749]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1709029956],
Cell[22319, 497, 14119, 322, 70, "Input",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 28.637275}]", 
   "CellGUID[283345208605157960266220599344066686939]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1746087290],
Cell[36441, 821, 759, 19, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 3, 0, 39.975592}]", 
   "CellGUID[53061909893788666873250428944790715895]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1950684065],
Cell[37203, 842, 806, 19, 70, "Input",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 0, 29.749151}]", 
   "CellGUID[119750592526457856726619177125875381080]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->718231181],
Cell[38012, 863, 754, 17, 70, "Text",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 5, 12.579907}]", 
   "CellGUID[219104043176776377085733216682636650814]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1661725353],
Cell[38769, 882, 864, 21, 70, "Input",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 5, 14.292772}]", 
   "CellGUID[196378433009786578128730726405513681697]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->974665623],
Cell[39636, 905, 804, 20, 70, "Text",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 9, 52.890210}]", 
   "CellGUID[11660762009918339029987099657118745507]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->199866445],
Cell[CellGroupData[{
Cell[40465, 929, 964, 23, 70, "Input",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
   "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->490917207],
Cell[41432, 954, 12473, 236, 70, "Output",
 Evaluatable->False,
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 9, 57.286164}]", 
   "CellGUID[9347170395788413098032566794994642619]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Input148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1046809331]
}, Open  ]],
Cell[53920, 1193, 882, 22, 70, "Text",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2007, 7, 11, 3, 10, 21.523010}]", 
   "CellGUID[239404089808925998357509098939043692508]", "EssayCell", 
   "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->786667973],
Cell[54805, 1217, 1704, 48, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 57, 59.764346}]", 
   "CellGUID[34022711628720218202925413791834307246]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->67635590],
Cell[56512, 1267, 1435, 33, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 33, 9.827138}]", 
   "CellGUID[49846713681010691717348535460223751398]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->63142654],
Cell[57950, 1302, 826, 20, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 3, 21, 58.432027}]", 
   "CellGUID[84970061915359689507625068263245297843]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1386572357],
Cell[58779, 1324, 887, 21, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 3, 18, 14.900801}]", 
   "CellGUID[105747126616235741634126228524758649684]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1632129184],
Cell[CellGroupData[{
Cell[59691, 1349, 1260, 38, 70, "Subsection",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Subsection148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 30, 17.316939}]", 
   "CellGUID[116700216043845232119367801809976834833]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->503924811],
Cell[60954, 1389, 2364, 67, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 31, 56.964084}]", 
   "CellGUID[282510196427601416476635723131018162220]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1936278356],
Cell[63321, 1458, 2097, 61, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 3, 16, 25.470057}]", 
   "CellGUID[101226750487075148299152045749186890543]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->1885517988]
}, Open  ]],
Cell[CellGroupData[{
Cell[65455, 1524, 696, 16, 70, "Subsection",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Subsection148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 37, 5.582973}]", 
   "CellGUID[158310562554746338258710820404505299177]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->381664160],
Cell[66154, 1542, 926, 25, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "EssayBodyCell148009450148681707102991804282939394023", 
   "EssayCell148009450148681707102991804282939394023", 
   "Text148009450148681707102991804282939394023", 
   "DiaryDate[{2007, 7, 11, 2, 37, 14.120969}]", 
   "CellGUID[328244319966305702013101369582433246766]", 
   "GUIDTag[148009450148681707102991804282939394023]"},
 CellID->95883531]
}, Open  ]]
}
]
*)

(* End of internal cache information *)