(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     51809,       1219]
NotebookOptionsPosition[     14882,        408]
NotebookOutlinePosition[     49594,       1168]
CellTagsIndexPosition[     48497,       1147]
WindowTitle->Automatic
WindowFrame->Normal*)

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

Cell["Security Tools", "Subsection",
 Editable->True,
 Deletable->True,
 CellDingbat->None,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[289039563243853257102389514323558837090]",
 Background->RGBColor[
  0.9012345679012346, 0.9012345679012346, 0.9012345679012346],
 CellTags->{
  "EssayCell", "Subsection284679318267757849172850723292113040025", 
   "EssayBodyCell284679318267757849172850723292113040025", 
   "EssayCell284679318267757849172850723292113040025", 
   "DiaryDate[{2008, 3, 2, 19, 53, 27.278242}]", 
   "CellGUID[101092174127946203893209486792098704430]", 
   "GUIDTag[284679318267757849172850723292113040025]", 
   "BlogEntryTitle284679318267757849172850723292113040025"},
 CellID->2031583469],

Cell[TextData[{
 "Posted on: Sunday, March 2, 2008 at 08:01 PM UT",
 "  ",
 ButtonBox["Notebook Version",
  BaseStyle->"Hyperlink",
  ButtonData:>{
    URL["BE3413476880/BE3413476880.nb"], None}]
}], "Subsubsection",
 FontFamily->"Helvetica",
 FontSize->11,
 FontWeight->"Bold",
 Background->GrayLevel[0.98]],

Cell[TextData[{
 "When creating a general system in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " like ",
 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]],
 " (",
 ButtonBox["http://scientificarts.com/worklife",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://scientificarts.com/worklife"], None}],
 ") I often need to process multiple notebooks to gather data from those \
notebooks to distill and present to the user. Often I open these notebooks \
with the option Visible\[Rule]False so that the user doesn't see them opening \
and closing as the processing takes place.  But if those notebooks have \
dynamic content in them then, each time they are opened (even if invisible), \
a dialog will open asking if the user gives permission for dynamic content to \
be evaluated.  This is a very good feature--it is key to security in a system \
that allows automatic evaluation of dynamic content that can access the \
operating system.  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " allows you to mark a directory as \"Trusted\" and, if so marked, opening \
notebooks from a trusted directory will not prompt the permission dialog.\n\n\
The interface in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " for adding a new directory to the list of trusted directories is not very \
user friendly at the moment (it involves knowing how to edit \
FrontEnd`FileName expressions) and so I have created a function that does \
this in a way that is more intuitive in that it simply prompts you to select \
a directory from the standard file system Open dialog. \n\nIn fact, 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]],
 ", there are a very large number of features that make underlying \
functionality of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " much more useful; hence the tagline for the product: \"Extending ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s Reach...\"  You can download the fully functional trial version of ",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 " from ",
 ButtonBox["http://scientificarts.com/worklife/trial.html",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://scientificarts.com/worklife/trial.html"], None}],
 "\n\nHere is the code that defines a function AddTrustedPath that presents \
the more useful interface to taking this action (note that, as it should, it \
still opens a dialog at the end that will ask for confirmation that you do \
indeed want to add the directory that you choose).  A set of functions like \
this (also ones for adding un-trusted paths, for example) are currently in \
the Development version of ",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 ":"
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[261054326736877838414386808080066454062]",
 CellChangeTimes->{{3.413476427340415*^9, 3.4134765155453653`*^9}, 
   3.413476814591051*^9},
 CellTags->{
  "EssayCell", "Text284679318267757849172850723292113040025", 
   "EssayBodyCell284679318267757849172850723292113040025", 
   "EssayCell284679318267757849172850723292113040025", 
   "DiaryDate[{2008, 3, 2, 19, 53, 27.577406}]", 
   "CellGUID[16058599087523679242532299053642512168]", 
   "GUIDTag[284679318267757849172850723292113040025]"},
 CellID->1980859830],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AddTrustedPath", "::", "\"\<nottrusted\>\""}], "=", 
   "\"\<The directory `1` is currently contained in the list of Untrusted \
directories.  Please remove it from this list first before adding it to the \
list of Trusted directories.\>\""}], ";"}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[283307745073012493277745364063702632070]",
 CellChangeTimes->{
  3.413476527343252*^9, {3.41347694625947*^9, 3.413476962446828*^9}},
 CellTags->{
  "EssayCell", "Input284679318267757849172850723292113040025", 
   "EssayBodyCell284679318267757849172850723292113040025", 
   "EssayCell284679318267757849172850723292113040025", 
   "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
   "CellGUID[304902906830027138741363212951623957643]", 
   "GUIDTag[284679318267757849172850723292113040025]"},
 CellID->1303091728],

Cell[BoxData[
 RowBox[{
  RowBox[{"AddTrustedPath", "[", "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Catch", "@", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "securityOptions", ",", "dir", ",", "trustedPaths", ",", 
       "unTrustedPaths", ",", "unTrustedPathsAsStrings", ",", 
       "trustByDefault"}], "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"trustedPaths", "=", 
       RowBox[{"CurrentValue", "[", 
        RowBox[{"$FrontEnd", ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<NotebookSecurityOptions\>\"", ",", "\"\<TrustedPath\>\""}], 
          "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"unTrustedPaths", "=", 
       RowBox[{"CurrentValue", "[", 
        RowBox[{"$FrontEnd", ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<NotebookSecurityOptions\>\"", ",", "\"\<UntrustedPath\>\""}], 
          "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"unTrustedPathsAsStrings", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"ToFileName", "[", 
          RowBox[{"{", "#", "}"}], "]"}], "&"}], "/@", "unTrustedPaths"}]}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"trustByDefault", "=", 
       RowBox[{"CurrentValue", "[", 
        RowBox[{"$FrontEnd", ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<NotebookSecurityOptions\>\"", ",", "\"\<TrustByDefault\>\""}], 
          "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"dir", "=", 
       RowBox[{"SystemDialogInput", "[", 
        RowBox[{
         StyleBox["\"\<Directory\>\"",
          ShowStringCharacters->True], ",", "$HomeDirectory", ",", 
         RowBox[{
         "WindowTitle", "\[Rule]", "\"\<Select a Directory to Trust\>\""}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"dir", "===", "$Canceled"}], ",", 
        RowBox[{"Throw", "[", "$Canceled", "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"unTrustedPathsAsStrings", ",", "dir"}], "]"}], ",", 
        RowBox[{"Throw", "[", 
         RowBox[{
          RowBox[{"Message", "[", 
           RowBox[{
            RowBox[{"AddTrustedPath", "::", "nottrusted"}], ",", "dir"}], 
           "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"SetOptions", "[", 
             RowBox[{"$FrontEnd", ",", 
              RowBox[{"\"\<PreferencesSettings\>\"", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"\"\<Page\>\"", "\[Rule]", "\"\<System\>\""}], 
                "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
            RowBox[{
            "FrontEndTokenExecute", "[", "\"\<PreferencesDialog\>\"", "]"}]}],
            ")"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"trustedPaths", "=", 
       RowBox[{"Union", "@", 
        RowBox[{"Flatten", "[", 
         RowBox[{"{", 
          RowBox[{"trustedPaths", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"FrontEnd`FileName", "[", 
              RowBox[{"{", "#", "}"}], "]"}], "&"}], "[", "dir", "]"}]}], 
          "}"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"securityOptions", "=", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\"\<TrustedPath\>\"", "\[Rule]", "trustedPaths"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<UntrustedPath\>\"", "\[Rule]", "unTrustedPaths"}], ",", 
         
         RowBox[{"\"\<TrustByDefault\>\"", "\[Rule]", "trustByDefault"}]}], 
        "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"SetOptions", "[", 
       RowBox[{"$FrontEnd", ",", 
        RowBox[{
        "\"\<NotebookSecurityOptions\>\"", "\[Rule]", "securityOptions"}]}], 
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "securityOptions"}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[283307745073012493277745364063702632070]",
 CellChangeTimes->{
  3.413476527343252*^9, {3.41347694625947*^9, 3.4134769556562147`*^9}},
 CellTags->{
  "EssayCell", "Input284679318267757849172850723292113040025", 
   "EssayBodyCell284679318267757849172850723292113040025", 
   "EssayCell284679318267757849172850723292113040025", 
   "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
   "CellGUID[304902906830027138741363212951623957643]", 
   "GUIDTag[284679318267757849172850723292113040025]"},
 CellID->45547780],

Cell[TextData[{
 "I hope that this is useful to folks!  Just remember that there are a huge \
number of things like this 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]],
 " and more in development...  Give it a try: ",
 ButtonBox["http://scientificarts.com/worklife/trial.html",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://scientificarts.com/worklife/trial.html"], None}]
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[171779657496772938536695834131954652813]",
 CellChangeTimes->{{3.413476586888291*^9, 3.413476626856793*^9}},
 CellTags->{
  "EssayCell", "Text284679318267757849172850723292113040025", 
   "EssayBodyCell284679318267757849172850723292113040025", 
   "EssayCell284679318267757849172850723292113040025", 
   "DiaryDate[{2008, 3, 2, 19, 56, 25.806567}]", 
   "CellGUID[97212532449913142700859597651300581079]", 
   "GUIDTag[284679318267757849172850723292113040025]"},
 CellID->1024440390]
},
Editable->True,
ScreenStyleEnvironment->"Working",
WindowSize->{550, Automatic},
WindowMargins->{{118, Automatic}, {Automatic, 9}},
WindowTitle->Automatic,
Visible->True,
DockedCells->{},
ShowSelection->True,
TaggingRules:>{
 "3.0.0\[Beta]36", "GUIDTag[37118443975249873240310971474125058517]", 
  "Notebook"},
CreateCellID->True,
DefaultNewCellStyle->"Text",
Magnification->1.,
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData["Notebook"], PageHeaders -> {{
       Cell[
        TextData[{
          CounterBox["Page"]}], "PageNumber"], None, 
       Cell[
        TextData[{
          ValueBox["FileName"]}], "Header"]}, {
       Cell[
        TextData[{
          ValueBox["FileName"]}], "Header"], None, 
       Cell[
        TextData[{
          CounterBox["Page"]}], "PageNumber"]}}, CellFrameLabelMargins -> 6, 
    StyleMenuListing -> None], 
   Cell[
    StyleData["Section"], CellFrame -> {{0, 0}, {0, 1}}, 
    CellMargins -> {{27, Inherited}, {8, 34}}, 
    CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, 
    CellFrameMargins -> 4, DefaultNewInlineCellStyle -> "None", 
    InputAutoReplacements -> {"TeX" -> FormBox[
        StyleBox[
         RowBox[{"T", 
           AdjustmentBox[
           "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
           "X"}], SingleLetterItalics -> False], TraditionalForm], "LaTeX" -> 
      FormBox[
        StyleBox[
         RowBox[{"L", 
           StyleBox[
            AdjustmentBox[
            "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
             BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
           AdjustmentBox[
           "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
           "X"}], SingleLetterItalics -> False], TraditionalForm], "mma" -> 
      "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", 
      "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], ParentList}, 
    TextAlignment -> Center, LineSpacing -> {1, 2}, LanguageCategory -> 
    "NaturalLanguage", CounterIncrements -> "Section", 
    CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, 
    MenuPosition -> 1250, MenuCommandKey -> "4", FontFamily -> "Helvetica", 
    FontSize -> 20, FontWeight -> "Bold"], 
   Cell[
    StyleData["Subsection"], CellMargins -> {{20, Inherited}, {8, 12}}, 
    CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, 
    DefaultNewInlineCellStyle -> "None", 
    InputAutoReplacements -> {"TeX" -> StyleBox[
        RowBox[{"T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "LaTeX" -> StyleBox[
        RowBox[{"L", 
          StyleBox[
           AdjustmentBox[
           "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, 
            BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", 
      "MMA" -> "Mathematica", "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, 
    LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", 
    CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", 
    FontSize -> 14, FontWeight -> "Bold"], 
   Cell[
    StyleData["Subsubsection"], CellMargins -> {{25, Inherited}, {2, 10}}, 
    CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, 
    DefaultNewInlineCellStyle -> "None", 
    InputAutoReplacements -> {"TeX" -> StyleBox[
        RowBox[{"T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "LaTeX" -> StyleBox[
        RowBox[{"L", 
          StyleBox[
           AdjustmentBox[
           "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, 
            BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", 
      "MMA" -> "Mathematica", "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, 
    LanguageCategory -> "NaturalLanguage", CounterIncrements -> 
    "Subsubsection", FontFamily -> "Helvetica", FontSize -> 13, FontWeight -> 
    "Bold"], 
   Cell[
    StyleData["Text"], CellMargins -> {{25, 10}, {7, 7}}, 
    InputAutoReplacements -> {"TeX" -> StyleBox[
        RowBox[{"T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "LaTeX" -> StyleBox[
        RowBox[{"L", 
          StyleBox[
           AdjustmentBox[
           "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, 
            BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", 
      "MMA" -> "Mathematica", "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, 
    LineSpacing -> {1, 3}, CounterIncrements -> "Text"], 
   Cell[
    StyleData["Input"], CellMargins -> {{25, 10}, {5, 7}}, Evaluatable -> 
    True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> 
    True, PageBreakWithin -> False, GroupPageBreakWithin -> False, 
    DefaultFormatType -> DefaultInputFormatType, 
    "TwoByteSyntaxCharacterAutoReplacement" -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> 
    InputForm, ShowStringCharacters -> True, NumberMarks -> True, 
    LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input",
     FontWeight -> "Bold"], 
   Cell[
    StyleData["Output"], CellMargins -> {{66, 10}, {10, 5}}, 
    CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", 
    TextClipboardType -> "InputText", StripStyleOnPaste -> True, 
    PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> 
    True, CellAutoOverwrite -> True, DefaultFormatType -> 
    DefaultOutputFormatType, ContextMenu -> 
    FEPrivate`FrontEndResource["ContextMenus", "Output"], 
    "TwoByteSyntaxCharacterAutoReplacement" -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, 
    ShowStringCharacters -> False, CounterIncrements -> "Output", 
    MenuPosition -> 1550], 
   Cell[
    StyleData["Graphics"], 
    CellMargins -> {{30, Inherited}, {Inherited, Inherited}}, 
    CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, 
    PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> 
    True, ShowCellLabel -> False, DefaultFormatType -> 
    DefaultOutputFormatType, LanguageCategory -> None, FormatType -> 
    InputForm, CounterIncrements -> "Graphics", 
    ImageMargins -> {{43, Inherited}, {Inherited, 0}}, StyleMenuListing -> 
    None, FontFamily -> "Helvetica", FontSize -> 10], 
   Cell[
    StyleData["Picture"], CellMargins -> {{27, Inherited}, {4, 4}}, 
    CellGroupingRules -> "GraphicsGrouping", StyleMenuListing -> None], 
   Cell[
    StyleData["DisplayFormula"], 
    CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, 
    CellHorizontalScrolling -> True, DefaultFormatType -> 
    DefaultInputFormatType, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> 
    True, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
   Cell[
    StyleData["Program"], CellFrame -> {{0, 0}, {0.5, 0.5}}, 
    CellMargins -> {{60, 4}, {0, 8}}, CellHorizontalScrolling -> True, 
    Hyphenation -> False, LanguageCategory -> "Formula", ScriptLevel -> 1, 
    FontFamily -> "Courier"], 
   Cell[
    StyleData["SmallText"], CellMargins -> {{60, 10}, {6, 6}}, 
    DefaultNewInlineCellStyle -> "None", LineSpacing -> {1, 3}, 
    LanguageCategory -> "NaturalLanguage", CounterIncrements -> "SmallText", 
    MenuPosition -> 1750, StyleMenuListing -> None, FontFamily -> "Helvetica",
     FontSize -> 9], 
   Cell[
    StyleData["HTMLVerbatim"], CellMargins -> {{25, 10}, {7, 7}}, 
    ConversionRules -> {"HTML" -> Identity}, Hyphenation -> False, 
    LineSpacing -> {1, 3}, FontFamily -> "Geneva"], 
   Cell[
    StyleData["MathCaption"], CellMargins -> {{25, 10}, {7, 7}}, 
    InputAutoReplacements -> {"TeX" -> StyleBox[
        RowBox[{"T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "LaTeX" -> StyleBox[
        RowBox[{"L", 
          StyleBox[
           AdjustmentBox[
           "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, 
            BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
          AdjustmentBox[
          "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
           0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", 
      "MMA" -> "Mathematica", "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, 
    LineSpacing -> {1, 3}, CounterIncrements -> "Text"], 
   Cell[
    StyleData["Item"], CellDingbat -> 
    Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], 
    CellMargins -> {{75, 10}, {4, 4}}, ReturnCreatesNewCell -> True, 
    CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
    CellFrameLabelMargins -> 4, CounterIncrements -> "Item", 
    CounterAssignments -> {{"Subitem", 0}, {"Subsubitem", 0}}, MenuPosition -> 
    1600], 
   Cell[
    StyleData["Subitem"], CellDingbat -> 
    Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], 
    CellMargins -> {{99, 12}, {4, 4}}, ReturnCreatesNewCell -> True, 
    CellGroupingRules -> {"GroupTogetherNestedGrouping", 15100}, 
    CellFrameLabelMargins -> 4, DefaultNewCellStyle -> "Item", 
    CounterIncrements -> "Subitem", CounterAssignments -> {{"Subsubitem", 0}},
     MenuPosition -> 1610], 
   Cell[
    StyleData["Subsubitem"], CellDingbat -> 
    Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], 
    CellMargins -> {{123, 12}, {4, 4}}, ReturnCreatesNewCell -> True, 
    CellGroupingRules -> {"GroupTogetherNestedGrouping", 15200}, 
    CellFrameLabelMargins -> 4, DefaultNewCellStyle -> "Subsubitem", 
    CounterIncrements -> "Subsubitem"], 
   Cell[
    StyleData["DisplayFormula"], 
    CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, 
    StripStyleOnPaste -> True, DefaultFormatType -> DefaultInputFormatType, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> 
    True, MenuPosition -> 1700, 
    UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
   Cell[
    StyleData["TR"], StyleMenuListing -> None, FontFamily -> "Times", 
    FontWeight -> "Plain", FontSlant -> "Plain"], 
   Cell[
    StyleData["TI"], StyleMenuListing -> None, FontFamily -> "Times", 
    FontWeight -> "Plain", FontSlant -> "Italic"], 
   Cell[
    StyleData["TB"], StyleMenuListing -> None, FontFamily -> "Times", 
    FontWeight -> "Bold"], 
   Cell[
    StyleData["TBI"], StyleMenuListing -> None, FontFamily -> "Times", 
    FontWeight -> "Bold", FontSlant -> "Italic"], 
   Cell[
    StyleData["MR"], 
    ConversionRules :> {
     "TeX" -> {{"\\texttt{", Automatic, "}"}, {"", Automatic, ""}}}, 
    Hyphenation -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", 
    FontSlant -> "Plain"], 
   Cell[
    StyleData["MO"], 
    ConversionRules :> {
     "TeX" -> {{"\\texttt{", Automatic, "}"}, {"", Automatic, ""}}}, 
    Hyphenation -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", 
    FontSlant -> "Italic"], 
   Cell[
    StyleData["MB"], 
    ConversionRules :> {
     "TeX" -> {{"\\texttt{", Automatic, "}"}, {"", Automatic, ""}}}, 
    Hyphenation -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold"], 
   
   Cell[
    StyleData["MBO"], 
    ConversionRules :> {
     "TeX" -> {{"\\texttt{", Automatic, "}"}, {"", Automatic, ""}}}, 
    Hyphenation -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", 
    FontSlant -> "Italic"], 
   Cell[
    StyleData["SR"], 
    ConversionRules :> {
     "TeX" -> {{"\\textsf{", Automatic, "}"}, {"", Automatic, ""}}}, 
    StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> 
    "Plain", FontSlant -> "Plain"], 
   Cell[
    StyleData["SO"], 
    ConversionRules :> {
     "TeX" -> {{"\\textsf{", Automatic, "}"}, {"", Automatic, ""}}}, 
    StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> 
    "Plain", FontSlant -> "Italic"], 
   Cell[
    StyleData["SB"], 
    ConversionRules :> {
     "TeX" -> {{"\\textsf{", Automatic, "}"}, {"", Automatic, ""}}}, 
    StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> 
    "Bold"], 
   Cell[
    StyleData["SBO"], 
    ConversionRules :> {
     "TeX" -> {{"\\textsf{", Automatic, "}"}, {"", Automatic, ""}}}, 
    StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold",
     FontSlant -> "Italic"]}, Visible -> False, FrontEndVersion -> 
  "7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "CoyyrightCell"->{
  Cell[568, 21, 465, 17, 70, "Title",
   CellTags->"CoyyrightCell"]},
 "EssayCell"->{
  Cell[1036, 40, 791, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.278242}]", 
     "CellGUID[101092174127946203893209486792098704430]", 
     "GUIDTag[284679318267757849172850723292113040025]", 
     "BlogEntryTitle284679318267757849172850723292113040025"},
   CellID->2031583469],
  Cell[2141, 74, 5297, 144, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.577406}]", 
     "CellGUID[16058599087523679242532299053642512168]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1980859830],
  Cell[7441, 220, 980, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1303091728],
  Cell[8424, 245, 4920, 116, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->45547780],
  Cell[13347, 363, 1531, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 56, 25.806567}]", 
     "CellGUID[97212532449913142700859597651300581079]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1024440390]},
 "Subsection284679318267757849172850723292113040025"->{
  Cell[1036, 40, 791, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.278242}]", 
     "CellGUID[101092174127946203893209486792098704430]", 
     "GUIDTag[284679318267757849172850723292113040025]", 
     "BlogEntryTitle284679318267757849172850723292113040025"},
   CellID->2031583469]},
 "EssayBodyCell284679318267757849172850723292113040025"->{
  Cell[1036, 40, 791, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.278242}]", 
     "CellGUID[101092174127946203893209486792098704430]", 
     "GUIDTag[284679318267757849172850723292113040025]", 
     "BlogEntryTitle284679318267757849172850723292113040025"},
   CellID->2031583469],
  Cell[2141, 74, 5297, 144, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.577406}]", 
     "CellGUID[16058599087523679242532299053642512168]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1980859830],
  Cell[7441, 220, 980, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1303091728],
  Cell[8424, 245, 4920, 116, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->45547780],
  Cell[13347, 363, 1531, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 56, 25.806567}]", 
     "CellGUID[97212532449913142700859597651300581079]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1024440390]},
 "EssayCell284679318267757849172850723292113040025"->{
  Cell[1036, 40, 791, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.278242}]", 
     "CellGUID[101092174127946203893209486792098704430]", 
     "GUIDTag[284679318267757849172850723292113040025]", 
     "BlogEntryTitle284679318267757849172850723292113040025"},
   CellID->2031583469],
  Cell[2141, 74, 5297, 144, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.577406}]", 
     "CellGUID[16058599087523679242532299053642512168]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1980859830],
  Cell[7441, 220, 980, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1303091728],
  Cell[8424, 245, 4920, 116, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->45547780],
  Cell[13347, 363, 1531, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 56, 25.806567}]", 
     "CellGUID[97212532449913142700859597651300581079]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1024440390]},
 "DiaryDate[{2008, 3, 2, 19, 53, 27.278242}]"->{
  Cell[1036, 40, 791, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.278242}]", 
     "CellGUID[101092174127946203893209486792098704430]", 
     "GUIDTag[284679318267757849172850723292113040025]", 
     "BlogEntryTitle284679318267757849172850723292113040025"},
   CellID->2031583469]},
 "CellGUID[101092174127946203893209486792098704430]"->{
  Cell[1036, 40, 791, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.278242}]", 
     "CellGUID[101092174127946203893209486792098704430]", 
     "GUIDTag[284679318267757849172850723292113040025]", 
     "BlogEntryTitle284679318267757849172850723292113040025"},
   CellID->2031583469]},
 "GUIDTag[284679318267757849172850723292113040025]"->{
  Cell[1036, 40, 791, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.278242}]", 
     "CellGUID[101092174127946203893209486792098704430]", 
     "GUIDTag[284679318267757849172850723292113040025]", 
     "BlogEntryTitle284679318267757849172850723292113040025"},
   CellID->2031583469],
  Cell[2141, 74, 5297, 144, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.577406}]", 
     "CellGUID[16058599087523679242532299053642512168]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1980859830],
  Cell[7441, 220, 980, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1303091728],
  Cell[8424, 245, 4920, 116, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->45547780],
  Cell[13347, 363, 1531, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 56, 25.806567}]", 
     "CellGUID[97212532449913142700859597651300581079]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1024440390]},
 "BlogEntryTitle284679318267757849172850723292113040025"->{
  Cell[1036, 40, 791, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.278242}]", 
     "CellGUID[101092174127946203893209486792098704430]", 
     "GUIDTag[284679318267757849172850723292113040025]", 
     "BlogEntryTitle284679318267757849172850723292113040025"},
   CellID->2031583469]},
 "Text284679318267757849172850723292113040025"->{
  Cell[2141, 74, 5297, 144, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.577406}]", 
     "CellGUID[16058599087523679242532299053642512168]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1980859830],
  Cell[13347, 363, 1531, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 56, 25.806567}]", 
     "CellGUID[97212532449913142700859597651300581079]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1024440390]},
 "DiaryDate[{2008, 3, 2, 19, 53, 27.577406}]"->{
  Cell[2141, 74, 5297, 144, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.577406}]", 
     "CellGUID[16058599087523679242532299053642512168]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1980859830]},
 "CellGUID[16058599087523679242532299053642512168]"->{
  Cell[2141, 74, 5297, 144, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 53, 27.577406}]", 
     "CellGUID[16058599087523679242532299053642512168]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1980859830]},
 "Input284679318267757849172850723292113040025"->{
  Cell[7441, 220, 980, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1303091728],
  Cell[8424, 245, 4920, 116, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->45547780]},
 "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]"->{
  Cell[7441, 220, 980, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1303091728],
  Cell[8424, 245, 4920, 116, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->45547780]},
 "CellGUID[304902906830027138741363212951623957643]"->{
  Cell[7441, 220, 980, 23, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1303091728],
  Cell[8424, 245, 4920, 116, 70, "Input",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Input284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
     "CellGUID[304902906830027138741363212951623957643]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->45547780]},
 "DiaryDate[{2008, 3, 2, 19, 56, 25.806567}]"->{
  Cell[13347, 363, 1531, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 56, 25.806567}]", 
     "CellGUID[97212532449913142700859597651300581079]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1024440390]},
 "CellGUID[97212532449913142700859597651300581079]"->{
  Cell[13347, 363, 1531, 43, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text284679318267757849172850723292113040025", 
     "EssayBodyCell284679318267757849172850723292113040025", 
     "EssayCell284679318267757849172850723292113040025", 
     "DiaryDate[{2008, 3, 2, 19, 56, 25.806567}]", 
     "CellGUID[97212532449913142700859597651300581079]", 
     "GUIDTag[284679318267757849172850723292113040025]"},
   CellID->1024440390]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"CoyyrightCell", 30705, 757},
 {"EssayCell", 30791, 760},
 {"Subsection284679318267757849172850723292113040025", 33182, 812},
 {"EssayBodyCell284679318267757849172850723292113040025", 33767, 824},
 {"EssayCell284679318267757849172850723292113040025", 36157, 876},
 {"DiaryDate[{2008, 3, 2, 19, 53, 27.278242}]", 38541, 928},
 {"CellGUID[101092174127946203893209486792098704430]", 39123, 940},
 {"GUIDTag[284679318267757849172850723292113040025]", 39704, 952},
 {"BlogEntryTitle284679318267757849172850723292113040025", 42099, 1004},
 {"Text284679318267757849172850723292113040025", 42675, 1016},
 {"DiaryDate[{2008, 3, 2, 19, 53, 27.577406}]", 43628, 1037},
 {"CellGUID[16058599087523679242532299053642512168]", 44135, 1048},
 {"Input284679318267757849172850723292113040025", 44638, 1059},
 {"DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 45594, 1080},
 {"CellGUID[304902906830027138741363212951623957643]", 46557, 1101},
 {"DiaryDate[{2008, 3, 2, 19, 56, 25.806567}]", 47513, 1122},
 {"CellGUID[97212532449913142700859597651300581079]", 48021, 1133}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 465, 17, 70, "Title",
 CellTags->"CoyyrightCell"],
Cell[1036, 40, 791, 19, 70, "Subsection",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Subsection284679318267757849172850723292113040025", 
   "EssayBodyCell284679318267757849172850723292113040025", 
   "EssayCell284679318267757849172850723292113040025", 
   "DiaryDate[{2008, 3, 2, 19, 53, 27.278242}]", 
   "CellGUID[101092174127946203893209486792098704430]", 
   "GUIDTag[284679318267757849172850723292113040025]", 
   "BlogEntryTitle284679318267757849172850723292113040025"},
 CellID->2031583469],
Cell[1830, 61, 308, 11, 70, "Subsubsection"],
Cell[2141, 74, 5297, 144, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text284679318267757849172850723292113040025", 
   "EssayBodyCell284679318267757849172850723292113040025", 
   "EssayCell284679318267757849172850723292113040025", 
   "DiaryDate[{2008, 3, 2, 19, 53, 27.577406}]", 
   "CellGUID[16058599087523679242532299053642512168]", 
   "GUIDTag[284679318267757849172850723292113040025]"},
 CellID->1980859830],
Cell[7441, 220, 980, 23, 70, "Input",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Input284679318267757849172850723292113040025", 
   "EssayBodyCell284679318267757849172850723292113040025", 
   "EssayCell284679318267757849172850723292113040025", 
   "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
   "CellGUID[304902906830027138741363212951623957643]", 
   "GUIDTag[284679318267757849172850723292113040025]"},
 CellID->1303091728],
Cell[8424, 245, 4920, 116, 70, "Input",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Input284679318267757849172850723292113040025", 
   "EssayBodyCell284679318267757849172850723292113040025", 
   "EssayCell284679318267757849172850723292113040025", 
   "DiaryDate[{2008, 3, 2, 19, 55, 26.147202}]", 
   "CellGUID[304902906830027138741363212951623957643]", 
   "GUIDTag[284679318267757849172850723292113040025]"},
 CellID->45547780],
Cell[13347, 363, 1531, 43, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text284679318267757849172850723292113040025", 
   "EssayBodyCell284679318267757849172850723292113040025", 
   "EssayCell284679318267757849172850723292113040025", 
   "DiaryDate[{2008, 3, 2, 19, 56, 25.806567}]", 
   "CellGUID[97212532449913142700859597651300581079]", 
   "GUIDTag[284679318267757849172850723292113040025]"},
 CellID->1024440390]
}
]
*)

(* End of internal cache information *)