(* 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[     61549,       1583]
NotebookOptionsPosition[     50409,       1380]
NotebookOutlinePosition[     52512,       1430]
CellTagsIndexPosition[     52434,       1425]
WindowTitle->ChainAddressSummary
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->
           "9fd034f4-1fb7-44a2-8446-7f5b97a46de4"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "7bc616c5-9dbc-4158-bd40-e3f4041a5967"],
        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->
           "22fc65e6-6a44-4df9-807c-3faec6165d76"]
         }],ExpressionUUID->"07464d05-0f99-4ccb-8dcc-1bc14b464064"],
         StripOnInput->False],{
        StyleBox[
          "\"ChainAddressBalance\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainAddressBalance"], 
         StyleBox[
          "\"ChainAddressCrossCheck\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainAddressCrossCheck"], 
         StyleBox[
          "\"ChainExplorerQuery\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainExplorerQuery"], 
         StyleBox[
          "\"ChainAddressTransactions\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainAddressTransactions"], 
         StyleBox[
          "\"ChainPrizeUnclaimedQ\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainPrizeUnclaimedQ"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "c8d39dcd-9918-4c03-a808-b8819b8b8448"],
     "\[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->
           "f860416e-c4ff-452c-a3be-390fdc33e555"]
         }],ExpressionUUID->"9f9962e8-602d-4a86-ac82-5fdf330d2b9d"],
         StripOnInput->False],{
        "\"Chain\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Chain"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "4f55f410-3d3b-4744-b181-0d095243d951"],
     "\[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->
           "a36c10e2-9a5d-4952-9fbc-140dd1ef537f"]
         }],ExpressionUUID->"3d331908-0d83-47b1-b5b7-a386742af766"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ChainAddressSummary\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/ChainAddressSummary"], 
         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/ChainAddressSummary.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/ChainAddressSummary" <> ".html"],
               None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "b83f5da7-6a59-4a78-85c3-679049b35480"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "bab17fdc-5969-4c1a-bf41-ac7347a7b903"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"47d1ccb7-3918-41b3-8636-c14b6592672c"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"bdfa02fd-7237-43c8-9fcc-bef4580d0b26"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ChainAddressSummary", "ObjectName",ExpressionUUID->
      "9ab93f6a-e129-47cd-9185-7ed334630a5c"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"893a1341-ff13-463e-848d-d7e9a424ecc4"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "1e7b11e6-b30a-4331-ad21-8737092a3beb"]
    }],ExpressionUUID->"2cda0a6c-4b3d-45f6-b57b-c5f80ca2c865"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"7b1610aa-a654-4934-ab9a-\
2e519b0a64f1"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ChainAddressSummary"]], 
         "paclet:WolframInstitute/Puzzles/ref/ChainAddressSummary", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["address", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "74394b01-3655-4ad0-bf56-663d10368fed"],
     "\[LineSeparator]",
     "gives a normalized Association of what the first responding default \
backend reports about ",
     StyleBox["address", "TI"],
     "."
    }],ExpressionUUID->"86da5b43-2fc6-4dcb-bf1f-d326598cb1f9"]}
  }]], "Usage",ExpressionUUID->"ad3baab7-05d2-4a85-9a3b-85a5fa4c56ef"]
}, 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->"8f5fabad-e4fb-446a-b6b8-4db146f21e93"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"07b3aa07-e451-4c5f-86c6-75f919520c7d"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "b7a65c15-1cc0-4333-b831-e5ee0dfd5ba3"]],ExpressionUUID->"751de157-33f1-\
488a-9d95-4bebd668eefa"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->154882474,ExpressionUUID->"3833e027-4238-4678-ae3d-7d3b461ae533"],

Cell[TextData[{
 "The result holds ",
 Cell[BoxData["\<\"Address\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3633ec7a-2b69-4eee-8c1a-3fd8a5103d8b"],
 ", ",
 Cell[BoxData["\<\"Network\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ee8caf9c-4d10-437e-83ff-493752c1596e"],
 ", the ",
 Cell[BoxData["\<\"Backend\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2f640feb-4bbb-4707-be0f-c7b069efc6b9"],
 " that answered, the ",
 Cell[BoxData["\<\"Unit\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2b19ce36-1e33-4c36-b7e9-0a8e71273aa4"],
 " every amount is counted in, the ",
 Cell[BoxData["\<\"Balance\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c7eb0cd6-497c-402e-8de4-076958d965b5"],
 ", ",
 Cell[BoxData["\<\"ReceivedTotal\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0b5fc452-5098-48bd-a97b-40c2669a8d86"],
 ", ",
 Cell[BoxData["\<\"SentTotal\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5e864859-926d-400c-90e0-074f30595e4e"],
 ", ",
 Cell[BoxData["\<\"SpentOutputCount\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b5661aee-a17f-48c9-bbb6-822a10ad6887"],
 ", ",
 Cell[BoxData["\<\"TransactionCount\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b84e0ca8-61e6-47f4-b4d8-6bfdfcbdd1c2"],
 " and ",
 Cell[BoxData["\<\"UnconfirmedBalance\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "115956fd-aebf-45a4-8a93-241fa7cb1cf9"],
 ", and the time ",
 Cell[BoxData["\<\"Retrieved\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d9794d44-14f3-483b-a1a5-9bffef49ff6d"],
 "."
}], "Notes",ExpressionUUID->"a4c2570d-a474-469c-9c82-9fa365b69716"],

Cell["\<\
Every amount is an Integer count of the network's base unit: satoshis on \
Bitcoin, wei on Ethereum. No amount is ever a real number, so comparisons \
between backends are exact.\
\>", "Notes",ExpressionUUID->"f8b73f49-7c59-49e3-959a-e942ee9d2f3c"],

Cell[TextData[{
 "A quantity the backend does not report is ",
 Cell[BoxData[
  RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0f2fed38-2758-4234-9972-7e5f2e80a372"],
 ", never ",
 Cell[BoxData["0"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "daef4eee-3143-4f4f-bda5-51c98c952116"],
 ". BlockCypher publishes no spent-output count, and Blockscout publishes no \
account nonce."
}], "Notes",ExpressionUUID->"f3857808-3ee4-47e4-9219-0526681e30db"],

Cell[TextData[{
 "The default backends are asked in the order ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["$ChainExplorers"]], 
    "paclet:WolframInstitute/Puzzles/ref/$ChainExplorers", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a928d207-ca21-4857-bc38-c12ecc2d8b49"],
 " lists them, and the first answer that is not a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d76eb300-00e2-4425-a98c-131d4074003c"],
 " is the result. The ",
 Cell[BoxData["\<\"Backend\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5145ac1e-ca23-4de9-9ce9-b76fbd3f707c"],
 " field records which one it was."
}], "Notes",ExpressionUUID->"4102d813-c40b-4e6c-a062-4621b0a86be0"],

Cell[TextData[{
 "If no backend answers, the result is a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ce63f26d-ddca-45be-8242-97bd21e53263"],
 " with tag ",
 Cell[BoxData["\<\"ChainNoBackendResponded\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e3be263e-1bf4-41b3-9319-89de54188dac"],
 " whose ",
 Cell[BoxData["\<\"Failures\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c6d0951b-3887-40d8-b9fd-1057a347ba0c"],
 " field holds what each backend said. It is never a summary with a zero \
balance."
}], "Notes",ExpressionUUID->"f0d4a5d8-c21f-4d70-81a7-adb8afcd835c"],

Cell[TextData[{
 "This is a single-backend read and is not evidence that a prize is or is not \
still there. ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ChainAddressCrossCheck"]], 
    "paclet:WolframInstitute/Puzzles/ref/ChainAddressCrossCheck", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1b3cda7f-b89b-4f33-b20d-a89d0ff4ca52"],
 " requires agreement; this asks one explorer."
}], "Notes",ExpressionUUID->"a325fc23-0f62-4837-9af9-b6a6a84fc221"],

Cell["\<\
Recognized addresses are mainnet Bitcoin base58 and lowercase bech32 forms \
and Ethereum hex forms. Anything else is left unevaluated.\
\>", "Notes",ExpressionUUID->"3981c282-3c72-46d4-b162-99dbe0bcfc05"],

Cell[BoxData[GridBox[{
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "4dadaaf6-4823-494a-ae80-b8183d62ad03"], Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"d0620e86-6e51-471f-ac3d-486adffc55bc"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"03d860ac-8576-4779-846d-228c4a788471"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"9ccf1b64-1fbf-48c7-b656-6f8c83a6d79d"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "e9e15d61-dea6-40f3-be24-250457654a37"], Cell[TextData[Cell[
    BoxData["\"\<Backends\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "8c87126d-af2d-4905-9028-1426f86febd1"]], "TableText",ExpressionUUID->
     "669adf6c-c9d4-41b0-add7-1ad0d96f07ea"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["Automatic"]], "paclet:ref/Automatic"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "d2291d1c-3aa4-4488-88c3-81399146962f"]], "TableText",ExpressionUUID->
     "ad9362e8-f5ad-4cf2-8377-c08888f6b6d7"], Cell[TextData[{
     "which entries of ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["$ChainExplorers"]], 
        "paclet:WolframInstitute/Puzzles/ref/$ChainExplorers", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "81cd4721-1a5c-429b-8d8d-0267a62f50f3"],
     " to ask, in order; ",
     Cell[BoxData["Automatic"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "a5781832-47e7-4cfc-b1b1-33e48705a93f"],
     " uses the defaults for the address's network"
    }], "TableText",ExpressionUUID->"44fe3b55-c22d-4e76-b19c-ff69f96c56a8"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "9e544741-2147-420e-9895-7001ff849b02"], Cell[TextData[Cell[
    BoxData["\"\<Cache\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "c7200753-944e-4ae2-af16-b0aaad04aa3d"]], "TableText",ExpressionUUID->
     "27c9da6a-8168-48d1-934a-8322870a9bc9"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["True"]], "paclet:ref/True"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "7cf4f287-8623-47a7-864e-a5dbe843442f"]], "TableText",ExpressionUUID->
     "ebb38e1c-077a-46af-8af6-7c71992e1b15"], Cell[TextData[{
     "whether a cached response inside ",
     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->
      "0df5dd8c-14bf-4cd7-b144-cf2e7cec4008"],
     " may be reused"
    }], "TableText",ExpressionUUID->"64e58e7b-596f-409c-8f7b-be46af4c1575"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "cb1b36e8-7f8e-4ae8-879a-086b1d9fbec6"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["TimeConstraint"]], "paclet:ref/TimeConstraint"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "e49d62a6-a752-4715-9943-dc9bd17d7652"]], "TableText",ExpressionUUID->
     "a9266f27-e96a-4a46-8dcd-97c0eabab794"], Cell[TextData[Cell[BoxData[
    "30"], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "0ef17501-2f8d-4492-8107-043d648ad577"]], "TableText",ExpressionUUID->
     "a1c2bd49-f4a6-42c4-9016-0ca88405e60d"], Cell[
    "seconds allowed for each backend request", "TableText",ExpressionUUID->
     "b30c5cb2-32d4-47bb-88f0-9eaef59e4aa6"]}
  }]], "3ColumnTableMod",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "Rows" -> {None, None, None, {None}}},
 GridBoxDividers->{
  "Rows" -> {{
     True, True, True, True, 
      True}}}},ExpressionUUID->"b3919cac-76c7-498f-998e-87e80a8b057c"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"0a37d089-542e-4a9a-8a36-faa1b722a378"],

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->"c168df77-1133-4341-a0fe-eb819f0caaff"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d56be829-db29-48c7-836f-847780120f69"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(15)", "ExampleCount",ExpressionUUID->
  "d455a6f8-bfc2-4010-bd48-07f8a250a4eb"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->359560354,ExpressionUUID->"26e7011c-1005-449e-8271-142b359ed835"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"a1e7c823-84cb-4240-a35f-de2fe1857182"],

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->
  "bc155827-7ccb-466e-b467-9743885fc861"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"acf69b30-6383-40af-81e8-4b710e8e656d"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "52018ff9-5100-4f6f-92ae-2de509f47f46"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->111887020,ExpressionUUID->"e34a0113-bc0d-4849-89ba-8ead773f6bf2"],

Cell["\<\
The genesis coinbase address, as the first responding backend reports it:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"5767dd27-8e15-41bc-b92e-d52103795b87"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainAddressSummary", 
  "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e449b3ca-b954-4088-b73d-b78f419dce9a"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Address\"\>", 
    "\[Rule]", "\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>"}], ",", 
   RowBox[{"\<\"Network\"\>", "\[Rule]", "\<\"Bitcoin\"\>"}], ",", 
   RowBox[{"\<\"Backend\"\>", "\[Rule]", "\<\"MempoolSpace\"\>"}], ",", 
   RowBox[{"\<\"Unit\"\>", "\[Rule]", "\<\"Satoshis\"\>"}], ",", 
   RowBox[{"\<\"Balance\"\>", "\[Rule]", "5743025285"}], ",", 
   RowBox[{"\<\"ReceivedTotal\"\>", "\[Rule]", "5743025285"}], ",", 
   RowBox[{"\<\"SentTotal\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"SpentOutputCount\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"TransactionCount\"\>", "\[Rule]", "65544"}], ",", 
   RowBox[{"\<\"UnconfirmedBalance\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"Retrieved\"\>", "\[Rule]", 
    TemplateBox[{
      RowBox[{"\"Wed 26 Aug 2026 00:50:12\"", 
        StyleBox[
         RowBox[{"\"GMT\"", "\[InvisibleSpace]", "+", "\[InvisibleSpace]", 
           StyleBox["5", NumberMarks -> False, StripOnInput -> False]}], 
         "TimeZoneLabel"]}], 
      RowBox[{"DateObject", "[", 
        RowBox[{
          RowBox[{"{", 
            
            RowBox[{"2026", ",", "8", ",", "26", ",", "0", ",", "50", ",", 
              "12.342835`7.843989909234597"}], "}"}], ",", "\"Instant\"", ",",
           "\"Gregorian\"", ",", "5.`"}], "]"}]},
     "DateObject",
     Editable->False]}]}], "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"cf984dc3-7994-4390-943c-c9f5f6fdc046"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "52e97f7b-f3a8-41f6-a922-36372be46222"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"31111c97-5fe1-4657-\
b423-ad2491ddd435"],

Cell["\<\
Nothing has ever been spent from that address, which is what the spend fields \
say:\
\>", "ExampleText",ExpressionUUID->"cf77d4d2-977f-48bd-a63c-4fccecef7d15"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyTake", "[", 
  RowBox[{
   RowBox[{
   "ChainAddressSummary", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
    "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<SentTotal\>\"", ",", " ", "\"\<SpentOutputCount\>\""}], 
    "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ea4d09b5-64a1-45a0-8932-0923aaf205f8"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"SentTotal\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"SpentOutputCount\"\>", "\[Rule]", "0"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a74790cb-9984-4f1f-9053-624b3e8725aa"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "febb11a8-290d-4e84-b233-0b73899f83a0"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2d5f64a2-08d9-4ec5-\
b809-4b1924417f6f"],

Cell["\<\
The 2015 puzzle address for private key 1 received and paid out the same \
amount:\
\>", "ExampleText",ExpressionUUID->"d97207da-e0dd-4236-b17f-ae44d9f496b1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyTake", "[", 
  RowBox[{
   RowBox[{
   "ChainAddressSummary", "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", 
    "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Balance\>\"", ",", " ", "\"\<ReceivedTotal\>\"", ",", 
     " ", "\"\<SentTotal\>\""}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"95a4bca4-91f3-4f3b-b336-71cadd504759"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Balance\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"ReceivedTotal\"\>", "\[Rule]", "25001029"}], ",", 
   RowBox[{"\<\"SentTotal\"\>", "\[Rule]", "25001029"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d85f774c-58fb-4334-ae51-f0527e208435"]
}, 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->
  "fac4ac50-b240-468a-9a7e-17b73c9ba248"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"57c4fe6d-f24d-43fb-a395-5fa7b4a33c23"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "c698302e-601a-4735-99d6-96532f079208"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"7f1c5fdb-cc5f-405b-8981-34c6becb9b79"],

Cell[TextData[{
 "An Ethereum address is summarized in wei, and its ",
 Cell[BoxData["\<\"SpentOutputCount\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f57e2a06-1d86-4857-8a97-519128cd6199"],
 " is the account nonce:"
}], "ExampleText",ExpressionUUID->"b06ad787-6225-4c6e-b86d-b45ed5ec91b1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyTake", "[", 
  RowBox[{
   RowBox[{
   "ChainAddressSummary", 
    "[", "\"\<0x0000000000000000000000000000000000000000\>\"", "]"}], ",", 
   " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Network\>\"", ",", " ", "\"\<Unit\>\"", ",", 
     " ", "\"\<SpentOutputCount\>\""}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2e26d0c7-da75-4316-b1f0-c68195243105"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Network\"\>", "\[Rule]", "\<\"Ethereum\"\>"}], ",", 
   RowBox[{"\<\"Unit\"\>", "\[Rule]", "\<\"Wei\"\>"}], ",", 
   RowBox[{"\<\"SpentOutputCount\"\>", "\[Rule]", "0"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d63a3ee3-f7af-42ed-a672-936322e9fc97"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "75c48156-b839-4532-b39e-da95a76bb33f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b15e4f08-26f8-4a3d-\
9b81-653d31249206"],

Cell["\<\
A native segwit address is read the same way as a base58 one:\
\>", "ExampleText",ExpressionUUID->"8148b406-6c55-456f-9063-07fe24e1ada4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "ChainAddressSummary", 
   "[", "\"\<bc1qw508d6qejxtdg4y5r3zarvary0c5xw7kv8f3t4\>\"", "]"}], 
  "[", "\"\<Network\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"76afcfee-df6a-4013-8ac2-e7888e196a8c"],

Cell[BoxData["\<\"Bitcoin\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5731b2ee-9a27-4c93-ae71-4b48739b709a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8623d091-ff62-4381-8d04-55eceda6c49b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"a0478c2a-3ccf-4d7d-\
a1a7-c0f482822281"],

Cell[TextData[{
 "A quantity the backend does not publish is ",
 Cell[BoxData["Missing"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d7471612-ae3d-413f-bde2-e3e0fbc29deb"],
 ", so it cannot be mistaken for a zero:"
}], "ExampleText",ExpressionUUID->"cb60967e-d421-4222-b827-6fa57383867b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChainAddressSummary", "[", 
   RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
    RowBox[{"\"\<Backends\>\"", " ", "->", " ", "\"\<BlockCypher\>\""}]}], 
   "]"}], "[", "\"\<SpentOutputCount\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2b501e78-66da-4c6e-9777-a25dd7a438c8"],

Cell[BoxData[
 RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f7525774-6ed7-4007-8268-34afdc7897b4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "bc60d94a-6fbe-4132-9230-da2ff1d77e57"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"211b993e-9286-4ece-\
9bf3-63bbd194bdc4"],

Cell["\<\
An address whose form is not recognized is returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"777ef7cd-e9c1-4315-b071-637de6526312"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainAddressSummary", "[", "\"\<notanaddress\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b63ded02-1502-4dbc-b2dc-d5c89e0a8217"],

Cell[BoxData[
 RowBox[{"ChainAddressSummary", "[", "\<\"notanaddress\"\>", "]"}]], "Output",\

 CellLabel->"Out[1]= ",ExpressionUUID->"4b4676c7-2d11-4e6b-81f0-b001d8147d9b"]
}, 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->
  "21de0020-81d5-4582-b90a-1620248a3b7f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"4c622771-a2f8-431a-ad90-29b9883a5cb1"],
 "Options",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "3658afd1-845b-4ace-af94-e09137764f74"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2061341341,ExpressionUUID->"e2e17d5d-4b9d-4dbf-91b0-be3a54457ff8"],

Cell["Naming one backend pins the read to it:", "ExampleText",ExpressionUUID->"b50dac70-efce-4d4d-8a70-952fba145d11"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChainAddressSummary", "[", 
   RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
    RowBox[{"\"\<Backends\>\"", " ", "->", " ", "\"\<BlockstreamInfo\>\""}]}],
    "]"}], "[", "\"\<Backend\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1d73e0a7-a66b-4667-9c9d-4707228394ef"],

Cell[BoxData["\<\"BlockstreamInfo\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3fb894ff-a11f-473a-bf1f-46247ac5ae33"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "4cbcac02-9eaf-4633-b6cc-6e60f0e94c21"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f2717deb-6863-46ed-\
8657-3a04be4bbde1"],

Cell["\<\
A list of backends is tried in the order given, so the fallback order is the \
caller's:\
\>", "ExampleText",ExpressionUUID->"c3335217-84da-4a34-a865-332b345b7735"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChainAddressSummary", "[", 
   RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
    RowBox[{"\"\<Backends\>\"", " ", "->", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<BlockCypher\>\"", ",", " ", "\"\<MempoolSpace\>\""}], 
      "}"}]}]}], "]"}], "[", "\"\<Backend\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"26ba1d63-0723-4cf4-9eb1-1af1685181db"],

Cell[BoxData["\<\"BlockCypher\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1db718f6-e8ca-4e29-9138-f9bd87c7c154"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "cc40a3e6-1f85-4ece-8b78-45dab8774926"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"1aa82ff4-cc21-4f8a-\
a107-60d9af7f03af"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"\<\"Cache\"\>", " ", "->", " ", "False"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cb51228d-5358-4d8b-a90a-063d5c039b19"],
 " forces a fresh request even when a recent response is stored:"
}], "ExampleText",ExpressionUUID->"3ecfe12f-b876-49f7-98d9-43f02a4c46df"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChainAddressSummary", "[", 
   RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
    RowBox[{"\"\<Cache\>\"", " ", "->", " ", "False"}]}], "]"}], 
  "[", "\"\<Retrieved\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"784b2957-4cac-47b5-aa93-1717e987710d"],

Cell[BoxData[
 TemplateBox[{
   RowBox[{"\"Wed 26 Aug 2026 00:50:33\"", 
     StyleBox[
      RowBox[{"\"GMT\"", "\[InvisibleSpace]", "+", "\[InvisibleSpace]", 
        StyleBox["5", NumberMarks -> False, StripOnInput -> False]}], 
      "TimeZoneLabel"]}], 
   RowBox[{"DateObject", "[", 
     RowBox[{
       RowBox[{"{", 
         RowBox[{
          "2026", ",", "8", ",", "26", ",", "0", ",", "50", ",", 
           "33.277608`8.274727081740066"}], "}"}], ",", "\"Instant\"", ",", 
       "\"Gregorian\"", ",", "5.`"}], "]"}]},
  "DateObject",
  Editable->False]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"88085e98-0aac-4666-b9fd-aa375f895129"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "95ae32a2-7e33-4510-884d-85cebbbf6e79"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e3f62c55-ce5f-4bfc-\
9128-b7ad6a2ce899"],

Cell[TextData[{
 "Too short a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["TimeConstraint"]], "paclet:ref/TimeConstraint"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "386cf108-6a0e-4350-86de-fd37f8621a06"],
 " and no backend answers, which is a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "46ec5816-f223-4b82-999f-03feb78843da"],
 ":"
}], "ExampleText",ExpressionUUID->"2b63b57a-c6f1-4c00-8c8c-6e8dfdde3dcd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChainAddressSummary", "[", 
   RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
    RowBox[{"\"\<Cache\>\"", " ", "->", " ", "False"}], ",", " ", 
    RowBox[{"TimeConstraint", " ", "->", " ", "0.001"}]}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b9cb3643-e5dd-49f3-914d-94cc27e497e3"],

Cell[BoxData["\<\"ChainNoBackendResponded\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c1218022-4ef3-4b4d-a982-40c038c7697a"]
}, 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->
  "b8ef9782-cf0f-4032-971b-01deb9f1f3ef"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6c5e7492-e96e-4e71-a7fb-9f9274fca96b"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "41442c41-deed-4596-9d73-a62460ace03d"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"2fe3ce3b-9e9d-481a-a5f9-4efc0a016e67"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ChainAddressBalance"]], 
    "paclet:WolframInstitute/Puzzles/ref/ChainAddressBalance", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5e83637f-4107-48ee-a18d-3357ebf3dac8"],
 " is the ",
 Cell[BoxData["\<\"Balance\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "dd5ffc19-cad6-4656-aeae-0a139943625c"],
 " field with its unit attached:"
}], "ExampleText",ExpressionUUID->"eee0134e-c5de-4ad9-9197-501fd5e6e8ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainAddressBalance", 
  "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"def6a765-e681-4bd4-85e5-284807449d4f"],

Cell[BoxData[
 TemplateBox[{"0", 
   RowBox[{"\[VeryThinSpace]", 
     FormBox["\" sat\"", TraditionalForm]}], "satoshis", "\"Satoshis\""},
  "QuantityPostfix"]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0f33225d-ae69-4672-a75f-375cf6603981"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "47ac397a-d042-4387-bf8a-713dda45aa2b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f76f5ff3-734e-4a86-\
b5e2-3a33ab52bc8d"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ChainAddressCrossCheck"]], 
    "paclet:WolframInstitute/Puzzles/ref/ChainAddressCrossCheck", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "85638ce6-3e74-41dc-9f34-63f5b2f0a818"],
 " collects one of these summaries per backend instead of stopping at the \
first:"
}], "ExampleText",ExpressionUUID->"c18bf47a-7f84-46a1-afea-85ce7e000cc2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", " ", "@", " ", 
  RowBox[{
   RowBox[{
   "ChainAddressCrossCheck", "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"",
     "]"}], "[", "\"\<Summaries\>\"", "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9504fae2-ef40-43b6-b4f5-29474e24e5d0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"MempoolSpace\"\>", ",", "\<\"BlockstreamInfo\"\>", 
   ",", "\<\"BlockCypher\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6a764e18-cc58-4678-9006-0457a3656bb7"]
}, 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->
  "2cf76a33-0e8b-4d71-9e17-72a871c4a6a2"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ca3ad37c-8e7b-45a8-8b6a-bda07f4a1e8d"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "3993e33f-3c21-48d9-80d9-fc7e92126372"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"79ea1aba-a3a1-4541-a0c2-8875877c5f46"],

Cell["\<\
One backend is one opinion. Two honest indexers report different received \
totals for the genesis address, because Bitcoin Core leaves the genesis \
coinbase output out of its UTXO set:\
\>", "ExampleText",ExpressionUUID->"1a9cd597-3fb9-4b0e-bdec-e919b0731eab"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"ChainAddressSummary", "[", 
     RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
      RowBox[{"\"\<Backends\>\"", " ", "->", " ", "\"\<MempoolSpace\>\""}]}], 
     "]"}], "[", "\"\<ReceivedTotal\>\"", "]"}], ",", " ", 
   RowBox[{
    RowBox[{"ChainAddressSummary", "[", 
     RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
      RowBox[{"\"\<Backends\>\"", " ", "->", " ", "\"\<BlockCypher\>\""}]}], 
     "]"}], "[", "\"\<ReceivedTotal\>\"", "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"bfa25671-b9a2-489e-b21f-6315fe2c664f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5743025285", ",", "10744061573"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a11bbf40-6f1b-4239-bfa0-4f9d94212c34"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "39c00f9a-0de7-4bf2-99a3-50c725775359"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"dc7889ea-8c49-4502-\
9bc5-07083985f835"],

Cell[TextData[{
 "With nothing reachable the result is a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "02f03e2f-f3df-41aa-a705-753abb243684"],
 " naming every backend tried, never a zero balance:"
}], "ExampleText",ExpressionUUID->"ed9317f0-498a-49b2-aa1b-a43d666e1ecc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"$ChainNetworkEnabled", " ", "=", " ", "False"}], "}"}], ",", " ", 
   RowBox[{"Keys", " ", "@", " ", 
    RowBox[{
     RowBox[{"ChainAddressSummary", "[", 
      RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
       RowBox[{"\"\<Cache\>\"", " ", "->", " ", "False"}]}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", " ", "\"\<Failures\>\""}], "]"}], "]"}]}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"186ffff5-4d6d-409a-9fe7-cacfe320804c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"MempoolSpace\"\>", ",", "\<\"BlockstreamInfo\"\>", 
   ",", "\<\"BlockCypher\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8c04cb71-352d-4462-a125-c357b7bad01c"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ChainAddressBalance"]], 
           "paclet:WolframInstitute/Puzzles/ref/ChainAddressBalance", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "36bb77d9-0aac-44c2-a066-f1a0aec7b003"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ChainAddressCrossCheck"]], 
           "paclet:WolframInstitute/Puzzles/ref/ChainAddressCrossCheck", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "d12a1398-5068-4caf-be71-d9f19454c236"],
        "\[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->
         "1b5fc575-f3f8-4ffa-844a-f15013e38b4d"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ChainAddressTransactions"]], 
           "paclet:WolframInstitute/Puzzles/ref/ChainAddressTransactions", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a11c46dd-845c-47a2-8cca-353c244fbc23"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ChainPrizeUnclaimedQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/ChainPrizeUnclaimedQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a7c77bff-f719-40f4-9935-fc3f84d81a99"]
       }], "SeeAlso",ExpressionUUID->"31715986-dbcc-4fb1-b1ef-de4612cbbc81"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"8f1e41d2-f332-44a8-b681-\
62af9afa8274"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedGuide.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Chain"]], "paclet:WolframInstitute/Puzzles/guide/Chain"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "1ed20b14-7e92-4f83-a6b9-631448afec99"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"261e7ab4-5d62-408b-a091-\
117cf3fa0a01"],

Cell[" ", "FooterCell",ExpressionUUID->"5e2d60ad-15ba-475a-b99c-7e33f33ea85b"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ChainAddressSummary",
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, 11, 19.929775}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ChainAddressSummary, paclet : \
WolframInstitute/Puzzles/ref/ChainAddressSummary, WolframInstitute/Puzzles \
Package Symbol][address] gives a normalized Association of what the first \
responding default backend reports about address.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "ChainAddressSummary", "titlemodifier" -> 
    "", "metadescription" -> "", "windowtitle" -> "ChainAddressSummary", 
    "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/ChainAddressSummary", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"29512571-9e5e-41b0-94a0-4de06adebc5d"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[22565, 582, 191, 4, 70, "ExampleText",ExpressionUUID->"5767dd27-8e15-41bc-b92e-d52103795b87",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 52277, 1419}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[587, 21, 5902, 143, 70, "AnchorBarGrid",ExpressionUUID->"47d1ccb7-3918-41b3-8636-c14b6592672c",
 CellID->1],
Cell[6492, 166, 107, 0, 70, "ContextNameCell",ExpressionUUID->"bdfa02fd-7237-43c8-9fcc-bef4580d0b26"],
Cell[CellGroupData[{
Cell[6624, 170, 562, 14, 70, "ObjectNameGrid",ExpressionUUID->"7b1610aa-a654-4934-ab9a-2e519b0a64f1"],
Cell[7189, 186, 841, 21, 70, "Usage",ExpressionUUID->"ad3baab7-05d2-4a85-9a3b-85a5fa4c56ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8067, 212, 1443, 34, 70, "NotesSection",ExpressionUUID->"3833e027-4238-4678-ae3d-7d3b461ae533",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->154882474],
Cell[9513, 248, 2155, 57, 70, "Notes",ExpressionUUID->"a4c2570d-a474-469c-9c82-9fa365b69716"],
Cell[11671, 307, 258, 4, 70, "Notes",ExpressionUUID->"f8b73f49-7c59-49e3-959a-e942ee9d2f3c"],
Cell[11932, 313, 603, 14, 70, "Notes",ExpressionUUID->"f3857808-3ee4-47e4-9219-0526681e30db"],
Cell[12538, 329, 950, 24, 70, "Notes",ExpressionUUID->"4102d813-c40b-4e6c-a062-4621b0a86be0"],
Cell[13491, 355, 758, 18, 70, "Notes",ExpressionUUID->"f0d4a5d8-c21f-4d70-81a7-adb8afcd835c"],
Cell[14252, 375, 613, 15, 70, "Notes",ExpressionUUID->"a325fc23-0f62-4837-9af9-b6a6a84fc221"],
Cell[14868, 392, 215, 3, 70, "Notes",ExpressionUUID->"3981c282-3c72-46d4-b162-99dbe0bcfc05"],
Cell[15086, 397, 4476, 98, 70, "3ColumnTableMod",ExpressionUUID->"b3919cac-76c7-498f-998e-87e80a8b057c"]
}, Closed]],
Cell[19577, 498, 80, 0, 70, "PageDelimiter",ExpressionUUID->"0a37d089-542e-4a9a-8a36-faa1b722a378"],
Cell[CellGroupData[{
Cell[19682, 502, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"26e7011c-1005-449e-8271-142b359ed835",
 CellID->359560354],
Cell[21086, 541, 216, 4, 70, "Input",ExpressionUUID->"a1e7c823-84cb-4240-a35f-de2fe1857182",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[21327, 549, 1235, 31, 70, "ExampleSection",ExpressionUUID->"e34a0113-bc0d-4849-89ba-8ead773f6bf2",
 CellID->111887020],
Cell[22565, 582, 191, 4, 70, "ExampleText",ExpressionUUID->"5767dd27-8e15-41bc-b92e-d52103795b87",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[22781, 590, 243, 4, 70, "Input",ExpressionUUID->"e449b3ca-b954-4088-b73d-b78f419dce9a"],
Cell[23027, 596, 1507, 30, 70, "Output",ExpressionUUID->"cf984dc3-7994-4390-943c-c9f5f6fdc046"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24571, 631, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"31111c97-5fe1-4657-b423-ad2491ddd435"],
Cell[24798, 638, 170, 3, 70, "ExampleText",ExpressionUUID->"cf77d4d2-977f-48bd-a63c-4fccecef7d15"],
Cell[CellGroupData[{
Cell[24993, 645, 410, 10, 70, "Input",ExpressionUUID->"ea4d09b5-64a1-45a0-8932-0923aaf205f8"],
Cell[25406, 657, 289, 6, 70, "Output",ExpressionUUID->"a74790cb-9984-4f1f-9053-624b3e8725aa"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25744, 669, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2d5f64a2-08d9-4ec5-b809-4b1924417f6f"],
Cell[25971, 676, 168, 3, 70, "ExampleText",ExpressionUUID->"d97207da-e0dd-4236-b17f-ae44d9f496b1"],
Cell[CellGroupData[{
Cell[26164, 683, 437, 10, 70, "Input",ExpressionUUID->"95a4bca4-91f3-4f3b-b336-71cadd504759"],
Cell[26604, 695, 354, 7, 70, "Output",ExpressionUUID->"d85f774c-58fb-4334-ae51-f0527e208435"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27019, 709, 1227, 31, 70, "ExampleSection",ExpressionUUID->"7f1c5fdb-cc5f-405b-8981-34c6becb9b79",
 CellID->1293636265],
Cell[28249, 742, 349, 7, 70, "ExampleText",ExpressionUUID->"b06ad787-6225-4c6e-b86d-b45ed5ec91b1"],
Cell[CellGroupData[{
Cell[28623, 753, 447, 11, 70, "Input",ExpressionUUID->"2e26d0c7-da75-4316-b1f0-c68195243105"],
Cell[29073, 766, 363, 7, 70, "Output",ExpressionUUID->"d63a3ee3-f7af-42ed-a672-936322e9fc97"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29473, 778, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b15e4f08-26f8-4a3d-9b81-653d31249206"],
Cell[29700, 785, 147, 2, 70, "ExampleText",ExpressionUUID->"8148b406-6c55-456f-9063-07fe24e1ada4"],
Cell[CellGroupData[{
Cell[29872, 791, 300, 7, 70, "Input",ExpressionUUID->"76afcfee-df6a-4013-8ac2-e7888e196a8c"],
Cell[30175, 800, 121, 1, 70, "Output",ExpressionUUID->"5731b2ee-9a27-4c93-ae71-4b48739b709a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[30345, 807, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"a0478c2a-3ccf-4d7d-a1a7-c0f482822281"],
Cell[30572, 814, 341, 7, 70, "ExampleText",ExpressionUUID->"cb60967e-d421-4222-b827-6fa57383867b"],
Cell[CellGroupData[{
Cell[30938, 825, 393, 7, 70, "Input",ExpressionUUID->"2b501e78-66da-4c6e-9777-a25dd7a438c8"],
Cell[31334, 834, 159, 2, 70, "Output",ExpressionUUID->"f7525774-6ed7-4007-8268-34afdc7897b4"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31542, 842, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"211b993e-9286-4ece-9bf3-63bbd194bdc4"],
Cell[31769, 849, 150, 2, 70, "ExampleText",ExpressionUUID->"777ef7cd-e9c1-4315-b071-637de6526312"],
Cell[CellGroupData[{
Cell[31944, 855, 218, 3, 70, "Input",ExpressionUUID->"b63ded02-1502-4dbc-b2dc-d5c89e0a8217"],
Cell[32165, 860, 173, 3, 70, "Output",ExpressionUUID->"4b4676c7-2d11-4e6b-81f0-b001d8147d9b"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[32399, 870, 1229, 31, 70, "ExampleSection",ExpressionUUID->"e2e17d5d-4b9d-4dbf-91b0-be3a54457ff8",
 CellID->2061341341],
Cell[33631, 903, 117, 0, 70, "ExampleText",ExpressionUUID->"b50dac70-efce-4d4d-8a70-952fba145d11"],
Cell[CellGroupData[{
Cell[33773, 907, 388, 7, 70, "Input",ExpressionUUID->"1d73e0a7-a66b-4667-9c9d-4707228394ef"],
Cell[34164, 916, 129, 1, 70, "Output",ExpressionUUID->"3fb894ff-a11f-473a-bf1f-46247ac5ae33"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34330, 922, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f2717deb-6863-46ed-8657-3a04be4bbde1"],
Cell[34557, 929, 174, 3, 70, "ExampleText",ExpressionUUID->"c3335217-84da-4a34-a865-332b345b7735"],
Cell[CellGroupData[{
Cell[34756, 936, 464, 9, 70, "Input",ExpressionUUID->"26ba1d63-0723-4cf4-9eb1-1af1685181db"],
Cell[35223, 947, 125, 1, 70, "Output",ExpressionUUID->"1db718f6-e8ca-4e29-9138-f9bd87c7c154"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[35397, 954, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"1aa82ff4-cc21-4f8a-a107-60d9af7f03af"],
Cell[35624, 961, 361, 7, 70, "ExampleText",ExpressionUUID->"3ecfe12f-b876-49f7-98d9-43f02a4c46df"],
Cell[CellGroupData[{
Cell[36010, 972, 368, 7, 70, "Input",ExpressionUUID->"784b2957-4cac-47b5-aa93-1717e987710d"],
Cell[36381, 981, 657, 16, 70, "Output",ExpressionUUID->"88085e98-0aac-4666-b9fd-aa375f895129"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37087, 1003, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e3f62c55-ce5f-4bfc-9128-b7ad6a2ce899"],
Cell[37314, 1010, 602, 17, 70, "ExampleText",ExpressionUUID->"2b63b57a-c6f1-4c00-8c8c-6e8dfdde3dcd"],
Cell[CellGroupData[{
Cell[37941, 1031, 440, 8, 70, "Input",ExpressionUUID->"b9cb3643-e5dd-49f3-914d-94cc27e497e3"],
Cell[38384, 1041, 137, 1, 70, "Output",ExpressionUUID->"c1218022-4ef3-4b4d-a982-40c038c7697a"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[38582, 1049, 1244, 31, 70, "ExampleSection",ExpressionUUID->"2fe3ce3b-9e9d-481a-a5f9-4efc0a016e67",
 CellID->2123667759],
Cell[39829, 1082, 686, 18, 70, "ExampleText",ExpressionUUID->"eee0134e-c5de-4ad9-9197-501fd5e6e8ca"],
Cell[CellGroupData[{
Cell[40540, 1104, 243, 4, 70, "Input",ExpressionUUID->"def6a765-e681-4bd4-85e5-284807449d4f"],
Cell[40786, 1110, 251, 5, 70, "Output",ExpressionUUID->"0f33225d-ae69-4672-a75f-375cf6603981"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41074, 1120, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f76f5ff3-734e-4a86-b5e2-3a33ab52bc8d"],
Cell[41301, 1127, 559, 14, 70, "ExampleText",ExpressionUUID->"c18bf47a-7f84-46a1-afea-85ce7e000cc2"],
Cell[CellGroupData[{
Cell[41885, 1145, 333, 7, 70, "Input",ExpressionUUID->"9504fae2-ef40-43b6-b4f5-29474e24e5d0"],
Cell[42221, 1154, 225, 4, 70, "Output",ExpressionUUID->"6a764e18-cc58-4678-9006-0457a3656bb7"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[42507, 1165, 1237, 31, 70, "ExampleSection",ExpressionUUID->"79ea1aba-a3a1-4541-a0c2-8875877c5f46",
 CellID->1305812373],
Cell[43747, 1198, 272, 4, 70, "ExampleText",ExpressionUUID->"1a9cd597-3fb9-4b0e-bdec-e919b0731eab"],
Cell[CellGroupData[{
Cell[44044, 1206, 697, 14, 70, "Input",ExpressionUUID->"bfa25671-b9a2-489e-b21f-6315fe2c664f"],
Cell[44744, 1222, 171, 3, 70, "Output",ExpressionUUID->"a11bbf40-6f1b-4239-bfa0-4f9d94212c34"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44952, 1230, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"dc7889ea-8c49-4502-9bc5-07083985f835"],
Cell[45179, 1237, 349, 7, 70, "ExampleText",ExpressionUUID->"ed9317f0-498a-49b2-aa1b-a43d666e1ecc"],
Cell[CellGroupData[{
Cell[45553, 1248, 615, 14, 70, "Input",ExpressionUUID->"186ffff5-4d6d-409a-9fe7-cacfe320804c"],
Cell[46171, 1264, 225, 4, 70, "Output",ExpressionUUID->"8c04cb71-352d-4462-a125-c357b7bad01c"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[46447, 1274, 3196, 82, 70, "SeeAlsoSection",ExpressionUUID->"8f1e41d2-f332-44a8-b681-62af9afa8274"],
Cell[49646, 1358, 678, 18, 70, "MoreAboutSection",ExpressionUUID->"261e7ab4-5d62-408b-a091-117cf3fa0a01"],
Cell[50327, 1378, 78, 0, 70, "FooterCell",ExpressionUUID->"5e2d60ad-15ba-475a-b99c-7e33f33ea85b"]
}
]
*)

(* End of internal cache information *)

