(* 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[     45221,       1198]
NotebookOptionsPosition[     35709,       1021]
NotebookOutlinePosition[     37794,       1071]
CellTagsIndexPosition[     37716,       1066]
WindowTitle->BIP32Path
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->
           "06e3d78b-91f4-446e-a1d1-336e2e064e44"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "bfa2da97-4e7d-4f25-a1a7-59074613af7d"],
        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->
           "b20ae4e0-7398-43bb-a5ee-bfc56427143e"]
         }],ExpressionUUID->"b010471d-1572-4377-bf2d-b55c175552fd"],
         StripOnInput->False],{
        StyleBox[
          "\"BIP32PathString\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32PathString"], 
         StyleBox[
          "\"BIP32StandardPath\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32StandardPath"], 
         StyleBox[
          "\"BIP32PathAddressForm\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32PathAddressForm"], 
         StyleBox[
          "\"BIP32DeriveKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey"], 
         StyleBox[
          "\"BIP32ChildKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32ChildKey"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "12066d04-ece8-4fc0-a961-908a05c1ff77"],
     "\[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->
           "334deb16-a302-459d-a122-d0b7cbce224a"]
         }],ExpressionUUID->"18efbd48-4cf3-4eb6-8ca7-aad96fa40960"],
         StripOnInput->False],{
        "\"Derivation\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Derivation"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "abc7731e-5cbd-49b7-8d47-c3a47ce31c28"],
     "\[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->
           "6f9f99eb-ab74-4ad0-a91e-0270d0375777"]
         }],ExpressionUUID->"eb12002f-e924-4a90-8b1a-5a87bc125c9b"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BIP32Path\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BIP32Path"], 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/BIP32Path.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/BIP32Path" <> ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "ad6029fd-ddaa-4611-a704-0a9aec006cc2"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "22351c96-70c8-473b-a6f6-fbc634e2eea3"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"1eac3330-3ef8-4651-a15b-20f03073e19f"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"f246a99f-0ff4-4ac8-9132-d256f1d4d987"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BIP32Path", "ObjectName",ExpressionUUID->
      "1fd30edd-3727-4bbd-a51f-e27cf92a651f"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"cb00fbe4-e170-4005-93b8-8617cefb3632"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "4fce6b53-7d6a-47d2-9bb2-cc827950f3ac"]
    }],ExpressionUUID->"4c3ab27b-6cb7-466c-baab-282fe0311f19"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"8e2698b2-4741-47c3-8600-\
2607c6be96ce"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"BIP32Path", "[", "\"\<m/84h/0h/0h/0/0\>\"", "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "29780674-bc8f-456e-a345-44c209f6ce16"],
     "\[LineSeparator]",
     "gives the list of child indices a derivation-path string denotes."
    }],ExpressionUUID->"a4f8718d-89c8-4eed-80ab-080cea6a41c3"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BIP32Path"]], 
         "paclet:WolframInstitute/Puzzles/ref/BIP32Path", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox[
          StyleBox["i", "TI"], 
          StyleBox["1", "TR"]], ",", " ", 
         SubscriptBox[
          StyleBox["i", "TI"], 
          StyleBox["2", "TR"]], ",", " ", "\[Ellipsis]"}], "}"}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "8762ce01-4168-4208-bb43-ee0c8c838015"],
     "\[LineSeparator]",
     "gives a list of child indices back unchanged."
    }],ExpressionUUID->"12ba7036-5048-49c1-a8b9-c5ee9923d355"]}
  }]], "Usage",ExpressionUUID->"3c6067d6-b9e4-4c57-9a00-8ee3fa33fdf3"]
}, 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->"3a55f0a3-ba51-4e21-9772-c23b03624ced"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"25cfc58b-42b0-4667-b140-a0a701ec1b92"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "f6dd36cb-2b1d-4a24-988a-a9b142328ab9"]],ExpressionUUID->"6e12bf10-938c-\
4e97-aef1-310b04458502"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1346274520,ExpressionUUID->"a8a0a49d-f9d9-4ff4-a20c-632abc8cfbf0"],

Cell[TextData[{
 "A hardened component is written as ",
 Cell[BoxData[
  StyleBox["i", "TI"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "de47fca2-036b-492f-8eba-b4c5d3779a41"],
 " followed by ",
 Cell[BoxData["h"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2d79f58c-aaa2-4ede-9aee-f8764c1a6126"],
 ", ",
 Cell[BoxData["H"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4a815ebc-7e12-41a2-9565-829a9bbaecea"],
 " or an apostrophe, and denotes the index ",
 Cell[BoxData[
  RowBox[{
   StyleBox["i", "TI"], "+", 
   SuperscriptBox["2", "31"]}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cf0fe837-5d99-42c0-927b-d59ce1e50307"],
 "."
}], "Notes",ExpressionUUID->"72e2ed18-691e-43f7-adb9-521494c6aba6"],

Cell[TextData[{
 "The leading ",
 Cell[BoxData["m"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "502c0f88-98e7-47fc-be0e-67c311941a7d"],
 " is optional, and the path ",
 Cell[BoxData["\<\"m\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "374be111-2208-42be-b74c-bd262e58525d"],
 " alone is the empty list."
}], "Notes",ExpressionUUID->"b07d0a0c-1489-4b7f-af57-5bd6d66ce925"],

Cell[TextData[{
 "A component must be below ",
 Cell[BoxData[
  SuperscriptBox["2", "31"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0580a6fc-c0e6-46bb-b349-81f7b939ecff"],
 ", since ",
 Cell[BoxData[
  SuperscriptBox["2", "31"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "adcac878-e743-463d-873f-dc237e9d6caf"],
 " and above is the hardened half of the index space and is written with the \
marker instead."
}], "Notes",ExpressionUUID->"2039c6fa-51bc-4f52-b22a-319eda26c7ba"],

Cell[TextData[{
 "An index list is accepted so that a path can be given in either form \
wherever a path is expected; each index must be below ",
 Cell[BoxData[
  SuperscriptBox["2", "32"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "95bc066b-b148-42b5-83b4-e56d663c7f1d"],
 "."
}], "Notes",ExpressionUUID->"497fa160-704f-4ea9-9f95-dfad418b6363"],

Cell["\<\
A malformed string, an empty component, or an out-of-range index matches no \
definition and the call is returned unevaluated.\
\>", "Notes",ExpressionUUID->"8bff5e6b-af05-40f2-8ce8-d0b93858b6c5"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP32PathString"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP32PathString", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "38b6a408-7a87-4f87-9985-cb6d592de436"],
 " is the inverse."
}], "Notes",ExpressionUUID->"af714861-58e5-417b-a3c6-09a2efce3d20"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"8a4e03a6-3420-4b1e-a3e4-fbb47296f8fd"],

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->"977c4e62-6db0-4b57-ae9f-7373d4ad57aa"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"146d9a2f-156b-4103-8062-9d8e8f88bccd"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(12)", "ExampleCount",ExpressionUUID->
  "72ed1e06-7335-42a9-812b-8d8a8a9d88d4"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->948152848,ExpressionUUID->"7c465168-a063-4934-a39c-e929d1f4ecc6"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"0664c9f0-f52f-4448-a23e-fc3a9a32386e"],

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->
  "a5f45f7a-7edb-4c96-98c4-7a63cfab934b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d8af2ef8-b233-49b6-a690-ca4ade97f7c3"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "85624ce6-efb2-4fcb-954b-0104537bc5f4"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1276255596,ExpressionUUID->"e44553e2-9851-4c51-bc70-cb7bb695bb71"],

Cell["The BIP32 test vector 1 chain m/0H/1/2H/2/1000000000:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"75192a10-0858-4fb8-a0eb-d7cf8cba53b0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32Path", "[", "\"\<m/0h/1/2h/2/1000000000\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fc4504cf-db4a-4cfc-9af6-b9e6833da55a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2147483648", ",", "1", ",", "2147483650", ",", "2", ",", "1000000000"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"08745d75-4814-46ae-b866-b76b262ca812"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "703413bf-7866-4a4b-84ae-79d2b23528a7"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7e99b818-8031-4d7e-\
a967-af1e9c3ad29e"],

Cell[TextData[{
 "A hardened index is the nominal index plus ",
 Cell[BoxData[
  SuperscriptBox["2", "31"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ce69019a-a46c-458d-9ddf-7d418ab07698"],
 ":"
}], "ExampleText",ExpressionUUID->"c909d302-bee8-4770-a28d-6ef58f438df3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32Path", "[", "\"\<m/0h\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c94a5494-e1c8-4f71-b127-e58907a79b54"],

Cell[BoxData[
 RowBox[{"{", "2147483648", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"cf1d67e6-cd0a-4d94-93d2-0bdf3f32d0c0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "df8fd29d-ccac-4942-9dd6-5e299dfd0665"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"5a95c552-6562-494f-\
8c06-2e1f4516336a"],

Cell["The BIP84 receiving path:", "ExampleText",ExpressionUUID->"fbeacadf-5e7e-4950-9289-3bfe9870ae95"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32Path", "[", "\"\<m/84h/0h/0h/0/0\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0dea5dce-e456-4e25-b62a-4df1898971e8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2147483732", ",", "2147483648", ",", "2147483648", ",", "0", ",", "0"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a0404b22-f27b-41bc-b9de-bcad2112f3a0"]
}, 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->
  "37293179-d3c9-4d5d-86cf-4127628cefaf"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a6b8310d-2675-4776-991e-7ac1a132c5fc"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "520496b9-8c8c-44af-99f5-cfe6fee425a2"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"db03b1fe-5992-4d62-b7fe-b1054b89577c"],

Cell["\<\
The apostrophe of the specification texts and the letters h and H all mark \
hardening:\
\>", "ExampleText",ExpressionUUID->"6feae088-be68-411c-a73f-a467c9c8048f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BIP32Path", "[", "\"\<m/84'/0'/0'/0/0\>\"", "]"}], " ", "===", " ", 
  RowBox[{"BIP32Path", "[", "\"\<m/84h/0h/0h/0/0\>\"", "]"}], " ", "===", " ", 
  RowBox[{"BIP32Path", "[", "\"\<m/84H/0H/0H/0/0\>\"", "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"06e3fcd1-4059-4fec-85fb-044c17de02c0"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"788ae02b-7880-4063-8f90-bf8df40b7f55"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a3637ed9-9c5c-4b68-a4f8-442310dcf1fc"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"bc90b014-a619-40d2-\
a321-94c540508030"],

Cell[TextData[{
 "The leading ",
 Cell[BoxData["m"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ebe0f997-07ae-4203-b565-9bc767dca01e"],
 " is optional, and ",
 Cell[BoxData["\<\"m\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "438bfa36-996d-45f3-83a5-b94d0e2f93e0"],
 " alone is the empty path:"
}], "ExampleText",ExpressionUUID->"0e69883b-66a3-4798-a7ae-4144ba410b0b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"BIP32Path", "[", "\"\<m\>\"", "]"}], ",", " ", 
   RowBox[{"BIP32Path", "[", "\"\<0/1\>\"", "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4e4a145f-8e86-4a7c-80d7-9e74a2cd5e9f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b4e25a89-57fb-469e-ac30-d027fc68d39f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "58a31186-0923-4f5e-ae8a-e943061c037f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b040af23-aad1-4e08-\
8813-3dc8f3436947"],

Cell["An index list passes through unchanged:", "ExampleText",ExpressionUUID->"194e7f80-a7a6-46a9-a9a9-0aebd7ed5279"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32Path", "[", 
  RowBox[{"{", 
   RowBox[{
   "2147483732", ",", " ", "2147483648", ",", " ", "2147483648", ",", " ", 
    "0", ",", " ", "0"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d584e264-bd8b-44db-95b2-15ceb81beca3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2147483732", ",", "2147483648", ",", "2147483648", ",", "0", ",", "0"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"bd921ab8-0457-4af5-a77d-b36736c768e3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "6b6526d1-32b5-48e7-9844-f493bd54387f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"cf2dd3a5-8eb9-4bce-\
b89b-491ea497fef0"],

Cell[TextData[{
 "A component at ",
 Cell[BoxData[
  SuperscriptBox["2", "31"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8b1ebfff-aad4-4917-a324-be22e4c5d331"],
 " collides with the hardened marker and is out of scope, so the call is \
returned unevaluated:"
}], "ExampleText",ExpressionUUID->"3c57e816-627c-4ded-855d-fc0ac320bfbf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BIP32Path", "[", "\"\<m/2147483648\>\"", "]"}], ",", " ", 
   "_BIP32Path"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9e55fd5c-fd16-45df-93a1-38afa2676a23"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fa1fdab7-4429-415d-af60-c82b9daaaf49"]
}, 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->
  "cdea15ba-a1e1-4186-84f6-2b612dafc6c6"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"98fd9ab0-c17a-4424-9130-ca7e0e616de7"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "77974ff2-c7f0-4234-8d67-66620bee7aaa"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"3e05e463-474f-4efa-a569-5cb00f7b2240"],

Cell["Reading a path off an output descriptor fragment:", "ExampleText",ExpressionUUID->"bd0dd766-b4ea-4de6-87c3-c715fb72be93"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", 
  RowBox[{"BIP32Path", "[", "\"\<84'/0'/0'/1/24\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2be62d0e-2850-4925-9050-643ef44bc97f"],

Cell[BoxData["\<\"m/84h/0h/0h/1/24\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"02159a43-b487-4a83-9849-21e5c3f92e95"]
}, 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->
  "d8b7e4a1-35cc-45e8-8e8e-224b17e00b7e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"7f6f1147-eb41-4d8c-8b6c-ef2d83be3d02"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "d7595424-e0b5-4118-ac96-6e28f344acec"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"f656923e-73ae-420d-a203-bfffd51d7a7b"],

Cell["The two directions are inverse:", "ExampleText",ExpressionUUID->"2cd9fd39-f95a-4f33-a638-7359009d9a9c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32Path", "[", 
  RowBox[{"BIP32PathString", "[", 
   RowBox[{"{", 
    RowBox[{
    "2147483692", ",", " ", "2147483708", ",", " ", "2147483648", ",", " ", 
     "0", ",", " ", "7"}], "}"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0c15d912-2f44-4ee5-bb0f-127f3f0f301a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2147483692", ",", "2147483708", ",", "2147483648", ",", "0", ",", "7"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d34aa869-848f-4bba-84d4-a51853373743"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7e20c9fe-0766-4600-a4df-fc3b358ce135"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"41403f1c-dfd0-4e82-\
823a-1ef0df62350f"],

Cell[TextData[{
 "The length of the path is the depth ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP32DeriveKey"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "73c32a87-6b20-442f-b645-b91f2254aebe"],
 " adds:"
}], "ExampleText",ExpressionUUID->"9c6ed986-0fc8-49c0-8405-458c0a136bc8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BIP32DeriveKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      ",", " ", "\"\<m/0h/1/2h\>\""}], "]"}], "[", "\"\<Depth\>\"", "]"}], 
  " ", "===", " ", 
  RowBox[{"Length", "[", 
   RowBox[{"BIP32Path", "[", "\"\<m/0h/1/2h\>\"", "]"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"14503201-592b-4e94-9ad1-11497329c577"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3d1dadeb-0698-4f9b-ae55-d8b8dadae1c1"]
}, 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->
  "28248f3b-58bd-418e-8829-1cb03b47543e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"caf0bdb4-e869-4848-a37b-093f5b280887"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "5da24157-b09d-4de3-8364-1ed78cd0ce0b"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"22d5dc74-ef87-4854-8d42-7ffc6a7c686b"],

Cell["\<\
A non-numeric component leaves the call unevaluated rather than skipping it, \
so a typo in a path cannot silently derive a shorter chain:\
\>", "ExampleText",ExpressionUUID->"ab6d2d10-27e1-430d-811b-e64a1b6020bf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32Path", "[", "\"\<m/1/x\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"167a79ce-a3c8-45bd-af5c-5da428fe237e"],

Cell[BoxData[
 RowBox[{"BIP32Path", "[", "\<\"m/1/x\"\>", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6e38c3d2-8f9f-4f2e-a031-f6bfb9e5002a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9761af7d-e2ef-47fd-b8f5-365fe7086f8f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"eef0f528-e3ed-421d-\
a339-f14ddd566efd"],

Cell["An empty component is a typo, not an empty step:", "ExampleText",ExpressionUUID->"503d9758-6347-4594-80c5-68f7bab2841e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BIP32Path", "[", "\"\<m/1//2\>\"", "]"}], ",", " ", 
   "_BIP32Path"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e60f14a2-dd0c-4b07-9f7a-355732d130d3"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b919de7e-a624-4507-a36e-8867d9f82a59"]
}, 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["BIP32PathString"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32PathString", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "eabd601c-44dc-451c-8687-64557c72d9a2"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32StandardPath"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32StandardPath", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "bcb65c31-108c-4435-9ad1-25ca39e39578"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32PathAddressForm"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32PathAddressForm", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "093b97fb-8486-47eb-9375-0bf973fac872"],
        "\[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->
         "9fbe9680-f6c7-427b-a997-9af62325b648"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32ChildKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32ChildKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "5cc84fa3-46bd-4fc0-bdc7-4e8803749d50"]
       }], "SeeAlso",ExpressionUUID->"c9f7d380-dc06-4c1f-ac87-3554894d5489"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"ad62de76-8b65-45f9-9b7a-\
039b4de7e3a4"],

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->
         "0026a586-45f1-43aa-bda9-2bece42163cd"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"b6196eab-198c-428e-a269-\
5404d0b4bb40"],

Cell[" ", "FooterCell",ExpressionUUID->"7401c4b5-c4b9-425f-a3ee-231a7d730bda"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BIP32Path",
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, 6.119202}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "BIP32Path[m/84h/0h/0h/0/0] gives the list of child indices a \
derivation-path string denotes. PackageLink[BIP32Path,paclet : \
WolframInstitute/Puzzles/ref/BIP32Path, WolframInstitute/Puzzles Package \
Symbol][{i1, i2, ...}] gives a list of child indices back unchanged.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "BIP32Path", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "BIP32Path", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BIP32Path", "WorkflowDockedCell" -> ""}, 
  "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"8296f101-ac3c-49e8-bf96-78758581b649"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[16022, 437, 163, 2, 70, "ExampleText",ExpressionUUID->"75192a10-0858-4fb8-a0eb-d7cf8cba53b0",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 37559, 1060}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[577, 21, 5805, 142, 70, "AnchorBarGrid",ExpressionUUID->"1eac3330-3ef8-4651-a15b-20f03073e19f",
 CellID->1],
Cell[6385, 165, 107, 0, 70, "ContextNameCell",ExpressionUUID->"f246a99f-0ff4-4ac8-9132-d256f1d4d987"],
Cell[CellGroupData[{
Cell[6517, 169, 552, 14, 70, "ObjectNameGrid",ExpressionUUID->"8e2698b2-4741-47c3-8600-2607c6be96ce"],
Cell[7072, 185, 1390, 36, 70, "Usage",ExpressionUUID->"3c6067d6-b9e4-4c57-9a00-8ee3fa33fdf3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8499, 226, 1444, 34, 70, "NotesSection",ExpressionUUID->"a8a0a49d-f9d9-4ff4-a20c-632abc8cfbf0",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1346274520],
Cell[9946, 262, 911, 26, 70, "Notes",ExpressionUUID->"72e2ed18-691e-43f7-adb9-521494c6aba6"],
Cell[10860, 290, 481, 12, 70, "Notes",ExpressionUUID->"b07d0a0c-1489-4b7f-af57-5bd6d66ce925"],
Cell[11344, 304, 585, 15, 70, "Notes",ExpressionUUID->"2039c6fa-51bc-4f52-b22a-319eda26c7ba"],
Cell[11932, 321, 399, 9, 70, "Notes",ExpressionUUID->"497fa160-704f-4ea9-9f95-dfad418b6363"],
Cell[12334, 332, 206, 3, 70, "Notes",ExpressionUUID->"8bff5e6b-af05-40f2-8ce8-d0b93858b6c5"],
Cell[12543, 337, 475, 13, 70, "Notes",ExpressionUUID->"af714861-58e5-417b-a3c6-09a2efce3d20"]
}, Closed]],
Cell[13033, 353, 80, 0, 70, "PageDelimiter",ExpressionUUID->"8a4e03a6-3420-4b1e-a3e4-fbb47296f8fd"],
Cell[CellGroupData[{
Cell[13138, 357, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"7c465168-a063-4934-a39c-e929d1f4ecc6",
 CellID->948152848],
Cell[14542, 396, 216, 4, 70, "Input",ExpressionUUID->"0664c9f0-f52f-4448-a23e-fc3a9a32386e",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14783, 404, 1236, 31, 70, "ExampleSection",ExpressionUUID->"e44553e2-9851-4c51-bc70-cb7bb695bb71",
 CellID->1276255596],
Cell[16022, 437, 163, 2, 70, "ExampleText",ExpressionUUID->"75192a10-0858-4fb8-a0eb-d7cf8cba53b0",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[16210, 443, 218, 3, 70, "Input",ExpressionUUID->"fc4504cf-db4a-4cfc-9af6-b9e6833da55a"],
Cell[16431, 448, 215, 5, 70, "Output",ExpressionUUID->"08745d75-4814-46ae-b866-b76b262ca812"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16683, 458, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7e99b818-8031-4d7e-a967-af1e9c3ad29e"],
Cell[16910, 465, 323, 8, 70, "ExampleText",ExpressionUUID->"c909d302-bee8-4770-a28d-6ef58f438df3"],
Cell[CellGroupData[{
Cell[17258, 477, 200, 3, 70, "Input",ExpressionUUID->"c94a5494-e1c8-4f71-b127-e58907a79b54"],
Cell[17461, 482, 138, 2, 70, "Output",ExpressionUUID->"cf1d67e6-cd0a-4d94-93d2-0bdf3f32d0c0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17648, 490, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"5a95c552-6562-494f-8c06-2e1f4516336a"],
Cell[17875, 497, 103, 0, 70, "ExampleText",ExpressionUUID->"fbeacadf-5e7e-4950-9289-3bfe9870ae95"],
Cell[CellGroupData[{
Cell[18003, 501, 211, 3, 70, "Input",ExpressionUUID->"0dea5dce-e456-4e25-b62a-4df1898971e8"],
Cell[18217, 506, 215, 5, 70, "Output",ExpressionUUID->"a0404b22-f27b-41bc-b9de-bcad2112f3a0"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18493, 518, 1227, 31, 70, "ExampleSection",ExpressionUUID->"db03b1fe-5992-4d62-b7fe-b1054b89577c",
 CellID->1293636265],
Cell[19723, 551, 173, 3, 70, "ExampleText",ExpressionUUID->"6feae088-be68-411c-a73f-a467c9c8048f"],
Cell[CellGroupData[{
Cell[19921, 558, 384, 6, 70, "Input",ExpressionUUID->"06e3fcd1-4059-4fec-85fb-044c17de02c0"],
Cell[20308, 566, 110, 1, 70, "Output",ExpressionUUID->"788ae02b-7880-4063-8f90-bf8df40b7f55"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20455, 572, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"bc90b014-a619-40d2-a321-94c540508030"],
Cell[20682, 579, 478, 12, 70, "ExampleText",ExpressionUUID->"0e69883b-66a3-4798-a7ae-4144ba410b0b"],
Cell[CellGroupData[{
Cell[21185, 595, 296, 6, 70, "Input",ExpressionUUID->"4e4a145f-8e86-4a7c-80d7-9e74a2cd5e9f"],
Cell[21484, 603, 220, 6, 70, "Output",ExpressionUUID->"b4e25a89-57fb-469e-ac30-d027fc68d39f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21753, 615, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b040af23-aad1-4e08-8813-3dc8f3436947"],
Cell[21980, 622, 117, 0, 70, "ExampleText",ExpressionUUID->"194e7f80-a7a6-46a9-a9a9-0aebd7ed5279"],
Cell[CellGroupData[{
Cell[22122, 626, 322, 7, 70, "Input",ExpressionUUID->"d584e264-bd8b-44db-95b2-15ceb81beca3"],
Cell[22447, 635, 215, 5, 70, "Output",ExpressionUUID->"bd921ab8-0457-4af5-a77d-b36736c768e3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22711, 646, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"cf2dd3a5-8eb9-4bce-b89b-491ea497fef0"],
Cell[22938, 653, 388, 9, 70, "ExampleText",ExpressionUUID->"3c57e816-627c-4ded-855d-fc0ac320bfbf"],
Cell[CellGroupData[{
Cell[23351, 666, 283, 6, 70, "Input",ExpressionUUID->"9e55fd5c-fd16-45df-93a1-38afa2676a23"],
Cell[23637, 674, 110, 1, 70, "Output",ExpressionUUID->"fa1fdab7-4429-415d-af60-c82b9daaaf49"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[23808, 682, 1233, 31, 70, "ExampleSection",ExpressionUUID->"3e05e463-474f-4efa-a569-5cb00f7b2240",
 CellID->258228157],
Cell[25044, 715, 127, 0, 70, "ExampleText",ExpressionUUID->"bd0dd766-b4ea-4de6-87c3-c715fb72be93"],
Cell[CellGroupData[{
Cell[25196, 719, 252, 4, 70, "Input",ExpressionUUID->"2be62d0e-2850-4925-9050-643ef44bc97f"],
Cell[25451, 725, 130, 1, 70, "Output",ExpressionUUID->"02159a43-b487-4a83-9849-21e5c3f92e95"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25630, 732, 1244, 31, 70, "ExampleSection",ExpressionUUID->"f656923e-73ae-420d-a203-bfffd51d7a7b",
 CellID->2123667759],
Cell[26877, 765, 109, 0, 70, "ExampleText",ExpressionUUID->"2cd9fd39-f95a-4f33-a638-7359009d9a9c"],
Cell[CellGroupData[{
Cell[27011, 769, 368, 8, 70, "Input",ExpressionUUID->"0c15d912-2f44-4ee5-bb0f-127f3f0f301a"],
Cell[27382, 779, 215, 5, 70, "Output",ExpressionUUID->"d34aa869-848f-4bba-84d4-a51853373743"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27634, 789, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"41403f1c-dfd0-4e82-823a-1ef0df62350f"],
Cell[27861, 796, 510, 14, 70, "ExampleText",ExpressionUUID->"9c6ed986-0fc8-49c0-8405-458c0a136bc8"],
Cell[CellGroupData[{
Cell[28396, 814, 500, 12, 70, "Input",ExpressionUUID->"14503201-592b-4e94-9ad1-11497329c577"],
Cell[28899, 828, 110, 1, 70, "Output",ExpressionUUID->"3d1dadeb-0698-4f9b-ae55-d8b8dadae1c1"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[29070, 836, 1237, 31, 70, "ExampleSection",ExpressionUUID->"22d5dc74-ef87-4854-8d42-7ffc6a7c686b",
 CellID->1305812373],
Cell[30310, 869, 224, 3, 70, "ExampleText",ExpressionUUID->"ab6d2d10-27e1-430d-811b-e64a1b6020bf"],
Cell[CellGroupData[{
Cell[30559, 876, 201, 3, 70, "Input",ExpressionUUID->"167a79ce-a3c8-45bd-af5c-5da428fe237e"],
Cell[30763, 881, 154, 2, 70, "Output",ExpressionUUID->"6e38c3d2-8f9f-4f2e-a031-f6bfb9e5002a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30954, 888, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"eef0f528-e3ed-421d-a339-f14ddd566efd"],
Cell[31181, 895, 126, 0, 70, "ExampleText",ExpressionUUID->"503d9758-6347-4594-80c5-68f7bab2841e"],
Cell[CellGroupData[{
Cell[31332, 899, 277, 6, 70, "Input",ExpressionUUID->"e60f14a2-dd0c-4b07-9f7a-355732d130d3"],
Cell[31612, 907, 110, 1, 70, "Output",ExpressionUUID->"b919de7e-a624-4507-a36e-8867d9f82a59"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[31773, 914, 3148, 82, 70, "SeeAlsoSection",ExpressionUUID->"ad62de76-8b65-45f9-9b7a-039b4de7e3a4"],
Cell[34924, 998, 700, 19, 70, "MoreAboutSection",ExpressionUUID->"b6196eab-198c-428e-a269-5404d0b4bb40"],
Cell[35627, 1019, 78, 0, 70, "FooterCell",ExpressionUUID->"7401c4b5-c4b9-425f-a3ee-231a7d730bda"]
}
]
*)

(* End of internal cache information *)

