(* 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[     66003,       1681]
NotebookOptionsPosition[     54140,       1467]
NotebookOutlinePosition[     56488,       1520]
CellTagsIndexPosition[     56410,       1515]
WindowTitle->ChainExplorerQuery
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->
           "15e18e4b-54b0-44ae-90a1-a99d85435121"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "864a4603-a719-48ac-a16f-20dd3ba863fe"],
        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->
           "7f5922b9-da2a-49f4-b8bb-6b02efd91e39"]
         }],ExpressionUUID->"25eee677-0c1b-4672-a4e3-a49bf6d0fd0e"],
         StripOnInput->False],{
        StyleBox[
          "\"$ChainExplorers\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/$ChainExplorers"], 
         StyleBox[
          "\"ChainAddressSummary\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainAddressSummary"], 
         StyleBox[
          "\"ChainAddressCrossCheck\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainAddressCrossCheck"], 
         StyleBox[
          "\"ChainAddressTransactions\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainAddressTransactions"], 
         StyleBox[
          "\"ClearChainCache\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ClearChainCache"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "f4482747-97f5-4d08-b5e2-cf8668d2ce10"],
     "\[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->
           "0f003fb4-e822-4278-9f15-2054bafc9e25"]
         }],ExpressionUUID->"6219fba1-589b-492f-8c06-d2f823a94a51"],
         StripOnInput->False],{
        "\"Chain\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Chain"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "1587af50-5a15-4a28-9a9e-b83d73c54a6e"],
     "\[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->
           "5d0c149b-da1c-415d-a5e4-626b97e02544"]
         }],ExpressionUUID->"77d97fbf-aa16-4981-a1d9-b1ef69404eca"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ChainExplorerQuery\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/ChainExplorerQuery"], 
         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/ChainExplorerQuery.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/ChainExplorerQuery" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "599e77e7-ef3f-4be6-a9d4-26ef0641750a"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "c49974ac-da2f-4ff8-a00f-be4843743450"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"2146144d-2ea1-43ab-87b0-320d38e0b8c1"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"e0422ca3-b72f-4e01-aedf-0da641bca1a1"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ChainExplorerQuery", "ObjectName",ExpressionUUID->
      "e302ac2c-0ba8-4543-9ec7-c659ad668f9d"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"60eb57a9-ac58-405a-84a1-bfedd4120a8e"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "026f1997-996d-4d5e-af65-2596dd73d148"]
    }],ExpressionUUID->"d8dd9370-b1ae-431a-bb5a-46d06cdaf811"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"d9d7dabc-04a5-4e0b-99d3-\
8214ad8d4c09"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ChainExplorerQuery"]], 
         "paclet:WolframInstitute/Puzzles/ref/ChainExplorerQuery", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["backend", "TI"], ",", " ", "\"\<AddressSummary\>\"", ",", 
        " ", 
        StyleBox["address", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "92ce2f12-6e55-4de0-8460-e550f384b55a"],
     "\[LineSeparator]",
     "gives a normalized Association describing what ",
     StyleBox["backend", "TI"],
     " reports about ",
     StyleBox["address", "TI"],
     "."
    }],ExpressionUUID->"c533780f-f04c-41a7-b992-c4fa127f050a"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ChainExplorerQuery"]], 
         "paclet:WolframInstitute/Puzzles/ref/ChainExplorerQuery", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["backend", "TI"], ",", " ", "\"\<AddressTransactions\>\"", ",",
         " ", 
        StyleBox["address", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "c116633a-a7bf-495f-8ff8-a45a394d5104"],
     "\[LineSeparator]",
     "gives a list of normalized transaction Associations, most recent \
first."
    }],ExpressionUUID->"49f8404e-6a57-442a-8563-24d6c77c878c"]}
  }]], "Usage",ExpressionUUID->"259a50bf-0b49-467f-a076-1dcc020bec0d"]
}, 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->"547fcb0a-8f6f-48da-8405-771279980459"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"912b880d-c331-472d-96d6-980b84362abd"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "a877761f-5344-4e89-86be-044a4ff637d2"]],ExpressionUUID->"15621206-ea02-\
41ef-9512-9d0be0fe594c"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1645152874,ExpressionUUID->"69571ea0-cbde-4b13-a77f-6605431b3fff"],

Cell[TextData[{
 StyleBox["backend", "TI"],
 " is a key 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->
  "70bb5327-b13f-4c3f-9eb9-11f2f05dcfff"],
 ". The five API families behind those keys are Esplora, BlockCypher, \
Blockscout, Ethereum JSON-RPC, and the built-in ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BlockchainAddressData"]], "paclet:ref/BlockchainAddressData"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "aa47b84a-83c8-4267-839f-c16797848bfb"],
 ", and all five are normalized into the same two result shapes."
}], "Notes",ExpressionUUID->"5045d510-3fd3-4041-bf58-82239196d353"],

Cell[TextData[{
 "An ",
 Cell[BoxData["\<\"AddressSummary\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "17b910c2-f310-4639-b105-8ca976d60271"],
 " holds ",
 Cell[BoxData["\<\"Address\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "23bb1602-99b5-4664-9da3-998782d4b140"],
 ", ",
 Cell[BoxData["\<\"Network\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "69d87a58-e045-4039-99a4-70f0e5543284"],
 ", ",
 Cell[BoxData["\<\"Backend\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "354483b9-4dc2-4475-a7d2-a2b6a846a118"],
 ", ",
 Cell[BoxData["\<\"Unit\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "aa0ca2a0-31de-491f-a263-0649afb370c1"],
 ", ",
 Cell[BoxData["\<\"Balance\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5a19ea75-d364-4c8b-8dc2-07780f6960a6"],
 ", ",
 Cell[BoxData["\<\"ReceivedTotal\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3dcdc64c-82ce-4a1d-b394-f93d68326bb0"],
 ", ",
 Cell[BoxData["\<\"SentTotal\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f508f11d-0792-4e42-a6e1-1312124e2930"],
 ", ",
 Cell[BoxData["\<\"SpentOutputCount\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6fe48755-98f5-4e6d-9f9f-725748c37c32"],
 ", ",
 Cell[BoxData["\<\"TransactionCount\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cad55cf6-16ee-4c79-9641-380ad9e339f3"],
 ", ",
 Cell[BoxData["\<\"UnconfirmedBalance\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d03523a7-66d6-4105-a5ad-24ad1c291641"],
 " and ",
 Cell[BoxData["\<\"Retrieved\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9c02fa0e-8874-496a-8f82-787280dd8ed6"],
 "."
}], "Notes",ExpressionUUID->"2da8d29b-0b44-42a9-8d8b-ec65bc17d113"],

Cell[TextData[{
 "Every amount is an Integer count of the network's base unit, satoshis or \
wei. A quantity the backend does not report is ",
 Cell[BoxData[
  RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "078f9fb0-f71a-4b6e-ac09-c4f6f29eb4ac"],
 ", never ",
 Cell[BoxData["0"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1953fbd9-2dae-4b9e-b083-4ced2e7286fd"],
 "."
}], "Notes",ExpressionUUID->"4df00269-6b95-4bfe-b0e8-a2670a401a4b"],

Cell[TextData[{
 "The call is left unevaluated unless the backend is registered, the property \
is one it lists under ",
 Cell[BoxData["\<\"Properties\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "69d4c96b-a8bd-4ba1-8271-d29513a9a1ae"],
 ", and the address belongs to one of its ",
 Cell[BoxData["\<\"Networks\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7ee583e5-e1df-4610-8c4c-a7b7d7e327e5"],
 ". A mismatch is not a failure, it is a call with no meaning."
}], "Notes",ExpressionUUID->"5681c274-d08a-4131-8f06-e45f0240f202"],

Cell[TextData[{
 "A backend that cannot be reached gives a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "01925709-ee98-4d73-829a-62c7041cecd4"],
 " tagged ",
 Cell[BoxData["\<\"ChainTransportFailed\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cf856ded-4fce-4ebf-b206-d0ec615f84cf"],
 ", a non-200 status gives ",
 Cell[BoxData["\<\"ChainRequestFailed\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "608ab112-e544-420e-9fee-a9b33c6a777b"],
 " carrying the ",
 Cell[BoxData["\<\"StatusCode\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "07eb289b-263c-43b5-8511-6a52bf4713bd"],
 " and the first 400 characters of the body, and a body that is not what the \
family promises gives ",
 Cell[BoxData["\<\"ChainResponseUnparsable\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b2363f24-6e5a-4201-a55b-7c3b0fb321fb"],
 "."
}], "Notes",ExpressionUUID->"becb72db-5305-450d-bc91-eb52e3d1a9c1"],

Cell[TextData[{
 "Responses are cached on disk under ",
 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->
  "a77c9433-bd28-4ca6-91ba-4746fc6bac43"],
 " and reused for ",
 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->
  "8dbf1382-cadf-4c57-bada-302bc1b94b79"],
 ". What is cached is the raw body, so replaying a cached response runs \
exactly the parser a live response runs."
}], "Notes",ExpressionUUID->"230f710f-c8f7-43a0-a920-7d20c4b95409"],

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->
  "d691e095-1d83-4d1e-93cb-28378c6ba274"],
 " set to ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e3a49172-37db-4926-b9f5-41d53e1abea0"],
 ", a cache miss gives a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "58acdc07-5593-4815-baf5-0c6becf9dee9"],
 " tagged ",
 Cell[BoxData["\<\"ChainNetworkDisabled\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "49395d4d-7e49-47b6-a60e-560b9ee391b9"],
 " instead of a request."
}], "Notes",ExpressionUUID->"d2556cda-399e-40d1-b636-2161d5fbcaf8"],

Cell[BoxData[GridBox[{
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "30c0929d-614f-4ebf-8fa7-d03a368c1bcc"], Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"fb48a45b-e9d5-429f-8b88-ccd9490e7fb2"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"453ecc2f-44cc-4f97-bd04-e72d3da44084"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"7ca7dc0a-7706-4700-80d1-5eaaff57445e"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "68c96a6b-2932-4a17-8ae7-91dd584155bc"], Cell[TextData[Cell[
    BoxData["\"\<Cache\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "52f92ba8-6ffa-4b1b-99e9-925234f55af8"]], "TableText",ExpressionUUID->
     "2663f869-56e8-4f79-b476-86bcad0385af"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["True"]], "paclet:ref/True"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "d026f811-cc8b-4a72-90ce-a5e8506704ce"]], "TableText",ExpressionUUID->
     "2fdb3d08-59c5-4177-b9a4-c7865ddf0993"], 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->
      "8da5e751-9218-48ce-94c1-d9ccfbae1f57"],
     " may be reused, and whether a fresh response is stored"
    }], "TableText",ExpressionUUID->"b228ed13-2c45-4701-a8e1-3f74b2751b8b"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "fc2f8552-1a89-42c8-a75a-71913772ebee"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["TimeConstraint"]], "paclet:ref/TimeConstraint"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "76b32719-ddc0-438e-95af-f3a5a781058f"]], "TableText",ExpressionUUID->
     "63087b29-d7b7-44cc-82a1-f885faa4ffdd"], Cell[TextData[Cell[BoxData[
    "30"], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "40d3ec3c-f58e-4a1d-99f4-39bb18388981"]], "TableText",ExpressionUUID->
     "6329587e-5e73-40ac-9f32-e93c458bf960"], Cell[
    "seconds allowed for the request", "TableText",ExpressionUUID->
     "a93842a4-c2e4-4031-b5fb-f8e8a4978b08"]}
  }]], "3ColumnTableMod",
 GridBoxOptions->{
 GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {None, None, {None}}},
 GridBoxDividers->{
  "Rows" -> {{
     True, True, True, 
      True}}}},ExpressionUUID->"5ab64a55-e16a-4d38-b255-b0d7130a7a59"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"c16737ca-8915-4389-9e54-9dbe106b4eba"],

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->"35396f90-ee8f-4440-9561-7c75fc764f1a"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a17fd149-8391-4eae-90b5-87bc26ea7e1b"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(16)", "ExampleCount",ExpressionUUID->
  "79c7ebb8-4a96-4ecf-96a4-7480e980f24a"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1232398193,ExpressionUUID->"060f60af-2e8f-40f0-ab40-df690000834a"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"071420ce-80cd-4ffa-a71b-e77e6ec768d7"],

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->
  "7b2ef05b-30cb-499e-a276-64250acfa043"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6ae9df9d-7004-4a38-9368-e6023d5602c8"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "ccfa1280-68a0-4669-8aeb-7105885fa6a4"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->436654436,ExpressionUUID->"d6703227-5980-41d0-95c8-d525cbffd69d"],

Cell["\<\
The genesis coinbase address as the mempool.space Esplora instance reports it:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"a5846aaf-826d-44a8-8df9-7708fb26fc8d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainExplorerQuery", "[", 
  RowBox[{"\"\<MempoolSpace\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
   " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"74804b6c-9d5e-4ae3-8aab-5849a82502de"],

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->"3965d837-5426-4f31-bd35-1a9d1919a167"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7a537b03-6d93-4e49-8398-a3a6e96ada40"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7eed0046-b938-488b-\
beab-89915a3889d2"],

Cell["\<\
The same address through a different indexer, in the same shape:\
\>", "ExampleText",ExpressionUUID->"19786c37-59cd-4521-8efa-e301710e1d6a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyTake", "[", 
  RowBox[{
   RowBox[{"ChainExplorerQuery", "[", 
    RowBox[{"\"\<BlockCypher\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
     " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\""}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Backend\>\"", ",", " ", "\"\<Unit\>\"", ",", 
     " ", "\"\<SpentOutputCount\>\""}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"81cce350-c731-45a0-8a58-920bfcdc8757"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Backend\"\>", "\[Rule]", "\<\"BlockCypher\"\>"}], ",", 
   RowBox[{"\<\"Unit\"\>", "\[Rule]", "\<\"Satoshis\"\>"}], ",", 
   RowBox[{"\<\"SpentOutputCount\"\>", "\[Rule]", 
    RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"67d43ae5-97ff-41f2-925c-9af384c17cc4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "be822bd1-dafc-43f7-9ddd-08132cf69d78"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"15828032-5cb9-4801-\
b3dd-080d5c97e75f"],

Cell["The recent transactions of the same address:", "ExampleText",ExpressionUUID->"bedee4c6-1019-47e3-a8b8-d03a336710c1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", " ", "@", " ", 
  RowBox[{"ChainExplorerQuery", "[", 
   RowBox[{"\"\<BlockstreamInfo\>\"", ",", " ", "\"\<AddressTransactions\>\"",
     ",", " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\""}], 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"afe4ee86-84fb-4a73-94a7-1066b0f22aa7"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"TransactionID\"\>", 
    "\[Rule]", \
"\<\"50d15dda65dbab36effd35f20a91b2ddf093cf6a787045a014a5377e2c1c42dd\"\>"}], 
   ",", 
   RowBox[{"\<\"BlockHeight\"\>", "\[Rule]", "964024"}], ",", 
   RowBox[{"\<\"Time\"\>", "\[Rule]", 
    TemplateBox[{
      RowBox[{"\"Tue 25 Aug 2026 16:13:39\"", 
        StyleBox["\"GMT\"", "TimeZoneLabel"]}], 
      RowBox[{"DateObject", "[", 
        RowBox[{
          RowBox[{"{", 
            
            RowBox[{"2026", ",", "8", ",", "25", ",", "16", ",", "13", ",", 
              "39"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", 
          "0.`"}], "]"}]},
     "DateObject",
     Editable->False]}], ",", 
   RowBox[{"\<\"Confirmed\"\>", "\[Rule]", "True"}], ",", 
   RowBox[{"\<\"Backend\"\>", "\[Rule]", "\<\"BlockstreamInfo\"\>"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7b26ced6-a2a4-491a-919f-c518153514a5"]
}, 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->
  "efc9bedb-8362-463a-b29a-c263eccd6c5f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6ade5f3c-ad81-492b-9495-23815ed0543c"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(6)", "ExampleCount",ExpressionUUID->
  "f23fa720-f943-4d73-b844-231d58a1d5dc"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"bef114cd-0ada-4e88-b2e9-df48c3b23176"],

Cell["\<\
An Ethereum JSON-RPC node answers with the balance and the account nonce:\
\>", "ExampleText",ExpressionUUID->"95272ebb-bddb-444b-93f8-671b1314ab98"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyTake", "[", 
  RowBox[{
   RowBox[{"ChainExplorerQuery", "[", 
    RowBox[{"\"\<PublicNodeETH\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
     " ", "\"\<0x0000000000000000000000000000000000000000\>\""}], "]"}], ",", 
   " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Network\>\"", ",", " ", "\"\<Unit\>\"", ",", 
     " ", "\"\<SpentOutputCount\>\""}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9ef27dff-f28c-4bf3-8193-14560267b47d"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Network\"\>", "\[Rule]", "\<\"Ethereum\"\>"}], ",", 
   RowBox[{"\<\"Unit\"\>", "\[Rule]", "\<\"Wei\"\>"}], ",", 
   RowBox[{"\<\"SpentOutputCount\"\>", "\[Rule]", "0"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6b5c9fc3-3c77-4a47-b3e3-022e7668ca8c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "dfb2f2cd-7fca-4e94-a5c8-eab506d53780"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"887c090f-c4dc-4574-\
b960-cd87a59968d1"],

Cell[TextData[{
 "A Blockscout index reports the balance and no nonce, which is ",
 Cell[BoxData["Missing"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e2f8cbbc-7467-4816-a6b1-a2048e18d8e8"],
 " rather than zero:"
}], "ExampleText",ExpressionUUID->"dac2f62b-d7f0-4ef5-99a5-c14d520c6855"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyTake", "[", 
  RowBox[{
   RowBox[{"ChainExplorerQuery", "[", 
    RowBox[{"\"\<Blockscout\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
     " ", "\"\<0x0000000000000000000000000000000000000000\>\""}], "]"}], ",", 
   " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Balance\>\"", ",", " ", "\"\<SpentOutputCount\>\""}], 
    "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9b2c1efa-face-4317-aae2-52bb3fa5a03e"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Balance\"\>", "\[Rule]", "14148738097277100122057"}], ",", 
   RowBox[{"\<\"SpentOutputCount\"\>", "\[Rule]", 
    RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"12af52d0-8122-4a6a-af3d-1ca90a4e2b55"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0a4444bb-e4b4-41ba-a955-d46fbf83e7d5"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"34ceb416-2db7-4af8-\
b3fb-bcc14cf13a03"],

Cell["\<\
The built-in reader is registered as a backend and normalized like the others:\
\>", "ExampleText",ExpressionUUID->"b8d1f513-cc97-40cb-b6b5-60b14503aa97"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyTake", "[", 
  RowBox[{
   RowBox[{"ChainExplorerQuery", "[", 
    RowBox[{"\"\<WolframBlockchain\>\"", ",", " ", "\"\<AddressSummary\>\"", ",",
      " ", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\""}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Backend\>\"", ",", " ", "\"\<Unit\>\"", ",", 
     " ", "\"\<Balance\>\""}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"14eed044-b156-4ddc-bd82-63faa16c6f3a"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Backend\"\>", "\[Rule]", "\<\"WolframBlockchain\"\>"}], ",", 
   RowBox[{"\<\"Unit\"\>", "\[Rule]", "\<\"Satoshis\"\>"}], ",", 
   RowBox[{"\<\"Balance\"\>", "\[Rule]", "0"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ef410773-69e7-4c0b-92a9-4bb50dcd7356"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "1d7d0e21-9bc9-411a-84ec-7312eb7e6c04"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"48d492c4-79ce-4ca6-\
9daa-b38009fcc334"],

Cell["\<\
A Bitcoin backend asked about an Ethereum address is left unevaluated:\
\>", "ExampleText",ExpressionUUID->"b4524c51-9128-473f-ab88-c4684014a05a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainExplorerQuery", "[", 
  RowBox[{"\"\<MempoolSpace\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
   " ", "\"\<0x0000000000000000000000000000000000000000\>\""}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"28d1cb61-c1ca-404b-9120-4ab8c9a284bc"],

Cell[BoxData[
 RowBox[{"ChainExplorerQuery", "[", 
  RowBox[{"\<\"MempoolSpace\"\>", ",", "\<\"AddressSummary\"\>", 
   ",", "\<\"0x0000000000000000000000000000000000000000\"\>"}], 
  "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5b6af4cf-4544-4fc7-9455-8da6ec6d58bd"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8cb5c7df-4752-45f4-9de0-aad1efc44115"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"fc947b5a-539f-4f36-\
9a77-2fee73d6cfa6"],

Cell["So is a property the backend does not list:", "ExampleText",ExpressionUUID->"22b916a6-d317-4e74-9d8c-97ff75f8ad32"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainExplorerQuery", "[", 
  RowBox[{"\"\<BlockCypher\>\"", ",", " ", "\"\<AddressTransactions\>\"", ",",
    " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fe5bce61-07fc-4d8e-bcf0-733d96208202"],

Cell[BoxData[
 RowBox[{"ChainExplorerQuery", "[", 
  RowBox[{"\<\"BlockCypher\"\>", ",", "\<\"AddressTransactions\"\>", 
   ",", "\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>"}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"11709efb-f2c8-4d78-aea3-4527c9716a0e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ead47f94-6d0d-438d-893f-190a2fa564fc"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2565c9de-4d20-4f9a-\
b868-f877041da18d"],

Cell["And an unregistered backend:", "ExampleText",ExpressionUUID->"66c3767a-edda-4abf-8bd1-3bfbe39b14fc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainExplorerQuery", "[", 
  RowBox[{"\"\<NoSuchBackend\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
   " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8b67c1fd-4b87-4b28-a9b8-969fe916295c"],

Cell[BoxData[
 RowBox[{"ChainExplorerQuery", "[", 
  RowBox[{"\<\"NoSuchBackend\"\>", ",", "\<\"AddressSummary\"\>", 
   ",", "\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>"}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4c388943-63e7-401f-a5f3-4c31513610fc"]
}, 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->
  "0a2455f4-e0ce-4449-a2d3-56be176ae867"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"3ca78379-b9d8-48d2-a625-8c557a9b54f6"],
 "Options",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "862d9446-dbea-42c8-abf4-91f3172ea499"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2061341341,ExpressionUUID->"ace748d8-e139-4478-8f46-1b555818aec1"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"\<\"Cache\"\>", " ", "->", " ", "False"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b3ad5c3b-08d3-43c6-9bc9-59db35222b50"],
 " ignores any stored response and stores nothing:"
}], "ExampleText",ExpressionUUID->"d87cb782-6453-4222-92c8-f1f29da3d3a6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChainExplorerQuery", "[", 
   RowBox[{"\"\<MempoolSpace\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
    " ", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", ",", " ", 
    RowBox[{"\"\<Cache\>\"", " ", "->", " ", "False"}]}], "]"}], 
  "[", "\"\<Balance\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3e299780-9267-4f1f-9cf4-2fe338104efe"],

Cell[BoxData["0"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"032e5e18-98f0-4bc1-98a9-7b4abdd696b8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a8a29844-da05-4231-9059-2102beea318d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"33618543-8a0d-4711-\
9c5b-5764f8bf4c3a"],

Cell["\<\
A cached read is about three orders of magnitude faster than a live one, \
which is what makes a sweep over a candidate list practical:\
\>", "ExampleText",ExpressionUUID->"ff6115b9-1c21-46bb-ad15-496e3dbdd3d6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", " ", "@", " ", 
  RowBox[{"AbsoluteTiming", " ", "@", " ", 
   RowBox[{"ChainExplorerQuery", "[", 
    RowBox[{"\"\<MempoolSpace\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
     " ", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\""}], "]"}]}]}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"769eab3c-7190-4b89-b7a8-a02c01efc123"],

Cell[BoxData["0.005268`"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"efde04ef-614a-4232-889a-54721a16c8a4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3416a307-343e-41df-81a0-3942c09a8c5d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"5413f037-c580-40a3-\
8751-88f8eeb5b4b4"],

Cell[TextData[{
 "An impossible ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["TimeConstraint"]], "paclet:ref/TimeConstraint"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f5e0e02d-c8db-4488-8571-c71e799228f6"],
 " produces a transport ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "776048a2-54bd-4a47-909a-c1be8dd34bf3"],
 " naming the backend:"
}], "ExampleText",ExpressionUUID->"39402437-c1e6-4df3-b925-c36985d7f275"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChainExplorerQuery", "[", 
   RowBox[{"\"\<MempoolSpace\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
    " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
    RowBox[{"\"\<Cache\>\"", " ", "->", " ", "False"}], ",", " ", 
    RowBox[{"TimeConstraint", " ", "->", " ", "0.001"}]}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e780e5d4-b44e-4afb-af23-97669fc553f2"],

Cell[BoxData["\<\"ChainTransportFailed\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d5e9cc4d-50da-4274-8d6f-7605efc611f4"]
}, 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->
  "b4028493-335d-454a-8a62-56293dab7339"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"5e2b585b-9084-42f6-820e-48d8a6698568"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "d43422a8-bbcb-4146-9ff5-5793baac7fe6"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"961f995d-e18d-4f8b-ae3c-e7ad29c7bde7"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ChainAddressSummary"]], 
    "paclet:WolframInstitute/Puzzles/ref/ChainAddressSummary", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3e13e59d-b892-48b4-8086-0712b00a8047"],
 " is this query run over the default backends until one answers:"
}], "ExampleText",ExpressionUUID->"f4fb832d-b2a8-42e8-b8d5-995e75404548"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "ChainAddressSummary", "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", 
   "]"}], " ", "===", " ", 
  RowBox[{"ChainExplorerQuery", "[", 
   RowBox[{"\"\<MempoolSpace\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
    " ", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\""}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7bd94b47-cdbb-4fe2-9638-d1acd68f0eb7"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2aeaeb41-797c-46fc-be86-59b733aaac58"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "46ca0844-bae0-47d4-b503-69f378ecb986"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7e05447d-29b4-4784-\
aa4c-389d320d2845"],

Cell["\<\
Two independently operated Esplora nodes normalize to the same values, field \
for field:\
\>", "ExampleText",ExpressionUUID->"acf89cd2-55b1-4f57-b419-94ddda519dd7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"KeyDrop", "[", 
   RowBox[{
    RowBox[{"ChainExplorerQuery", "[", 
     RowBox[{"\"\<MempoolSpace\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
      " ", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\""}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"\"\<Backend\>\"", ",", " ", "\"\<Retrieved\>\""}], "}"}]}], 
   "]"}], " ", "===", " ", 
  RowBox[{"KeyDrop", "[", 
   RowBox[{
    RowBox[{"ChainExplorerQuery", "[", 
     RowBox[{"\"\<BlockstreamInfo\>\"", ",", " ", "\"\<AddressSummary\>\"", ",",
       " ", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\""}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"\"\<Backend\>\"", ",", " ", "\"\<Retrieved\>\""}], "}"}]}], 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"563d1d69-d52c-4cf1-bdb9-17a7a52726d8"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"87ce5534-5ddf-4711-b01d-62336cc852b2"]
}, 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->
  "8c098427-515a-4443-abb9-d7ee75a8d543"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"91be5241-89a2-4378-8b94-e57ce215d469"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "82d227bd-2670-42ee-835b-5b639266dd05"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"4607feea-0ea3-4519-99d4-aea9a64ee27e"],

Cell[TextData[{
 "Public explorers rate-limit. A refused request is a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d78f2e6e-13e3-4565-bc87-1176b4e4412b"],
 " carrying the status code, not an empty result:"
}], "ExampleText",ExpressionUUID->"22be7e37-25d4-4c9e-8d58-0c0e39e772bc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"$ChainNetworkEnabled", " ", "=", " ", "False"}], "}"}], ",", " ", 
   RowBox[{
    RowBox[{"ChainExplorerQuery", "[", 
     RowBox[{"\"\<MempoolSpace\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
      " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
      RowBox[{"\"\<Cache\>\"", " ", "->", " ", "False"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"753558a3-6874-4631-a266-fd0f01068b75"],

Cell[BoxData["\<\"ChainNetworkDisabled\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d9b3a83d-b7ac-4631-ac57-ec4bc3a42e4f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d002c17e-d295-42d5-8b93-b1f7eaeaec1b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"9cec772d-9670-4dfe-\
aae0-4489c7c13a38"],

Cell["\<\
Backends genuinely disagree on totals for the genesis address, because \
Bitcoin Core never adds the genesis coinbase output to its UTXO set:\
\>", "ExampleText",ExpressionUUID->"088952cf-c25e-4639-883b-33b37496fdc3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"ChainExplorerQuery", "[", 
     RowBox[{"\"\<MempoolSpace\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
      " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\""}], "]"}], 
    "[", "\"\<Balance\>\"", "]"}], ",", " ", 
   RowBox[{
    RowBox[{"ChainExplorerQuery", "[", 
     RowBox[{"\"\<BlockCypher\>\"", ",", " ", "\"\<AddressSummary\>\"", ",", 
      " ", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\""}], "]"}], 
    "[", "\"\<Balance\>\"", "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1408cfa0-4866-4a3c-a058-002628fcd59d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5743025285", ",", "10744061573"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d9fb0ad4-fc4a-483d-b899-fe8b054b1857"]
}, 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["$ChainExplorers"]], 
           "paclet:WolframInstitute/Puzzles/ref/$ChainExplorers", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "7fa179b9-cb66-48d7-b93f-da5d535b0504"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ChainAddressSummary"]], 
           "paclet:WolframInstitute/Puzzles/ref/ChainAddressSummary", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "50598f27-3860-40a7-96d9-1720fe09c0eb"],
        "\[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->
         "3ac162b6-642a-47c6-8813-f692a1e12863"],
        "\[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->
         "d7a57a77-2281-4e49-b2e1-e020c2b1cb62"],
        "\[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->
         "3a363b43-7e6a-4c2a-8695-2789deea040b"]
       }], "SeeAlso",ExpressionUUID->"95cff9b9-4c62-4a99-94a3-e6e1048efe28"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"b0f44d99-ba63-4a6a-b792-\
0079245bb4ac"],

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->
         "fab9c5cf-4617-42c9-a4c2-4f851b7e13a2"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"844dfcec-5c5f-4d5d-a85d-\
fb0058a03a04"],

Cell[" ", "FooterCell",ExpressionUUID->"79d52068-dcb1-4dc9-8469-61d8976e9b32"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ChainExplorerQuery",
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, 29.716483}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ChainExplorerQuery, paclet : \
WolframInstitute/Puzzles/ref/ChainExplorerQuery, WolframInstitute/ Puzzles \
Package Symbol][backend, AddressSummary, address] gives a normalized \
Association describing what backend reports about address. \
PackageLink[ChainExplorerQuery, paclet : \
WolframInstitute/Puzzles/ref/ChainExplorerQuery, WolframInstitute/ Puzzles \
Package Symbol][backend, AddressTransactions, address] gives a list of \
normalized transaction Associations, most recent first.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "ChainExplorerQuery", "titlemodifier" -> "",
     "metadescription" -> "", "windowtitle" -> "ChainExplorerQuery", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/ChainExplorerQuery", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"f0214e8b-4a2b-463f-8d6a-b16790977dbb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[24126, 635, 196, 4, 70, "ExampleText",ExpressionUUID->"a5846aaf-826d-44a8-8df9-7708fb26fc8d",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 56253, 1509}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[586, 21, 5880, 143, 70, "AnchorBarGrid",ExpressionUUID->"2146144d-2ea1-43ab-87b0-320d38e0b8c1",
 CellID->1],
Cell[6469, 166, 107, 0, 70, "ContextNameCell",ExpressionUUID->"e0422ca3-b72f-4e01-aedf-0da641bca1a1"],
Cell[CellGroupData[{
Cell[6601, 170, 561, 14, 70, "ObjectNameGrid",ExpressionUUID->"d9d7dabc-04a5-4e0b-99d3-8214ad8d4c09"],
Cell[7165, 186, 1761, 46, 70, "Usage",ExpressionUUID->"259a50bf-0b49-467f-a076-1dcc020bec0d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8963, 237, 1444, 34, 70, "NotesSection",ExpressionUUID->"69571ea0-cbde-4b13-a77f-6605431b3fff",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1645152874],
Cell[10410, 273, 992, 26, 70, "Notes",ExpressionUUID->"5045d510-3fd3-4041-bf58-82239196d353"],
Cell[11405, 301, 2264, 62, 70, "Notes",ExpressionUUID->"2da8d29b-0b44-42a9-8d8b-ec65bc17d113"],
Cell[13672, 365, 593, 14, 70, "Notes",ExpressionUUID->"4df00269-6b95-4bfe-b0e8-a2670a401a4b"],
Cell[14268, 381, 641, 13, 70, "Notes",ExpressionUUID->"5681c274-d08a-4131-8f06-e45f0240f202"],
Cell[14912, 396, 1185, 28, 70, "Notes",ExpressionUUID->"becb72db-5305-450d-bc91-eb52e3d1a9c1"],
Cell[16100, 426, 1022, 27, 70, "Notes",ExpressionUUID->"230f710f-c8f7-43a0-a920-7d20c4b95409"],
Cell[17125, 455, 1060, 29, 70, "Notes",ExpressionUUID->"d2556cda-399e-40d1-b636-2161d5fbcaf8"],
Cell[18188, 486, 2934, 62, 70, "3ColumnTableMod",ExpressionUUID->"5ab64a55-e16a-4d38-b255-b0d7130a7a59"]
}, Closed]],
Cell[21137, 551, 80, 0, 70, "PageDelimiter",ExpressionUUID->"c16737ca-8915-4389-9e54-9dbe106b4eba"],
Cell[CellGroupData[{
Cell[21242, 555, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"060f60af-2e8f-40f0-ab40-df690000834a",
 CellID->1232398193],
Cell[22647, 594, 216, 4, 70, "Input",ExpressionUUID->"071420ce-80cd-4ffa-a71b-e77e6ec768d7",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[22888, 602, 1235, 31, 70, "ExampleSection",ExpressionUUID->"d6703227-5980-41d0-95c8-d525cbffd69d",
 CellID->436654436],
Cell[24126, 635, 196, 4, 70, "ExampleText",ExpressionUUID->"a5846aaf-826d-44a8-8df9-7708fb26fc8d",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[24347, 643, 326, 5, 70, "Input",ExpressionUUID->"74804b6c-9d5e-4ae3-8aab-5849a82502de"],
Cell[24676, 650, 1507, 30, 70, "Output",ExpressionUUID->"3965d837-5426-4f31-bd35-1a9d1919a167"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26220, 685, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7eed0046-b938-488b-beab-89915a3889d2"],
Cell[26447, 692, 150, 2, 70, "ExampleText",ExpressionUUID->"19786c37-59cd-4521-8efa-e301710e1d6a"],
Cell[CellGroupData[{
Cell[26622, 698, 515, 10, 70, "Input",ExpressionUUID->"81cce350-c731-45a0-8a58-920bfcdc8757"],
Cell[27140, 710, 426, 8, 70, "Output",ExpressionUUID->"67d43ae5-97ff-41f2-925c-9af384c17cc4"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27615, 724, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"15828032-5cb9-4801-b3dd-080d5c97e75f"],
Cell[27842, 731, 122, 0, 70, "ExampleText",ExpressionUUID->"bedee4c6-1019-47e3-a8b8-d03a336710c1"],
Cell[CellGroupData[{
Cell[27989, 735, 377, 7, 70, "Input",ExpressionUUID->"afe4ee86-84fb-4a73-94a7-1066b0f22aa7"],
Cell[28369, 744, 982, 24, 70, "Output",ExpressionUUID->"7b26ced6-a2a4-491a-919f-c518153514a5"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29412, 775, 1227, 31, 70, "ExampleSection",ExpressionUUID->"bef114cd-0ada-4e88-b2e9-df48c3b23176",
 CellID->1293636265],
Cell[30642, 808, 159, 2, 70, "ExampleText",ExpressionUUID->"95272ebb-bddb-444b-93f8-671b1314ab98"],
Cell[CellGroupData[{
Cell[30826, 814, 529, 11, 70, "Input",ExpressionUUID->"9ef27dff-f28c-4bf3-8193-14560267b47d"],
Cell[31358, 827, 363, 7, 70, "Output",ExpressionUUID->"6b5c9fc3-3c77-4a47-b3e3-022e7668ca8c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31758, 839, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"887c090f-c4dc-4574-b960-cd87a59968d1"],
Cell[31985, 846, 340, 7, 70, "ExampleText",ExpressionUUID->"dac2f62b-d7f0-4ef5-99a5-c14d520c6855"],
Cell[CellGroupData[{
Cell[32350, 857, 499, 11, 70, "Input",ExpressionUUID->"9b2c1efa-face-4317-aae2-52bb3fa5a03e"],
Cell[32852, 870, 364, 7, 70, "Output",ExpressionUUID->"12af52d0-8122-4a6a-af3d-1ca90a4e2b55"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33265, 883, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"34ceb416-2db7-4af8-b3fb-bcc14cf13a03"],
Cell[33492, 890, 164, 2, 70, "ExampleText",ExpressionUUID->"b8d1f513-cc97-40cb-b6b5-60b14503aa97"],
Cell[CellGroupData[{
Cell[33681, 896, 512, 10, 70, "Input",ExpressionUUID->"14eed044-b156-4ddc-bd82-63faa16c6f3a"],
Cell[34196, 908, 368, 7, 70, "Output",ExpressionUUID->"ef410773-69e7-4c0b-92a9-4bb50dcd7356"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[34613, 921, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"48d492c4-79ce-4ca6-9daa-b38009fcc334"],
Cell[34840, 928, 156, 2, 70, "ExampleText",ExpressionUUID->"b4524c51-9128-473f-ab88-c4684014a05a"],
Cell[CellGroupData[{
Cell[35021, 934, 337, 6, 70, "Input",ExpressionUUID->"28d1cb61-c1ca-404b-9120-4ab8c9a284bc"],
Cell[35361, 942, 280, 5, 70, "Output",ExpressionUUID->"5b6af4cf-4544-4fc7-9455-8da6ec6d58bd"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[35690, 953, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"fc947b5a-539f-4f36-9a77-2fee73d6cfa6"],
Cell[35917, 960, 121, 0, 70, "ExampleText",ExpressionUUID->"22b916a6-d317-4e74-9d8c-97ff75f8ad32"],
Cell[CellGroupData[{
Cell[36063, 964, 330, 5, 70, "Input",ExpressionUUID->"fe5bce61-07fc-4d8e-bcf0-733d96208202"],
Cell[36396, 971, 273, 4, 70, "Output",ExpressionUUID->"11709efb-f2c8-4d78-aea3-4527c9716a0e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36718, 981, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2565c9de-4d20-4f9a-b868-f877041da18d"],
Cell[36945, 988, 106, 0, 70, "ExampleText",ExpressionUUID->"66c3767a-edda-4abf-8bd1-3bfbe39b14fc"],
Cell[CellGroupData[{
Cell[37076, 992, 327, 5, 70, "Input",ExpressionUUID->"8b67c1fd-4b87-4b28-a9b8-969fe916295c"],
Cell[37406, 999, 270, 4, 70, "Output",ExpressionUUID->"4c388943-63e7-401f-a5f3-4c31513610fc"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[37737, 1010, 1229, 31, 70, "ExampleSection",ExpressionUUID->"ace748d8-e139-4478-8f46-1b555818aec1",
 CellID->2061341341],
Cell[38969, 1043, 347, 7, 70, "ExampleText",ExpressionUUID->"d87cb782-6453-4222-92c8-f1f29da3d3a6"],
Cell[CellGroupData[{
Cell[39341, 1054, 440, 8, 70, "Input",ExpressionUUID->"3e299780-9267-4f1f-9cf4-2fe338104efe"],
Cell[39784, 1064, 107, 1, 70, "Output",ExpressionUUID->"032e5e18-98f0-4bc1-98a9-7b4abdd696b8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39928, 1070, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"33618543-8a0d-4711-9c5b-5764f8bf4c3a"],
Cell[40155, 1077, 221, 3, 70, "ExampleText",ExpressionUUID->"ff6115b9-1c21-46bb-ad15-496e3dbdd3d6"],
Cell[CellGroupData[{
Cell[40401, 1084, 416, 8, 70, "Input",ExpressionUUID->"769eab3c-7190-4b89-b7a8-a02c01efc123"],
Cell[40820, 1094, 115, 1, 70, "Output",ExpressionUUID->"efde04ef-614a-4232-889a-54721a16c8a4"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[40984, 1101, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"5413f037-c580-40a3-8751-88f8eeb5b4b4"],
Cell[41211, 1108, 609, 17, 70, "ExampleText",ExpressionUUID->"39402437-c1e6-4df3-b925-c36985d7f275"],
Cell[CellGroupData[{
Cell[41845, 1129, 514, 9, 70, "Input",ExpressionUUID->"e780e5d4-b44e-4afb-af23-97669fc553f2"],
Cell[42362, 1140, 134, 1, 70, "Output",ExpressionUUID->"d5e9cc4d-50da-4274-8d6f-7605efc611f4"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[42557, 1148, 1244, 31, 70, "ExampleSection",ExpressionUUID->"961f995d-e18d-4f8b-ae3c-e7ad29c7bde7",
 CellID->2123667759],
Cell[43804, 1181, 536, 13, 70, "ExampleText",ExpressionUUID->"f4fb832d-b2a8-42e8-b8d5-995e75404548"],
Cell[CellGroupData[{
Cell[44365, 1198, 457, 9, 70, "Input",ExpressionUUID->"7bd94b47-cdbb-4fe2-9638-d1acd68f0eb7"],
Cell[44825, 1209, 110, 1, 70, "Output",ExpressionUUID->"2aeaeb41-797c-46fc-be86-59b733aaac58"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44972, 1215, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7e05447d-29b4-4784-aa4c-389d320d2845"],
Cell[45199, 1222, 175, 3, 70, "ExampleText",ExpressionUUID->"acf89cd2-55b1-4f57-b419-94ddda519dd7"],
Cell[CellGroupData[{
Cell[45399, 1229, 859, 19, 70, "Input",ExpressionUUID->"563d1d69-d52c-4cf1-bdb9-17a7a52726d8"],
Cell[46261, 1250, 110, 1, 70, "Output",ExpressionUUID->"87ce5534-5ddf-4711-b01d-62336cc852b2"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[46432, 1258, 1237, 31, 70, "ExampleSection",ExpressionUUID->"4607feea-0ea3-4519-99d4-aea9a64ee27e",
 CellID->1305812373],
Cell[47672, 1291, 359, 7, 70, "ExampleText",ExpressionUUID->"22be7e37-25d4-4c9e-8d58-0c0e39e772bc"],
Cell[CellGroupData[{
Cell[48056, 1302, 599, 12, 70, "Input",ExpressionUUID->"753558a3-6874-4631-a266-fd0f01068b75"],
Cell[48658, 1316, 134, 1, 70, "Output",ExpressionUUID->"d9b3a83d-b7ac-4631-ac57-ec4bc3a42e4f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48829, 1322, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"9cec772d-9670-4dfe-aae0-4489c7c13a38"],
Cell[49056, 1329, 227, 3, 70, "ExampleText",ExpressionUUID->"088952cf-c25e-4639-883b-33b37496fdc3"],
Cell[CellGroupData[{
Cell[49308, 1336, 661, 14, 70, "Input",ExpressionUUID->"1408cfa0-4866-4a3c-a058-002628fcd59d"],
Cell[49972, 1352, 171, 3, 70, "Output",ExpressionUUID->"d9fb0ad4-fc4a-483d-b899-fe8b054b1857"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[50194, 1361, 3180, 82, 70, "SeeAlsoSection",ExpressionUUID->"b0f44d99-ba63-4a6a-b792-0079245bb4ac"],
Cell[53377, 1445, 678, 18, 70, "MoreAboutSection",ExpressionUUID->"844dfcec-5c5f-4d5d-a85d-fb0058a03a04"],
Cell[54058, 1465, 78, 0, 70, "FooterCell",ExpressionUUID->"79d52068-dcb1-4dc9-8469-61d8976e9b32"]
}
]
*)

(* End of internal cache information *)

