(* 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[     54835,       1415]
NotebookOptionsPosition[     44233,       1221]
NotebookOutlinePosition[     46365,       1271]
CellTagsIndexPosition[     46287,       1266]
WindowTitle->ChainAddressBalance
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->
           "747c9bde-be68-4fd5-8b11-c6e97db02b6f"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "1216a272-20b0-40eb-b971-696b8178a864"],
        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->
           "55881f53-10ce-4fd4-9b7c-da797cc58191"]
         }],ExpressionUUID->"900edeb6-84d2-4b72-a56a-1e70edd8eab5"],
         StripOnInput->False],{
        StyleBox["\"UnitConvert\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/UnitConvert"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"ChainAddressSummary\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainAddressSummary"], 
         StyleBox[
          StyleBox[
           "\"ChainAddressCrossCheck\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainAddressCrossCheck"], 
         StyleBox[
          StyleBox[
           "\"ChainPrizeUnclaimedQ\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainPrizeUnclaimedQ"], 
         StyleBox[
          StyleBox[
           "\"ChainExplorerQuery\"", "SeeAlsoRelated", StripOnInput -> False],
            "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainExplorerQuery"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "6fb3a01c-8c84-49dc-b870-a60cc7181667"],
     "\[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->
           "51357ebd-1909-4ddd-967c-48f803a2d385"]
         }],ExpressionUUID->"947c696e-bb1f-4d09-af5a-59a0edd4acb0"],
         StripOnInput->False],{
        "\"Chain\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Chain"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "aa4ab750-a19d-4f69-bae0-48fd343afc31"],
     "\[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->
           "7396c1d4-1e9d-4a62-bd1d-438550502626"]
         }],ExpressionUUID->"eaf96352-e1c8-44b4-b6f4-69f10623a707"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ChainAddressBalance\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/ChainAddressBalance"], 
         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/ChainAddressBalance.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/ChainAddressBalance" <> ".html"],
               None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "18deb2b5-6049-4a09-8ba8-9978e1ca218a"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "3a31e8e5-06c6-46e9-81db-baab6d5839f8"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"b67239ab-9bd0-4627-99ee-2661af3e9ae7"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"5681ff5c-510c-4da1-8a57-a65bf785933d"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ChainAddressBalance", "ObjectName",ExpressionUUID->
      "aefb7e4e-19d6-411b-ac9f-4b4d3c23d103"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"4c05f853-e1db-462e-92ea-77fb3648a6af"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "53dbb1c1-26cc-463a-bfb4-d6a4fc6962dc"]
    }],ExpressionUUID->"a7e718ca-bb91-4121-aa10-e7caf95557d4"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"cee04ab5-6d2a-4f2d-8285-\
fb586d5a4c4c"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ChainAddressBalance"]], 
         "paclet:WolframInstitute/Puzzles/ref/ChainAddressBalance", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["address", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "e13af962-a08c-4ce9-a381-8dce82da60c6"],
     "\[LineSeparator]",
     "gives the confirmed balance of ",
     StyleBox["address", "TI"],
     " as an exact ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Quantity"]], "paclet:ref/Quantity"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "5dbe1ce4-f903-48c5-86fe-3e196fe79434"],
     " of satoshis or wei, read from the first responding default backend."
    }],ExpressionUUID->"dc4b1e81-50f5-4b2f-8d4b-a711863dcf87"]}
  }]], "Usage",ExpressionUUID->"1e9290bf-5090-4de0-9dce-a65c8e3c4ca5"]
}, 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->"5c223be4-3f30-411b-8d2a-6058e750cf08"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"c55ae2ad-5111-4e2b-82f9-925c2d43c6fa"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "21993e7b-175b-41ba-adda-b7944b471064"]],ExpressionUUID->"46f9b7be-1c7a-\
4d7d-b6c2-9190c45d3782"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->654022378,ExpressionUUID->"db17c22c-745e-4fea-97fa-3d38f1dd5ee1"],

Cell[TextData[{
 "The magnitude is always an Integer count of the network's base unit, ",
 Cell[BoxData["\<\"Satoshis\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0a3af067-3c2d-492f-83e9-7a53100da155"],
 " on Bitcoin and ",
 Cell[BoxData["\<\"Wei\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9732dc3b-37e4-49b5-b891-fb022888c73d"],
 " on Ethereum. Nothing is rounded on the way out."
}], "Notes",ExpressionUUID->"d8dc9e84-593f-4313-a82e-02a191f35fc0"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["UnitConvert"]], "paclet:ref/UnitConvert"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "54514125-bc21-477f-926e-8ab0934cbc4f"],
 " to ",
 Cell[BoxData["\<\"Bitcoins\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a066facb-e80a-436e-b1c3-86ff4488d757"],
 " or ",
 Cell[BoxData["\<\"Ethers\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "83f154fa-089f-4470-91df-0bd937c6a336"],
 " gives the human-scale figure, at the point of display and by the caller's \
choice."
}], "Notes",ExpressionUUID->"d98f6f8c-a556-461e-bf68-f7c0bbe8ead0"],

Cell[TextData[{
 "Unconfirmed value is excluded. ",
 Cell[BoxData["\<\"UnconfirmedBalance\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "926a47d1-e181-4858-a827-2c06edf549d3"],
 " in ",
 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->
  "6e59b3c5-210e-4363-8b43-b5c0a9eb2246"],
 " reports it separately."
}], "Notes",ExpressionUUID->"97cc49fc-01cb-4924-80f3-c04d5bfa5ec4"],

Cell[TextData[{
 "If no backend answers, the result is a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "45d73c95-4a7c-43ac-851c-b08815de48a1"],
 " with tag ",
 Cell[BoxData["\<\"ChainNoBackendResponded\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "58812341-d5e3-4c2a-9b54-987017b08a90"],
 ", never ",
 Cell[BoxData[
  RowBox[{"Quantity", "[", 
   RowBox[{"0", ",", " ", "..."}], "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "be5909af-d558-4a94-a2fd-753fd6ef4a21"],
 "."
}], "Notes",ExpressionUUID->"b0a3d122-70f5-4dc3-bfbb-406f25dbf4ec"],

Cell[TextData[{
 "This is a single-backend read. A claim that an address does or does not \
still hold funds needs ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ChainPrizeUnclaimedQ"]], 
    "paclet:WolframInstitute/Puzzles/ref/ChainPrizeUnclaimedQ", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c573d091-f249-42fa-b52e-ae50ba5d4be7"],
 ", which requires two backends to agree."
}], "Notes",ExpressionUUID->"77395a57-f0ea-4a6d-942c-59213f224b1a"],

Cell["\<\
Recognized addresses are mainnet Bitcoin base58 and lowercase bech32 forms \
and Ethereum hex forms. Anything else is left unevaluated.\
\>", "Notes",ExpressionUUID->"960e6805-988c-48c3-8f4d-44e9fe1eff1d"],

Cell[BoxData[GridBox[{
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "9a64aa64-404e-40d4-9d96-62ed3390f343"], Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"6919fd20-4450-41bc-842e-15b483a7ee73"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"504f2c55-f47a-4845-a89e-251ea10e5687"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"37af2829-52e9-4cea-8269-38ffe6251eae"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "4fea0f91-11fa-4804-a39f-62b7703999de"], Cell[TextData[Cell[
    BoxData["\"\<Backends\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "f38da46c-9840-4b20-82dd-b565a7a1e95e"]], "TableText",ExpressionUUID->
     "5166beab-2107-4ae5-a784-41bdbc327c27"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["Automatic"]], "paclet:ref/Automatic"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "2103883a-87c7-4bb9-a379-8e855185586f"]], "TableText",ExpressionUUID->
     "0da3cebc-bde3-42af-b377-eeace26a7fe4"], Cell[TextData[{
     "which entries of ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["$ChainExplorers"]], 
        "paclet:WolframInstitute/Puzzles/ref/$ChainExplorers", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "15395dc9-6a0a-4a30-b125-68891babf0c5"],
     " to ask, in order"
    }], "TableText",ExpressionUUID->"f711b367-02f1-46cd-b933-9ab65e3bbf74"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "88731ba3-0546-4348-83c5-ea5e20e57d7e"], Cell[TextData[Cell[
    BoxData["\"\<Cache\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "8c2d6d69-eb53-4e98-b4cd-f299009850ce"]], "TableText",ExpressionUUID->
     "7f23ab40-81bf-403c-b93a-d8d11342cd8a"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["True"]], "paclet:ref/True"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "b82a6a19-e126-456f-86bb-bc038dce2244"]], "TableText",ExpressionUUID->
     "3ff6ad01-ebe4-4e82-aace-7f598c180c75"], 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->
      "3af57fda-146f-45cc-bc23-5566d0db2cb5"],
     " may be reused"
    }], "TableText",ExpressionUUID->"83082466-4fe2-41a8-ba36-1b60c8192616"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "a72fd1f3-40da-4968-abcf-9807d84e6632"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["TimeConstraint"]], "paclet:ref/TimeConstraint"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "844fb2d6-1ee1-496f-a658-b5d8739f2e9d"]], "TableText",ExpressionUUID->
     "abafe016-fb52-4dcf-8e1f-2354091a23bf"], Cell[TextData[Cell[BoxData[
    "30"], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "c11aeae4-f64b-4465-afad-b9a6fc24f760"]], "TableText",ExpressionUUID->
     "c3c9510a-4ff4-4007-8294-d8da64037bbf"], Cell[
    "seconds allowed for each backend request", "TableText",ExpressionUUID->
     "46019d0d-bcaf-4c5e-94ca-cd04b25f7b03"]}
  }]], "3ColumnTableMod",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "Rows" -> {None, None, None, {None}}},
 GridBoxDividers->{
  "Rows" -> {{
     True, True, True, True, 
      True}}}},ExpressionUUID->"73207e81-9104-4622-95d2-25e0127a403b"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"d25200ec-a1f5-49d2-b6bd-d04387ca630a"],

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->"b4e3f7b5-f9cc-4e32-b2af-ea46f1e215b8"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"df52aa96-56dc-4d7c-bc6e-63b9b6986a39"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(14)", "ExampleCount",ExpressionUUID->
  "10f8288c-e2f8-46ad-bf7e-77b7bf7d541f"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1332801700,ExpressionUUID->"8627e7c6-e5c2-4312-abed-c204f551ff50"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"31574bbc-bb8b-4e87-85a0-56ae8cc3cc0b"],

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->
  "9aea5d1d-5670-4213-adb5-1bf04ca3aa68"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e2155029-2259-4cb9-8126-71e32566e723"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "478b0dd6-12bc-470f-929f-da9b740cb89a"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2143733690,ExpressionUUID->"d1095e02-73ac-46bd-9784-14a3d89ada7a"],

Cell["The genesis coinbase address, in satoshis:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"5069dbc0-fd91-4093-b7b4-bbcef7e53150"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainAddressBalance", 
  "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"44b5a912-49a8-4e3e-90f0-f26d01eb99b7"],

Cell[BoxData[
 TemplateBox[{"5743025285", 
   RowBox[{"\[VeryThinSpace]", 
     FormBox["\" sat\"", TraditionalForm]}], "satoshis", "\"Satoshis\""},
  "QuantityPostfix"]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c67b7849-30dd-4d9e-82a3-b29c0a812a85"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "b5603f0f-9adc-42c5-ba3d-68a5d307c679"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"5de95fba-9552-4292-\
8922-1a1cc1b6b3a1"],

Cell["The human-scale figure is one conversion away:", "ExampleText",ExpressionUUID->"8f01049a-2088-41cf-b4d5-514518a64708"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UnitConvert", "[", 
  RowBox[{
   RowBox[{
   "ChainAddressBalance", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
    "]"}], ",", " ", "\"\<Bitcoins\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1fa44bfb-9b22-4b37-a9c4-7a708b287502"],

Cell[BoxData[
 TemplateBox[{"57.43025285`", 
   RowBox[{
     FormBox["\"\:20bf\"", TraditionalForm], "\[VeryThinSpace]"}], "bitcoins",
    "\"Bitcoins\""},
  "QuantityPrefix"]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fef1888d-a0bf-44c9-8601-f7ec95b9a92e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d65d8c59-72df-42dc-b88e-7202787a0cef"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"3e995a93-99f8-4324-\
9117-581b3e74417e"],

Cell["\<\
The 2015 puzzle address for private key 1 was swept, and holds nothing:\
\>", "ExampleText",ExpressionUUID->"0e1849be-0214-4454-9ed6-ca40aa6e173a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainAddressBalance", 
  "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0c5a5c9c-6692-4fe7-967b-375b27672b46"],

Cell[BoxData[
 TemplateBox[{"0", 
   RowBox[{"\[VeryThinSpace]", 
     FormBox["\" sat\"", TraditionalForm]}], "satoshis", "\"Satoshis\""},
  "QuantityPostfix"]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"16414e23-8433-44cc-a78b-1fa1bbbbbaac"]
}, 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->
  "2c1ac34a-aa40-49cb-8872-0401650648bf"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"75dc58f1-20e3-4f30-9d23-620919151687"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "af93ad42-87e2-4a67-94b7-c87d55fa132f"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"110f6fe7-ff22-4012-8134-312be6b84e3b"],

Cell["An Ethereum balance comes back in wei:", "ExampleText",ExpressionUUID->"29c33a88-c064-4682-b16f-a8d16a1ea775"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainAddressBalance", 
  "[", "\"\<0x0000000000000000000000000000000000000000\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"239cda53-d27d-42ae-b12b-d1af8a5b25d5"],

Cell[BoxData[
 TemplateBox[{"14148738097277100122057", 
   RowBox[{"\[VeryThinSpace]", 
     FormBox["\" wei\"", TraditionalForm]}], "wei", "\"Wei\""},
  "QuantityPostfix"]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a484dbe2-595d-4ae5-af57-d9a8763a0864"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "720dac74-8f2f-4557-88d1-0a0f21a01f0f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"52e003c1-b6ae-4d51-\
9b3a-8da7186ca47b"],

Cell["\<\
The magnitude is an Integer, so no satoshi is lost to floating point:\
\>", "ExampleText",ExpressionUUID->"431d3b7f-0096-4603-90d4-ec985294ba48"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerQ", " ", "@", " ", 
  RowBox[{"QuantityMagnitude", " ", "@", " ", 
   RowBox[{
   "ChainAddressBalance", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
    "]"}]}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5f9b7101-2f63-4352-900e-2c4f7f8b7202"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"299df43a-a43e-4682-84e4-15f92db5b88f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "75a811ac-a9dd-4219-8cb3-20bc357e3dfd"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"225bfcc6-95f7-418c-\
abc6-152d6bc51a3c"],

Cell["A bech32 address is read the same way:", "ExampleText",ExpressionUUID->"67df7c6c-b7c6-4bcf-b157-1d28fdd1cd15"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainAddressBalance", 
  "[", "\"\<bc1qw508d6qejxtdg4y5r3zarvary0c5xw7kv8f3t4\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f98f4abc-f46a-431e-b542-07520a707587"],

Cell[BoxData[
 TemplateBox[{"0", 
   RowBox[{"\[VeryThinSpace]", 
     FormBox["\" sat\"", TraditionalForm]}], "satoshis", "\"Satoshis\""},
  "QuantityPostfix"]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"403d307d-7807-437c-88aa-a0d29442ab2e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "47685b1a-c3d9-430e-9b05-d2bc24e1b0a4"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c4f72057-6f12-4131-\
8d6f-363771bf7954"],

Cell["\<\
An address whose form is not recognized is returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"86b9492d-d154-4862-b611-2e4edc5ae93c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainAddressBalance", "[", "\"\<notanaddress\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3472da9e-e90c-488f-97a7-4b39eed1a422"],

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

 CellLabel->"Out[1]= ",ExpressionUUID->"a18cf888-bbad-431b-a4bd-dbcbaef95149"]
}, 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->
  "3129fe9f-a843-41cd-8ac8-2a83e1d9b28d"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"bdb8c5e0-5bd0-496a-994f-53cce1a2f7df"],
 "Options",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "3981e592-276c-4fab-b9b5-bd596e5b688f"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2061341341,ExpressionUUID->"ac188fd7-5b30-4329-822c-08e2190032f7"],

Cell["A named backend pins the read:", "ExampleText",ExpressionUUID->"52191296-4bba-4e60-ae2d-87d38b2e6e2d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainAddressBalance", "[", 
  RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
   RowBox[{"\"\<Backends\>\"", " ", "->", " ", "\"\<BlockstreamInfo\>\""}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f0f163a5-23fe-4eb7-b7cc-9feb5d324fba"],

Cell[BoxData[
 TemplateBox[{"5743025285", 
   RowBox[{"\[VeryThinSpace]", 
     FormBox["\" sat\"", TraditionalForm]}], "satoshis", "\"Satoshis\""},
  "QuantityPostfix"]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0d68f790-07a5-43a3-9973-413b6cd9d88e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0cb51023-cc7f-4e71-be9d-7e5b31cbea6d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7cf8daa8-14ff-44e2-\
a2d6-4c1ce49907a3"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"\<\"Cache\"\>", " ", "->", " ", "False"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "67949717-2b6a-4cb5-bc9f-bf802a6862b3"],
 " asks again rather than reusing a stored response:"
}], "ExampleText",ExpressionUUID->"1aca47be-f4d5-4bfc-8ac6-40abb23cb1f1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainAddressBalance", "[", 
  RowBox[{"\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", ",", " ", 
   RowBox[{"\"\<Cache\>\"", " ", "->", " ", "False"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fd1d9940-fab9-4293-9dc3-2ebbd99a16a8"],

Cell[BoxData[
 TemplateBox[{"0", 
   RowBox[{"\[VeryThinSpace]", 
     FormBox["\" sat\"", TraditionalForm]}], "satoshis", "\"Satoshis\""},
  "QuantityPostfix"]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6b2cabb4-17fc-4f04-8a97-ef354cc1818e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0299d959-2716-4232-ad3d-8a1e88f2d63b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e7b8f4bf-0c88-46d4-\
9043-c912bd5bdaaa"],

Cell[TextData[{
 "Too short a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["TimeConstraint"]], "paclet:ref/TimeConstraint"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d0c961a1-b589-4965-b238-aa6d854ee8d3"],
 " and the result is a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1a1b71da-ac53-4d9f-87d3-379a34aa5b0e"],
 ", not a zero:"
}], "ExampleText",ExpressionUUID->"2b3f974f-a4d0-4d47-8808-9935b0cbc4d8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChainAddressBalance", "[", 
   RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
    RowBox[{"\"\<Cache\>\"", " ", "->", " ", "False"}], ",", " ", 
    RowBox[{"TimeConstraint", " ", "->", " ", "0.001"}]}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0072053a-1567-4a72-a08c-d51ce5976bdc"],

Cell[BoxData["\<\"ChainNoBackendResponded\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"28bdcbdd-61fe-4772-bf0b-d57c429a3baf"]
}, 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->
  "8caadfbb-fcb7-4a12-a254-6f1901d7e0ea"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b2d0d04a-1a85-48bd-9ab8-7875f4115266"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "1ab55cd3-ebf8-4357-b7d6-3b75685c471e"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"77c9ae98-5815-4b6f-8811-081a03686117"],

Cell[TextData[{
 "The magnitude is the ",
 Cell[BoxData["\<\"Balance\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "824c3396-6dde-4a56-9c67-da1993894656"],
 " field of ",
 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->
  "6cfe8a5e-c1e7-4507-9a33-6280a37d6719"],
 ":"
}], "ExampleText",ExpressionUUID->"1e6d9882-153b-4bda-a358-7f2c38540d50"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"QuantityMagnitude", "[", 
   RowBox[{
   "ChainAddressBalance", "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", 
    "]"}], "]"}], " ", "===", " ", 
  RowBox[{
   RowBox[{
   "ChainAddressSummary", "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", 
    "]"}], "[", "\"\<Balance\>\"", "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d535b0e9-f8c5-4d3e-bf18-9c684733b4b4"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2c56b2f9-3543-49a3-bfbe-96cd55b9a77a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3eb3247e-b93a-47e0-aee2-d0018758d0f6"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"06f2bc33-a266-4c22-\
bd44-638597eb5dbf"],

Cell[TextData[{
 "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->
  "4d00b89b-1d23-41e0-855a-ecbabde339bd"],
 " reports the same Bitcoin balance in bitcoins, through the Wolfram Cloud:"
}], "ExampleText",ExpressionUUID->"fb636304-53ec-43ac-8df8-6a856f4b46e7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainAddressBalance", "[", 
  RowBox[{"\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", ",", " ", 
   RowBox[{"\"\<Backends\>\"", " ", "->", 
    " ", "\"\<WolframBlockchain\>\""}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4bd3de42-e5a0-448a-95c1-2c2412cb4ccf"],

Cell[BoxData[
 TemplateBox[{"0", 
   RowBox[{"\[VeryThinSpace]", 
     FormBox["\" sat\"", TraditionalForm]}], "satoshis", "\"Satoshis\""},
  "QuantityPostfix"]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d0f659b4-9534-4aef-ba42-5cbe51cab28c"]
}, 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->
  "1145b905-1fc4-4071-84dd-ccbfbe432feb"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b367d4a0-8e24-4d95-8ea1-4076700d8276"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "4633a559-89ef-47d9-a1d5-483d13b002ac"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"227a7dec-2cf9-442c-8461-a612a9aefb87"],

Cell["\<\
A zero balance from one backend is not proof the funds are gone. Cross-check \
before acting on it:\
\>", "ExampleText",ExpressionUUID->"fff48c82-9979-4c47-8735-d17a2e7129e0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainPrizeUnclaimedQ", 
  "[", "\"\<1BgGZ9tcN4rm9KBzDn7KprQz87SZ26SAMH\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"aca8a66e-38ec-4b8d-936a-27ce9cdad73d"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"75b7ed46-0979-4e4e-8b72-1ca0aefc7599"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ef846e81-3dca-44a3-897e-dd8eab41158c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"55ef05ed-c6a6-47f3-\
8637-ae0b77bf8628"],

Cell[TextData[{
 "With nothing reachable the result is a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5cd97126-222e-4a6b-9adc-cf0df58bb7aa"],
 ", which is the case a caller must handle rather than arithmetic on a zero:"
}], "ExampleText",ExpressionUUID->"89eaa2f2-c4c8-4a2e-954e-60573b1d740c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"$ChainNetworkEnabled", " ", "=", " ", "False"}], "}"}], ",", " ", 
   RowBox[{"FailureQ", " ", "@", " ", 
    RowBox[{"ChainAddressBalance", "[", 
     RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
      RowBox[{"\"\<Cache\>\"", " ", "->", " ", "False"}]}], "]"}]}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2699c5d7-af31-415a-a332-c197730f71a2"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"331bac9f-36f4-4dca-a2d7-8e3a881d5d3b"]
}, 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["ChainAddressSummary"]], 
           "paclet:WolframInstitute/Puzzles/ref/ChainAddressSummary", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "f04d1519-69ed-46ff-954c-1c4f84674059"],
        "\[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->
         "9c67bfd4-73e8-4a97-b72b-ff7dabcf938e"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ChainPrizeUnclaimedQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/ChainPrizeUnclaimedQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "e8be3689-1b16-4517-a605-e85b7b064540"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ChainExplorerQuery"]], 
           "paclet:WolframInstitute/Puzzles/ref/ChainExplorerQuery", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c692a8e1-cfc3-4527-9ac7-70508f2c01de"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["UnitConvert"]], "paclet:ref/UnitConvert"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "fdac31cf-a3dd-4e64-ac52-d4d32325662d"]
       }], "SeeAlso",ExpressionUUID->"c4f901d9-b33e-46c8-be9b-1c44fb4fb028"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"05e9b2b3-2293-4950-b3ed-\
0f5f3ff4e010"],

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->
         "dae99956-4b2c-4aa0-bce9-595a9e4543d9"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"6d5be26d-2fe7-44e5-bbf9-\
b42d52f386d7"],

Cell[" ", "FooterCell",ExpressionUUID->"44cccf1b-fe53-46ff-902a-792c4892815d"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ChainAddressBalance",
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, 11.210913}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ChainAddressBalance, paclet : \
WolframInstitute/Puzzles/ref/ChainAddressBalance, WolframInstitute/Puzzles \
Package Symbol][address] gives the confirmed balance of address as an exact \
Quantity of satoshis or wei, read from the first responding default backend.",
     "synonyms" -> {}, "tabletags" -> {}, "title" -> "ChainAddressBalance", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "ChainAddressBalance", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/ChainAddressBalance", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"c2a88de5-8c01-4ab7-904a-c1956400a14d"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[21223, 549, 152, 2, 70, "ExampleText",ExpressionUUID->"5069dbc0-fd91-4093-b7b4-bbcef7e53150",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 46130, 1260}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[587, 21, 6359, 153, 70, "AnchorBarGrid",ExpressionUUID->"b67239ab-9bd0-4627-99ee-2661af3e9ae7",
 CellID->1],
Cell[6949, 176, 107, 0, 70, "ContextNameCell",ExpressionUUID->"5681ff5c-510c-4da1-8a57-a65bf785933d"],
Cell[CellGroupData[{
Cell[7081, 180, 562, 14, 70, "ObjectNameGrid",ExpressionUUID->"cee04ab5-6d2a-4f2d-8285-fb586d5a4c4c"],
Cell[7646, 196, 1181, 30, 70, "Usage",ExpressionUUID->"1e9290bf-5090-4de0-9dce-a65c8e3c4ca5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8864, 231, 1443, 34, 70, "NotesSection",ExpressionUUID->"db17c22c-745e-4fea-97fa-3d38f1dd5ee1",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->654022378],
Cell[10310, 267, 567, 12, 70, "Notes",ExpressionUUID->"d8dc9e84-593f-4313-a82e-02a191f35fc0"],
Cell[10880, 281, 811, 22, 70, "Notes",ExpressionUUID->"d98f6f8c-a556-461e-bf68-f7c0bbe8ead0"],
Cell[11694, 305, 716, 19, 70, "Notes",ExpressionUUID->"97cc49fc-01cb-4924-80f3-c04d5bfa5ec4"],
Cell[12413, 326, 730, 19, 70, "Notes",ExpressionUUID->"b0a3d122-70f5-4dc3-bfbb-406f25dbf4ec"],
Cell[13146, 347, 610, 15, 70, "Notes",ExpressionUUID->"77395a57-f0ea-4a6d-942c-59213f224b1a"],
Cell[13759, 364, 215, 3, 70, "Notes",ExpressionUUID->"960e6805-988c-48c3-8f4d-44e9fe1eff1d"],
Cell[13977, 369, 4241, 93, 70, "3ColumnTableMod",ExpressionUUID->"73207e81-9104-4622-95d2-25e0127a403b"]
}, Closed]],
Cell[18233, 465, 80, 0, 70, "PageDelimiter",ExpressionUUID->"d25200ec-a1f5-49d2-b6bd-d04387ca630a"],
Cell[CellGroupData[{
Cell[18338, 469, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"8627e7c6-e5c2-4312-abed-c204f551ff50",
 CellID->1332801700],
Cell[19743, 508, 216, 4, 70, "Input",ExpressionUUID->"31574bbc-bb8b-4e87-85a0-56ae8cc3cc0b",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[19984, 516, 1236, 31, 70, "ExampleSection",ExpressionUUID->"d1095e02-73ac-46bd-9784-14a3d89ada7a",
 CellID->2143733690],
Cell[21223, 549, 152, 2, 70, "ExampleText",ExpressionUUID->"5069dbc0-fd91-4093-b7b4-bbcef7e53150",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[21400, 555, 243, 4, 70, "Input",ExpressionUUID->"44b5a912-49a8-4e3e-90f0-f26d01eb99b7"],
Cell[21646, 561, 260, 5, 70, "Output",ExpressionUUID->"c67b7849-30dd-4d9e-82a3-b29c0a812a85"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21943, 571, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"5de95fba-9552-4292-8922-1a1cc1b6b3a1"],
Cell[22170, 578, 124, 0, 70, "ExampleText",ExpressionUUID->"8f01049a-2088-41cf-b4d5-514518a64708"],
Cell[CellGroupData[{
Cell[22319, 582, 331, 7, 70, "Input",ExpressionUUID->"1fa44bfb-9b22-4b37-a9c4-7a708b287502"],
Cell[22653, 591, 267, 6, 70, "Output",ExpressionUUID->"fef1888d-a0bf-44c9-8601-f7ec95b9a92e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22969, 603, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"3e995a93-99f8-4324-9117-581b3e74417e"],
Cell[23196, 610, 157, 2, 70, "ExampleText",ExpressionUUID->"0e1849be-0214-4454-9ed6-ca40aa6e173a"],
Cell[CellGroupData[{
Cell[23378, 616, 243, 4, 70, "Input",ExpressionUUID->"0c5a5c9c-6692-4fe7-967b-375b27672b46"],
Cell[23624, 622, 251, 5, 70, "Output",ExpressionUUID->"16414e23-8433-44cc-a78b-1fa1bbbbbaac"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23936, 634, 1227, 31, 70, "ExampleSection",ExpressionUUID->"110f6fe7-ff22-4012-8134-312be6b84e3b",
 CellID->1293636265],
Cell[25166, 667, 116, 0, 70, "ExampleText",ExpressionUUID->"29c33a88-c064-4682-b16f-a8d16a1ea775"],
Cell[CellGroupData[{
Cell[25307, 671, 251, 4, 70, "Input",ExpressionUUID->"239cda53-d27d-42ae-b12b-d1af8a5b25d5"],
Cell[25561, 677, 263, 5, 70, "Output",ExpressionUUID->"a484dbe2-595d-4ae5-af57-d9a8763a0864"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25861, 687, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"52e003c1-b6ae-4d51-9b3a-8da7186ca47b"],
Cell[26088, 694, 155, 2, 70, "ExampleText",ExpressionUUID->"431d3b7f-0096-4603-90d4-ec985294ba48"],
Cell[CellGroupData[{
Cell[26268, 700, 339, 7, 70, "Input",ExpressionUUID->"5f9b7101-2f63-4352-900e-2c4f7f8b7202"],
Cell[26610, 709, 110, 1, 70, "Output",ExpressionUUID->"299df43a-a43e-4682-84e4-15f92db5b88f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[26769, 716, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"225bfcc6-95f7-418c-abc6-152d6bc51a3c"],
Cell[26996, 723, 116, 0, 70, "ExampleText",ExpressionUUID->"67df7c6c-b7c6-4bcf-b157-1d28fdd1cd15"],
Cell[CellGroupData[{
Cell[27137, 727, 251, 4, 70, "Input",ExpressionUUID->"f98f4abc-f46a-431e-b542-07520a707587"],
Cell[27391, 733, 251, 5, 70, "Output",ExpressionUUID->"403d307d-7807-437c-88aa-a0d29442ab2e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27691, 744, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c4f72057-6f12-4131-8d6f-363771bf7954"],
Cell[27918, 751, 150, 2, 70, "ExampleText",ExpressionUUID->"86b9492d-d154-4862-b611-2e4edc5ae93c"],
Cell[CellGroupData[{
Cell[28093, 757, 218, 3, 70, "Input",ExpressionUUID->"3472da9e-e90c-488f-97a7-4b39eed1a422"],
Cell[28314, 762, 173, 3, 70, "Output",ExpressionUUID->"a18cf888-bbad-431b-a4bd-dbcbaef95149"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[28548, 772, 1229, 31, 70, "ExampleSection",ExpressionUUID->"ac188fd7-5b30-4329-822c-08e2190032f7",
 CellID->2061341341],
Cell[29780, 805, 108, 0, 70, "ExampleText",ExpressionUUID->"52191296-4bba-4e60-ae2d-87d38b2e6e2d"],
Cell[CellGroupData[{
Cell[29913, 809, 343, 6, 70, "Input",ExpressionUUID->"f0f163a5-23fe-4eb7-b7cc-9feb5d324fba"],
Cell[30259, 817, 260, 5, 70, "Output",ExpressionUUID->"0d68f790-07a5-43a3-9973-413b6cd9d88e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30556, 827, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7cf8daa8-14ff-44e2-a2d6-4c1ce49907a3"],
Cell[30783, 834, 349, 7, 70, "ExampleText",ExpressionUUID->"1aca47be-f4d5-4bfc-8ac6-40abb23cb1f1"],
Cell[CellGroupData[{
Cell[31157, 845, 319, 5, 70, "Input",ExpressionUUID->"fd1d9940-fab9-4293-9dc3-2ebbd99a16a8"],
Cell[31479, 852, 251, 5, 70, "Output",ExpressionUUID->"6b2cabb4-17fc-4f04-8a97-ef354cc1818e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31779, 863, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e7b8f4bf-0c88-46d4-9043-c912bd5bdaaa"],
Cell[32006, 870, 599, 17, 70, "ExampleText",ExpressionUUID->"2b3f974f-a4d0-4d47-8808-9935b0cbc4d8"],
Cell[CellGroupData[{
Cell[32630, 891, 440, 8, 70, "Input",ExpressionUUID->"0072053a-1567-4a72-a08c-d51ce5976bdc"],
Cell[33073, 901, 137, 1, 70, "Output",ExpressionUUID->"28bdcbdd-61fe-4772-bf0b-d57c429a3baf"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[33271, 909, 1244, 31, 70, "ExampleSection",ExpressionUUID->"77c9ae98-5815-4b6f-8811-081a03686117",
 CellID->2123667759],
Cell[34518, 942, 685, 19, 70, "ExampleText",ExpressionUUID->"1e6d9882-153b-4bda-a358-7f2c38540d50"],
Cell[CellGroupData[{
Cell[35228, 965, 468, 11, 70, "Input",ExpressionUUID->"d535b0e9-f8c5-4d3e-bf18-9c684733b4b4"],
Cell[35699, 978, 110, 1, 70, "Output",ExpressionUUID->"2c56b2f9-3543-49a3-bfbe-96cd55b9a77a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35846, 984, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"06f2bc33-a266-4c22-bd44-638597eb5dbf"],
Cell[36073, 991, 486, 12, 70, "ExampleText",ExpressionUUID->"fb636304-53ec-43ac-8df8-6a856f4b46e7"],
Cell[CellGroupData[{
Cell[36584, 1007, 347, 6, 70, "Input",ExpressionUUID->"4bd3de42-e5a0-448a-95c1-2c2412cb4ccf"],
Cell[36934, 1015, 251, 5, 70, "Output",ExpressionUUID->"d0f659b4-9534-4aef-ba42-5cbe51cab28c"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[37246, 1027, 1237, 31, 70, "ExampleSection",ExpressionUUID->"227a7dec-2cf9-442c-8461-a612a9aefb87",
 CellID->1305812373],
Cell[38486, 1060, 185, 3, 70, "ExampleText",ExpressionUUID->"fff48c82-9979-4c47-8735-d17a2e7129e0"],
Cell[CellGroupData[{
Cell[38696, 1067, 244, 4, 70, "Input",ExpressionUUID->"aca8a66e-38ec-4b8d-936a-27ce9cdad73d"],
Cell[38943, 1073, 111, 1, 70, "Output",ExpressionUUID->"75b7ed46-0979-4e4e-8b72-1ca0aefc7599"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39091, 1079, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"55ef05ed-c6a6-47f3-8637-ae0b77bf8628"],
Cell[39318, 1086, 373, 7, 70, "ExampleText",ExpressionUUID->"89eaa2f2-c4c8-4a2e-954e-60573b1d740c"],
Cell[CellGroupData[{
Cell[39716, 1097, 513, 11, 70, "Input",ExpressionUUID->"2699c5d7-af31-415a-a332-c197730f71a2"],
Cell[40232, 1110, 110, 1, 70, "Output",ExpressionUUID->"331bac9f-36f4-4dca-a2d7-8e3a881d5d3b"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[40393, 1117, 3074, 80, 70, "SeeAlsoSection",ExpressionUUID->"05e9b2b3-2293-4950-b3ed-0f5f3ff4e010"],
Cell[43470, 1199, 678, 18, 70, "MoreAboutSection",ExpressionUUID->"6d5be26d-2fe7-44e5-bbf9-b42d52f386d7"],
Cell[44151, 1219, 78, 0, 70, "FooterCell",ExpressionUUID->"44cccf1b-fe53-46ff-902a-792c4892815d"]
}
]
*)

(* End of internal cache information *)

