(* 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[     62348,       1596]
NotebookOptionsPosition[     51175,       1393]
NotebookOutlinePosition[     53302,       1443]
CellTagsIndexPosition[     53224,       1438]
WindowTitle->ChainAddressTransactions
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->
           "62782d28-6014-4756-92e3-d8cfb74be52d"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "749daad0-6b74-46c3-a406-5cf9489f43cc"],
        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->
           "68a5b2f8-93fb-4c51-8601-0e6aa9c5c391"]
         }],ExpressionUUID->"ebfb4346-abe0-437d-beb6-230bc918f64d"],
         StripOnInput->False],{
        StyleBox[
          "\"ChainAddressSummary\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainAddressSummary"], 
         StyleBox[
          "\"ChainAddressCrossCheck\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainAddressCrossCheck"], 
         StyleBox[
          "\"ChainExplorerQuery\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainExplorerQuery"], 
         StyleBox[
          "\"ChainPrizeUnclaimedQ\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainPrizeUnclaimedQ"], 
         StyleBox[
          "\"$ChainExplorers\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/$ChainExplorers"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "a047b061-67cd-43a2-aa05-19e569801323"],
     "\[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->
           "15bae675-90d1-4a1d-9123-1d525d43ebe7"]
         }],ExpressionUUID->"cbbcfdd0-96dc-4c86-a326-7f3baf9e6c0c"],
         StripOnInput->False],{
        "\"Chain\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Chain"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "d730d4a6-5833-48e4-adc2-d19bc324ec82"],
     "\[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->
           "d7265570-f913-426a-bc88-5d4252833187"]
         }],ExpressionUUID->"fa8d8c50-a1be-416c-9a19-694edf7532f3"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ChainAddressTransactions\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard[
          "WolframInstitute/Puzzles/ref/ChainAddressTransactions"], 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/ChainAddressTransactions.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/ChainAddressTransactions" <> 
               ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "b4242f5a-46f0-44d8-a30a-1d45c7999122"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "d48b040b-46d9-4af1-b01a-7b7e7caa8423"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"53416ce6-8fe2-443b-acc5-0db93e2a36e7"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"17e9ce68-ad79-40f5-83e7-42d82d31a5df"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ChainAddressTransactions", "ObjectName",ExpressionUUID->
      "6c99ade8-7e97-446a-ae0b-a16a24649216"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"06d29925-bad7-4a3b-a1e3-4cb97c5fe3cf"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "72f7bafa-d1d3-40bd-8c90-d836177b79bc"]
    }],ExpressionUUID->"ea8f90c6-7fe5-4f45-a809-e267138d1f75"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"5a22e3c5-1ec6-48d5-acea-\
a24526112fb8"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ChainAddressTransactions"]], 
         "paclet:WolframInstitute/Puzzles/ref/ChainAddressTransactions", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["address", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "e9230c4a-6288-401f-be1c-581e1d821a09"],
     "\[LineSeparator]",
     "gives a list of Associations for the most recent transactions of ",
     StyleBox["address", "TI"],
     ", most recent first."
    }],ExpressionUUID->"f358b22e-f1f5-4bdd-a9d0-e4d2b9dc04e1"]}
  }]], "Usage",ExpressionUUID->"0e223d07-23f0-455b-b8f9-e8819ef63900"]
}, 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->"150b1025-98b5-454b-9a32-6b43e82054b8"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"2fc8e067-d97b-435e-9589-c98376107e89"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "3ed08008-c028-436a-93f8-2cad605bb3ce"]],ExpressionUUID->"5195a8ce-1440-\
4baa-9550-02011a1e759c"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1172030310,ExpressionUUID->"1b12c161-d300-4c87-bcb6-8b710f72c4ff"],

Cell[TextData[{
 "Each entry holds the ",
 Cell[BoxData["\<\"TransactionID\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "43a19a2b-2dbf-4b4e-935e-139c744e20b6"],
 ", the ",
 Cell[BoxData["\<\"BlockHeight\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "72095af2-4d0c-48f9-99ac-07bbb3d21532"],
 ", the ",
 Cell[BoxData["\<\"Time\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "13a18781-d530-4137-8dc8-b008f0243a7e"],
 " as a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["DateObject"]], "paclet:ref/DateObject"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d7cbb09a-1700-4bc7-9845-c64fb1dc9d3a"],
 ", whether it is ",
 Cell[BoxData["\<\"Confirmed\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6a9e2daf-a722-476e-b204-a3085595e31d"],
 ", and the ",
 Cell[BoxData["\<\"Backend\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d6e4f0e3-c947-4bfa-9e5c-5a79994c035c"],
 " that reported it."
}], "Notes",ExpressionUUID->"3de82c85-6b39-4395-97cf-f4a90d0cf8f1"],

Cell[TextData[{
 "An unconfirmed entry has ",
 Cell[BoxData["\<\"BlockHeight\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f4838362-02ed-4435-b6c4-11df1500be38"],
 " and ",
 Cell[BoxData["\<\"Time\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "701d0a3f-76a4-40de-8b7b-4b150fbc251f"],
 " equal to ",
 Cell[BoxData[
  RowBox[{"Missing", "[", "\<\"Unconfirmed\"\>", "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cf5dda0d-dd05-4eb8-9dd9-b326000ee21a"],
 "."
}], "Notes",ExpressionUUID->"7368eef1-f6df-4463-866e-c23f3cb64b7d"],

Cell["\<\
Only the first page a backend serves is read, so this is the recent history \
and not the complete one. Esplora serves 25 confirmed transactions per page \
and Blockscout 50.\
\>", "Notes",ExpressionUUID->"0eac2b63-d3fa-4019-a6a7-53b2c8a5e5eb"],

Cell[TextData[{
 "An empty list is a real answer, meaning an address with no history. An \
unanswered query is a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3925c549-0dbd-4f79-858f-0dd983fd3487"],
 " with tag ",
 Cell[BoxData["\<\"ChainNoBackendResponded\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8315a9d4-7668-42ad-9b0c-35d41a20c8c2"],
 " instead, so the two are never confused."
}], "Notes",ExpressionUUID->"37ee08ca-922e-483d-9360-5a171b804cba"],

Cell[TextData[{
 "The default backends are asked in the order ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["$ChainExplorers"]], 
    "paclet:WolframInstitute/Puzzles/ref/$ChainExplorers", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4e72b0b2-c204-439e-bae7-6e5b779aa6b4"],
 " lists them, and the first answer that is not a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0a845313-9ff5-4188-b12c-1f61d56f8592"],
 " is used. BlockCypher's balance endpoint carries no transaction list, so it \
is not among them."
}], "Notes",ExpressionUUID->"22174a21-4985-45ed-97ec-87648e433f39"],

Cell["\<\
Transaction contents are out of scope: no inputs, outputs, scripts, amounts \
or fees. Recovering the public key behind a spent address from its spending \
input is a Derivation and Oracles subject.\
\>", "Notes",ExpressionUUID->"8d3d93e5-7a0c-436f-9e07-cfe7a5612f4f"],

Cell["\<\
Recognized addresses are mainnet Bitcoin base58 and lowercase bech32 forms \
and Ethereum hex forms. Anything else is left unevaluated.\
\>", "Notes",ExpressionUUID->"a86e7cec-f1ab-4d0b-95cb-194b3914e377"],

Cell[BoxData[GridBox[{
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "733e064b-6610-4577-98b0-1f3c3ab38268"], Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"7491e1ac-db50-43e5-8cb7-b6135f2e75d7"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"1cd6a5a2-16be-468e-af97-9d7994972fc5"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"e76af5e4-32d0-4800-9dd9-f8b184ed5cf9"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "935dcc6d-f1fc-44a2-b55e-e6d8f16579c2"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["MaxItems"]], "paclet:ref/MaxItems"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "8b046aa1-801e-41e7-aae5-99d9eebe7578"]], "TableText",ExpressionUUID->
     "253081a4-0c24-4e0c-9bc3-49692a7da8b8"], Cell[TextData[Cell[BoxData[
    "25"], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "5e31ad09-9191-484c-8506-ffb882514649"]], "TableText",ExpressionUUID->
     "111de944-47f6-4e1d-8061-22492ffa5605"], Cell[
    "how many entries to keep from the page the backend served", "TableText",
     ExpressionUUID->"8f8ccc8a-4650-403e-ab5e-485462435cba"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "aeab3c43-cc2e-47db-82d4-35c1b2c23529"], Cell[TextData[Cell[
    BoxData["\"\<Backends\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "9f3959d0-6bda-433c-ba9c-da8355e06e95"]], "TableText",ExpressionUUID->
     "74a11ca1-241e-4976-9c95-e599311f1603"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["Automatic"]], "paclet:ref/Automatic"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "b9dc1a18-d1c7-4528-9f30-48085e210c8c"]], "TableText",ExpressionUUID->
     "081fc23a-a926-40d8-a968-946ad848ab5a"], 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->
      "df15f91c-8754-430b-be66-69ea507ccb7f"],
     " to ask, in order"
    }], "TableText",ExpressionUUID->"3b7bdcc0-2927-4f32-a121-ce44294ca5f7"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "ddfa46bb-4beb-4fb3-a8d8-90b33acbd43f"], Cell[TextData[Cell[
    BoxData["\"\<Cache\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "1fae17ff-2ecd-4cea-8153-ad093caedc42"]], "TableText",ExpressionUUID->
     "d0f84396-8b06-403c-8051-e8a49effcba1"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["True"]], "paclet:ref/True"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "fb4d95e4-2220-4d1b-9d48-a7cfec13bd70"]], "TableText",ExpressionUUID->
     "95524f01-e9b8-4304-9bc5-71b6f1ecda01"], 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->
      "5c0738b2-c209-4159-b003-ad298214b8c8"],
     " may be reused"
    }], "TableText",ExpressionUUID->"6e55f7f2-af50-402f-bd13-e2754e2021d0"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "4ebf5f9e-aa7d-4632-af1e-88106802ec40"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["TimeConstraint"]], "paclet:ref/TimeConstraint"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "b1ec9090-e901-492b-8f2d-c4f0b60142d9"]], "TableText",ExpressionUUID->
     "884254aa-f821-4f1c-a14d-27119039c29e"], Cell[TextData[Cell[BoxData[
    "30"], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "52b1ae90-6314-4d63-a697-403ae7b86653"]], "TableText",ExpressionUUID->
     "3fefade0-4549-4243-b2f7-3dee8a73e667"], Cell[
    "seconds allowed for each backend request", "TableText",ExpressionUUID->
     "fa638720-f26b-46f5-8a15-1a2fbd5a931b"]}
  }]], "3ColumnTableMod",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "Rows" -> {None, None, None, None, {None}}},
 GridBoxDividers->{
  "Rows" -> {{
     True, True, True, True, True, 
      True}}}},ExpressionUUID->"42e19a84-9f47-4d00-a45e-a9bfa561c679"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"b7a99af6-1587-407d-92b7-6a3de9ec8ffb"],

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->"9ed16f80-70f4-47ce-977e-febd380811c1"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a5d70f50-c862-47df-8f80-85e5f5f60f21"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(15)", "ExampleCount",ExpressionUUID->
  "b6824bbb-ecd6-46c5-b593-ff18a623e428"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1593409886,ExpressionUUID->"f86e5d64-1571-4b53-96d7-1576434f57a8"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"54df7e95-c3a5-4575-b225-cd7c0553ebd0"],

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->
  "13608836-ddc1-4b98-ab98-efb0b1c69d3b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"9fdcd6a7-d79a-461a-8492-47218d104771"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "9befb417-8b17-43f2-a859-4250220bfefc"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1318875912,ExpressionUUID->"7737eab2-c9e2-4575-b4a6-2419bc063572"],

Cell["\<\
The most recent transactions of the genesis coinbase address:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"f3376777-932c-47e9-948f-1dfac88c1204"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainAddressTransactions", "[", 
  RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
   RowBox[{"MaxItems", " ", "->", " ", "3"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"88945403-08ee-4f1b-844d-894db07d99f2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"TransactionID\"\>", 
      "\[Rule]", \
"\<\"50d15dda65dbab36effd35f20a91b2ddf093cf6a787045a014a5377e2c1c42dd\"\>"}], 
     ",", 
     RowBox[{"\<\"BlockHeight\"\>", "\[Rule]", "964024"}], ",", 
     RowBox[{"\<\"Time\"\>", "\[Rule]", 
      TemplateBox[{
        RowBox[{"\"Tue 25 Aug 2026 16:13:39\"", 
          StyleBox["\"GMT\"", "TimeZoneLabel"]}], 
        RowBox[{"DateObject", "[", 
          RowBox[{
            RowBox[{"{", 
              
              RowBox[{"2026", ",", "8", ",", "25", ",", "16", ",", "13", ",", 
                "39"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", 
            "0.`"}], "]"}]},
       "DateObject",
       Editable->False]}], ",", 
     RowBox[{"\<\"Confirmed\"\>", "\[Rule]", "True"}], ",", 
     RowBox[{"\<\"Backend\"\>", "\[Rule]", "\<\"MempoolSpace\"\>"}]}], 
    "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"TransactionID\"\>", 
      "\[Rule]", \
"\<\"0179ff007b7736c12df7caf57a3b476b2af611affee2f44e84aae9c3764c2b78\"\>"}], 
     ",", 
     RowBox[{"\<\"BlockHeight\"\>", "\[Rule]", "964020"}], ",", 
     RowBox[{"\<\"Time\"\>", "\[Rule]", 
      TemplateBox[{
        RowBox[{"\"Tue 25 Aug 2026 15:45:04\"", 
          StyleBox["\"GMT\"", "TimeZoneLabel"]}], 
        RowBox[{"DateObject", "[", 
          RowBox[{
            RowBox[{"{", 
              
              RowBox[{"2026", ",", "8", ",", "25", ",", "15", ",", "45", ",", 
                "4"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", 
            "0.`"}], "]"}]},
       "DateObject",
       Editable->False]}], ",", 
     RowBox[{"\<\"Confirmed\"\>", "\[Rule]", "True"}], ",", 
     RowBox[{"\<\"Backend\"\>", "\[Rule]", "\<\"MempoolSpace\"\>"}]}], 
    "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"TransactionID\"\>", 
      "\[Rule]", \
"\<\"2e21b8a3ac5e0566a32da7d651124b4dec19015bbe99b852f0b27136d6ba85fe\"\>"}], 
     ",", 
     RowBox[{"\<\"BlockHeight\"\>", "\[Rule]", "964011"}], ",", 
     RowBox[{"\<\"Time\"\>", "\[Rule]", 
      TemplateBox[{
        RowBox[{"\"Tue 25 Aug 2026 14:14:21\"", 
          StyleBox["\"GMT\"", "TimeZoneLabel"]}], 
        RowBox[{"DateObject", "[", 
          RowBox[{
            RowBox[{"{", 
              
              RowBox[{"2026", ",", "8", ",", "25", ",", "14", ",", "14", ",", 
                "21"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", 
            "0.`"}], "]"}]},
       "DateObject",
       Editable->False]}], ",", 
     RowBox[{"\<\"Confirmed\"\>", "\[Rule]", "True"}], ",", 
     RowBox[{"\<\"Backend\"\>", "\[Rule]", "\<\"MempoolSpace\"\>"}]}], 
    "\[RightAssociation]"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"57f07217-c342-42e0-9299-1bd1efa1fa6d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0c6767c3-d3f7-4be9-952f-2fa38fd1b249"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f71cfdd5-c9a2-4f84-\
b5a7-9726ca26a37a"],

Cell["The transaction ids alone:", "ExampleText",ExpressionUUID->"59936052-02d6-4809-bb20-bee4d5df3c01"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lookup", "[", 
  RowBox[{
   RowBox[{"ChainAddressTransactions", "[", 
    RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
     RowBox[{"MaxItems", " ", "->", " ", "5"}]}], "]"}], ",", 
   " ", "\"\<TransactionID\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0864c9c0-5a67-40f3-9828-73692653ae67"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"\
50d15dda65dbab36effd35f20a91b2ddf093cf6a787045a014a5377e2c1c42dd\"\>", 
   ",", "\<\"0179ff007b7736c12df7caf57a3b476b2af611affee2f44e84aae9c3764c2b78\
\"\>", ",", \
"\<\"2e21b8a3ac5e0566a32da7d651124b4dec19015bbe99b852f0b27136d6ba85fe\"\>", 
   ",", "\<\"517fc1d0831144719870bd5605870568d4c92010f7894964dfdc33ce6edeea88\
\"\>", ",", \
"\<\"81268c2aef453dc362869065067cca6a4bcfcc6b073f1e67b5c7e0632a162298\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"23397692-230b-4d19-8ff1-ace731571224"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "51db0e41-8d77-4613-8a81-c884630c8de2"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"6c9332ce-6cee-455c-\
b278-77e60230f7eb"],

Cell["\<\
The block heights are in descending order, since the list is most recent \
first:\
\>", "ExampleText",ExpressionUUID->"6d0ca6f1-dfd2-42c0-86e7-cb2305db4b47"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OrderedQ", " ", "@", " ", 
  RowBox[{"Reverse", " ", "@", " ", 
   RowBox[{"Lookup", "[", 
    RowBox[{
     RowBox[{"ChainAddressTransactions", "[", 
      RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
       RowBox[{"MaxItems", " ", "->", " ", "10"}]}], "]"}], ",", 
     " ", "\"\<BlockHeight\>\""}], "]"}]}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"682233b5-916d-44a8-8801-4bcb2e952246"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b85db55e-ecf9-4a5f-ae84-04afe0f6bc0c"]
}, 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->
  "0f25c14b-6642-43ff-889e-f32c44aa428f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a4d93fc7-6a08-45e6-87af-483051e0be54"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "3f771db4-68fe-4050-b130-92acf45e0718"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"a35e6f83-61d4-4a31-b3dc-ab4c350ff25a"],

Cell[TextData[{
 "An Ethereum address is served by the Blockscout backend, and a \
still-pending entry carries ",
 Cell[BoxData[
  RowBox[{"Missing", "[", "\<\"Unconfirmed\"\>", "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4077adcb-69aa-4cf1-8a94-1551d98f5443"],
 " in place of a height and a time:"
}], "ExampleText",ExpressionUUID->"11262919-bb32-4417-8eef-917f57110fa6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", " ", "@", " ", 
  RowBox[{"ChainAddressTransactions", "[", 
   RowBox[{"\"\<0x0000000000000000000000000000000000000000\>\"", ",", " ", 
    RowBox[{"MaxItems", " ", "->", " ", "1"}]}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4aa1db98-cbd8-457c-b499-6ea6cecb4278"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"TransactionID\"\>", 
    "\[Rule]", \
"\<\"0xeca8be4e453378457df845eb5368e0c155ca9bac8458a43680a5f96ad313f1f8\"\>"}]\
, ",", 
   RowBox[{"\<\"BlockHeight\"\>", "\[Rule]", 
    RowBox[{"Missing", "[", "\<\"Unconfirmed\"\>", "]"}]}], ",", 
   RowBox[{"\<\"Time\"\>", "\[Rule]", 
    RowBox[{"Missing", "[", "\<\"Unconfirmed\"\>", "]"}]}], ",", 
   RowBox[{"\<\"Confirmed\"\>", "\[Rule]", "False"}], ",", 
   RowBox[{"\<\"Backend\"\>", "\[Rule]", "\<\"Blockscout\"\>"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d53f3cd8-f309-4e5d-b7ec-2bacd2587c5b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "cd8b8d10-5ac8-4e01-a0b5-33807c55954f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"65408cf1-19ed-426b-\
a676-a6c6ff2e656a"],

Cell["A bech32 address is read the same way as a base58 one:", "ExampleText",ExpressionUUID->"78508285-568b-42b3-979e-96ef1aeeee27"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", " ", "@", " ", 
  RowBox[{"ChainAddressTransactions", "[", 
   RowBox[{"\"\<bc1qw508d6qejxtdg4y5r3zarvary0c5xw7kv8f3t4\>\"", ",", " ", 
    RowBox[{"MaxItems", " ", "->", " ", "4"}]}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"34176cf9-43a1-430c-95ab-03d2714a58d7"],

Cell[BoxData["4"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f5145239-e685-4b30-ad7c-3b5ea2ce35b5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2f308696-806f-4a0c-9361-ff7e1488ebe4"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e15c0d74-d7a3-4c6a-\
a3c1-c85214110d83"],

Cell[TextData[{
 "The ",
 Cell[BoxData["\<\"Time\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1b0b201c-448f-4e42-80cb-4d9c25a69812"],
 " field is a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["DateObject"]], "paclet:ref/DateObject"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d06efd60-1b2a-4bc5-bfb9-7a62736a6bee"],
 ", so ordinary date arithmetic applies to it:"
}], "ExampleText",ExpressionUUID->"687cebd8-ab62-4aca-992c-cd604a39570e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DateObjectQ", " ", "@", " ", 
  RowBox[{
   RowBox[{"First", "[", 
    RowBox[{"ChainAddressTransactions", "[", 
     RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
      RowBox[{"MaxItems", " ", "->", " ", "1"}]}], "]"}], "]"}], 
   "[", "\"\<Time\>\"", "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"dbfc8d05-1343-40d9-bd2a-977962ca785d"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b246caa3-c1c5-4c52-9130-c9ffab7ea928"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "997cbb88-b553-4b66-a57b-d7f0fb741f20"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"81f0ee06-28a6-4a43-\
be98-a3d87269b55c"],

Cell["\<\
An address whose form is not recognized is returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"0dd6024d-f2e6-40d8-854f-af562a30f226"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChainAddressTransactions", "[", "\"\<notanaddress\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"79b0620e-b814-402f-ba48-0d95060c10d5"],

Cell[BoxData[
 RowBox[{"ChainAddressTransactions", "[", "\<\"notanaddress\"\>", 
  "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c295a26e-fba4-4c67-aa50-bd36b485a6fc"]
}, 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->
  "6fa4629b-7bf3-494f-b07b-5633b36c687c"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"73f946ee-2673-4ff5-8eb2-e63520d07690"],
 "Options",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "288b8d23-2f21-4006-96fa-318a69794be0"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2061341341,ExpressionUUID->"543a1026-5511-489c-86b0-f282a589fb37"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["MaxItems"]], "paclet:ref/MaxItems"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6adc1094-67bd-4603-9967-db0f40d498c1"],
 " truncates the page the backend served:"
}], "ExampleText",ExpressionUUID->"c7e25af3-a0b0-4983-8eba-02da7ab6bd16"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", " ", "@", " ", 
  RowBox[{"ChainAddressTransactions", "[", 
   RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
    RowBox[{"MaxItems", " ", "->", " ", "2"}]}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"54cc04be-775a-45e2-a30f-a477056f2a47"],

Cell[BoxData["2"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"cc1440c0-ff43-49be-807e-551dcc573154"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "4c4de216-ee91-4ec9-adc0-ee34260d8603"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"a49394f2-4536-4c33-\
b287-94f92374867e"],

Cell["Naming a backend pins the read, and the entries say so:", "ExampleText",ExpressionUUID->"46616fa9-bdf4-429a-9f26-69ed156de6f1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", " ", "@", " ", 
  RowBox[{"ChainAddressTransactions", "[", 
   RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
    RowBox[{"\"\<Backends\>\"", " ", "->", " ", "\"\<BlockstreamInfo\>\""}], ",",
     " ", 
    RowBox[{"MaxItems", " ", "->", " ", "1"}]}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2559c31c-d854-41b1-975a-197fa0ae8739"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"TransactionID\"\>", 
    "\[Rule]", \
"\<\"50d15dda65dbab36effd35f20a91b2ddf093cf6a787045a014a5377e2c1c42dd\"\>"}], 
   ",", 
   RowBox[{"\<\"BlockHeight\"\>", "\[Rule]", "964024"}], ",", 
   RowBox[{"\<\"Time\"\>", "\[Rule]", 
    TemplateBox[{
      RowBox[{"\"Tue 25 Aug 2026 16:13:39\"", 
        StyleBox["\"GMT\"", "TimeZoneLabel"]}], 
      RowBox[{"DateObject", "[", 
        RowBox[{
          RowBox[{"{", 
            
            RowBox[{"2026", ",", "8", ",", "25", ",", "16", ",", "13", ",", 
              "39"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", 
          "0.`"}], "]"}]},
     "DateObject",
     Editable->False]}], ",", 
   RowBox[{"\<\"Confirmed\"\>", "\[Rule]", "True"}], ",", 
   RowBox[{"\<\"Backend\"\>", "\[Rule]", "\<\"BlockstreamInfo\"\>"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3bb2f7b2-7824-4f5b-885f-4abe868f0cbf"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "739beefc-af65-436d-ac24-971c8058e513"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ecec8b79-9053-4b41-\
892c-38358109b3c9"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"\<\"Cache\"\>", " ", "->", " ", "False"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1b8db2d0-f276-438a-a9e8-04c23d5bcedc"],
 " asks the backend again rather than reusing a stored page:"
}], "ExampleText",ExpressionUUID->"9cc1a7f8-cac2-4c41-b0a8-0044cc39404d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", " ", "@", " ", 
  RowBox[{"ChainAddressTransactions", "[", 
   RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
    RowBox[{"MaxItems", " ", "->", " ", "3"}], ",", " ", 
    RowBox[{"\"\<Cache\>\"", " ", "->", " ", "False"}]}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"24480c71-c9ad-4c13-9d7e-8fcaa7b7957b"],

Cell[BoxData["3"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"595b2836-bde1-4929-899f-25290373eba4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8c1713ad-30f5-491a-b7ea-44fa9f56c90b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"1684d34f-52fe-4f21-\
b00f-94c7a444a786"],

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->
  "7f7e7b78-258a-4ec7-be38-20510bc0617a"],
 " and no backend answers, which is a ",
 Cell[BoxData["Failure"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e928588b-20b5-4800-a71d-6319a49aaeeb"],
 " rather than an empty list:"
}], "ExampleText",ExpressionUUID->"fc100114-e893-4cc5-9eb0-37992b19e6da"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChainAddressTransactions", "[", 
   RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
    RowBox[{"\"\<Cache\>\"", " ", "->", " ", "False"}], ",", " ", 
    RowBox[{"TimeConstraint", " ", "->", " ", "0.001"}]}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"63f38f13-b289-4f84-b9e6-fd13ee32457c"],

Cell[BoxData["\<\"ChainNoBackendResponded\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4d44151d-2b1f-4e74-85d3-1e3e250acab2"]
}, 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->
  "1c4a427f-270d-4c00-9177-c0afe1b9ec9c"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"bc4a0285-c42a-4c6e-9654-f2a27568cf7a"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "7c6c9076-34d4-437e-a367-d9922471d26a"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"861dfb3c-b033-415d-b403-8093149dcb9c"],

Cell[TextData[{
 "The transaction count 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->
  "8e3cb5cf-6057-41c6-b89d-46f34d2d04ca"],
 " counts the whole history, which is far longer than the page read here:"
}], "ExampleText",ExpressionUUID->"713c3353-151e-4d18-a5c3-d3f2bf78a090"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Length", " ", "@", " ", 
    RowBox[{
    "ChainAddressTransactions", 
     "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", "]"}]}], ",", " ", 
   RowBox[{
    RowBox[{
    "ChainAddressSummary", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
     "]"}], "[", "\"\<TransactionCount\>\"", "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"cba8912a-e940-462a-886e-cf59ec94b78d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"25", ",", "65544"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5c1265f8-e426-4174-be57-5f2aa032de00"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9175c760-d883-4f95-bfd2-5b21d2230dd4"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b2d0596b-22c8-460d-\
9585-9d62cdf819a0"],

Cell["\<\
BlockCypher answers address summaries and not transaction lists, so it is \
absent from the backends used here:\
\>", "ExampleText",ExpressionUUID->"7d2f79b7-e2f3-4764-84ee-2f191e8b6b03"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$ChainExplorers", "[", 
  RowBox[{"\"\<BlockCypher\>\"", ",", " ", "\"\<Properties\>\""}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"216916c7-d103-450f-83ec-98e490ac6f31"],

Cell[BoxData[
 RowBox[{"{", "\<\"AddressSummary\"\>", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0243c617-c801-41e5-9ad2-f1b714b69d7b"]
}, 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->
  "9d521d81-d67a-46c9-b388-f1ab90d6ba62"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b9ad90a2-dc47-479a-89ff-10e885818e2f"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "69f5d7de-ba14-49b1-869d-1f9b9224e99b"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"4474404f-7447-45d6-b080-00daa01a3d3c"],

Cell["\<\
The list is one page, not the whole history, so an old transaction of a busy \
address will not be in it:\
\>", "ExampleText",ExpressionUUID->"77610255-32a0-42be-93b2-3842ac0a4735"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MemberQ", "[", 
  RowBox[{
   RowBox[{"Lookup", "[", 
    RowBox[{
     RowBox[{
     "ChainAddressTransactions", 
      "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", "]"}], ",", 
     " ", "\"\<TransactionID\>\""}], "]"}], ",", 
   " ", "\"\<4a5e1e4baab89f3a32518a88c31bc87f618f76673e2cc77ab2127b7afdeda33b\
\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"26276da7-bbd9-4dd8-a4ab-18d02d9255fc"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"09ee58f4-de7e-49a3-9168-282b788caf25"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ae73d522-f658-4c32-9fc3-91165948bba6"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"0e58b8e9-6e28-45b0-\
8f51-647ebd48d27c"],

Cell["\<\
An empty list means no history, and it is not what an unreachable explorer \
gives:\
\>", "ExampleText",ExpressionUUID->"fc821103-1608-4aaf-be6c-65f9bbeaa359"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"$ChainNetworkEnabled", " ", "=", " ", "False"}], "}"}], ",", " ", 
   RowBox[{"FailureQ", " ", "@", " ", 
    RowBox[{"ChainAddressTransactions", "[", 
     RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
      RowBox[{"\"\<Cache\>\"", " ", "->", " ", "False"}]}], "]"}]}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d43c771f-96c2-41d0-9e81-ed715ebd5df5"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"bb628d60-3f08-4177-b6f4-1c78fb97a06b"]
}, 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->
         "1e58d1d4-a457-44aa-8953-acdb3e942a85"],
        "\[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->
         "0180f565-e7d3-4a0c-9373-0a4333604fed"],
        "\[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->
         "08905afe-b7a6-4144-99d2-7989248b8009"],
        "\[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->
         "5eb391c9-9612-44db-8f6d-f68d6f520bf1"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["$ChainExplorers"]], 
           "paclet:WolframInstitute/Puzzles/ref/$ChainExplorers", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "795e809d-0540-410c-abf9-49d638b18322"]
       }], "SeeAlso",ExpressionUUID->"c0babfea-184a-46c5-9752-c2da348d9ad7"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"6e4a7f26-cfd1-44c0-8375-\
d57b36c1a4d4"],

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->
         "72bb9247-96d7-4c6c-a88a-13595f8402e1"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"9df556d0-d88d-40f5-984c-\
ba584ea2a48f"],

Cell[" ", "FooterCell",ExpressionUUID->"a9473d78-56c0-423f-b6e6-d12dfbdee142"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ChainAddressTransactions",
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, 25.789391}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ChainAddressTransactions, paclet : \
WolframInstitute/Puzzles/ref/ChainAddressTransactions, \
WolframInstitute/Puzzles Package Symbol][address] gives a list of \
Associations for the most recent transactions of address, most recent first.",
     "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "ChainAddressTransactions", "titlemodifier" -> "", "metadescription" -> 
    "", "windowtitle" -> "ChainAddressTransactions", "type" -> "Symbol", 
    "uri" -> "WolframInstitute/Puzzles/ref/ChainAddressTransactions", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"d6dd9c4a-9154-409b-9b96-a2af316a4cec"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[21897, 559, 179, 4, 70, "ExampleText",ExpressionUUID->"f3376777-932c-47e9-948f-1dfac88c1204",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 53067, 1432}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[592, 21, 5914, 144, 70, "AnchorBarGrid",ExpressionUUID->"53416ce6-8fe2-443b-acc5-0db93e2a36e7",
 CellID->1],
Cell[6509, 167, 107, 0, 70, "ContextNameCell",ExpressionUUID->"17e9ce68-ad79-40f5-83e7-42d82d31a5df"],
Cell[CellGroupData[{
Cell[6641, 171, 567, 14, 70, "ObjectNameGrid",ExpressionUUID->"5a22e3c5-1ec6-48d5-acea-a24526112fb8"],
Cell[7211, 187, 843, 20, 70, "Usage",ExpressionUUID->"0e223d07-23f0-455b-b8f9-e8819ef63900"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8091, 212, 1444, 34, 70, "NotesSection",ExpressionUUID->"1b12c161-d300-4c87-bcb6-8b710f72c4ff",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1172030310],
Cell[9538, 248, 1339, 37, 70, "Notes",ExpressionUUID->"3de82c85-6b39-4395-97cf-f4a90d0cf8f1"],
Cell[10880, 287, 692, 18, 70, "Notes",ExpressionUUID->"7368eef1-f6df-4463-866e-c23f3cb64b7d"],
Cell[11575, 307, 254, 4, 70, "Notes",ExpressionUUID->"0eac2b63-d3fa-4019-a6a7-53b2c8a5e5eb"],
Cell[11832, 313, 590, 13, 70, "Notes",ExpressionUUID->"37ee08ca-922e-483d-9360-5a171b804cba"],
Cell[12425, 328, 819, 20, 70, "Notes",ExpressionUUID->"22174a21-4985-45ed-97ec-87648e433f39"],
Cell[13247, 350, 278, 4, 70, "Notes",ExpressionUUID->"8d3d93e5-7a0c-436f-9e07-cfe7a5612f4f"],
Cell[13528, 356, 215, 3, 70, "Notes",ExpressionUUID->"a86e7cec-f1ab-4d0b-95cb-194b3914e377"],
Cell[13746, 361, 5146, 111, 70, "3ColumnTableMod",ExpressionUUID->"42e19a84-9f47-4d00-a45e-a9bfa561c679"]
}, Closed]],
Cell[18907, 475, 80, 0, 70, "PageDelimiter",ExpressionUUID->"b7a99af6-1587-407d-92b7-6a3de9ec8ffb"],
Cell[CellGroupData[{
Cell[19012, 479, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"f86e5d64-1571-4b53-96d7-1576434f57a8",
 CellID->1593409886],
Cell[20417, 518, 216, 4, 70, "Input",ExpressionUUID->"54df7e95-c3a5-4575-b225-cd7c0553ebd0",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[20658, 526, 1236, 31, 70, "ExampleSection",ExpressionUUID->"7737eab2-c9e2-4575-b4a6-2419bc063572",
 CellID->1318875912],
Cell[21897, 559, 179, 4, 70, "ExampleText",ExpressionUUID->"f3376777-932c-47e9-948f-1dfac88c1204",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[22101, 567, 315, 5, 70, "Input",ExpressionUUID->"88945403-08ee-4f1b-844d-894db07d99f2"],
Cell[22419, 574, 2909, 72, 70, "Output",ExpressionUUID->"57f07217-c342-42e0-9299-1bd1efa1fa6d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25365, 651, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f71cfdd5-c9a2-4f84-b5a7-9726ca26a37a"],
Cell[25592, 658, 104, 0, 70, "ExampleText",ExpressionUUID->"59936052-02d6-4809-bb20-bee4d5df3c01"],
Cell[CellGroupData[{
Cell[25721, 662, 405, 8, 70, "Input",ExpressionUUID->"0864c9c0-5a67-40f3-9828-73692653ae67"],
Cell[26129, 672, 558, 11, 70, "Output",ExpressionUUID->"23397692-230b-4d19-8ff1-ace731571224"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[26736, 689, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"6c9332ce-6cee-455c-b278-77e60230f7eb"],
Cell[26963, 696, 167, 3, 70, "ExampleText",ExpressionUUID->"6d0ca6f1-dfd2-42c0-86e7-cb2305db4b47"],
Cell[CellGroupData[{
Cell[27155, 703, 494, 10, 70, "Input",ExpressionUUID->"682233b5-916d-44a8-8801-4bcb2e952246"],
Cell[27652, 715, 110, 1, 70, "Output",ExpressionUUID->"b85db55e-ecf9-4a5f-ae84-04afe0f6bc0c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27823, 723, 1227, 31, 70, "ExampleSection",ExpressionUUID->"a35e6f83-61d4-4a31-b3dc-ab4c350ff25a",
 CellID->1293636265],
Cell[29053, 756, 432, 9, 70, "ExampleText",ExpressionUUID->"11262919-bb32-4417-8eef-917f57110fa6"],
Cell[CellGroupData[{
Cell[29510, 769, 362, 6, 70, "Input",ExpressionUUID->"4aa1db98-cbd8-457c-b499-6ea6cecb4278"],
Cell[29875, 777, 660, 14, 70, "Output",ExpressionUUID->"d53f3cd8-f309-4e5d-b7ec-2bacd2587c5b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30572, 796, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"65408cf1-19ed-426b-a676-a6c6ff2e656a"],
Cell[30799, 803, 132, 0, 70, "ExampleText",ExpressionUUID->"78508285-568b-42b3-979e-96ef1aeeee27"],
Cell[CellGroupData[{
Cell[30956, 807, 363, 6, 70, "Input",ExpressionUUID->"34176cf9-43a1-430c-95ab-03d2714a58d7"],
Cell[31322, 815, 107, 1, 70, "Output",ExpressionUUID->"f5145239-e685-4b30-ad7c-3b5ea2ce35b5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31478, 822, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e15c0d74-d7a3-4c6a-a3c1-c85214110d83"],
Cell[31705, 829, 610, 17, 70, "ExampleText",ExpressionUUID->"687cebd8-ab62-4aca-992c-cd604a39570e"],
Cell[CellGroupData[{
Cell[32340, 850, 442, 9, 70, "Input",ExpressionUUID->"dbfc8d05-1343-40d9-bd2a-977962ca785d"],
Cell[32785, 861, 110, 1, 70, "Output",ExpressionUUID->"b246caa3-c1c5-4c52-9130-c9ffab7ea928"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32944, 868, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"81f0ee06-28a6-4a43-be98-a3d87269b55c"],
Cell[33171, 875, 150, 2, 70, "ExampleText",ExpressionUUID->"0dd6024d-f2e6-40d8-854f-af562a30f226"],
Cell[CellGroupData[{
Cell[33346, 881, 226, 4, 70, "Input",ExpressionUUID->"79b0620e-b814-402f-ba48-0d95060c10d5"],
Cell[33575, 887, 179, 3, 70, "Output",ExpressionUUID->"c295a26e-fba4-4c67-aa50-bd36b485a6fc"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[33815, 897, 1229, 31, 70, "ExampleSection",ExpressionUUID->"543a1026-5511-489c-86b0-f282a589fb37",
 CellID->2061341341],
Cell[35047, 930, 408, 11, 70, "ExampleText",ExpressionUUID->"c7e25af3-a0b0-4983-8eba-02da7ab6bd16"],
Cell[CellGroupData[{
Cell[35480, 945, 355, 6, 70, "Input",ExpressionUUID->"54cc04be-775a-45e2-a30f-a477056f2a47"],
Cell[35838, 953, 107, 1, 70, "Output",ExpressionUUID->"cc1440c0-ff43-49be-807e-551dcc573154"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35982, 959, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"a49394f2-4536-4c33-b287-94f92374867e"],
Cell[36209, 966, 133, 0, 70, "ExampleText",ExpressionUUID->"46616fa9-bdf4-429a-9f26-69ed156de6f1"],
Cell[CellGroupData[{
Cell[36367, 970, 447, 8, 70, "Input",ExpressionUUID->"2559c31c-d854-41b1-975a-197fa0ae8739"],
Cell[36817, 980, 982, 24, 70, "Output",ExpressionUUID->"3bb2f7b2-7824-4f5b-885f-4abe868f0cbf"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37848, 1010, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ecec8b79-9053-4b41-892c-38358109b3c9"],
Cell[38075, 1017, 357, 7, 70, "ExampleText",ExpressionUUID->"9cc1a7f8-cac2-4c41-b0a8-0044cc39404d"],
Cell[CellGroupData[{
Cell[38457, 1028, 422, 7, 70, "Input",ExpressionUUID->"24480c71-c9ad-4c13-9d7e-8fcaa7b7957b"],
Cell[38882, 1037, 107, 1, 70, "Output",ExpressionUUID->"595b2836-bde1-4929-899f-25290373eba4"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[39038, 1044, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"1684d34f-52fe-4f21-b00f-94c7a444a786"],
Cell[39265, 1051, 628, 17, 70, "ExampleText",ExpressionUUID->"fc100114-e893-4cc5-9eb0-37992b19e6da"],
Cell[CellGroupData[{
Cell[39918, 1072, 445, 8, 70, "Input",ExpressionUUID->"63f38f13-b289-4f84-b9e6-fd13ee32457c"],
Cell[40366, 1082, 137, 1, 70, "Output",ExpressionUUID->"4d44151d-2b1f-4e74-85d3-1e3e250acab2"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[40564, 1090, 1244, 31, 70, "ExampleSection",ExpressionUUID->"861dfb3c-b033-415d-b403-8093149dcb9c",
 CellID->2123667759],
Cell[41811, 1123, 574, 14, 70, "ExampleText",ExpressionUUID->"713c3353-151e-4d18-a5c3-d3f2bf78a090"],
Cell[CellGroupData[{
Cell[42410, 1141, 500, 12, 70, "Input",ExpressionUUID->"cba8912a-e940-462a-886e-cf59ec94b78d"],
Cell[42913, 1155, 157, 3, 70, "Output",ExpressionUUID->"5c1265f8-e426-4174-be57-5f2aa032de00"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43107, 1163, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b2d0596b-22c8-460d-9585-9d62cdf819a0"],
Cell[43334, 1170, 197, 3, 70, "ExampleText",ExpressionUUID->"7d2f79b7-e2f3-4764-84ee-2f191e8b6b03"],
Cell[CellGroupData[{
Cell[43556, 1177, 261, 5, 70, "Input",ExpressionUUID->"216916c7-d103-450f-83ec-98e490ac6f31"],
Cell[43820, 1184, 150, 2, 70, "Output",ExpressionUUID->"0243c617-c801-41e5-9ad2-f1b714b69d7b"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[44031, 1193, 1237, 31, 70, "ExampleSection",ExpressionUUID->"4474404f-7447-45d6-b080-00daa01a3d3c",
 CellID->1305812373],
Cell[45271, 1226, 191, 3, 70, "ExampleText",ExpressionUUID->"77610255-32a0-42be-93b2-3842ac0a4735"],
Cell[CellGroupData[{
Cell[45487, 1233, 490, 12, 70, "Input",ExpressionUUID->"26276da7-bbd9-4dd8-a4ab-18d02d9255fc"],
Cell[45980, 1247, 111, 1, 70, "Output",ExpressionUUID->"09ee58f4-de7e-49a3-9168-282b788caf25"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46128, 1253, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"0e58b8e9-6e28-45b0-8f51-647ebd48d27c"],
Cell[46355, 1260, 169, 3, 70, "ExampleText",ExpressionUUID->"fc821103-1608-4aaf-be6c-65f9bbeaa359"],
Cell[CellGroupData[{
Cell[46549, 1267, 518, 11, 70, "Input",ExpressionUUID->"d43c771f-96c2-41d0-9e81-ed715ebd5df5"],
Cell[47070, 1280, 110, 1, 70, "Output",ExpressionUUID->"bb628d60-3f08-4177-b6f4-1c78fb97a06b"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[47231, 1287, 3178, 82, 70, "SeeAlsoSection",ExpressionUUID->"6e4a7f26-cfd1-44c0-8375-d57b36c1a4d4"],
Cell[50412, 1371, 678, 18, 70, "MoreAboutSection",ExpressionUUID->"9df556d0-d88d-40f5-984c-ba584ea2a48f"],
Cell[51093, 1391, 78, 0, 70, "FooterCell",ExpressionUUID->"a9473d78-56c0-423f-b6e6-d12dfbdee142"]
}
]
*)

(* End of internal cache information *)

