(* 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[     53552,       1379]
NotebookOptionsPosition[     43965,       1202]
NotebookOutlinePosition[     46012,       1251]
CellTagsIndexPosition[     45934,       1246]
WindowTitle->BitcoinAddressData
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->
           "d03b6d21-35cc-445e-94bb-51d791df64b9"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "4318114b-e49b-4d96-96ce-2165b843ce80"],
        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->
           "4daa5c6c-77b0-4c3c-9f9f-131f3d233241"]
         }],ExpressionUUID->"c19e6c6e-badd-4d4d-99f5-a7d7307ff621"],
         StripOnInput->False],{
        StyleBox[
          "\"BitcoinAddress\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BitcoinAddress"], 
         StyleBox[
          "\"BitcoinPublicKeyHash\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BitcoinPublicKeyHash"], 
         StyleBox[
          "\"SegWitAddressDecode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/SegWitAddressDecode"], 
         StyleBox[
          "\"Base58CheckDecode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58CheckDecode"], 
         StyleBox[
          "\"ChainAddressBalance\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ChainAddressBalance"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "865429ae-1d9d-4bb1-a9fd-17ff99c983a6"],
     "\[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->
           "65b60363-b52d-4328-9ddd-81ca2679cf23"]
         }],ExpressionUUID->"2bc91320-bd78-4884-a661-e9f7d37f7027"],
         StripOnInput->False],{
        "\"Derivation\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Derivation"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "72933fd2-7a61-465a-b459-2a5e8a45a04c"],
     "\[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->
           "d0ea1478-c9b3-4404-bccf-2af06da7acf8"]
         }],ExpressionUUID->"ed9ba1d0-75ab-4a55-86c1-87d602d7920e"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BitcoinAddressData\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BitcoinAddressData"], 
         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/BitcoinAddressData.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/BitcoinAddressData" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "e6fb00d6-3b09-44de-b245-c5686296e311"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "b9d5dd7a-a3e9-46d4-97ed-b05d2d0ab133"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"7b531993-41ea-41ef-9174-c69d492d2410"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"2c10825b-b304-4079-a707-45faf0c431b1"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BitcoinAddressData", "ObjectName",ExpressionUUID->
      "67c1367d-5472-4d39-afb6-3b2c616fdcc1"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"2aba7703-7850-4481-abfb-1d1e5aaa8114"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "63211b7c-9792-48a7-b3d1-da414a173179"]
    }],ExpressionUUID->"531490f8-944c-4e68-a3b9-04b2dd164afc"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"e888cb70-5e60-4788-8cb4-\
2b65ed5e4b05"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BitcoinAddressData"]], 
         "paclet:WolframInstitute/Puzzles/ref/BitcoinAddressData", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["address", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "5435eb29-9731-4182-b587-deabfa558983"],
     "\[LineSeparator]",
     "gives an Association describing a Bitcoin ",
     StyleBox["address", "TI"],
     "."
    }],ExpressionUUID->"51d74473-d0d8-44b0-ba30-96edcef2df5c"]}
  }]], "Usage",ExpressionUUID->"f7cfb22a-bc42-476b-8c8e-feec5e5d1982"]
}, 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->"e6d18ac7-dd2a-4dfe-ac2a-79148664c9c7"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"b5c43ba8-c552-450e-9a7d-7a7f278046a7"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "3491d5d5-d096-4633-8b11-67a767db3f15"]],ExpressionUUID->"3e60d371-4d4f-\
43e5-aebe-94a8483a32aa"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1220529671,ExpressionUUID->"b17817c8-b7a9-4988-8c17-fadfe1c8b82f"],

Cell[TextData[{
 "The keys are ",
 Cell[BoxData["\<\"Form\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f3322a7a-cabf-4b68-a1eb-92b05941aac6"],
 ", ",
 Cell[BoxData["\<\"Network\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1812b0fa-5c46-4428-8812-7d05d0a22474"],
 ", ",
 Cell[BoxData["\<\"Encoding\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e31088e1-4ef5-4708-be68-80a03084104f"],
 ", ",
 Cell[BoxData["\<\"WitnessVersion\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4feebd37-05e1-457c-be7d-5193e3b22cd9"],
 ", ",
 Cell[BoxData["\<\"Hash\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "74fc9ae6-fc73-45ae-a23e-6a3599868417"],
 " and ",
 Cell[BoxData["\<\"ScriptPubKey\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "58bdd7e8-cfe7-4347-8747-bf48ebd48499"],
 "."
}], "Notes",ExpressionUUID->"e65bebb2-a84d-42ed-a855-29aecfe750b1"],

Cell[TextData[{
 Cell[BoxData["\<\"Form\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2bfb4218-f006-4c58-9725-3e06e49718f2"],
 " is ",
 Cell[BoxData["\<\"P2PKH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b3565e0f-139b-448c-b2fa-926dd2983499"],
 " or ",
 Cell[BoxData["\<\"P2SH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "23064a07-062d-40e1-80ae-3e20e44b1178"],
 " for a Base58Check address, and ",
 Cell[BoxData["\<\"P2WPKH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3243594a-f136-4e94-9f95-a0b7a243fc14"],
 ", ",
 Cell[BoxData["\<\"P2WSH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "82c3a271-2d60-49d2-ac19-1988dfdb6777"],
 ", ",
 Cell[BoxData["\<\"P2TR\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "fb9dffd9-73d3-479a-87d2-0eff80c22e07"],
 " or ",
 Cell[BoxData["\<\"SegWit\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c6640cc7-7ef4-4b76-8e49-500c186ee869"],
 " for a segwit address, read off the witness version and the program \
length."
}], "Notes",ExpressionUUID->"cf892c9d-a768-491f-9565-553edac288d9"],

Cell[TextData[{
 Cell[BoxData["\<\"Hash\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1bf295ad-c0ba-448f-bfb4-3f559f97269b"],
 " is the 20-byte or 32-byte commitment the address carries, and ",
 Cell[BoxData["\<\"ScriptPubKey\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8424c548-d7e0-42e9-a79a-ab84fe8388de"],
 " is the output script it pays to."
}], "Notes",ExpressionUUID->"543279f3-129e-4ee2-a9bb-61dba4c8fcd3"],

Cell[TextData[{
 Cell[BoxData["\<\"WitnessVersion\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f69de644-81db-4e83-9eed-d8f788ab7380"],
 " is ",
 Cell[BoxData[
  RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "53e45d18-f61c-43af-a2a6-50f914a869c0"],
 " for a Base58Check address."
}], "Notes",ExpressionUUID->"3f2b3755-23dd-404c-869e-7a73b3e535db"],

Cell["\<\
A segwit address is tried first, then a Base58Check one; a string that is \
neither gives the segwit Failure, which names the reason.\
\>", "Notes",ExpressionUUID->"ee3cdfaa-c76a-41de-b370-d3fb9606637c"],

Cell["\<\
An address with a bad checksum, an unknown version byte or human-readable \
part, a witness program of the wrong length, or the wrong Bech32 variant for \
its witness version, gives a Failure.\
\>", "Notes",ExpressionUUID->"f3e8eadd-2b9d-46d0-8db0-8641121e7ae0"],

Cell[TextData[{
 "A Base58Check address cannot say whether a P2SH commitment is a nested \
witness program or some other script, so ",
 Cell[BoxData["\<\"Form\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "40e40731-56b1-4d70-b17a-c2336d932121"],
 " is ",
 Cell[BoxData["\<\"P2SH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "eae2709f-b8da-4f71-a729-7f0f88e44d93"],
 " even for an address that ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BitcoinAddress"]], 
    "paclet:WolframInstitute/Puzzles/ref/BitcoinAddress", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "73537f51-c3a2-4a2a-9835-447d77f6445c"],
 " built as ",
 Cell[BoxData["\<\"P2SH-P2WPKH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6520a89d-37f6-45aa-9d16-cd4ad21509fa"],
 "."
}], "Notes",ExpressionUUID->"59d711bd-b5f2-4f8b-99fb-d629ea091a24"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"373df2ac-9abf-4534-a9ac-6a78c95dc02f"],

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->"afaaed1d-36ed-40b5-b60c-82923cdee223"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"50f18dda-e5d7-4dd5-be70-ffc40319ccb7"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(12)", "ExampleCount",ExpressionUUID->
  "4eb37944-af17-41f1-ae88-b828a0fd6f59"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->678384353,ExpressionUUID->"1b07a850-3a91-4f0a-8bc1-36121c4ccfd9"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"4f2d75c7-cf2e-4ac5-887b-50d4e97483be"],

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->
  "a96cd757-1313-4179-b1e1-246ac5a252d0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"3648a9b5-5aa2-406b-b0e1-b472ba437164"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "8b877246-dde5-437e-8763-e7a72a0b63e5"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->615138948,ExpressionUUID->"2b04443a-3977-44bb-a3cb-f9f2b370a622"],

Cell["A legacy address:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"e54b66bf-34e7-4308-8e3c-c76e2d3c2cc1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitcoinAddressData", 
  "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4b72fbc8-f86c-4bb2-8e71-a9f39b2a0572"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Form\"\>", "\[Rule]", "\<\"P2PKH\"\>"}], ",", 
   RowBox[{"\<\"Network\"\>", "\[Rule]", "\<\"Mainnet\"\>"}], ",", 
   RowBox[{"\<\"Encoding\"\>", "\[Rule]", "\<\"Base58Check\"\>"}], ",", 
   RowBox[{"\<\"WitnessVersion\"\>", "\[Rule]", 
    RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", 
   RowBox[{"\<\"Hash\"\>", "\[Rule]", 
    InterpretationBox[
     RowBox[{
      TagBox["ByteArray",
       "SummaryHead"], "[", 
      DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
       "Ready"}, 
       TemplateBox[{
         PaneSelectorBox[{False -> GridBox[{{
               GridBox[{{
                  TagBox["\"20 bytes\"", "SummaryItem"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               GridBox[{{
                  TagBox["\"20 bytes\"", "SummaryItem"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`open$$], ImageSize -> Automatic]},
        "SummaryPanel"],
       DynamicModuleValues:>{}], "]"}],
     ByteArray[{98, 233, 7, 177, 92, 191, 39, 213, 66, 83, 153, 235, 246, 240,
       251, 80, 235, 184, 143, 24}],
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}], ",", 
   RowBox[{"\<\"ScriptPubKey\"\>", "\[Rule]", 
    InterpretationBox[
     RowBox[{
      TagBox["ByteArray",
       "SummaryHead"], "[", 
      DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
       "Ready"}, 
       TemplateBox[{
         PaneSelectorBox[{False -> GridBox[{{
               GridBox[{{
                  TagBox["\"25 bytes\"", "SummaryItem"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               GridBox[{{
                  TagBox["\"25 bytes\"", "SummaryItem"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`open$$], ImageSize -> Automatic]},
        "SummaryPanel"],
       DynamicModuleValues:>{}], "]"}],
     ByteArray[{118, 169, 20, 98, 233, 7, 177, 92, 191, 39, 213, 66, 83, 153, 
      235, 246, 240, 251, 80, 235, 184, 143, 24, 136, 172}],
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}]}], "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b26c66eb-367f-4fa8-91a9-fc26835a1d83"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "94fa0424-817c-4e44-96ca-0cd5d5e6a183"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"4763a44a-4e46-4a23-\
bc16-140cc2fbf14f"],

Cell["\<\
Its scriptPubKey is the standard pay-to-public-key-hash script:\
\>", "ExampleText",ExpressionUUID->"3ad25b28-ce2a-4dcb-92ce-41d4f4ba5a54"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"Normal", "[", 
   RowBox[{
    RowBox[{
    "BitcoinAddressData", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
     "]"}], "[", "\"\<ScriptPubKey\>\"", "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8d489c60-507a-4353-9498-8df16c1b86d3"],

Cell[BoxData["\<\"76a91462e907b15cbf27d5425399ebf6f0fb50ebb88f1888ac\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3a97d7ef-67d8-4830-95e6-2e8cebadcdaa"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9260d591-e400-44c3-ac6c-400e9ca63dc5"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"77433f99-d7c4-4b29-\
9a35-9c3893b42709"],

Cell["\<\
A native segwit address, and the version 0 witness program it carries:\
\>", "ExampleText",ExpressionUUID->"d157b33b-ced6-4959-88be-4954556b9f23"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyTake", "[", 
  RowBox[{
   RowBox[{
   "BitcoinAddressData", 
    "[", "\"\<bc1qcr8te4kr609gcawutmrza0j4xv80jy8z306fyu\>\"", "]"}], ",", 
   " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Form\>\"", ",", " ", "\"\<Network\>\"", ",", 
     " ", "\"\<Encoding\>\"", ",", " ", "\"\<WitnessVersion\>\""}], "}"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7e246173-4c95-49e2-b4d9-fe90352bf68a"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Form\"\>", "\[Rule]", "\<\"P2WPKH\"\>"}], ",", 
   RowBox[{"\<\"Network\"\>", "\[Rule]", "\<\"Mainnet\"\>"}], ",", 
   RowBox[{"\<\"Encoding\"\>", "\[Rule]", "\<\"Bech32\"\>"}], ",", 
   RowBox[{"\<\"WitnessVersion\"\>", "\[Rule]", "0"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f61a2f80-9cc8-4d76-b05d-133292d63b4e"]
}, 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->
  "2992b903-fcb1-4e70-8814-f60ed4cc0792"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d7317421-b59a-41c4-a253-ce7903aab8eb"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "b305c118-e6a9-4559-8aa4-7df8f725c76d"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"31f07929-2155-486c-a39b-1c5f1c910f08"],

Cell["A taproot address is witness version 1 and Bech32m:", "ExampleText",ExpressionUUID->"199811b0-69f0-4e4b-a711-63719704e0fa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyTake", "[", 
  RowBox[{
   RowBox[{
   "BitcoinAddressData", 
    "[", "\"\<bc1p5cyxnuxmeuwuvkwfem96lqzszd02n6xdcjrs20cac6yqjjwudpxqkedrcr\>\
\"", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Form\>\"", ",", " ", "\"\<Encoding\>\"", ",", 
     " ", "\"\<WitnessVersion\>\""}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6c4c4bce-d57b-4528-bdd1-9f435d71bc6f"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Form\"\>", "\[Rule]", "\<\"P2TR\"\>"}], ",", 
   RowBox[{"\<\"Encoding\"\>", "\[Rule]", "\<\"Bech32m\"\>"}], ",", 
   RowBox[{"\<\"WitnessVersion\"\>", "\[Rule]", "1"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ed410ae4-8816-47a9-94fc-1e628f6ea2c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "18102b34-75df-4cc6-b029-1b7f56021324"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"251ad186-fcc0-44da-\
9ec7-1214f4ca74df"],

Cell["A 32-byte version 0 program is a pay-to-witness-script-hash:", \
"ExampleText",ExpressionUUID->"988e2b0f-fe93-4896-9759-3b8cea30302a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "BitcoinAddressData", 
   "[", "\"\<tb1qrp33g0q5c5txsp9arysrx4k6zdkfs4nce4xj0gdcccefvpysxf3q0sl5k7\>\
\"", "]"}], "[", "\"\<Form\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fc000b13-79ba-4ac0-b3ba-731217dd83e7"],

Cell[BoxData["\<\"P2WSH\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"bee86d7e-ed9b-4d33-8770-1f63007a91a8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a02bcbf0-452b-473d-80a9-0b067e67b14b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f19b37bf-a3c4-44f0-\
b6ec-75d39e2e2a9a"],

Cell["\<\
The BIP350 test vector at witness version 16, which no output type has yet \
been assigned to:\
\>", "ExampleText",ExpressionUUID->"4f361b9e-7f7f-42f3-9519-0c57fdaba80a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyTake", "[", 
  RowBox[{
   RowBox[{"BitcoinAddressData", "[", "\"\<BC1SW50QGDZ25J\>\"", "]"}], ",", 
   " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Form\>\"", ",", " ", "\"\<WitnessVersion\>\""}], "}"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1d862e7e-bd9c-4c93-94ed-cc9e9d897354"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Form\"\>", "\[Rule]", "\<\"SegWit\"\>"}], ",", 
   RowBox[{"\<\"WitnessVersion\"\>", "\[Rule]", "16"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a55456f1-8e22-4b81-8186-e8cce5f02967"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ced3d85b-7912-4778-a085-2dea200dff53"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e7769aff-45e8-46ac-\
a53c-e4e181852415"],

Cell["\<\
The BIP49 nested witness address reports P2SH, since the address alone does \
not reveal the script:\
\>", "ExampleText",ExpressionUUID->"12c4f994-b7da-4cb0-8bff-51c8743dae4a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "BitcoinAddressData", "[", "\"\<2Mww8dCYPUpKHofjgcXcBCEGmniw9CoaiD2\>\"", 
   "]"}], "[", "\"\<Form\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"391a8894-fd81-46a0-935a-d0a193b641be"],

Cell[BoxData["\<\"P2SH\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1c907341-882b-4d1c-bfb7-51b3ed131efe"]
}, 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->
  "cf45fb61-2edb-4b01-a3f7-ff6f0cdbaf57"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"636332c5-a30c-41a6-8c23-1e9ef985769c"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "0d6ad796-23bf-4dd0-8049-acba439790f8"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"52eb89c6-e295-406b-9c39-ae5dbf57dc1c"],

Cell["\<\
The scriptPubKey of every valid segwit address of the BIP173 and BIP350 test \
vectors:\
\>", "ExampleText",ExpressionUUID->"6807abf6-556d-473f-966e-c2fe743e12f6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ByteListToHexString", "[", 
     RowBox[{"Normal", "[", 
      RowBox[{
       RowBox[{"BitcoinAddressData", "[", "#", "]"}], 
       "[", "\"\<ScriptPubKey\>\"", "]"}], "]"}], "]"}], " ", "&"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<BC1QW508D6QEJXTDG4Y5R3ZARVARY0C5XW7KV8F3T4\>\"", ",", 
     " ", "\"\<tb1qrp33g0q5c5txsp9arysrx4k6zdkfs4nce4xj0gdcccefvpysxf3q0sl5k7\
\>\"", ",", " ", "\"\<BC1SW50QGDZ25J\>\"", ",", 
     " ", "\"\<bc1p0xlxvlhemja6c4dqv22uapctqupfhlxm9h8z3k2e72q4k9hcz7vqzk5jj0\
\>\""}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7a18c8c7-b552-46cc-a133-0a1c01755d6e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"0014751e76e8199196d454941c45d1b3a323f1433bd6\"\>", 
   ",", "\<\"\
00201863143c14c5166804bd19203356da136c985678cd4d27a1b8c6329604903262\"\>", 
   ",", "\<\"6002751e\"\>", 
   ",", "\<\"\
512079be667ef9dcbbac55a06295ce870b07029bfcdb2dce28d959f2815b16f81798\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d99a08f5-c231-4c7d-831d-254305022a4e"]
}, 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->
  "3831d9b0-b456-4db6-a370-55041b801ad6"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c4a95dbb-ce90-4c87-ae89-c0963df4e2a0"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "75125de6-e410-438e-8be7-111d910c4bd4"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"58030931-90fa-4b46-b73d-d6a76aa51494"],

Cell[TextData[{
 "It inverts ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BitcoinAddress"]], 
    "paclet:WolframInstitute/Puzzles/ref/BitcoinAddress", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b951b6b8-1529-45b2-a323-f7c8fa4c7b42"],
 " as far as an address can be inverted, recovering the commitment but not \
the key:"
}], "ExampleText",ExpressionUUID->"ff496d02-d5f1-4458-bce1-044cceeebadb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BitcoinAddressData", "[", 
    RowBox[{"BitcoinAddress", "[", 
     RowBox[{"\"\<\
0330d54fd0dd420a6e5f8d3624f5f3482cae350f79d5f0753bf5beef9c2d91af3c\>\"", ",", 
      " ", "\"\<P2WPKH\>\""}], "]"}], "]"}], "[", "\"\<Hash\>\"", "]"}], " ", 
  "===", " ", 
  RowBox[{
  "BitcoinPublicKeyHash", 
   "[", "\"\<\
0330d54fd0dd420a6e5f8d3624f5f3482cae350f79d5f0753bf5beef9c2d91af3c\>\"", 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2e12712e-3265-47ed-bf41-b533df89fecc"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"acb76971-cf6a-4df0-8492-3b5c0bf4f11e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "992f6997-0c68-4f5b-b1fe-2ab7c727a94c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"a078903d-f6e2-4eed-\
a860-4973173ee987"],

Cell["\<\
The taproot commitment is the tweaked output key, not the internal key:\
\>", "ExampleText",ExpressionUUID->"66ff0d4d-eb04-479f-b3bf-579a8798a769"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "BitcoinAddressData", 
    "[", "\"\<bc1p5cyxnuxmeuwuvkwfem96lqzszd02n6xdcjrs20cac6yqjjwudpxqkedrcr\>\
\"", "]"}], "[", "\"\<Hash\>\"", "]"}], " ", "===", " ", 
  RowBox[{
  "TaprootOutputKey", 
   "[", "\"\<cc8a4bc64d897bddc5fbc2f670f7a8ba0b386779106cf1223c6fc5d7cd6fc115\
\>\"", "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9ad97a80-f3b5-4890-9ea7-49f2085bc884"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"772b9a3b-802f-4fd7-813c-5fa209de1947"]
}, 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->
  "8f1c4684-80ca-41fc-b7cb-45fd4881583e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"9df71975-3e98-4dc7-88c0-683a232f042e"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "33a451bb-7f12-4ac5-b48b-e44339ff397e"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"bd734dbb-04e2-486c-a422-de0387a366b2"],

Cell["\<\
A version 1 program carrying a Bech32 rather than a Bech32m checksum is \
invalid under BIP350, and is rejected rather than read:\
\>", "ExampleText",ExpressionUUID->"3349a545-12bd-461e-800e-f247180a6ac9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{
  "BitcoinAddressData", 
   "[", "\"\<bc1p0xlxvlhemja6c4dqv22uapctqupfhlxm9h8z3k2e72q4k9hcz7vqh2y7hd\>\
\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"74e84878-239c-4bb8-b430-483575867f04"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ab7fb7c5-6e87-4b25-97aa-3d1b792a1b8e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "5ad0fa65-4cae-4280-bb15-35159111b29a"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"4b96b920-3d16-435f-\
b4ef-8827bb874d39"],

Cell["\<\
A single mistyped character changes the checksum, so a corrupted address \
fails rather than decoding to a different one:\
\>", "ExampleText",ExpressionUUID->"ca1bde5c-9c4a-46a5-a92a-75fd6acf8190"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{
  "BitcoinAddressData", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7Divfna\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1c8067b2-181f-4904-bf01-936be446e41b"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"bd73781a-1b07-4d6b-94f7-d7c29da244b3"]
}, 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["BitcoinAddress"]], 
           "paclet:WolframInstitute/Puzzles/ref/BitcoinAddress", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "d8af3fa5-2527-40ed-af33-4e8fcf0f204f"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BitcoinPublicKeyHash"]], 
           "paclet:WolframInstitute/Puzzles/ref/BitcoinPublicKeyHash", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "8d97424f-b91e-4f23-a1ed-40c36455fa85"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["SegWitAddressDecode"]], 
           "paclet:WolframInstitute/Puzzles/ref/SegWitAddressDecode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "13c57d0e-c34e-44aa-a59c-55c0fa13c28c"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Base58CheckDecode"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58CheckDecode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "ff783fed-6e1c-41a7-85f7-164519d5dea8"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ChainAddressBalance"]], 
           "paclet:WolframInstitute/Puzzles/ref/ChainAddressBalance", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "84f8bbd0-41d4-45f4-b7a6-4257b706d38d"]
       }], "SeeAlso",ExpressionUUID->"46cb75a2-f85b-45c8-9175-ca18f22ab71c"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"74490287-1a14-4b46-b746-\
a9bf8612e66d"],

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["Derivation"]], 
           "paclet:WolframInstitute/Puzzles/guide/Derivation"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "85e1bbc0-909a-4613-8dda-a79fea0f51b3"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"70e7695e-5601-473f-be7f-\
5653e77dc391"],

Cell[" ", "FooterCell",ExpressionUUID->"6fbf9488-96dc-448f-a1e5-218350176ae7"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BitcoinAddressData",
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, 14.331038}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BitcoinAddressData, paclet : \
WolframInstitute/Puzzles/ref/BitcoinAddressData, WolframInstitute/Puzzles \
Package Symbol][address] gives an Association describing a Bitcoin address.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "BitcoinAddressData", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "BitcoinAddressData", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BitcoinAddressData", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"5d996a64-3b23-4dad-9852-282dcb2795f2"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[17708, 475, 127, 2, 70, "ExampleText",ExpressionUUID->"e54b66bf-34e7-4308-8e3c-c76e2d3c2cc1",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 45777, 1240}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[586, 21, 5876, 143, 70, "AnchorBarGrid",ExpressionUUID->"7b531993-41ea-41ef-9174-c69d492d2410",
 CellID->1],
Cell[6465, 166, 107, 0, 70, "ContextNameCell",ExpressionUUID->"2c10825b-b304-4079-a707-45faf0c431b1"],
Cell[CellGroupData[{
Cell[6597, 170, 561, 14, 70, "ObjectNameGrid",ExpressionUUID->"e888cb70-5e60-4788-8cb4-2b65ed5e4b05"],
Cell[7161, 186, 789, 20, 70, "Usage",ExpressionUUID->"f7cfb22a-bc42-476b-8c8e-feec5e5d1982"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7987, 211, 1444, 34, 70, "NotesSection",ExpressionUUID->"b17817c8-b7a9-4988-8c17-fadfe1c8b82f",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1220529671],
Cell[9434, 247, 1171, 32, 70, "Notes",ExpressionUUID->"e65bebb2-a84d-42ed-a855-29aecfe750b1"],
Cell[10608, 281, 1417, 37, 70, "Notes",ExpressionUUID->"cf892c9d-a768-491f-9565-553edac288d9"],
Cell[12028, 320, 530, 11, 70, "Notes",ExpressionUUID->"543279f3-129e-4ee2-a9bb-61dba4c8fcd3"],
Cell[12561, 333, 510, 12, 70, "Notes",ExpressionUUID->"3f2b3755-23dd-404c-869e-7a73b3e535db"],
Cell[13074, 347, 213, 3, 70, "Notes",ExpressionUUID->"ee3cdfaa-c76a-41de-b370-d3fb9606637c"],
Cell[13290, 352, 272, 4, 70, "Notes",ExpressionUUID->"f3e8eadd-2b9d-46d0-8db0-8641121e7ae0"],
Cell[13565, 358, 1140, 30, 70, "Notes",ExpressionUUID->"59d711bd-b5f2-4f8b-99fb-d629ea091a24"]
}, Closed]],
Cell[14720, 391, 80, 0, 70, "PageDelimiter",ExpressionUUID->"373df2ac-9abf-4534-a9ac-6a78c95dc02f"],
Cell[CellGroupData[{
Cell[14825, 395, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"1b07a850-3a91-4f0a-8bc1-36121c4ccfd9",
 CellID->678384353],
Cell[16229, 434, 216, 4, 70, "Input",ExpressionUUID->"4f2d75c7-cf2e-4ac5-887b-50d4e97483be",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[16470, 442, 1235, 31, 70, "ExampleSection",ExpressionUUID->"2b04443a-3977-44bb-a3cb-f9f2b370a622",
 CellID->615138948],
Cell[17708, 475, 127, 2, 70, "ExampleText",ExpressionUUID->"e54b66bf-34e7-4308-8e3c-c76e2d3c2cc1",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[17860, 481, 242, 4, 70, "Input",ExpressionUUID->"4b72fbc8-f86c-4bb2-8e71-a9f39b2a0572"],
Cell[18105, 487, 5206, 106, 70, "Output",ExpressionUUID->"b26c66eb-367f-4fa8-91a9-fc26835a1d83"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23348, 598, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"4763a44a-4e46-4a23-bc16-140cc2fbf14f"],
Cell[23575, 605, 149, 2, 70, "ExampleText",ExpressionUUID->"3ad25b28-ce2a-4dcb-92ce-41d4f4ba5a54"],
Cell[CellGroupData[{
Cell[23749, 611, 379, 8, 70, "Input",ExpressionUUID->"8d489c60-507a-4353-9498-8df16c1b86d3"],
Cell[24131, 621, 166, 2, 70, "Output",ExpressionUUID->"3a97d7ef-67d8-4830-95e6-2e8cebadcdaa"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24346, 629, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"77433f99-d7c4-4b29-9a35-9c3893b42709"],
Cell[24573, 636, 156, 2, 70, "ExampleText",ExpressionUUID->"d157b33b-ced6-4959-88be-4954556b9f23"],
Cell[CellGroupData[{
Cell[24754, 642, 477, 12, 70, "Input",ExpressionUUID->"7e246173-4c95-49e2-b4d9-fe90352bf68a"],
Cell[25234, 656, 431, 8, 70, "Output",ExpressionUUID->"f61a2f80-9cc8-4d76-b05d-133292d63b4e"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25726, 671, 1227, 31, 70, "ExampleSection",ExpressionUUID->"31f07929-2155-486c-a39b-1c5f1c910f08",
 CellID->1293636265],
Cell[26956, 704, 129, 0, 70, "ExampleText",ExpressionUUID->"199811b0-69f0-4e4b-a711-63719704e0fa"],
Cell[CellGroupData[{
Cell[27110, 708, 463, 11, 70, "Input",ExpressionUUID->"6c4c4bce-d57b-4528-bdd1-9f435d71bc6f"],
Cell[27576, 721, 362, 7, 70, "Output",ExpressionUUID->"ed410ae4-8816-47a9-94fc-1e628f6ea2c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27975, 733, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"251ad186-fcc0-44da-9ec7-1214f4ca74df"],
Cell[28202, 740, 140, 1, 70, "ExampleText",ExpressionUUID->"988e2b0f-fe93-4896-9759-3b8cea30302a"],
Cell[CellGroupData[{
Cell[28367, 745, 315, 7, 70, "Input",ExpressionUUID->"fc000b13-79ba-4ac0-b3ba-731217dd83e7"],
Cell[28685, 754, 119, 1, 70, "Output",ExpressionUUID->"bee86d7e-ed9b-4d33-8770-1f63007a91a8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28853, 761, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f19b37bf-a3c4-44f0-b6ec-75d39e2e2a9a"],
Cell[29080, 768, 180, 3, 70, "ExampleText",ExpressionUUID->"4f361b9e-7f7f-42f3-9519-0c57fdaba80a"],
Cell[CellGroupData[{
Cell[29285, 775, 375, 9, 70, "Input",ExpressionUUID->"1d862e7e-bd9c-4c93-94ed-cc9e9d897354"],
Cell[29663, 786, 296, 6, 70, "Output",ExpressionUUID->"a55456f1-8e22-4b81-8186-e8cce5f02967"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[30008, 798, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e7769aff-45e8-46ac-a53c-e4e181852415"],
Cell[30235, 805, 186, 3, 70, "ExampleText",ExpressionUUID->"12c4f994-b7da-4cb0-8bff-51c8743dae4a"],
Cell[CellGroupData[{
Cell[30446, 812, 286, 6, 70, "Input",ExpressionUUID->"391a8894-fd81-46a0-935a-d0a193b641be"],
Cell[30735, 820, 118, 1, 70, "Output",ExpressionUUID->"1c907341-882b-4d1c-bfb7-51b3ed131efe"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[30914, 828, 1233, 31, 70, "ExampleSection",ExpressionUUID->"52eb89c6-e295-406b-9c39-ae5dbf57dc1c",
 CellID->258228157],
Cell[32150, 861, 173, 3, 70, "ExampleText",ExpressionUUID->"6807abf6-556d-473f-966e-c2fe743e12f6"],
Cell[CellGroupData[{
Cell[32348, 868, 736, 16, 70, "Input",ExpressionUUID->"7a18c8c7-b552-46cc-a133-0a1c01755d6e"],
Cell[33087, 886, 407, 9, 70, "Output",ExpressionUUID->"d99a08f5-c231-4c7d-831d-254305022a4e"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[33543, 901, 1244, 31, 70, "ExampleSection",ExpressionUUID->"58030931-90fa-4b46-b73d-d6a76aa51494",
 CellID->2123667759],
Cell[34790, 934, 562, 15, 70, "ExampleText",ExpressionUUID->"ff496d02-d5f1-4458-bce1-044cceeebadb"],
Cell[CellGroupData[{
Cell[35377, 953, 578, 15, 70, "Input",ExpressionUUID->"2e12712e-3265-47ed-bf41-b533df89fecc"],
Cell[35958, 970, 110, 1, 70, "Output",ExpressionUUID->"acb76971-cf6a-4df0-8492-3b5c0bf4f11e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36105, 976, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"a078903d-f6e2-4eed-a860-4973173ee987"],
Cell[36332, 983, 157, 2, 70, "ExampleText",ExpressionUUID->"66ff0d4d-eb04-479f-b3bf-579a8798a769"],
Cell[CellGroupData[{
Cell[36514, 989, 476, 12, 70, "Input",ExpressionUUID->"9ad97a80-f3b5-4890-9ea7-49f2085bc884"],
Cell[36993, 1003, 110, 1, 70, "Output",ExpressionUUID->"772b9a3b-802f-4fd7-813c-5fa209de1947"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[37164, 1011, 1237, 31, 70, "ExampleSection",ExpressionUUID->"bd734dbb-04e2-486c-a422-de0387a366b2",
 CellID->1305812373],
Cell[38404, 1044, 215, 3, 70, "ExampleText",ExpressionUUID->"3349a545-12bd-461e-800e-f247180a6ac9"],
Cell[CellGroupData[{
Cell[38644, 1051, 311, 7, 70, "Input",ExpressionUUID->"74e84878-239c-4bb8-b430-483575867f04"],
Cell[38958, 1060, 110, 1, 70, "Output",ExpressionUUID->"ab7fb7c5-6e87-4b25-97aa-3d1b792a1b8e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39105, 1066, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"4b96b920-3d16-435f-b4ef-8827bb874d39"],
Cell[39332, 1073, 207, 3, 70, "ExampleText",ExpressionUUID->"ca1bde5c-9c4a-46a5-a92a-75fd6acf8190"],
Cell[CellGroupData[{
Cell[39564, 1080, 281, 6, 70, "Input",ExpressionUUID->"1c8067b2-181f-4904-bf01-936be446e41b"],
Cell[39848, 1088, 110, 1, 70, "Output",ExpressionUUID->"bd73781a-1b07-4d6b-94f7-d7c29da244b3"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[40009, 1095, 3168, 82, 70, "SeeAlsoSection",ExpressionUUID->"74490287-1a14-4b46-b746-a9bf8612e66d"],
Cell[43180, 1179, 700, 19, 70, "MoreAboutSection",ExpressionUUID->"70e7695e-5601-473f-be7f-5653e77dc391"],
Cell[43883, 1200, 78, 0, 70, "FooterCell",ExpressionUUID->"6fbf9488-96dc-448f-a1e5-218350176ae7"]
}
]
*)

(* End of internal cache information *)

