(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Wolfram 15.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       154,          7]
NotebookDataLength[     43085,       1122]
NotebookOptionsPosition[     34543,        963]
NotebookOutlinePosition[     36598,       1012]
CellTagsIndexPosition[     36520,       1007]
WindowTitle->$ChainCacheDirectory
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {GridBox[{
      {
       ItemBox[Cell[BoxData[
         RowBox[{
          TemplateBox[{12},
           "Spacer1"], Cell[
          "WOLFRAM INSTITUTE/ PUZZLES SYMBOL", "PacletNameCell",
           TextAlignment->Center,ExpressionUUID->
           "9af300f2-f5bb-41a2-90a8-ce82a767f19f"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "86a3c456-818c-4378-843a-fb87b344152e"],
        Background->LightDarkSwitched[
          RGBColor[0.490196, 0.576471, 0.690196]],
        ItemSize->Full], ""}
     },
     GridBoxAlignment->{"Rows" -> {{Center}}},
     GridBoxItemSize->{"Columns" -> {Full, 
         Scaled[0.02]}, "Rows" -> {{2.5}}}], Cell[TextData[{
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "See Also",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "987a6ad6-1490-49d8-8d14-63012c6f1bc3"]
         }],ExpressionUUID->"0a5d24a7-4ba9-48eb-8ec9-328917c01b04"],
         StripOnInput->False],{
        StyleBox[
          "\"$UserBaseDirectory\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/$UserBaseDirectory"], Delimiter,
          StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"$ChainCacheDuration\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/$ChainCacheDuration"], 
         StyleBox[
          StyleBox[
           "\"$ChainNetworkEnabled\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/$ChainNetworkEnabled"], 
         StyleBox[
          StyleBox[
           "\"ClearChainCache\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ClearChainCache"], 
         StyleBox[
          StyleBox[
           "\"ChainExplorerQuery\"", "SeeAlsoRelated", StripOnInput -> False],
            "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainExplorerQuery"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "a7201ca1-0d54-45c1-823c-100681c4599b"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "Related Guides",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "4e5765bb-9966-4c72-b0b0-1c72f33aca89"]
         }],ExpressionUUID->"7f310009-1d50-4c13-9a08-b8c1470602cb"],
         StripOnInput->False],{
        "\"Chain\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Chain"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "526810e1-54ba-4761-a997-1f77d616ad60"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "URL",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "c9d130d8-b5aa-4aca-8dcd-b2c06061c73b"]
         }],ExpressionUUID->"1ef26895-2198-4388-9b69-32dc1903f1ba"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/$ChainCacheDirectory\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/$ChainCacheDirectory"],
          Delimiter, "\"Copy web URL\"" :> 
         Module[{DocumentationSearch`Private`nb$}, 
           DocumentationSearch`Private`nb$ = 
            NotebookPut[
             Notebook[{
               Cell[BoxData[
                 MakeBoxes[
                  Hyperlink[
                   "http://reference.wolfram.com/language/WolframInstitute/\
Puzzles/ref/$ChainCacheDirectory.html"], StandardForm]], "Input", 
                 TextClipboardType -> "PlainText"]}, Visible -> False]]; 
           SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
           FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
           NotebookClose[DocumentationSearch`Private`nb$]; Null], 
         "\"Go to web URL\"" :> 
         FrontEndExecute[{
           NotebookLocate[{
             URL[If[TrueQ[False], 
                 "http://reference.wolfram.com/system-modeler/", 
                 "http://reference.wolfram.com/language/"] <> 
               "WolframInstitute/Puzzles/ref/$ChainCacheDirectory" <> 
               ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "3b851de0-f58f-49fa-a293-ca1c6293c9af"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "49e583c4-eccd-4d28-a014-a7b2df2f6b88"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"519d233b-8c9d-48c3-b4ca-b01b2039f3ff"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"ddf53cff-1e0d-4b38-a6eb-a1f0ac86ab50"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "$ChainCacheDirectory", "ObjectName",ExpressionUUID->
      "14257717-2587-4f7f-8678-8a267f51daf1"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"5d9cc177-0cf1-43b2-8714-ebdb4c91050a"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "54082491-16db-471e-a830-627c835d023a"]
    }],ExpressionUUID->"5d51de2b-9c88-4f4d-b685-5e66be8a48a3"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"cd214180-2cc5-417c-9ce4-\
49fa8a96717f"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["$ChainCacheDirectory"]], 
        "paclet:WolframInstitute/Puzzles/ref/$ChainCacheDirectory", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "b1e09aa3-4b1b-4cd0-a7f4-a6d10b8ba720"],
     "\[LineSeparator]",
     "is the directory in which explorer responses are cached."
    }],ExpressionUUID->"1637e593-8cd9-47d6-838c-0c3adcba69b2"]}
  }]], "Usage",ExpressionUUID->"eeb7cbf5-eca1-4e43-a161-1ec7f6affc64"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[Cell[TextData[{
  Cell[BoxData[
   DynamicBox[ToBoxes[
     If[CurrentValue[
        EvaluationCell[], "CellGroupOpen"] =!= Closed, 
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], 
      Rotate[
       Style[
        Graphics[{
          Thickness[0.18], 
          RGBColor[0.8509803921568627, 0.396078431372549, 0], 
          Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
         PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
        0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
    ImageSizeCache->{
     13.600000000000001`, {-0.1685058593749993, 13.768505859375}}]],
   ExpressionUUID->"efc24be4-a45f-4798-9ea9-355a48d282da"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"c9a31230-f95a-4050-824f-9678bc29b7a9"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "1c7326b3-3831-426d-824a-1257ff560ddb"]],ExpressionUUID->"022f231b-5144-\
4fa3-9fb0-805a70530aef"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1831688829,ExpressionUUID->"c0de530f-8747-4626-af1e-1136e294c903"],

Cell[TextData[{
 "The default is a ",
 Cell[BoxData["ChainCache"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "49e83391-7670-4b36-958e-c3ee4e027643"],
 " folder under ",
 Cell[BoxData["ApplicationData"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "32a6993f-722b-4f0c-97b8-4f974f259461"],
 " in ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["$UserBaseDirectory"]], "paclet:ref/$UserBaseDirectory"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "89950a00-9729-42ea-9d52-db9298220fd7"],
 ", so the cache survives a session and is shared between them."
}], "Notes",ExpressionUUID->"168d4cc4-91ac-413c-8a58-27bde3822bf1"],

Cell["\<\
One record is written per backend, property and address, as a WXF file \
holding the backend, the property, the address, the time it was retrieved, \
and the raw response payload.\
\>", "Notes",ExpressionUUID->"4613cc9b-4066-453f-91f0-8252ed1240fc"],

Cell["\<\
Records are grouped into a subdirectory per backend, and the file name is the \
SHA-256 of the backend, property and address. The address is hashed rather \
than used directly, so a case-sensitive base58 address cannot collide with \
another on a case-insensitive file system.\
\>", "Notes",ExpressionUUID->"270c9857-4277-4c55-a109-7b5347ae3080"],

Cell["The directory is created on the first write, not on load.", "Notes",ExpressionUUID->"21f99e58-3a13-4f97-b031-2f91ca37c854"],

Cell["\<\
Setting this to a scratch directory isolates a session, which is how the \
Chain tests run without a network.\
\>", "Notes",ExpressionUUID->"424ff8b9-2089-4aac-8dd1-668093330c91"],

Cell[TextData[{
 "Only responses that were retrieved successfully are stored. A ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0e700619-73ca-46c9-8219-e365ed9a76be"],
 " is never cached, so a rate limit does not persist past its own duration."
}], "Notes",ExpressionUUID->"95a7565e-2a55-460c-ab06-f6143bdc7128"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"f8a28094-7da2-4a0f-8a20-fb12721e7e2f"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[
     MatchQ[
      CurrentValue[
       EvaluationNotebook[], {
       TaggingRules, "Openers", "PrimaryExamplesSection"}, Open], 
      Alternatives[True, Open]], 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
   ImageSizeCache->{
    13.600000000000001`, {4.251494140625001, 9.348505859375}}]],
  ExpressionUUID->"2270a897-9453-4310-a5f2-c27a6fea2710"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a0197676-9223-4c3d-8641-022a750e1eff"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(10)", "ExampleCount",ExpressionUUID->
  "9527fc29-2c66-4c22-9a76-75528fba9a8d"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1016069258,ExpressionUUID->"1b08de9a-0c0f-43d5-8068-f2bfb27de2cc"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"8af646ab-3fd2-4740-a42c-53162adc0020"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "6349ebc2-3b89-4af9-ac5a-94eefe9983bf"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"17ef68c3-864e-494c-9b45-60fd03f6da52"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "7199ebbd-dbd9-4188-a870-3b4b71bae00d"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->286058262,ExpressionUUID->"6011f90e-6e74-4893-af94-6a9cd351f380"],

Cell["The default location:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"533a4cd1-08f1-4db1-bae9-00b8b32f587a"],

Cell[CellGroupData[{

Cell[BoxData["$ChainCacheDirectory"], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"36baa963-8c5c-42b8-ad6e-4ddfe5692c6e"],

Cell[BoxData["\<\"/Users/swish/Library/Wolfram/ApplicationData/\
WolframInstitute/Puzzles/ChainCache\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"af96fe17-cdfa-4af6-9cd5-d7db6c392228"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "08abe06e-253b-485a-905d-18e231f63a3b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b9e25c1a-e011-4a5f-\
80cd-786b84e44c49"],

Cell["A query writes one record per backend:", "ExampleText",ExpressionUUID->"3fed2bfe-f7bf-4409-9904-10d18766b279"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "ChainAddressSummary", "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", 
   "]"}], "[", "\"\<Backend\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"287a25fc-ce83-4e21-9127-5d377bd6ca9a"],

Cell[BoxData["\<\"MempoolSpace\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"331932dc-5cf7-4f64-a2d8-e9b2051d3f37"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "1ec47267-588a-428c-8bb5-c7c0eb3e0d55"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"99ef2f9d-0ab7-4303-\
b4f2-d594b5194b6e"],

Cell["\<\
The records are WXF files under a subdirectory named for the backend:\
\>", "ExampleText",ExpressionUUID->"5ef42b18-7d2d-4d74-b267-04e89e86da15"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FileNameTake", "[", 
  RowBox[{
   RowBox[{"First", " ", "@", " ", 
    RowBox[{"FileNames", "[", 
     RowBox[{"\"\<*.wxf\>\"", ",", " ", "$ChainCacheDirectory", ",", " ", 
      "Infinity"}], "]"}]}], ",", " ", 
   RowBox[{"-", "2"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"95e73d55-c3a9-4b49-8dc0-daf43c3c3d6b"],

Cell[BoxData["\<\"MempoolSpace/\
568809608a67d6b4fb63dad050a98fc0621a2aa771f788335d626afd457d215c.wxf\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c6b1af6a-ec0a-4b95-979c-011805f5061d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "46780222-645f-4f29-8f40-6525ac0530a7"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"954a9209-000c-4734-9883-0aeee5ef46e1"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "527a29c1-93cb-42ce-8bb5-3e3e3a378dc1"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"587a64dd-e51e-47f5-80b1-9434a14f5906"],

Cell["\<\
Pointing the setting at a scratch directory isolates everything that follows:\
\
\>", "ExampleText",ExpressionUUID->"776cfe97-72b0-4e70-a3cc-30f7fa1597ef"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"$ChainCacheDirectory", " ", "=", " ", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{"$TemporaryDirectory", ",", " ", "\"\<chain-scratch\>\""}], 
       "}"}], "]"}]}], "}"}], ",", " ", 
   RowBox[{
    RowBox[{"ClearChainCache", "[", "]"}], ";", " ", 
    RowBox[{
    "ChainAddressBalance", "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", 
     "]"}], ";", " ", 
    RowBox[{"Length", " ", "@", " ", 
     RowBox[{"FileNames", "[", 
      RowBox[{"\"\<*.wxf\>\"", ",", " ", "$ChainCacheDirectory", ",", " ", 
       "Infinity"}], "]"}]}]}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1e898bf4-d0be-4508-969c-1f816f62013f"],

Cell[BoxData["1"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"69540dab-d254-433a-94e0-df3f98928152"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c0a2557c-ae8c-4790-b140-3c406b665b1f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c61b5279-7c38-450a-\
9ec5-dcb6510ca1f9"],

Cell["\<\
A record holds the raw payload and the time it was retrieved, not a parsed \
summary:\
\>", "ExampleText",ExpressionUUID->"09b9b544-ab17-4c46-b0c1-914ad02e5c7c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", " ", "@", " ", 
  RowBox[{"Import", "[", 
   RowBox[{
    RowBox[{"First", " ", "@", " ", 
     RowBox[{"FileNames", "[", 
      RowBox[{"\"\<*.wxf\>\"", ",", " ", "$ChainCacheDirectory", ",", " ", 
       "Infinity"}], "]"}]}], ",", " ", "\"\<WXF\>\""}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"79546445-4e34-4336-a257-cb3e6c85c947"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Backend\"\>", ",", "\<\"Property\"\>", ",", "\<\"Address\"\>", 
   ",", "\<\"Retrieved\"\>", ",", "\<\"Payload\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ca4526a0-15b9-4490-a863-4548bc797cbb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "038dcc99-4f0c-408e-85c6-f1419cf4d7cf"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"a884c9be-25f9-48fd-\
9ecf-c0011365ff29"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ClearChainCache"]], 
    "paclet:WolframInstitute/Puzzles/ref/ClearChainCache", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "72d7bb97-8c86-4bb9-92be-ab9ae129186b"],
 " empties it and says how many records went:"
}], "ExampleText",ExpressionUUID->"89e6c584-9cd2-4571-a73b-e17278b0e623"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ClearChainCache", "[", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"222f84be-5b6d-44d7-9763-f1178319bd34"],

Cell[BoxData["1"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"39e54794-e8c8-445f-844e-184984ac9fc0"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "de6baea0-f7cf-40ba-8467-ef4ff6c9dd5f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"879ca6da-94cf-4f56-bd23-d8b3017dbf9c"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "e142780b-d7a6-4afc-be37-6784b7de26b8"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"b721283f-6d4d-479b-9213-b4db68a305bf"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["$ChainCacheDuration"]], 
    "paclet:WolframInstitute/Puzzles/ref/$ChainCacheDuration", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c2184b14-094c-4e8c-ae30-7d69bdff21a1"],
 " decides how long a record here is reused before the backend is asked again:"
}], "ExampleText",ExpressionUUID->"0b224dde-883e-40ba-a177-978d56efa7e5"],

Cell[CellGroupData[{

Cell[BoxData["$ChainCacheDuration"], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3286a7b3-0f92-4765-9faf-5a2522e82a69"],

Cell[BoxData[
 TemplateBox[{"1", "\"h\"", "hour", "\"Hours\""},
  "Quantity"]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6987ab2a-ce48-4885-974f-dcce1274e71c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "60e8e2bf-7788-47bb-8c19-2aa2b6ca30cb"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"00b6a0c7-6655-437d-\
ac05-1de97e46b5f9"],

Cell[TextData[{
 "With ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["$ChainNetworkEnabled"]], 
    "paclet:WolframInstitute/Puzzles/ref/$ChainNetworkEnabled", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "58673c28-0bc5-4cf4-b1f1-eaa79a5fcf84"],
 " set to ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6efeeae4-6ec6-4ad0-99d6-8a31a4fb0e30"],
 ", this directory is the only source of answers:"
}], "ExampleText",ExpressionUUID->"d25d3b08-e1d9-4337-977d-679184e0ef87"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "ChainAddressBalance", "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", 
   "]"}], ";", " ", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"$ChainNetworkEnabled", " ", "=", " ", "False"}], "}"}], ",", 
    " ", 
    RowBox[{
    "ChainAddressBalance", "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", 
     "]"}]}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9505b341-8f37-47bb-a9d2-9d007fe269f6"],

Cell[BoxData[
 TemplateBox[{"0", 
   RowBox[{"\[VeryThinSpace]", 
     FormBox["\" sat\"", TraditionalForm]}], "satoshis", "\"Satoshis\""},
  "QuantityPostfix"]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"011a92a5-c28d-449c-b29c-d3a893dfbbb4"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "fd6db066-2962-4f54-a8ae-2be52d5d8399"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"53bc83d3-870c-4e9a-8c83-011fe7c13a48"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "b5928805-9f0a-444c-a00a-254f196c87ac"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"5b79cf44-bb05-4f36-ae99-de1808abf2ba"],

Cell[TextData[{
 "The cache is shared across sessions, so an answer may predate the current \
one by up to ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["$ChainCacheDuration"]], 
    "paclet:WolframInstitute/Puzzles/ref/$ChainCacheDuration", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5b877730-e7fa-40c7-a1ae-388a0a378516"],
 ". The ",
 Cell[BoxData["\<\"Retrieved\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "575b3f53-23a1-4bdc-8d2a-cc051d6879dc"],
 " field of every summary says when:"
}], "ExampleText",ExpressionUUID->"46de420b-8461-4e24-bb71-4238b51996e5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "ChainAddressSummary", "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", 
   "]"}], "[", "\"\<Retrieved\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"748d66b9-911a-48cf-b5f2-2b161da0c090"],

Cell[BoxData[
 TemplateBox[{
   RowBox[{"\"Wed 26 Aug 2026 00:51:01\"", 
     StyleBox[
      RowBox[{"\"GMT\"", "\[InvisibleSpace]", "+", "\[InvisibleSpace]", 
        StyleBox["5", NumberMarks -> False, StripOnInput -> False]}], 
      "TimeZoneLabel"]}], 
   RowBox[{"DateObject", "[", 
     RowBox[{
       RowBox[{"{", 
         RowBox[{
          "2026", ",", "8", ",", "26", ",", "0", ",", "51", ",", 
           "1.86207`7.022570992085857"}], "}"}], ",", "\"Instant\"", ",", 
       "\"Gregorian\"", ",", "5.`"}], "]"}]},
  "DateObject",
  Editable->False]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f5788557-26ff-4560-9256-a7d46e932d9d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "327fc864-3b77-4f77-bd56-dbc61ca5e327"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b1721e46-9497-4f47-\
8fc5-5c53d280fa28"],

Cell[TextData[{
 "A ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "239b720a-bebb-4d70-a985-cbba249ece02"],
 " is never stored, so retrying after a rate limit reaches the backend rather \
than the cache:"
}], "ExampleText",ExpressionUUID->"1c71a4a6-56db-421b-b94a-56dcb4a029f0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"$ChainNetworkEnabled", " ", "=", " ", "False"}], "}"}], ",", " ", 
   RowBox[{
    RowBox[{"ClearChainCache", "[", "]"}], ";", " ", 
    RowBox[{
    "ChainAddressBalance", "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", 
     "]"}], ";", " ", 
    RowBox[{"Length", " ", "@", " ", 
     RowBox[{"FileNames", "[", 
      RowBox[{"\"\<*.wxf\>\"", ",", " ", "$ChainCacheDirectory", ",", " ", 
       "Infinity"}], "]"}]}]}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"05c0232a-a9dc-46fd-9f88-cb2ba06bbf93"],

Cell[BoxData["0"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"828b9820-23c1-4ad4-a4fd-b64f32402fa8"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["$ChainCacheDuration"]], 
           "paclet:WolframInstitute/Puzzles/ref/$ChainCacheDuration", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "50dafe6d-8541-4a34-9d7c-6a2fec1bb2f1"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["$ChainNetworkEnabled"]], 
           "paclet:WolframInstitute/Puzzles/ref/$ChainNetworkEnabled", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a62cc80c-77bb-46b8-9dbb-90a07ee910c8"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ClearChainCache"]], 
           "paclet:WolframInstitute/Puzzles/ref/ClearChainCache", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "ac331341-e103-44d5-90da-d66bcc4bdd27"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ChainExplorerQuery"]], 
           "paclet:WolframInstitute/Puzzles/ref/ChainExplorerQuery", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "9c42f578-268c-4374-87e5-b48bd3b8d314"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["$UserBaseDirectory"]], "paclet:ref/$UserBaseDirectory"},
          
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "3dfd384e-9d9f-46f3-a364-29d5114bba68"]
       }], "SeeAlso",ExpressionUUID->"3debd247-4459-42ed-87db-9d78079aa78f"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"bc4c4bb4-06ac-448d-a8d4-\
db6c3fd25beb"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, "RelatedGuide.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Chain"]], "paclet:WolframInstitute/Puzzles/guide/Chain"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "fad2badd-ac95-40ce-b7d7-5cb1d0cd117d"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"7e64329f-ad30-48d7-a7f7-\
fac57cc94f4a"],

Cell[" ", "FooterCell",ExpressionUUID->"274eeeae-b93e-4c04-b840-86acf884bd6b"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"$ChainCacheDirectory",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "", "LinkTrails" -> "", 
  "ExampleCounter" -> 1, 
  "Openers" -> {
   "PrimaryExamplesSection" -> Open, "ExampleSection" -> {"0" -> Open}, 
    "AllOptsTable" -> Closed}, "NewStyles" -> True, 
  "CitationPopupData" -> $Failed, "ShowCitation" -> False, "HasOptions" -> 
  True, "RootCaptions" -> "", "HeaderCoreAreaLink" -> {}, 
  "Metadata" -> {
   "built" -> "{2026, 8, 27, 0, 12, 4.723890}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[$ChainCacheDirectory, paclet : \
WolframInstitute/Puzzles/ref/$ChainCacheDirectory, WolframInstitute/Puzzles \
Package Symbol] is the directory in which explorer responses are cached.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "$ChainCacheDirectory", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "$ChainCacheDirectory", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/$ChainCacheDirectory", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"6513984a-a3d3-4601-9581-e00d3835e91d"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15013, 392, 131, 2, 70, "ExampleText",ExpressionUUID->"533a4cd1-08f1-4db1-bae9-00b8b32f587a",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 36363, 1001}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[588, 21, 6374, 154, 70, "AnchorBarGrid",ExpressionUUID->"519d233b-8c9d-48c3-b4ca-b01b2039f3ff",
 CellID->1],
Cell[6965, 177, 107, 0, 70, "ContextNameCell",ExpressionUUID->"ddf53cff-1e0d-4b38-a6eb-a1f0ac86ab50"],
Cell[CellGroupData[{
Cell[7097, 181, 563, 14, 70, "ObjectNameGrid",ExpressionUUID->"cd214180-2cc5-417c-9ce4-49fa8a96717f"],
Cell[7663, 197, 696, 16, 70, "Usage",ExpressionUUID->"eeb7cbf5-eca1-4e43-a161-1ec7f6affc64"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8396, 218, 1444, 34, 70, "NotesSection",ExpressionUUID->"c0de530f-8747-4626-af1e-1136e294c903",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1831688829],
Cell[9843, 254, 829, 22, 70, "Notes",ExpressionUUID->"168d4cc4-91ac-413c-8a58-27bde3822bf1"],
Cell[10675, 278, 259, 4, 70, "Notes",ExpressionUUID->"4613cc9b-4066-453f-91f0-8252ed1240fc"],
Cell[10937, 284, 356, 5, 70, "Notes",ExpressionUUID->"270c9857-4277-4c55-a109-7b5347ae3080"],
Cell[11296, 291, 129, 0, 70, "Notes",ExpressionUUID->"21f99e58-3a13-4f97-b031-2f91ca37c854"],
Cell[11428, 293, 189, 3, 70, "Notes",ExpressionUUID->"424ff8b9-2089-4aac-8dd1-668093330c91"],
Cell[11620, 298, 389, 7, 70, "Notes",ExpressionUUID->"95a7565e-2a55-460c-ab06-f6143bdc7128"]
}, Closed]],
Cell[12024, 308, 80, 0, 70, "PageDelimiter",ExpressionUUID->"f8a28094-7da2-4a0f-8a20-fb12721e7e2f"],
Cell[CellGroupData[{
Cell[12129, 312, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"1b08de9a-0c0f-43d5-8068-f2bfb27de2cc",
 CellID->1016069258],
Cell[13534, 351, 216, 4, 70, "Input",ExpressionUUID->"8af646ab-3fd2-4740-a42c-53162adc0020",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13775, 359, 1235, 31, 70, "ExampleSection",ExpressionUUID->"6011f90e-6e74-4893-af94-6a9cd351f380",
 CellID->286058262],
Cell[15013, 392, 131, 2, 70, "ExampleText",ExpressionUUID->"533a4cd1-08f1-4db1-bae9-00b8b32f587a",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15169, 398, 173, 2, 70, "Input",ExpressionUUID->"36baa963-8c5c-42b8-ad6e-4ddfe5692c6e"],
Cell[15345, 402, 196, 2, 70, "Output",ExpressionUUID->"af96fe17-cdfa-4af6-9cd5-d7db6c392228"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15578, 409, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b9e25c1a-e011-4a5f-80cd-786b84e44c49"],
Cell[15805, 416, 116, 0, 70, "ExampleText",ExpressionUUID->"3fed2bfe-f7bf-4409-9904-10d18766b279"],
Cell[CellGroupData[{
Cell[15946, 420, 289, 6, 70, "Input",ExpressionUUID->"287a25fc-ce83-4e21-9127-5d377bd6ca9a"],
Cell[16238, 428, 126, 1, 70, "Output",ExpressionUUID->"331932dc-5cf7-4f64-a2d8-e9b2051d3f37"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16413, 435, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"99ef2f9d-0ab7-4303-b4f2-d594b5194b6e"],
Cell[16640, 442, 155, 2, 70, "ExampleText",ExpressionUUID->"5ef42b18-7d2d-4d74-b267-04e89e86da15"],
Cell[CellGroupData[{
Cell[16820, 448, 406, 9, 70, "Input",ExpressionUUID->"95e73d55-c3a9-4b49-8dc0-daf43c3c3d6b"],
Cell[17229, 459, 199, 3, 70, "Output",ExpressionUUID->"c6b1af6a-ec0a-4b95-979c-011805f5061d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17489, 469, 1227, 31, 70, "ExampleSection",ExpressionUUID->"587a64dd-e51e-47f5-80b1-9434a14f5906",
 CellID->1293636265],
Cell[18719, 502, 165, 3, 70, "ExampleText",ExpressionUUID->"776cfe97-72b0-4e70-a3cc-30f7fa1597ef"],
Cell[CellGroupData[{
Cell[18909, 509, 794, 19, 70, "Input",ExpressionUUID->"1e898bf4-d0be-4508-969c-1f816f62013f"],
Cell[19706, 530, 107, 1, 70, "Output",ExpressionUUID->"69540dab-d254-433a-94e0-df3f98928152"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19850, 536, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c61b5279-7c38-450a-9ec5-dcb6510ca1f9"],
Cell[20077, 543, 171, 3, 70, "ExampleText",ExpressionUUID->"09b9b544-ab17-4c46-b0c1-914ad02e5c7c"],
Cell[CellGroupData[{
Cell[20273, 550, 432, 9, 70, "Input",ExpressionUUID->"79546445-4e34-4336-a257-cb3e6c85c947"],
Cell[20708, 561, 259, 4, 70, "Output",ExpressionUUID->"ca4526a0-15b9-4490-a863-4548bc797cbb"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21016, 571, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"a884c9be-25f9-48fd-9ecf-c0011365ff29"],
Cell[21243, 578, 508, 13, 70, "ExampleText",ExpressionUUID->"89e6c584-9cd2-4571-a73b-e17278b0e623"],
Cell[CellGroupData[{
Cell[21776, 595, 190, 3, 70, "Input",ExpressionUUID->"222f84be-5b6d-44d7-9763-f1178319bd34"],
Cell[21969, 600, 107, 1, 70, "Output",ExpressionUUID->"39e54794-e8c8-445f-844e-184984ac9fc0"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[22137, 608, 1244, 31, 70, "ExampleSection",ExpressionUUID->"b721283f-6d4d-479b-9213-b4db68a305bf",
 CellID->2123667759],
Cell[23384, 641, 549, 13, 70, "ExampleText",ExpressionUUID->"0b224dde-883e-40ba-a177-978d56efa7e5"],
Cell[CellGroupData[{
Cell[23958, 658, 172, 2, 70, "Input",ExpressionUUID->"3286a7b3-0f92-4765-9faf-5a2522e82a69"],
Cell[24133, 662, 168, 3, 70, "Output",ExpressionUUID->"6987ab2a-ce48-4885-974f-dcce1274e71c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24338, 670, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"00b6a0c7-6655-437d-ac05-1de97e46b5f9"],
Cell[24565, 677, 705, 19, 70, "ExampleText",ExpressionUUID->"d25d3b08-e1d9-4337-977d-679184e0ef87"],
Cell[CellGroupData[{
Cell[25295, 700, 525, 14, 70, "Input",ExpressionUUID->"9505b341-8f37-47bb-a9d2-9d007fe269f6"],
Cell[25823, 716, 251, 5, 70, "Output",ExpressionUUID->"011a92a5-c28d-449c-b29c-d3a893dfbbb4"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[26135, 728, 1237, 31, 70, "ExampleSection",ExpressionUUID->"5b79cf44-bb05-4f36-ae99-de1808abf2ba",
 CellID->1305812373],
Cell[27375, 761, 784, 20, 70, "ExampleText",ExpressionUUID->"46de420b-8461-4e24-bb71-4238b51996e5"],
Cell[CellGroupData[{
Cell[28184, 785, 291, 6, 70, "Input",ExpressionUUID->"748d66b9-911a-48cf-b5f2-2b161da0c090"],
Cell[28478, 793, 655, 16, 70, "Output",ExpressionUUID->"f5788557-26ff-4560-9256-a7d46e932d9d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29170, 814, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b1721e46-9497-4f47-8fc5-5c53d280fa28"],
Cell[29397, 821, 355, 8, 70, "ExampleText",ExpressionUUID->"1c71a4a6-56db-421b-b94a-56dcb4a029f0"],
Cell[CellGroupData[{
Cell[29777, 833, 650, 15, 70, "Input",ExpressionUUID->"05c0232a-a9dc-46fd-9f88-cb2ba06bbf93"],
Cell[30430, 850, 107, 1, 70, "Output",ExpressionUUID->"828b9820-23c1-4ad4-a4fd-b64f32402fa8"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[30588, 857, 3141, 82, 70, "SeeAlsoSection",ExpressionUUID->"bc4c4bb4-06ac-448d-a8d4-db6c3fd25beb"],
Cell[33732, 941, 726, 18, 70, "MoreAboutSection",ExpressionUUID->"7e64329f-ad30-48d7-a7f7-fac57cc94f4a"],
Cell[34461, 961, 78, 0, 70, "FooterCell",ExpressionUUID->"274eeeae-b93e-4c04-b840-86acf884bd6b"]
}
]
*)

(* End of internal cache information *)

