(* 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[     59186,       1463]
NotebookOptionsPosition[     50670,       1304]
NotebookOutlinePosition[     52746,       1353]
CellTagsIndexPosition[     52668,       1348]
WindowTitle->BIP32ExtendedKey
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->
           "39f176c4-16db-4147-b480-9817b214f131"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "e3153e66-bd8c-4ad6-9a97-8dec5bf3a196"],
        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->
           "90b34435-7619-4f50-a207-21c4aa7ff6ae"]
         }],ExpressionUUID->"8f0300bc-e590-402e-bab5-0048f3b2ed24"],
         StripOnInput->False],{
        StyleBox[
          "\"BIP32ExtendedKeyString\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32ExtendedKeyString"], 
         StyleBox[
          "\"BIP32MasterKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32MasterKey"], 
         StyleBox[
          "\"BIP32DeriveKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey"], 
         StyleBox[
          "\"BIP32PublicKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32PublicKey"], 
         StyleBox[
          "\"Base58CheckDecode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58CheckDecode"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "c28ba45c-dfb2-40dc-a8ea-21b6ac922c76"],
     "\[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->
           "cfa4511c-89f7-458f-a0b2-03d2ffbe0b07"]
         }],ExpressionUUID->"4462cae4-a1e6-4de7-b87c-8ec57c97952a"],
         StripOnInput->False],{
        "\"Derivation\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Derivation"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "31da69aa-df3c-4a6e-bd53-f094110bf088"],
     "\[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->
           "c8fe90a3-780d-475e-b67b-1f45447ad646"]
         }],ExpressionUUID->"383fb728-4795-405b-995d-57dc3649c108"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BIP32ExtendedKey\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BIP32ExtendedKey"], 
         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/BIP32ExtendedKey.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/BIP32ExtendedKey" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "2c200774-f653-458f-b76a-ccfd7120c356"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "2ce7fbd3-c132-4e96-9974-2bf5feb10fa5"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"aa3ccc8d-63b2-48e7-b960-cb3efa2ce883"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"100117fd-de9c-41d4-aee3-7186c761afa4"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BIP32ExtendedKey", "ObjectName",ExpressionUUID->
      "92ac5e26-2c09-4ea6-a15e-8805e56430c1"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"43476397-74a1-473c-8c1e-f5bde85b10c8"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "c30406d6-2a55-41d1-ad9f-6783b44a7b0d"]
    }],ExpressionUUID->"d7fabead-f5df-4bcd-9399-74f3d80ead4d"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"4290bc4b-f3f0-48b5-8348-\
19b621840531"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BIP32ExtendedKey"]], 
         "paclet:WolframInstitute/Puzzles/ref/BIP32ExtendedKey", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["string", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "803bbd95-1257-43de-9024-a8448459b887"],
     "\[LineSeparator]",
     "gives the BIP32 extended key that a Base58Check extended-key ",
     StyleBox["string", "TI"],
     " encodes, as an Association."
    }],ExpressionUUID->"92920d80-c0d7-4c34-9bf8-87d9d81ccd41"]}
  }]], "Usage",ExpressionUUID->"7ea8a6f7-c2c6-4642-8f02-c1c4d625980c"]
}, 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->"396c6e35-1818-41f6-bfef-53b7fdec7c09"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"ea4b5b0d-3926-4bdd-8e45-5142c2b682f5"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "b5975588-b6ca-4e1d-8765-40361a502787"]],ExpressionUUID->"6e0e26a9-dd31-\
4bae-930d-e7b906626193"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1991071838,ExpressionUUID->"2fd63bff-6a13-430b-937c-eb363747f1bd"],

Cell[TextData[{
 "The string is an ",
 Cell[BoxData["xprv"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9a0ae846-459b-4831-868d-6a7361a56da4"],
 ", ",
 Cell[BoxData["xpub"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "750db566-4857-4b7f-9f28-7fa6acab1a46"],
 ", ",
 Cell[BoxData["yprv"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5024215a-838b-45c7-8399-d3bd13056fd3"],
 ", ",
 Cell[BoxData["ypub"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cc64602e-90d7-484e-b06f-3aa4c1dd45a1"],
 ", ",
 Cell[BoxData["zprv"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "fcf41763-b6da-40d1-b302-febaa5c46906"],
 ", ",
 Cell[BoxData["zpub"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1380dd66-f8f1-4890-af62-9980b4da8c85"],
 ", ",
 Cell[BoxData["tprv"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "98b7811d-c9e6-47bc-85d6-b5db356d891a"],
 ", ",
 Cell[BoxData["tpub"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b9b0c471-8116-4437-ad34-b3914a750bc2"],
 ", ",
 Cell[BoxData["uprv"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "753708ad-8aaa-4e0c-bb37-c5828b0ba041"],
 ", ",
 Cell[BoxData["upub"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6cdc65f8-7671-4fca-be78-1c17f6720ed7"],
 ", ",
 Cell[BoxData["vprv"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "14eb0f5c-347e-401b-ab69-8dd6f6ed69f7"],
 " or ",
 Cell[BoxData["vpub"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6b1dce38-1333-409f-9b37-0868051ba6eb"],
 ", the registered versions of BIP32 and SLIP-132."
}], "Notes",ExpressionUUID->"3e7fc9f1-b492-49f6-a2c4-df00dcccc507"],

Cell["\<\
The 78 decoded bytes are the version, the depth, the parent fingerprint, the \
child number, the chain code and the key data.\
\>", "Notes",ExpressionUUID->"bbd7156f-13a6-46e3-8e9d-541054343f67"],

Cell[TextData[{
 "The result has the same keys as ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP32MasterKey"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP32MasterKey", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3cd54438-4009-4b93-b8c7-7ba5d2658997"],
 ", and ",
 Cell[BoxData["\<\"Version\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0bdda902-0ca4-41e4-91a8-42d993943fd7"],
 " records which version the string carried, so re-serialising is exact."
}], "Notes",ExpressionUUID->"6a79877d-6cdb-4225-a079-c82884c9d713"],

Cell[TextData[{
 "A string that is not valid gives a Failure. The rejected cases are the \
BIP32 test vector 5 list: a bad Base58Check checksum, a length other than 78 \
bytes, an unknown version, a private key not prefixed with a zero byte, a \
private key outside ",
 Cell[BoxData["1"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b676b07b-6275-4965-a816-d6c1560fa0f1"],
 " to ",
 Cell[BoxData[
  RowBox[{
   StyleBox["n", "TI"], "-", "1"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3c0af91e-ac0d-4118-b02c-3102c2d794d2"],
 ", a public key with an invalid prefix or not on the curve, and a depth of \
zero carrying a non-zero parent fingerprint or child number."
}], "Notes",ExpressionUUID->"00511de2-cc26-41be-a7fa-7dc321a025ce"],

Cell["The network is read from the version, not from the key data.", "Notes",ExpressionUUID->"4bf4b4d0-a4c7-4209-8799-d9e03dc44eb9"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"c69fb6df-db60-44d5-ac4e-2610e04eb83e"],

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->"d6f01c53-eb19-4fbd-a114-8ac2553d3e3d"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b44e81ae-d77e-4a15-b505-4db2a9422808"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(10)", "ExampleCount",ExpressionUUID->
  "ab2d3411-19d9-4a21-aa94-b76788e6bd5e"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1854193712,ExpressionUUID->"25bb06d8-3576-404f-a4f0-7052c90fb8ce"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"f5fdfc93-9cb2-40eb-ba11-2d6db2c6a9a5"],

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->
  "21d02295-baf7-4c8e-8fcd-7e983b32038b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a6bc9155-0af8-48e2-acfb-27d67958a2af"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "1c7dbeff-2c23-40b1-a883-7e116fe5349b"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1298515967,ExpressionUUID->"29763d1a-5429-47c4-9cbb-dbc2873b6ebd"],

Cell["\<\
The BIP32 test vector 1 master key, parsed from its published xprv string:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"5fbc5901-02e6-42ce-b83c-e92677160fcf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKey", 
  "[", "\"\<\
xprv9s21ZrQH143K3QTDL4LXw2F7HEK3wJUD2nW2nRk4stbPy6cq3jPPqjiChkVvvNKmPGJxWUtg6L\
nF5kejMRNNU3TGtRBeJgk33yuGBxrMPHi\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7e2c41cc-ac6f-4e3b-9253-2e18533ebe5a"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Type\"\>", "\[Rule]", "\<\"Private\"\>"}], ",", 
   RowBox[{"\<\"Network\"\>", "\[Rule]", "\<\"Mainnet\"\>"}], ",", 
   RowBox[{"\<\"Depth\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"ParentFingerprint\"\>", "\[Rule]", 
    InterpretationBox[
     RowBox[{
      TagBox["ByteArray",
       "SummaryHead"], "[", 
      DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
       "Ready"}, 
       TemplateBox[{
         PaneSelectorBox[{False -> GridBox[{{
               GridBox[{{
                  TagBox["\"4 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["\"4 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[{0, 0, 0, 0}],
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}], ",", 
   RowBox[{"\<\"ChildNumber\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"ChainCode\"\>", "\[Rule]", 
    InterpretationBox[
     RowBox[{
      TagBox["ByteArray",
       "SummaryHead"], "[", 
      DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
       "Ready"}, 
       TemplateBox[{
         PaneSelectorBox[{False -> GridBox[{{
               GridBox[{{
                  TagBox["\"32 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["\"32 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[{135, 61, 255, 129, 192, 47, 82, 86, 35, 253, 31, 229, 22, 126,
       172, 58, 85, 160, 73, 222, 61, 49, 75, 180, 46, 226, 39, 255, 237, 55, 
      213, 8}],
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}], ",", 
   RowBox[{"\<\"Key\"\>", "\[Rule]", 
    InterpretationBox[
     RowBox[{
      TagBox["ByteArray",
       "SummaryHead"], "[", 
      DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
       "Ready"}, 
       TemplateBox[{
         PaneSelectorBox[{False -> GridBox[{{
               GridBox[{{
                  TagBox["\"32 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["\"32 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[{232, 243, 46, 114, 61, 236, 244, 5, 26, 239, 172, 142, 44, 
      147, 201, 197, 178, 20, 49, 56, 23, 205, 176, 26, 20, 148, 185, 23, 200,
       67, 107, 53}],
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}], ",", 
   RowBox[{"\<\"Version\"\>", "\[Rule]", 
    InterpretationBox[
     RowBox[{
      TagBox["ByteArray",
       "SummaryHead"], "[", 
      DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
       "Ready"}, 
       TemplateBox[{
         PaneSelectorBox[{False -> GridBox[{{
               GridBox[{{
                  TagBox["\"4 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["\"4 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[{4, 136, 173, 228}],
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}]}], "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"14702675-116a-4208-bd3f-6763de8829a8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "eac48791-aa83-4198-9720-96ce2a4861f4"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"1fbc7481-ccc7-461c-\
b2a2-b2844f0b5c55"],

Cell["The parsed key is exactly the derived one:", "ExampleText",ExpressionUUID->"83704dca-6893-4fdc-979a-a56036913f32"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "BIP32ExtendedKey", 
   "[", "\"\<\
xprv9s21ZrQH143K3QTDL4LXw2F7HEK3wJUD2nW2nRk4stbPy6cq3jPPqjiChkVvvNKmPGJxWUtg6L\
nF5kejMRNNU3TGtRBeJgk33yuGBxrMPHi\>\"", "]"}], " ", "===", " ", 
  RowBox[{
  "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d4e892b8-196b-4390-8103-e520d57b3e59"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"17501793-8f45-4428-b743-80cfab347fb0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "07829f91-145e-4ece-b872-2436a2520372"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2428746c-048b-4577-\
a29b-4148eb4241d5"],

Cell["A zpub parses to a public key on mainnet:", "ExampleText",ExpressionUUID->"3414e2eb-94fc-4424-895f-e5d928eed35b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyTake", "[", 
  RowBox[{
   RowBox[{
   "BIP32ExtendedKey", 
    "[", "\"\<\
zpub6jftahH18ngZxLmXaKw3GSZzZsszmt9WqedkyZdezFtWRFBZqsQH5hyUmb4pCEeZGmVfQuP5be\
dXTB8is6fTv19U1GQRyQUKQGUTzyHACMF\>\"", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Type\>\"", ",", " ", "\"\<Network\>\"", ",", 
     " ", "\"\<Depth\>\""}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f01c1710-6718-48cc-87b0-52f12f3f6d33"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Type\"\>", "\[Rule]", "\<\"Public\"\>"}], ",", 
   RowBox[{"\<\"Network\"\>", "\[Rule]", "\<\"Mainnet\"\>"}], ",", 
   RowBox[{"\<\"Depth\"\>", "\[Rule]", "0"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"24ba1fd8-5270-47a8-b3ac-bedb34c2c538"]
}, 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->
  "3a21e11c-138d-450a-a8cb-acc78f1b0a89"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ad0e8df8-96a7-4064-be8b-08982020a7d1"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "f1cff031-cf92-4a64-9f2f-c97e98d9bdb1"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"b999cc11-80b6-403c-b369-bd8717df4730"],

Cell["\<\
The BIP49 testnet master key, whose uprv version marks both the network and \
the intended address form:\
\>", "ExampleText",ExpressionUUID->"8abc2e71-80cd-43c4-bc82-5458db23c6b9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KeyTake", "[", 
  RowBox[{
   RowBox[{
   "BIP32ExtendedKey", 
    "[", "\"\<\
uprv8tXDerPXZ1QsVNjUJWTurs9kA1KGfKUAts74GCkcXtU8GwnH33GDRbNJpEqTvipfCyycARtQJh\
mdfWf8oKt41X9LL1zeD2pLsWmxEk3VAwd\>\"", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Type\>\"", ",", " ", "\"\<Network\>\""}], "}"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c742b7f1-ca33-4f3c-ae80-893745ea5bb4"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Type\"\>", "\[Rule]", "\<\"Private\"\>"}], ",", 
   RowBox[{"\<\"Network\"\>", "\[Rule]", "\<\"Testnet\"\>"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"817a6bd8-f98b-42e1-973c-a7fb26651b20"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2d780038-d6d7-4e5f-b30b-590a1e262b07"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d9152ea2-a4b9-4b4f-\
b6e8-b98526be3dc0"],

Cell["\<\
A parsed key can be derived from directly, which is how a watch-only xpub is \
used:\
\>", "ExampleText",ExpressionUUID->"919eafe1-045a-4964-b289-e6effd0427f7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitcoinAddress", "[", 
  RowBox[{
   RowBox[{"BIP32DeriveKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32ExtendedKey", 
      "[", "\"\<\
zpub6rFR7y4Q2AijBEqTUquhVz398htDFrtymD9xYYfG1m4wAcvPhXNfE3EfH1r1ADqtfSdVCToUG8\
68RvUUkgDKf31mGDtKsAYz2oz2AGutZYs\>\"", "]"}], ",", " ", "\"\<m/0/0\>\""}], 
    "]"}], ",", " ", "\"\<P2WPKH\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"db002e0e-4122-4b9c-88dd-4f405f361da5"],

Cell[BoxData["\<\"bc1qcr8te4kr609gcawutmrza0j4xv80jy8z306fyu\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"cfc37ceb-6c24-44e2-9b45-97d6c8bdb75d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "783813b2-77ab-4ba4-82a6-6dec7cd034f3"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"bcb4f7c2-a33e-4544-\
a353-c8aa784cd91d"],

Cell["\<\
A corrupted final character fails the Base58Check checksum, and the failure \
names the reason:\
\>", "ExampleText",ExpressionUUID->"451bf9ba-1cea-4c1f-90ad-d3ab7f70a1e5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKey", 
  "[", "\"\<\
xprv9s21ZrQH143K3QTDL4LXw2F7HEK3wJUD2nW2nRk4stbPy6cq3jPPqjiChkVvvNKmPGJxWUtg6L\
nF5kejMRNNU3TGtRBeJgk33yuGBxrMPHL\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"199b2181-5f28-4fe1-8a31-ccaaf742292d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["Failure",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            FrameBox[
             StyleBox["\"\[WarningSign]\"", 
              Directive["Message", 35], StripOnInput -> False], 
             ContentPadding -> False, FrameStyle -> None, 
             FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
            GridBox[{{
               TagBox[
                GridBox[{{
                   TagBox["\"Message: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                   "\"The extended key \
\\!\\(\\*TagBox[\\\"\\\\\\\"\
xprv9s21ZrQH143K3QTDL4LXw2F7HEK3wJUD2nW2nRk4stbPy6cq3jPPqjiChkVvvNKmPGJxWUtg6L\
nF5kejMRNNU3TGtRBeJgk33yuGBxrMPHL\\\\\\\"\\\", Function[Short[Slot[1], \
3]]]\\) \\!\\(\\*TagBox[\\\"\\\\\\\"is not a valid Base58Check string\\\\\\\"\
\\\", Function[Short[Slot[1], 3]]]\\).\"", "SummaryItem"]}}, 
                 GridBoxItemSize -> {"Columns" -> {6.5, All, Automatic}}, 
                 GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                 GridBoxSpacings -> {"Columns" -> {{0}}}], "SummaryItem"]}, {
               TagBox[
                GridBox[{{
                   TagBox["\"Tag: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"BIP32ExtendedKey\"", "SummaryItem"]}}, 
                 GridBoxItemSize -> {"Columns" -> {6.5, All, Automatic}}, 
                 GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                 GridBoxSpacings -> {"Columns" -> {{0}}}], "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[{{
            FrameBox[
             StyleBox["\"\[WarningSign]\"", 
              Directive["Message", 35], StripOnInput -> False], 
             ContentPadding -> False, FrameStyle -> None, 
             FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
            GridBox[{{
               TagBox[
                GridBox[{{
                   TagBox["\"Message: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                   "\"The extended key \
\\!\\(\\*TagBox[\\\"\\\\\\\"\
xprv9s21ZrQH143K3QTDL4LXw2F7HEK3wJUD2nW2nRk4stbPy6cq3jPPqjiChkVvvNKmPGJxWUtg6L\
nF5kejMRNNU3TGtRBeJgk33yuGBxrMPHL\\\\\\\"\\\", Function[Short[Slot[1], \
3]]]\\) \\!\\(\\*TagBox[\\\"\\\\\\\"is not a valid Base58Check string\\\\\\\"\
\\\", Function[Short[Slot[1], 3]]]\\).\"", "SummaryItem"]}}, 
                 GridBoxItemSize -> {"Columns" -> {6.5, All, Automatic}}, 
                 GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                 GridBoxSpacings -> {"Columns" -> {{0}}}], "SummaryItem"]}, {
               TagBox[
                GridBox[{{
                   TagBox["\"Tag: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"BIP32ExtendedKey\"", "SummaryItem"]}}, 
                 GridBoxItemSize -> {"Columns" -> {6.5, All, Automatic}}, 
                 GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                 GridBoxSpacings -> {"Columns" -> {{0}}}], "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:>{}], "]"}],
  Failure[
  "BIP32ExtendedKey", <|
   "MessageTemplate" -> "The extended key `1` `2`.", 
    "MessageParameters" -> {
     "xprv9s21ZrQH143K3QTDL4LXw2F7HEK3wJUD2nW2nRk4stbPy6cq3jPPqjiChkVvvNKmPGJx\
WUtg6LnF5kejMRNNU3TGtRBeJgk33yuGBxrMPHL", 
      "is not a valid Base58Check string"}|>],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6482bcb4-3790-49e3-8a8e-1313330a07ba"]
}, 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->
  "2841a2a4-ece7-4da3-a7c2-6acdce02ca18"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"227d6ca0-f189-4744-bd1f-841c305d6875"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "7c09b9e9-e3a4-4ddc-bb5b-6168e9080168"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"42c6e34f-6a17-44e3-a2e9-7ae9d1d2de50"],

Cell["\<\
Reading which network and key type a string carries, without deriving \
anything:\
\>", "ExampleText",ExpressionUUID->"d595437c-f03c-409e-a0ff-4968bb514d10"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AssociationMap", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"BIP32ExtendedKey", "[", "#", "]"}], "[", "\"\<Network\>\"", 
     "]"}], " ", "&"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<\
xpub661MyMwAqRbcFtXgS5sYJABqqG9YLmC4Q1Rdap9gSE8NqtwybGhePY2gZ29ESFjqJoCu1Rupje\
8YtGqsefD265TMg7usUDFdp6W1EGMcet8\>\"", ",", 
     " ", "\"\<\
uprv8tXDerPXZ1QsVNjUJWTurs9kA1KGfKUAts74GCkcXtU8GwnH33GDRbNJpEqTvipfCyycARtQJh\
mdfWf8oKt41X9LL1zeD2pLsWmxEk3VAwd\>\""}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c9965bcd-bc54-4ea2-a341-70c0013e0ca3"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"\
xpub661MyMwAqRbcFtXgS5sYJABqqG9YLmC4Q1Rdap9gSE8NqtwybGhePY2gZ29ESFjqJoCu1Rupje\
8YtGqsefD265TMg7usUDFdp6W1EGMcet8\"\>", "\[Rule]", "\<\"Mainnet\"\>"}], ",", 
   RowBox[{"\<\"\
uprv8tXDerPXZ1QsVNjUJWTurs9kA1KGfKUAts74GCkcXtU8GwnH33GDRbNJpEqTvipfCyycARtQJh\
mdfWf8oKt41X9LL1zeD2pLsWmxEk3VAwd\"\>", "\[Rule]", "\<\"Testnet\"\>"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"42845bf2-086f-43e1-8ae6-441c0bd2e522"]
}, 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->
  "614568a8-4989-40dc-8c2f-75f50638e743"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"2e3452ba-9db9-4d2d-9e4a-11f7e0d45d59"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "34feca78-d751-44b7-8ddd-b4cc8a65ee2b"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"6b57462e-22e9-4384-91bf-eb94858e0d44"],

Cell["Parsing and serialising are inverse:", "ExampleText",ExpressionUUID->"f62d376f-09ac-4b1a-af3b-d4bb632004c9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{
  "BIP32ExtendedKey", 
   "[", "\"\<\
zpub6jftahH18ngZxLmXaKw3GSZzZsszmt9WqedkyZdezFtWRFBZqsQH5hyUmb4pCEeZGmVfQuP5be\
dXTB8is6fTv19U1GQRyQUKQGUTzyHACMF\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"89a9e37c-365f-4ad1-810b-53e520313250"],

Cell[BoxData["\<\"\
zpub6jftahH18ngZxLmXaKw3GSZzZsszmt9WqedkyZdezFtWRFBZqsQH5hyUmb4pCEeZGmVfQuP5be\
dXTB8is6fTv19U1GQRyQUKQGUTzyHACMF\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"38a5ce60-af15-49df-abbd-317bd4b8cee0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "1af79591-ca8b-4fb2-8beb-703e4eee7da2"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"cd7118ab-bdc9-4a0d-\
ad79-1467f7c7d2cb"],

Cell["Every string of BIP32 test vector 5 is rejected:", "ExampleText",ExpressionUUID->"95c0c536-42c1-4729-8030-a7d0d6046a95"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AllTrue", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\"\<\
xpub661MyMwAqRbcEYS8w7XLSVeEsBXy79zSzH1J8vCdxAZningWLdN3zgtU6LBpB85b3D2yc8sfvZ\
U521AAwdZafEz7mnzBBsz4wKY5fTtTQBm\>\"", ",", 
     " ", "\"\<\
xprv9s21ZrQH143K24Mfq5zL5MhWK9hUhhGbd45hLXo2Pq2oqzMMo63oStZzFGpWnsj83BHtEy5Zt8\
CcDr1UiRXuWCmTQLxEK9vbz5gPstX92JQ\>\"", ",", 
     " ", "\"\<\
xprv9s21ZrQH143K24Mfq5zL5MhWK9hUhhGbd45hLXo2Pq2oqzMMo63oStZzF93Y5wvzdUayhgkkFo\
icQZcP3y52uPPxFnfoLZB21Teqt1VvEHx\>\"", ",", 
     " ", "\"\<\
DMwo58pR1QLEFihHiXPVykYB6fJmsTeHvyTp7hRThAtCX8CvYzgPcn8XnmdfHGMQzT7ayAmfo4z3gY\
5KfbrZWZ6St24UVf2Qgo6oujFktLHdHY4\>\""}], "}"}], ",", " ", 
   RowBox[{
    RowBox[{"FailureQ", "[", 
     RowBox[{"BIP32ExtendedKey", "[", "#", "]"}], "]"}], " ", "&"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2f491049-6692-43da-be13-0d3a429f043e"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"191b93a5-e59a-4bf9-8c46-7d46dedfade7"]
}, 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->
  "b5509154-8c5d-4d88-a6d6-501f0d564809"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"fcb6aae4-3997-4f80-9e45-23e2b870a4f6"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "8ed882b1-5304-4057-a825-ce465820af27"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"1e4e56e2-73af-4878-b149-ea7e3d39b56a"],

Cell["\<\
A depth-zero key with a non-zero parent fingerprint is rejected even though \
its checksum is valid, since no derivation could have produced it:\
\>", "ExampleText",ExpressionUUID->"06c48ac2-685d-41d5-926d-fab5a2654606"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{
  "BIP32ExtendedKey", 
   "[", "\"\<\
xprv9s2SPatNQ9Vc6GTbVMFPFo7jsaZySyzk7L8n2uqKXJen3KUmvQNTuLh3fhZMBoG3G4ZW1N2kZu\
HEPY53qmbZzCHshoQnNf4GvELZfqTUrcv\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"75b020fa-7e04-4184-b020-0290e5eba96a"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"666bff7d-15a0-4544-a7cb-41b5a328ffbb"]
}, 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["BIP32ExtendedKeyString"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32ExtendedKeyString", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c4bb5bdc-ce57-451c-9907-1b061f2535af"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32MasterKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32MasterKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "eb120988-bf78-4f87-ac1b-0559186a4ade"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32DeriveKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "edb3bc19-baff-4cc9-9770-7ce1fafc6d96"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32PublicKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32PublicKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "083c89ee-197d-4f96-a0ca-e9c5e77d2e2b"],
        "\[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->
         "aefb2d2a-e6b1-450e-8243-9d129db00a8b"]
       }], "SeeAlso",ExpressionUUID->"a4a7cdbf-4383-4a6b-841a-a2f6b29c665c"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"a69bfbc6-1669-4499-a864-\
463d80bc2e17"],

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->
         "12c98a04-2b64-4727-b215-119840b63e03"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"db2d1a71-d731-4d18-89c1-\
62e8d89138b6"],

Cell[" ", "FooterCell",ExpressionUUID->"ba0dd11b-20b3-4c33-87ae-0403cab3cdc6"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BIP32ExtendedKey",
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, 13.866232}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BIP32ExtendedKey, paclet : \
WolframInstitute/Puzzles/ref/BIP32ExtendedKey, WolframInstitute/Puzzles \
Package Symbol][string] gives the BIP32 extended key that a Base58Check \
extended-key string encodes, as an Association.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "BIP32ExtendedKey", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "BIP32ExtendedKey", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/BIP32ExtendedKey", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"cc310722-2e38-4806-bb0a-f803b8cc145a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[16529, 444, 192, 4, 70, "ExampleText",ExpressionUUID->"5fbc5901-02e6-42ce-b83c-e92677160fcf",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 52511, 1342}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[584, 21, 5852, 143, 70, "AnchorBarGrid",ExpressionUUID->"aa3ccc8d-63b2-48e7-b960-cb3efa2ce883",
 CellID->1],
Cell[6439, 166, 107, 0, 70, "ContextNameCell",ExpressionUUID->"100117fd-de9c-41d4-aee3-7186c761afa4"],
Cell[CellGroupData[{
Cell[6571, 170, 559, 14, 70, "ObjectNameGrid",ExpressionUUID->"4290bc4b-f3f0-48b5-8348-19b621840531"],
Cell[7133, 186, 829, 20, 70, "Usage",ExpressionUUID->"7ea8a6f7-c2c6-4642-8f02-c1c4d625980c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7999, 211, 1444, 34, 70, "NotesSection",ExpressionUUID->"2fd63bff-6a13-430b-937c-eb363747f1bd",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1991071838],
Cell[9446, 247, 2144, 62, 70, "Notes",ExpressionUUID->"3e7fc9f1-b492-49f6-a2c4-df00dcccc507"],
Cell[11593, 311, 205, 3, 70, "Notes",ExpressionUUID->"bbd7156f-13a6-46e3-8e9d-541054343f67"],
Cell[11801, 316, 745, 19, 70, "Notes",ExpressionUUID->"6a79877d-6cdb-4225-a079-c82884c9d713"],
Cell[12549, 337, 840, 18, 70, "Notes",ExpressionUUID->"00511de2-cc26-41be-a7fa-7dc321a025ce"],
Cell[13392, 357, 132, 0, 70, "Notes",ExpressionUUID->"4bf4b4d0-a4c7-4209-8799-d9e03dc44eb9"]
}, Closed]],
Cell[13539, 360, 80, 0, 70, "PageDelimiter",ExpressionUUID->"c69fb6df-db60-44d5-ac4e-2610e04eb83e"],
Cell[CellGroupData[{
Cell[13644, 364, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"25bb06d8-3576-404f-a4f0-7052c90fb8ce",
 CellID->1854193712],
Cell[15049, 403, 216, 4, 70, "Input",ExpressionUUID->"f5fdfc93-9cb2-40eb-ba11-2d6db2c6a9a5",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[15290, 411, 1236, 31, 70, "ExampleSection",ExpressionUUID->"29763d1a-5429-47c4-9cbb-dbc2873b6ebd",
 CellID->1298515967],
Cell[16529, 444, 192, 4, 70, "ExampleText",ExpressionUUID->"5fbc5901-02e6-42ce-b83c-e92677160fcf",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[16746, 452, 321, 6, 70, "Input",ExpressionUUID->"7e2c41cc-ac6f-4e3b-9253-2e18533ebe5a"],
Cell[17070, 460, 9751, 203, 70, "Output",ExpressionUUID->"14702675-116a-4208-bd3f-6763de8829a8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26858, 668, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"1fbc7481-ccc7-461c-b2a2-b2844f0b5c55"],
Cell[27085, 675, 120, 0, 70, "ExampleText",ExpressionUUID->"83704dca-6893-4fdc-979a-a56036913f32"],
Cell[CellGroupData[{
Cell[27230, 679, 447, 11, 70, "Input",ExpressionUUID->"d4e892b8-196b-4390-8103-e520d57b3e59"],
Cell[27680, 692, 110, 1, 70, "Output",ExpressionUUID->"17501793-8f45-4428-b743-80cfab347fb0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27839, 699, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2428746c-048b-4577-a29b-4148eb4241d5"],
Cell[28066, 706, 119, 0, 70, "ExampleText",ExpressionUUID->"3414e2eb-94fc-4424-895f-e5d928eed35b"],
Cell[CellGroupData[{
Cell[28210, 710, 502, 12, 70, "Input",ExpressionUUID->"f01c1710-6718-48cc-87b0-52f12f3f6d33"],
Cell[28715, 724, 354, 7, 70, "Output",ExpressionUUID->"24ba1fd8-5270-47a8-b3ac-bedb34c2c538"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29130, 738, 1227, 31, 70, "ExampleSection",ExpressionUUID->"b999cc11-80b6-403c-b369-bd8717df4730",
 CellID->1293636265],
Cell[30360, 771, 190, 3, 70, "ExampleText",ExpressionUUID->"8abc2e71-80cd-43c4-bc82-5458db23c6b9"],
Cell[CellGroupData[{
Cell[30575, 778, 472, 12, 70, "Input",ExpressionUUID->"c742b7f1-ca33-4f3c-ae80-893745ea5bb4"],
Cell[31050, 792, 303, 6, 70, "Output",ExpressionUUID->"817a6bd8-f98b-42e1-973c-a7fb26651b20"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31390, 803, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d9152ea2-a4b9-4b4f-b6e8-b98526be3dc0"],
Cell[31617, 810, 170, 3, 70, "ExampleText",ExpressionUUID->"919eafe1-045a-4964-b289-e6effd0427f7"],
Cell[CellGroupData[{
Cell[31812, 817, 505, 12, 70, "Input",ExpressionUUID->"db002e0e-4122-4b9c-88dd-4f405f361da5"],
Cell[32320, 831, 156, 1, 70, "Output",ExpressionUUID->"cfc37ceb-6c24-44e2-9b45-97d6c8bdb75d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32525, 838, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"bcb4f7c2-a33e-4544-a353-c8aa784cd91d"],
Cell[32752, 845, 181, 3, 70, "ExampleText",ExpressionUUID->"451bf9ba-1cea-4c1f-90ad-d3ab7f70a1e5"],
Cell[CellGroupData[{
Cell[32958, 852, 321, 6, 70, "Input",ExpressionUUID->"199b2181-5f28-4fe1-8a31-ccaaf742292d"],
Cell[33282, 860, 5236, 104, 70, "Output",ExpressionUUID->"6482bcb4-3790-49e3-8a8e-1313330a07ba"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[38579, 971, 1233, 31, 70, "ExampleSection",ExpressionUUID->"42c6e34f-6a17-44e3-a2e9-7ae9d1d2de50",
 CellID->258228157],
Cell[39815, 1004, 167, 3, 70, "ExampleText",ExpressionUUID->"d595437c-f03c-409e-a0ff-4968bb514d10"],
Cell[CellGroupData[{
Cell[40007, 1011, 646, 15, 70, "Input",ExpressionUUID->"c9965bcd-bc54-4ea2-a341-70c0013e0ca3"],
Cell[40656, 1028, 522, 10, 70, "Output",ExpressionUUID->"42845bf2-086f-43e1-8ae6-441c0bd2e522"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[41227, 1044, 1244, 31, 70, "ExampleSection",ExpressionUUID->"6b57462e-22e9-4384-91bf-eb94858e0d44",
 CellID->2123667759],
Cell[42474, 1077, 114, 0, 70, "ExampleText",ExpressionUUID->"f62d376f-09ac-4b1a-af3b-d4bb632004c9"],
Cell[CellGroupData[{
Cell[42613, 1081, 374, 8, 70, "Input",ExpressionUUID->"89a9e37c-365f-4ad1-810b-53e520313250"],
Cell[42990, 1091, 229, 3, 70, "Output",ExpressionUUID->"38a5ce60-af15-49df-abbd-317bd4b8cee0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43256, 1099, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"cd7118ab-bdc9-4a0d-ad79-1467f7c7d2cb"],
Cell[43483, 1106, 126, 0, 70, "ExampleText",ExpressionUUID->"95c0c536-42c1-4729-8030-a7d0d6046a95"],
Cell[CellGroupData[{
Cell[43634, 1110, 915, 21, 70, "Input",ExpressionUUID->"2f491049-6692-43da-be13-0d3a429f043e"],
Cell[44552, 1133, 110, 1, 70, "Output",ExpressionUUID->"191b93a5-e59a-4bf9-8c46-7d46dedfade7"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[44723, 1141, 1237, 31, 70, "ExampleSection",ExpressionUUID->"1e4e56e2-73af-4878-b149-ea7e3d39b56a",
 CellID->1305812373],
Cell[45963, 1174, 230, 3, 70, "ExampleText",ExpressionUUID->"06c48ac2-685d-41d5-926d-fab5a2654606"],
Cell[CellGroupData[{
Cell[46218, 1181, 360, 8, 70, "Input",ExpressionUUID->"75b020fa-7e04-4184-b020-0290e5eba96a"],
Cell[46581, 1191, 110, 1, 70, "Output",ExpressionUUID->"666bff7d-15a0-4544-a7cb-41b5a328ffbb"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[46730, 1197, 3152, 82, 70, "SeeAlsoSection",ExpressionUUID->"a69bfbc6-1669-4499-a864-463d80bc2e17"],
Cell[49885, 1281, 700, 19, 70, "MoreAboutSection",ExpressionUUID->"db2d1a71-d731-4d18-89c1-62e8d89138b6"],
Cell[50588, 1302, 78, 0, 70, "FooterCell",ExpressionUUID->"ba0dd11b-20b3-4c33-87ae-0403cab3cdc6"]
}
]
*)

(* End of internal cache information *)

