(* 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[     50710,       1299]
NotebookOptionsPosition[     41117,       1123]
NotebookOutlinePosition[     43198,       1172]
CellTagsIndexPosition[     43120,       1167]
WindowTitle->$ChainExplorers
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->
           "ab57e1c5-2170-45f7-a4b9-f66db0180857"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "790c94b3-9473-4629-bb88-6740e8d288e2"],
        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->
           "df568c9c-03b0-45a2-9f15-a104cb8c5b0e"]
         }],ExpressionUUID->"53b78d18-fb00-4369-8db6-d6a669b0828a"],
         StripOnInput->False],{
        StyleBox[
          "\"BlockchainAddressData\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:ref/BlockchainAddressData"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"ChainExplorerQuery\"", "SeeAlsoRelated", StripOnInput -> False],
            "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainExplorerQuery"], 
         StyleBox[
          StyleBox[
           "\"ChainAddressCrossCheck\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainAddressCrossCheck"], 
         StyleBox[
          StyleBox[
           "\"ChainAddressSummary\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainAddressSummary"], 
         StyleBox[
          StyleBox[
           "\"$ChainCacheDirectory\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/$ChainCacheDirectory"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "108f79a5-7f5a-4f19-a523-a8f5fae0ecb5"],
     "\[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->
           "7576cb15-70ed-4491-82cd-693e341644c4"]
         }],ExpressionUUID->"00f465bc-4d4b-4210-bbc1-57378c757c7e"],
         StripOnInput->False],{
        "\"Chain\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Chain"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "7a0258d7-a2cd-420f-a5fb-7521e166d3f8"],
     "\[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->
           "c34cd87b-f780-4203-a056-ce913e7831a9"]
         }],ExpressionUUID->"41a5e72f-1c2b-4c16-b731-e36000eb598a"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/$ChainExplorers\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/$ChainExplorers"], 
         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/$ChainExplorers.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/$ChainExplorers" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "09b7e393-cfa3-4aba-9b50-e3be79902ed4"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "15118be0-66a8-4c06-85cb-2660a625fde3"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"58dbe17f-0217-49c5-af6a-40c24acfcd62"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"de4dbd47-7fcc-447a-891e-f2007ac50351"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "$ChainExplorers", "ObjectName",ExpressionUUID->
      "1ef64cd0-0d7b-46f5-8c6e-f7cb924dd374"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"527598c0-399d-4ab6-9e2d-9e169174d51d"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "4a7f0c43-b0af-418d-90f5-18df3ce445d5"]
    }],ExpressionUUID->"16071ec1-47f5-411f-aede-fb227a91c348"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"63514741-be26-495c-b89f-\
fc299d07306e"],

Cell[BoxData[GridBox[{
   {"", 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",
      FontSize->0.9 Inherited,ExpressionUUID->
      "59ab8f3a-d0f0-46ef-86b0-3f1b06163ad5"],
     "\[LineSeparator]",
     "is an Association from block-explorer backend name to a descriptor of \
what that backend is and what it can answer."
    }],ExpressionUUID->"19668e62-8f3c-4bfb-8b2f-d2cd1e1a453a"]}
  }]], "Usage",ExpressionUUID->"7ab8b41a-30f3-4b17-b27b-a698caa536a5"]
}, 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->"54f1871f-19cf-4f64-b9f4-aa394fc9ee8a"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"1fa468ea-76d2-49eb-923e-480615108c42"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "feacc261-3ef7-4ef0-884c-d0ae29fb51a0"]],ExpressionUUID->"9f60773b-ef6f-\
443f-8f13-f7daee37319f"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1021924096,ExpressionUUID->"4f013a50-5746-4543-a45c-e43fdcc9f1e4"],

Cell[TextData[{
 "Each descriptor holds ",
 Cell[BoxData["\<\"Networks\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "344dc5f3-a8e8-4369-8174-016b37280cba"],
 ", the API ",
 Cell[BoxData["\<\"Family\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "12267457-4799-456e-9c91-22192d99343d"],
 " it speaks, its ",
 Cell[BoxData["\<\"Base\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5870cb85-8e63-4e40-9f70-26e7c4198e81"],
 " URL, its ",
 Cell[BoxData["\<\"Operator\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f8098744-6a32-44cb-8dbc-4abf4baedfc2"],
 ", the ",
 Cell[BoxData["\<\"Properties\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "69568084-066d-4107-a11f-461df9cc3b88"],
 " it can answer, and whether it is queried by ",
 Cell[BoxData["\<\"Default\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ba45673e-fba4-4b1f-a81c-c9b30ba1a3b9"],
 "."
}], "Notes",ExpressionUUID->"ac6d9246-acad-4feb-a360-932d27a5b0ac"],

Cell[TextData[{
 "The registered backends are ",
 Cell[BoxData["\<\"MempoolSpace\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "44a49ea1-0cf5-4451-b0e9-d637c9eeb1d8"],
 ", ",
 Cell[BoxData["\<\"BlockstreamInfo\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6ba8db42-c456-4a0d-a9e2-5222e2203e40"],
 " and ",
 Cell[BoxData["\<\"BlockCypher\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4edb13bf-05d1-4c11-be60-7c4e1c330188"],
 " on Bitcoin, ",
 Cell[BoxData["\<\"PublicNodeETH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "bd91c510-dadb-4099-8493-ff1603f71fa9"],
 ", ",
 Cell[BoxData["\<\"OneRPC\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "42a3887d-ddfd-48a3-a443-4d145e32f7c2"],
 " and ",
 Cell[BoxData["\<\"Blockscout\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9a4e2744-5cf0-45cc-8931-4e00a2c09fed"],
 " on Ethereum, and ",
 Cell[BoxData["\<\"WolframBlockchain\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "67755c88-1558-4037-9320-609e993bcdbc"],
 " on both."
}], "Notes",ExpressionUUID->"bbf40613-c57d-4397-91b7-9f3d7d095c19"],

Cell[TextData[{
 Cell[BoxData["\<\"Family\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5d522f7c-1644-446a-a7a1-f514793dd3f8"],
 " is what distinguishes independent evidence from correlated evidence. ",
 Cell[BoxData["\<\"MempoolSpace\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "fe44f57a-5f78-405a-b337-e2ae9ca1bc56"],
 " and ",
 Cell[BoxData["\<\"BlockstreamInfo\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e7ec2b6e-37f9-4f22-ab25-4da417f89cd1"],
 " both run Esplora, so they are two nodes of one implementation, while ",
 Cell[BoxData["\<\"BlockCypher\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ac84ec64-53fa-43aa-aa4d-88d9112cf67e"],
 " is a separate indexer with its own accounting convention."
}], "Notes",ExpressionUUID->"de00dc71-29e3-45f1-b023-44d2736e92da"],

Cell[TextData[{
 Cell[BoxData["\<\"WolframBlockchain\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "33a800c6-54ab-4280-bac8-13ac86c0d63e"],
 " is 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->
  "b6713185-08b7-4820-9357-92cf45577a00"],
 ", registered as a backend rather than reimplemented. It is not a default \
because it routes through the Wolfram Cloud, and on Bitcoin it publishes no \
spend total."
}], "Notes",ExpressionUUID->"d6853786-6fff-4e07-ac17-6188d4e9fb86"],

Cell[TextData[{
 Cell[BoxData["\<\"Properties\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d428619f-7178-4496-bcb4-415fa4d996fc"],
 " is what a backend can answer, either ",
 Cell[BoxData["\<\"AddressSummary\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b18f1fcb-122d-4986-b024-37d0ba0ce37b"],
 " alone or that together with ",
 Cell[BoxData["\<\"AddressTransactions\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7869314e-2dee-4c65-8254-c0be581efc00"],
 ". ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ChainExplorerQuery"]], 
    "paclet:WolframInstitute/Puzzles/ref/ChainExplorerQuery", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f8eb2d7c-47be-4774-9d81-1bb280043996"],
 " is left unevaluated for any other pairing."
}], "Notes",ExpressionUUID->"76bcc4f9-bc8c-4b65-b255-eab62d3e0036"],

Cell[TextData[{
 "The keys of this Association are exactly the values the ",
 Cell[BoxData["\<\"Backends\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "749d8cba-3090-4f99-845e-7ddf307d11e1"],
 " option of the Chain functions accepts."
}], "Notes",ExpressionUUID->"06b4b417-59b7-437d-ad2d-23058f314ddf"],

Cell["All the backends listed are mainnet and need no API key.", "Notes",ExpressionUUID->"25e733b1-516a-4e3d-b827-0b99ce6572e1"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"32027fa3-256c-4a0e-b6b2-ebe5e080ff6b"],

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->"58f8ce6a-332d-413f-8aa9-b53abf587ea0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a94589f5-7702-4e16-97af-d17daafa8971"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(12)", "ExampleCount",ExpressionUUID->
  "3eb6b70f-e94a-44d3-8f06-5b193bfa803f"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2051556413,ExpressionUUID->"0bb41fa2-47ef-4e2b-b44b-22ffa8216f97"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"8ae8ace7-c67d-4173-abed-36c7f6c02647"],

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->
  "106a68ef-bb33-4f0e-b070-bbfa2677fe64"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ff352480-180b-4370-ab01-182c5b1393bf"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "8eeca9e5-7a5a-41a6-838d-41f2b514f492"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->511197059,ExpressionUUID->"0068e76c-935e-4ec0-835a-fbad766b5d47"],

Cell["The registered backends:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"26502b38-0786-4ea5-913e-aab84e8595dc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", "[", "$ChainExplorers", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7635df80-f554-4528-b995-8f6358dc8c1a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"MempoolSpace\"\>", ",", "\<\"BlockstreamInfo\"\>", 
   ",", "\<\"BlockCypher\"\>", ",", "\<\"PublicNodeETH\"\>", 
   ",", "\<\"OneRPC\"\>", ",", "\<\"Blockscout\"\>", 
   ",", "\<\"WolframBlockchain\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6e634bb0-972c-4cd7-8dad-24ec4db359a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "24016346-2008-49ed-a564-9f694e4405e1"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b93e8878-19ae-4142-\
9f75-9a8b24a7d8f5"],

Cell["One descriptor in full:", "ExampleText",ExpressionUUID->"5e642eb0-95e6-4220-bc1b-d94c49fd45d8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$ChainExplorers", "[", "\"\<MempoolSpace\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2e883207-0667-4963-8a9d-c8caf3f0008d"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Networks\"\>", "\[Rule]", 
    RowBox[{"{", "\<\"Bitcoin\"\>", "}"}]}], ",", 
   RowBox[{"\<\"Family\"\>", "\[Rule]", "\<\"Esplora\"\>"}], ",", 
   RowBox[{"\<\"Base\"\>", "\[Rule]", "\<\"https://mempool.space/api\"\>"}], ",", 
   RowBox[{"\<\"Operator\"\>", "\[Rule]", "\<\"mempool.space\"\>"}], ",", 
   RowBox[{"\<\"Properties\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\<\"AddressSummary\"\>", ",", "\<\"AddressTransactions\"\>"}], 
     "}"}]}], ",", 
   RowBox[{"\<\"Default\"\>", "\[Rule]", "True"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9a0efd76-a209-4e17-8018-c21805ba6e25"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "e923d525-04d6-4826-b0b7-74103e157002"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"546aa0c0-da8a-4ffd-\
b4a8-656483c51d64"],

Cell["Which network each backend serves:", "ExampleText",ExpressionUUID->"5dfb2fdb-9091-46a7-ba3a-533cbdf9f3b6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$ChainExplorers", "[", 
  RowBox[{"[", 
   RowBox[{"All", ",", " ", "\"\<Networks\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c5f3b2c2-df66-48e0-8d44-b92fb18e0b8b"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"MempoolSpace\"\>", "\[Rule]", 
    RowBox[{"{", "\<\"Bitcoin\"\>", "}"}]}], ",", 
   RowBox[{"\<\"BlockstreamInfo\"\>", "\[Rule]", 
    RowBox[{"{", "\<\"Bitcoin\"\>", "}"}]}], ",", 
   RowBox[{"\<\"BlockCypher\"\>", "\[Rule]", 
    RowBox[{"{", "\<\"Bitcoin\"\>", "}"}]}], ",", 
   RowBox[{"\<\"PublicNodeETH\"\>", "\[Rule]", 
    RowBox[{"{", "\<\"Ethereum\"\>", "}"}]}], ",", 
   RowBox[{"\<\"OneRPC\"\>", "\[Rule]", 
    RowBox[{"{", "\<\"Ethereum\"\>", "}"}]}], ",", 
   RowBox[{"\<\"Blockscout\"\>", "\[Rule]", 
    RowBox[{"{", "\<\"Ethereum\"\>", "}"}]}], ",", 
   RowBox[{"\<\"WolframBlockchain\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\<\"Bitcoin\"\>", ",", "\<\"Ethereum\"\>"}], "}"}]}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"324bf421-cd2f-453f-ae64-e4d5d35e2e9c"]
}, 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->
  "aa4b0545-6a9d-495c-9203-d09b0f568006"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"9bbc687b-cb51-4c44-9c53-daf037f273f4"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "fc9547dd-2bb0-4d6d-a1cd-22dfae5b24be"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"bb868b28-1647-4166-8702-05e9f565e607"],

Cell["\<\
The API families behind the registry, and how many backends speak each:\
\>", "ExampleText",ExpressionUUID->"94a45d43-eb02-4646-ac10-78ea224f3d61"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Counts", "[", 
  RowBox[{"$ChainExplorers", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", " ", "\"\<Family\>\""}], "]"}], "]"}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"15330277-2829-4146-8972-8b05014d2e96"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Esplora\"\>", "\[Rule]", "2"}], ",", 
   RowBox[{"\<\"BlockCypher\"\>", "\[Rule]", "1"}], ",", 
   RowBox[{"\<\"JSONRPC\"\>", "\[Rule]", "2"}], ",", 
   RowBox[{"\<\"Blockscout\"\>", "\[Rule]", "1"}], ",", 
   RowBox[{"\<\"Wolfram\"\>", "\[Rule]", "1"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"80fca696-a989-4aa5-8f97-18389631877b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3a0a387c-004d-484d-a199-9f3d8c44f4cd"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e1353deb-00ff-4449-\
9b8a-b5233c0bd925"],

Cell["The backends a Bitcoin query uses when none are named:", "ExampleText",ExpressionUUID->"6fa24410-3a49-49ff-8069-07420fa85298"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", " ", "@", " ", 
  RowBox[{"Select", "[", 
   RowBox[{"$ChainExplorers", ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"TrueQ", "[", "#Default", "]"}], " ", "&&", " ", 
      RowBox[{"MemberQ", "[", 
       RowBox[{"#Networks", ",", " ", "\"\<Bitcoin\>\""}], "]"}]}], " ", 
     "&"}]}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ffd3787a-04e7-451f-b58d-e5d204621ee4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"MempoolSpace\"\>", ",", "\<\"BlockstreamInfo\"\>", 
   ",", "\<\"BlockCypher\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2e7b8db2-16d8-4fee-b228-2c09669234e7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a479a946-5d86-42dd-8af3-44669fa29697"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"bc60a384-efc6-422d-\
b3bd-17ceddc45a4b"],

Cell["Only some backends can serve a transaction list:", "ExampleText",ExpressionUUID->"a41ce94a-efab-4e63-8d73-61413d424f7a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", " ", "@", " ", 
  RowBox[{"Select", "[", 
   RowBox[{"$ChainExplorers", ",", " ", 
    RowBox[{
     RowBox[{"MemberQ", "[", 
      RowBox[{"#Properties", ",", " ", "\"\<AddressTransactions\>\""}], "]"}],
      " ", "&"}]}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d6ebb0cf-d6db-4c55-b650-7d6284e0fa40"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"MempoolSpace\"\>", ",", "\<\"BlockstreamInfo\"\>", 
   ",", "\<\"Blockscout\"\>", ",", "\<\"WolframBlockchain\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"234f7991-fca1-4eca-a20e-2a23cfbb51fe"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "4b464adf-1f9d-480c-b569-520c989311da"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c0826dba-7a6d-48c4-\
aea2-e2e3964b0a7e"],

Cell["The built-in reader is registered, and off by default:", "ExampleText",ExpressionUUID->"15ed2a5c-7214-4f33-b60a-9081c507720e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$ChainExplorers", "[", "\"\<WolframBlockchain\>\"", "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2ee005f9-8f7d-49c0-aca5-e37dca8a0ced"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Networks\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\<\"Bitcoin\"\>", ",", "\<\"Ethereum\"\>"}], "}"}]}], ",", 
   RowBox[{"\<\"Family\"\>", "\[Rule]", "\<\"Wolfram\"\>"}], ",", 
   RowBox[{"\<\"Base\"\>", "\[Rule]", "None"}], ",", 
   RowBox[{"\<\"Operator\"\>", "\[Rule]", "\<\"Wolfram Research\"\>"}], ",", 
   RowBox[{"\<\"Properties\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\<\"AddressSummary\"\>", ",", "\<\"AddressTransactions\"\>"}], 
     "}"}]}], ",", 
   RowBox[{"\<\"Default\"\>", "\[Rule]", "False"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6bd9f5bf-f3f6-4c08-9c7a-3f17547c12f3"]
}, 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->
  "e636f95c-e05b-469f-a357-9f05496752dd"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"cb724d2d-0464-4679-aa4e-e724ed2ae961"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "fcdb8d5d-0f10-44cd-ad6f-be2d5ea5da76"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"dcd1d248-1429-49b0-9c63-d2ecc46c8e30"],

Cell[TextData[{
 "A key of this Association is what the ",
 Cell[BoxData["\<\"Backends\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "24983d00-d7c5-4cae-88f7-d32e4059b3c7"],
 " option takes:"
}], "ExampleText",ExpressionUUID->"e3f948cb-d131-41cc-84a9-08d66195e463"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChainAddressSummary", "[", 
   RowBox[{"\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", ",", " ", 
    RowBox[{"\"\<Backends\>\"", " ", "->", " ", "\"\<BlockCypher\>\""}]}], 
   "]"}], "[", "\"\<Backend\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f829a985-cdcf-42bd-b7d2-f6d5018e486f"],

Cell[BoxData["\<\"BlockCypher\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f3687712-5046-4634-bb3b-0e20514cd2b9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0139b530-c45f-40b2-9ae0-4e099665a74c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"35535225-fe16-4918-\
8d6f-b7e18c3e37ae"],

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->
  "5b23a52e-029b-4959-9af6-803b97f1832a"],
 " reports which families answered, computed from the ",
 Cell[BoxData["\<\"Family\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "89b1048b-3396-4452-b7cc-acad9569dd92"],
 " field:"
}], "ExampleText",ExpressionUUID->"9df0b0d1-f3c5-4f4e-80ea-8cf5f6f71ef5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "ChainAddressCrossCheck", "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"",
    "]"}], "[", "\"\<Families\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b1ed55c0-759c-45c1-9ce6-799a3cb71131"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Esplora\"\>", ",", "\<\"BlockCypher\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9ad894eb-2bf4-4b5b-9e94-0fd5f2d3a6a7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d4481a0f-8b49-4451-adcb-0e3cb68319b1"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2e59a05c-96c6-43fa-\
9ecb-f2552c8eefd9"],

Cell[TextData[{
 "The ",
 Cell[BoxData["\<\"Base\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "12e7066b-3091-409f-b4df-b7c9ed903f9a"],
 " URL is where the requests go, so a backend's behaviour can be checked by \
hand:"
}], "ExampleText",ExpressionUUID->"49d07fe3-eb73-4011-b13a-8b31fa37caf5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$ChainExplorers", "[", 
  RowBox[{"[", 
   RowBox[{"All", ",", " ", "\"\<Base\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4f0f192b-8a55-4c15-ba75-0444abda0f08"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"MempoolSpace\"\>", 
    "\[Rule]", "\<\"https://mempool.space/api\"\>"}], ",", 
   RowBox[{"\<\"BlockstreamInfo\"\>", 
    "\[Rule]", "\<\"https://blockstream.info/api\"\>"}], ",", 
   RowBox[{"\<\"BlockCypher\"\>", 
    "\[Rule]", "\<\"https://api.blockcypher.com/v1/btc/main\"\>"}], ",", 
   RowBox[{"\<\"PublicNodeETH\"\>", 
    "\[Rule]", "\<\"https://ethereum-rpc.publicnode.com\"\>"}], ",", 
   RowBox[{"\<\"OneRPC\"\>", "\[Rule]", "\<\"https://1rpc.io/eth\"\>"}], ",", 
   
   RowBox[{"\<\"Blockscout\"\>", 
    "\[Rule]", "\<\"https://eth.blockscout.com/api/v2\"\>"}], ",", 
   RowBox[{"\<\"WolframBlockchain\"\>", "\[Rule]", "None"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ccef0a5b-2966-4228-b10e-d1465fdec06d"]
}, 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->
  "8792570e-25e8-4693-b9ec-2a74b8fd5b23"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"f67c264d-d106-4301-bab2-2a31f5a1c941"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "b2cec035-2d45-4b80-afbe-8083d025417c"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"006864c6-01d5-4d3f-b23a-f82334d361ce"],

Cell["\<\
The two Esplora backends are one implementation on two operators' nodes, so \
an agreement between them is weaker than an agreement spanning families:\
\>", "ExampleText",ExpressionUUID->"15a3736c-b6cc-4826-a9e8-c3d3c39dc2b1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", " ", "@", " ", 
  RowBox[{"Select", "[", 
   RowBox[{"$ChainExplorers", ",", " ", 
    RowBox[{
     RowBox[{"#Family", " ", "===", " ", "\"\<Esplora\>\""}], " ", "&"}]}], 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2b43e248-d91d-47fb-ac0e-65936ebe4771"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"MempoolSpace\"\>", ",", "\<\"BlockstreamInfo\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4f808494-0060-4426-8afc-c1f2ad237c0a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "daf1c11b-d332-4fdf-97ea-992b7f1eea06"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f21148a5-f905-4928-\
8fe3-e8670393cc8e"],

Cell[TextData[{
 Cell[BoxData["\<\"WolframBlockchain\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ca0fa125-af78-49bc-97f0-430106dc1da7"],
 " publishes no spend total on Bitcoin, so it abstains from the never-spent \
question on that network:"
}], "ExampleText",ExpressionUUID->"b22ce7d7-2e3f-4c25-9682-8b0702e64991"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChainExplorerQuery", "[", 
   RowBox[{"\"\<WolframBlockchain\>\"", ",", " ", "\"\<AddressSummary\>\"", ",",
     " ", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\""}], "]"}], 
  "[", "\"\<SentTotal\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"51bb2a4a-5a62-424a-b13b-3eb547428b2e"],

Cell[BoxData[
 RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"57b2015f-b2a3-4f2e-8c35-1f94bcd57d84"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ChainExplorerQuery"]], 
           "paclet:WolframInstitute/Puzzles/ref/ChainExplorerQuery", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "2ccf1af6-4cef-48cc-b09a-2512c8146b0a"],
        "\[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->
         "c6bd7513-401e-44e1-87b0-ae53526bc74b"],
        "\[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->
         "4651b8e0-05fd-4eba-9d26-f1a0772c1fe5"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BlockchainAddressData"]], 
           "paclet:ref/BlockchainAddressData"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "e4f24656-de73-400e-91e3-5110f75c7222"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["$ChainCacheDirectory"]], 
           "paclet:WolframInstitute/Puzzles/ref/$ChainCacheDirectory", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "70de63f8-a9f6-4f77-8d07-c4cfd702b5d7"]
       }], "SeeAlso",ExpressionUUID->"5f4021ca-437b-403a-a679-ebeefb5226a2"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"2d0fd690-b303-4884-9553-\
4874215c7787"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, "RelatedGuide.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Chain"]], "paclet:WolframInstitute/Puzzles/guide/Chain"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "5da17b71-e023-4aef-9f34-4d5ca581d40b"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"caeb413e-8894-4162-a98b-\
c3cb0d131132"],

Cell[" ", "FooterCell",ExpressionUUID->"96a2a9ff-9f93-429e-88d0-96755108e55a"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"$ChainExplorers",
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, 57.925671}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[$ChainExplorers, paclet : \
WolframInstitute/Puzzles/ref/$ChainExplorers, WolframInstitute/Puzzles \
Package Symbol] is an Association from block-explorer backend name to a \
descriptor of what that backend is and what it can answer.", "synonyms" -> {},
     "tabletags" -> {}, "title" -> "$ChainExplorers", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "$ChainExplorers", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/$ChainExplorers", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"5b4ee327-9107-4d6e-b95e-0a555b99e19c"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[18962, 498, 134, 2, 70, "ExampleText",ExpressionUUID->"26502b38-0786-4ea5-913e-aab84e8595dc",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 42963, 1161}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[583, 21, 6387, 155, 70, "AnchorBarGrid",ExpressionUUID->"58dbe17f-0217-49c5-af6a-40c24acfcd62",
 CellID->1],
Cell[6973, 178, 107, 0, 70, "ContextNameCell",ExpressionUUID->"de4dbd47-7fcc-447a-891e-f2007ac50351"],
Cell[CellGroupData[{
Cell[7105, 182, 558, 14, 70, "ObjectNameGrid",ExpressionUUID->"63514741-be26-495c-b89f-fc299d07306e"],
Cell[7666, 198, 746, 17, 70, "Usage",ExpressionUUID->"7ab8b41a-30f3-4b17-b27b-a698caa536a5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8449, 220, 1444, 34, 70, "NotesSection",ExpressionUUID->"4f013a50-5746-4543-a45c-e43fdcc9f1e4",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1021924096],
Cell[9896, 256, 1248, 32, 70, "Notes",ExpressionUUID->"ac6d9246-acad-4feb-a360-932d27a5b0ac"],
Cell[11147, 290, 1429, 37, 70, "Notes",ExpressionUUID->"bbf40613-c57d-4397-91b7-9f3d7d095c19"],
Cell[12579, 329, 1001, 21, 70, "Notes",ExpressionUUID->"de00dc71-29e3-45f1-b023-44d2736e92da"],
Cell[13583, 352, 756, 18, 70, "Notes",ExpressionUUID->"d6853786-6fff-4e07-ac17-6188d4e9fb86"],
Cell[14342, 372, 1124, 28, 70, "Notes",ExpressionUUID->"76bcc4f9-bc8c-4b65-b255-eab62d3e0036"],
Cell[15469, 402, 358, 7, 70, "Notes",ExpressionUUID->"06b4b417-59b7-437d-ad2d-23058f314ddf"],
Cell[15830, 411, 128, 0, 70, "Notes",ExpressionUUID->"25e733b1-516a-4e3d-b827-0b99ce6572e1"]
}, Closed]],
Cell[15973, 414, 80, 0, 70, "PageDelimiter",ExpressionUUID->"32027fa3-256c-4a0e-b6b2-ebe5e080ff6b"],
Cell[CellGroupData[{
Cell[16078, 418, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"0bb41fa2-47ef-4e2b-b44b-22ffa8216f97",
 CellID->2051556413],
Cell[17483, 457, 216, 4, 70, "Input",ExpressionUUID->"8ae8ace7-c67d-4173-abed-36c7f6c02647",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[17724, 465, 1235, 31, 70, "ExampleSection",ExpressionUUID->"0068e76c-935e-4ec0-835a-fbad766b5d47",
 CellID->511197059],
Cell[18962, 498, 134, 2, 70, "ExampleText",ExpressionUUID->"26502b38-0786-4ea5-913e-aab84e8595dc",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[19121, 504, 198, 3, 70, "Input",ExpressionUUID->"7635df80-f554-4528-b995-8f6358dc8c1a"],
Cell[19322, 509, 347, 6, 70, "Output",ExpressionUUID->"6e634bb0-972c-4cd7-8dad-24ec4db359a9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19706, 520, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b93e8878-19ae-4142-9f75-9a8b24a7d8f5"],
Cell[19933, 527, 101, 0, 70, "ExampleText",ExpressionUUID->"5e642eb0-95e6-4220-bc1b-d94c49fd45d8"],
Cell[CellGroupData[{
Cell[20059, 531, 214, 3, 70, "Input",ExpressionUUID->"2e883207-0667-4963-8a9d-c8caf3f0008d"],
Cell[20276, 536, 707, 14, 70, "Output",ExpressionUUID->"9a0efd76-a209-4e17-8018-c21805ba6e25"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21032, 556, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"546aa0c0-da8a-4ffd-b4a8-656483c51d64"],
Cell[21259, 563, 112, 0, 70, "ExampleText",ExpressionUUID->"5dfb2fdb-9091-46a7-ba3a-533cbdf9f3b6"],
Cell[CellGroupData[{
Cell[21396, 567, 264, 5, 70, "Input",ExpressionUUID->"c5f3b2c2-df66-48e0-8d44-b92fb18e0b8b"],
Cell[21663, 574, 900, 19, 70, "Output",ExpressionUUID->"324bf421-cd2f-453f-ae64-e4d5d35e2e9c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22624, 600, 1227, 31, 70, "ExampleSection",ExpressionUUID->"bb868b28-1647-4166-8702-05e9f565e607",
 CellID->1293636265],
Cell[23854, 633, 157, 2, 70, "ExampleText",ExpressionUUID->"94a45d43-eb02-4646-ac10-78ea224f3d61"],
Cell[CellGroupData[{
Cell[24036, 639, 299, 7, 70, "Input",ExpressionUUID->"15330277-2829-4146-8972-8b05014d2e96"],
Cell[24338, 648, 447, 9, 70, "Output",ExpressionUUID->"80fca696-a989-4aa5-8f97-18389631877b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24822, 662, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e1353deb-00ff-4449-9b8a-b5233c0bd925"],
Cell[25049, 669, 132, 0, 70, "ExampleText",ExpressionUUID->"6fa24410-3a49-49ff-8069-07420fa85298"],
Cell[CellGroupData[{
Cell[25206, 673, 469, 11, 70, "Input",ExpressionUUID->"ffd3787a-04e7-451f-b58d-e5d204621ee4"],
Cell[25678, 686, 225, 4, 70, "Output",ExpressionUUID->"2e7b8db2-16d8-4fee-b228-2c09669234e7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25952, 696, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"bc60a384-efc6-422d-b3bd-17ceddc45a4b"],
Cell[26179, 703, 126, 0, 70, "ExampleText",ExpressionUUID->"a41ce94a-efab-4e63-8d73-61413d424f7a"],
Cell[CellGroupData[{
Cell[26330, 707, 401, 9, 70, "Input",ExpressionUUID->"d6ebb0cf-d6db-4c55-b650-7d6284e0fa40"],
Cell[26734, 718, 261, 5, 70, "Output",ExpressionUUID->"234f7991-fca1-4eca-a20e-2a23cfbb51fe"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27044, 729, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c0826dba-7a6d-48c4-aea2-e2e3964b0a7e"],
Cell[27271, 736, 132, 0, 70, "ExampleText",ExpressionUUID->"15ed2a5c-7214-4f33-b60a-9081c507720e"],
Cell[CellGroupData[{
Cell[27428, 740, 221, 4, 70, "Input",ExpressionUUID->"2ee005f9-8f7d-49c0-aca5-e37dca8a0ced"],
Cell[27652, 746, 723, 15, 70, "Output",ExpressionUUID->"6bd9f5bf-f3f6-4c08-9c7a-3f17547c12f3"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[28436, 768, 1244, 31, 70, "ExampleSection",ExpressionUUID->"dcd1d248-1429-49b0-9c63-d2ecc46c8e30",
 CellID->2123667759],
Cell[29683, 801, 321, 7, 70, "ExampleText",ExpressionUUID->"e3f948cb-d131-41cc-84a9-08d66195e463"],
Cell[CellGroupData[{
Cell[30029, 812, 384, 7, 70, "Input",ExpressionUUID->"f829a985-cdcf-42bd-b7d2-f6d5018e486f"],
Cell[30416, 821, 125, 1, 70, "Output",ExpressionUUID->"f3687712-5046-4634-bb3b-0e20514cd2b9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30578, 827, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"35535225-fe16-4918-8d6f-b7e18c3e37ae"],
Cell[30805, 834, 712, 18, 70, "ExampleText",ExpressionUUID->"9df0b0d1-f3c5-4f4e-80ea-8cf5f6f71ef5"],
Cell[CellGroupData[{
Cell[31542, 856, 293, 6, 70, "Input",ExpressionUUID->"b1ed55c0-759c-45c1-9ce6-799a3cb71131"],
Cell[31838, 864, 184, 3, 70, "Output",ExpressionUUID->"9ad894eb-2bf4-4b5b-9e94-0fd5f2d3a6a7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32071, 873, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2e59a05c-96c6-43fa-9ecb-f2552c8eefd9"],
Cell[32298, 880, 350, 8, 70, "ExampleText",ExpressionUUID->"49d07fe3-eb73-4011-b13a-8b31fa37caf5"],
Cell[CellGroupData[{
Cell[32673, 892, 260, 5, 70, "Input",ExpressionUUID->"4f0f192b-8a55-4c15-ba75-0444abda0f08"],
Cell[32936, 899, 836, 17, 70, "Output",ExpressionUUID->"ccef0a5b-2966-4228-b10e-d1465fdec06d"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[33833, 923, 1237, 31, 70, "ExampleSection",ExpressionUUID->"006864c6-01d5-4d3f-b23a-f82334d361ce",
 CellID->1305812373],
Cell[35073, 956, 236, 3, 70, "ExampleText",ExpressionUUID->"15a3736c-b6cc-4826-a9e8-c3d3c39dc2b1"],
Cell[CellGroupData[{
Cell[35334, 963, 352, 8, 70, "Input",ExpressionUUID->"2b43e248-d91d-47fb-ac0e-65936ebe4771"],
Cell[35689, 973, 196, 4, 70, "Output",ExpressionUUID->"4f808494-0060-4426-8afc-c1f2ad237c0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35922, 982, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f21148a5-f905-4928-8fe3-e8670393cc8e"],
Cell[36149, 989, 374, 7, 70, "ExampleText",ExpressionUUID->"b22ce7d7-2e3f-4c25-9682-8b0702e64991"],
Cell[CellGroupData[{
Cell[36548, 1000, 380, 7, 70, "Input",ExpressionUUID->"51bb2a4a-5a62-424a-b13b-3eb547428b2e"],
Cell[36931, 1009, 159, 2, 70, "Output",ExpressionUUID->"57b2015f-b2a3-4f2e-8c35-1f94bcd57d84"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[37141, 1017, 3162, 82, 70, "SeeAlsoSection",ExpressionUUID->"2d0fd690-b303-4884-9553-4874215c7787"],
Cell[40306, 1101, 726, 18, 70, "MoreAboutSection",ExpressionUUID->"caeb413e-8894-4162-a98b-c3cb0d131132"],
Cell[41035, 1121, 78, 0, 70, "FooterCell",ExpressionUUID->"96a2a9ff-9f93-429e-88d0-96755108e55a"]
}
]
*)

(* End of internal cache information *)

