(* 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[     50966,       1289]
NotebookOptionsPosition[     41096,       1107]
NotebookOutlinePosition[     43408,       1160]
CellTagsIndexPosition[     43330,       1155]
WindowTitle->BIP32StandardPath
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->
           "597a0402-3d49-43be-9d61-6b280e7ad184"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "693e0ff1-44ff-4619-a834-00d01b6a049d"],
        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->
           "ec66ced0-b0f3-4aa0-a960-7ff7b6d5e00b"]
         }],ExpressionUUID->"70c98011-f2ed-4375-a45c-9edcee22e6f2"],
         StripOnInput->False],{
        StyleBox["\"BIP32Path\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32Path"], 
         StyleBox[
          "\"BIP32PathString\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32PathString"], 
         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[
          "\"BitcoinAddress\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BitcoinAddress"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "3c52dd60-5b8b-4ad8-9509-65da2c8132fb"],
     "\[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->
           "edb9b708-6e51-472d-9ded-7725aa2a169a"]
         }],ExpressionUUID->"9a4c65af-5683-498c-b80f-fb4e61b6902e"],
         StripOnInput->False],{
        "\"Derivation\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Derivation"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "8fad9efb-14bb-4e5f-80aa-314e99352db1"],
     "\[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->
           "9e133b15-0dd4-4cda-8023-8a9fa9dfbf8e"]
         }],ExpressionUUID->"93020e34-28f1-4ab0-a0ee-db3523f82d05"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BIP32StandardPath\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BIP32StandardPath"], 
         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/BIP32StandardPath.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/BIP32StandardPath" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "972c06a6-5b5f-4a89-b8be-f0922b582ae1"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "ae5e31bf-a2a2-409d-aa62-7e4aae9d0bad"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"13ddf33c-3c94-415b-ac7d-28d997dd9c0c"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"823e205c-cfb1-4378-b375-c4df8d6b5320"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BIP32StandardPath", "ObjectName",ExpressionUUID->
      "12840b81-32f8-480c-94aa-05ea4c663bb3"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"998e48fd-f61d-4e8b-bcf4-0732b5eb9d88"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "ae49ba01-f0c3-4359-88b2-2b70d6960539"]
    }],ExpressionUUID->"c8b9b2f4-c7b7-4aa9-9127-be0833f90ea1"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"6fdaebd6-998d-4ee8-8c33-\
3378f237dee7"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BIP32StandardPath"]], 
         "paclet:WolframInstitute/Puzzles/ref/BIP32StandardPath", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["form", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "02f45bf1-7bec-44be-9992-199d0fad8e6b"],
     "\[LineSeparator]",
     "gives the derivation path of the first receiving address of the first \
account for an address ",
     StyleBox["form", "TI"],
     "."
    }],ExpressionUUID->"166e8a38-4350-4f81-a3a2-6e3cd9e2a1ec"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BIP32StandardPath"]], 
         "paclet:WolframInstitute/Puzzles/ref/BIP32StandardPath", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["form", "TI"], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          StyleBox["account", "TI"], ",", " ", 
          StyleBox["change", "TI"], ",", " ", 
          StyleBox["index", "TI"]}], "}"}]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "d1e7251b-62cf-45b6-ac8e-335b2285a0b6"],
     "\[LineSeparator]",
     "gives the path of a given account, chain and address index."
    }],ExpressionUUID->"7dcfe78a-a06a-4b55-a01d-518fa8423f21"]}
  }]], "Usage",ExpressionUUID->"0e5dcbdf-92ff-469a-9431-a0b25bc5dfd1"]
}, 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->"68728c8f-5e8a-4094-a73b-73c4d7d6aa50"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"415b1004-9c56-4a1e-bf6c-fa7727ec15db"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "a60fad33-05be-4679-8c44-287b8c13d210"]],ExpressionUUID->"cd8e3131-f616-\
4483-a0f7-c5d2247be2f1"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->2143733690,ExpressionUUID->"f2d87372-d74d-48e9-aeb5-eabdfabcb647"],

Cell[TextData[{
 "The path is the five-level BIP44 layout ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"m", " ", "/", " ", 
       RowBox[{"purpose", "'"}]}], " ", "/", " ", 
      RowBox[{"coin_type", "'"}]}], " ", "/", " ", 
     RowBox[{"account", "'"}]}], " ", "/", " ", "change"}], " ", "/", " ", 
   "address_index"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "119d8390-1580-4c67-ba68-c2fbafbb5521"],
 "."
}], "Notes",ExpressionUUID->"1a4764fe-4427-4f70-8bda-5b688540132f"],

Cell["\<\
The purpose field is fixed by the address form the account is for.\
\>", "Notes",ExpressionUUID->"624ff4a6-093a-4b6e-a359-be661328ace7"],

Cell[BoxData[GridBox[{
   {Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"84bd6a11-4e0e-468a-bbc1-619b08cdb782"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"8d2c5104-848c-4c81-9927-3f1d3d6ed16f"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"e7a47484-8c62-44ef-90b9-abb856b840a2"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"6e9b2648-d424-43d6-8118-7906a1700384"]},
   {Cell[TextData[Cell[BoxData["\"\<P2PKH\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "4eb48dd9-d554-40f7-b2e2-6e3ac4b67f01"]], "TableText",ExpressionUUID->
     "10005184-fb92-46a0-a732-9ed0d8b53298"], Cell[
    "44", "TableText",ExpressionUUID->"ae632a4b-5296-426d-a7e5-8efabc951fe1"],
     Cell["BIP44", "TableText",ExpressionUUID->
     "477b1a41-472d-4229-9f52-6c317c53dbea"], Cell[
    "0", "TableText",ExpressionUUID->
     "36a3e0bd-d212-4dfa-be7a-b05034b807e1"]},
   {Cell[TextData[Cell[BoxData["\"\<P2SH-P2WPKH\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "2fddbb52-3b4d-4f6c-afdf-86380258f09f"]], "TableText",ExpressionUUID->
     "a0ee606c-3286-4d74-928c-8b3e64521d82"], Cell[
    "49", "TableText",ExpressionUUID->"1d7d56ea-94ae-43b9-ac07-ed067548a890"],
     Cell["BIP49", "TableText",ExpressionUUID->
     "c82e3ced-0520-432c-97b8-f8c1afebfd16"], Cell[
    "0", "TableText",ExpressionUUID->
     "2dcfc2ff-848e-4755-8a51-fd0c92d6d2f0"]},
   {Cell[TextData[Cell[BoxData["\"\<P2WPKH\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "d4ec7bc7-d6eb-462d-9c04-a4064a94c016"]], "TableText",ExpressionUUID->
     "1e7123d2-2b0b-4956-a0b6-f3a867a7cf6e"], Cell[
    "84", "TableText",ExpressionUUID->"014f3934-e741-4668-872c-acf71fd3f9e9"],
     Cell["BIP84", "TableText",ExpressionUUID->
     "9b7a1025-fb80-4d02-8d0d-362607cf95d8"], Cell[
    "0", "TableText",ExpressionUUID->
     "132f350a-f20f-4de9-b531-c61ff5d04eca"]},
   {Cell[TextData[Cell[BoxData["\"\<P2TR\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "163331d9-44fd-4424-995e-18bb82c86fce"]], "TableText",ExpressionUUID->
     "fd38f8c3-098b-4500-83dc-f3730ec54db2"], Cell[
    "86", "TableText",ExpressionUUID->"7b46cbbc-f206-4b47-a7e2-eeb7a9c9505c"],
     Cell["BIP86", "TableText",ExpressionUUID->
     "7fd62aa3-5bbf-484f-91f0-49eb5128fe68"], Cell[
    "0", "TableText",ExpressionUUID->
     "cf3384a4-b2ff-4f19-82e9-668ff722e247"]},
   {Cell[TextData[Cell[BoxData["\"\<Ethereum\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "3305a5ba-9731-45ca-a997-8350c0ce145c"]], "TableText",ExpressionUUID->
     "a80eb470-13be-4b6e-888e-08cbeadb58a2"], Cell[
    "44", "TableText",ExpressionUUID->"6b86b841-9432-40ff-9d04-afa8361ef2c7"],
     Cell["BIP44", "TableText",ExpressionUUID->
     "75fedbe1-4f8b-4d42-b0d0-9c627b2235d3"], Cell[
    "60", "TableText",ExpressionUUID->
     "54e2dc2e-1a58-443c-8aa8-09ce77a4d2ec"]}
  },
  GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
  GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {{True}}},
  GridBoxSpacings->{"Columns" -> {{1.5}}, "Rows" -> {{0.7}}}]], "Text",Express\
ionUUID->"81a47c80-9ffd-4342-97ff-85c94e74ccb3"],

Cell[TextData[{
 StyleBox["change", "TI"],
 " is 0 for the external, receiving chain and 1 for the internal, change \
chain."
}], "Notes",ExpressionUUID->"d15cc344-e526-43ed-aa69-794d87aae486"],

Cell["\<\
The purpose, coin type and account levels are hardened; the change and index \
levels are not, so an account extended public key can derive every address of \
the account.\
\>", "Notes",ExpressionUUID->"6bcd86de-cdf9-4d30-a699-da61993d1ab9"],

Cell[BoxData[GridBox[{
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "485c13f7-ff72-4179-ae4c-73ddfcf0a20a"], Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"81b9e3be-1076-43b5-939d-498082259573"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"4d3b492b-1614-4b8a-8334-4148e67faac9"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"e933d4fe-a47d-4921-8d8a-65b03d9b0270"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "f5f7457e-d90c-4ae4-a366-87edff14c32f"], Cell[TextData[Cell[
    BoxData["\"\<CoinType\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "8fdabdb0-e3c1-47ef-847d-48be6651163d"]], "TableText",ExpressionUUID->
     "a70d35d2-a9d9-4a05-a247-4f4d6e9bf256"], Cell[TextData[Cell[BoxData[
    "Automatic"], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "ffb45491-1c2d-49f2-b6fa-3ef5077a6454"]], "TableText",ExpressionUUID->
     "61b2d459-1992-420e-b550-0f499933a6bc"], Cell[TextData[{
     "the SLIP-44 coin type, ",
     Cell[BoxData["Automatic"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "f7ba6c4e-d077-4912-8eb8-5388666490d4"],
     " taking the form's default"
    }], "TableText",ExpressionUUID->"7964593d-82c6-456d-a87a-71c751496fbd"]}
  }]], "3ColumnTableMod",
 GridBoxOptions->{
 GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {None, {None}}},
 GridBoxDividers->{
  "Rows" -> {{
     True, True, 
      True}}}},ExpressionUUID->"158a04f2-7898-4209-bc09-bb7d7919afd4"],

Cell["\<\
An unknown form, or an out-of-range level, matches no definition and the call \
is returned unevaluated.\
\>", "Notes",ExpressionUUID->"b01e67d9-d516-4bbb-b139-094b1d66d4d1"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"991f09fe-d80e-40d1-87f5-4acf2d6879df"],

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->"ff5594a2-27a9-42ae-91ed-879541464f8f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"cbbc28a1-39d7-40c4-8cd1-c8f6d85fe93a"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(12)", "ExampleCount",ExpressionUUID->
  "b6cbf299-da2d-47fa-afd9-0217079fd2e3"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1398982111,ExpressionUUID->"60da4415-9b30-4f66-8dd2-063a68414a54"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"ab9ae2fd-f407-4d1a-a9e2-d8dea310240c"],

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->
  "432b8015-ace9-4726-87c3-c26f541760c5"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"83b51f85-c731-4262-823e-ef0058ec195c"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "34ca7c5d-f709-4439-8b61-bd62c4c5b9e4"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2041372221,ExpressionUUID->"08444979-942c-4300-8f87-b56de75719d4"],

Cell["The BIP84 receiving path:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"1dae71b6-b7ee-4d9a-93b0-e307e4df888c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", 
  RowBox[{"BIP32StandardPath", "[", "\"\<P2WPKH\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f115aad4-8bfe-47ce-96ce-cc00c6af56af"],

Cell[BoxData["\<\"m/84h/0h/0h/0/0\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1935ff71-cc33-44c5-8b48-f06e0f95e99f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d0acd8b0-3e4e-43e8-b54f-75756a7066b2"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f061ed71-b5a9-41fa-\
b12b-a467bd7139dc"],

Cell["The taproot receiving path of BIP86:", "ExampleText",ExpressionUUID->"e4b1f7fe-2e85-4c1f-b5da-a8311d10ad47"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", 
  RowBox[{"BIP32StandardPath", "[", "\"\<P2TR\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"bb0053f6-77ba-4704-befc-4e5962080c6f"],

Cell[BoxData["\<\"m/86h/0h/0h/0/0\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8841a0d4-6d7b-4ea9-a4d5-05b69a4edc11"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "04ef3329-17a5-41aa-863e-4eaa8d005452"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"9b1824e6-92a1-4b26-\
8650-39a286d46f91"],

Cell["The first change address of the second account:", "ExampleText",ExpressionUUID->"dc657760-afc7-42cc-b78d-85bf1c08b69e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", 
  RowBox[{"BIP32StandardPath", "[", 
   RowBox[{"\"\<P2WPKH\>\"", ",", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "1", ",", " ", "0"}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f5cdd799-1059-4a64-88b4-55f744a1bb8e"],

Cell[BoxData["\<\"m/84h/0h/1h/1/0\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"55cfc3fe-5281-4395-94f6-f2b2c2940746"]
}, 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->
  "407ad6a9-71c4-4c1f-a3f2-5c0500a15304"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"839231da-f694-4ae6-8609-57d0d622cb8f"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "da55862f-ef6a-4d79-8799-190db7ab04c2"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"b74d8c14-39a5-45cf-9ff1-c968a6f1e62f"],

Cell["The legacy BIP44 path:", "ExampleText",ExpressionUUID->"a6b84646-1e76-4992-a9af-e378d8088366"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", 
  RowBox[{"BIP32StandardPath", "[", "\"\<P2PKH\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4217456f-1cb5-406b-8e69-7fd608048c14"],

Cell[BoxData["\<\"m/44h/0h/0h/0/0\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8e899cf5-48ce-4555-bc41-e359a59f7fea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7648a834-ce31-46b6-b129-c883e888fd35"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"bd32cde7-8368-43fd-\
a24c-10ca0d55d539"],

Cell["\<\
The Ethereum path, which shares BIP44's purpose and is distinguished by \
SLIP-44 coin type 60:\
\>", "ExampleText",ExpressionUUID->"e1249008-87ca-4053-bfaa-41b6c27e851c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", 
  RowBox[{"BIP32StandardPath", "[", "\"\<Ethereum\>\"", "]"}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a014ae20-3278-4c9d-8b0f-97b1982ac859"],

Cell[BoxData["\<\"m/44h/60h/0h/0/0\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a6063403-e021-44f5-966f-86081ee53a44"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "35941751-fb00-4bed-b8e2-2aab02ecb9d3"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d677f7cb-917a-403f-\
8292-deb8af2c2fdf"],

Cell["\<\
An unknown form is out of scope and the call is returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"fdb3e129-02ab-4c58-bfde-59b457360ca1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BIP32StandardPath", "[", "\"\<P2WSH\>\"", "]"}], ",", " ", 
   "_BIP32StandardPath"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"debc1504-fe12-4817-86e5-58467c4c808c"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1fbe60e6-a199-4c35-b563-b31d21566382"]
}, 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->
  "06dac917-87e2-442f-8f95-70af102f63f0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b1824740-9b69-467c-86fb-e58917b75402"],
 "Options",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "c9ff4d28-426d-4487-b181-83f8df92d4c2"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2061341341,ExpressionUUID->"dafd5c94-ba1f-4377-8928-eaf234568bd3"],

Cell["\<\
Coin type 1 is SLIP-44 Testnet, which is what the BIP49 test vectors derive \
along:\
\>", "ExampleText",ExpressionUUID->"6a62b10d-3192-4651-82f0-2cbb2a937c82"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", 
  RowBox[{"BIP32StandardPath", "[", 
   RowBox[{"\"\<P2SH-P2WPKH\>\"", ",", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", 
    RowBox[{"\"\<CoinType\>\"", " ", "->", " ", "1"}]}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c1c7fd4c-fe00-4680-8eba-363f770fe40a"],

Cell[BoxData["\<\"m/49h/1h/0h/0/0\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8efe10ab-d12f-4f8e-ac48-4d1591c75869"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "48791b5b-210b-430d-9f79-15e37646192e"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"af541ee7-4303-4904-\
940c-cf94532781f6"],

Cell["Coin type 2 is Litecoin, under the same BIP84 purpose:", "ExampleText",ExpressionUUID->"8f587eb6-2b21-4958-9472-f370a4b5b4b2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", 
  RowBox[{"BIP32StandardPath", "[", 
   RowBox[{"\"\<P2WPKH\>\"", ",", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", 
    RowBox[{"\"\<CoinType\>\"", " ", "->", " ", "2"}]}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"83792845-6cf7-4c43-8794-f2a67cbb9f55"],

Cell[BoxData["\<\"m/84h/2h/0h/0/0\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"906a0c5e-188f-4633-9635-82c788cd34f9"]
}, 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->
  "b3d28885-6566-4173-b941-54f2dab6a1ae"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"cf60f346-464c-45b4-8c9e-ddb46176c8c3"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "13c20d4e-e8ee-4ccd-ac47-80de087d199d"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"7268195e-2bc3-4b15-b895-86d2e87bcedc"],

Cell["The first three receiving addresses of a BIP84 account:", "ExampleText",ExpressionUUID->"b92ff6b5-ae5d-45cd-912b-f681a801f51e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"BitcoinAddress", "[", 
    RowBox[{
     RowBox[{"BIP32DeriveKey", "[", 
      RowBox[{
       RowBox[{
       "BIP32MasterKey", 
        "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], ",", " ", 
       RowBox[{"BIP32StandardPath", "[", 
        RowBox[{"\"\<P2WPKH\>\"", ",", " ", 
         RowBox[{"{", 
          RowBox[{"0", ",", " ", "0", ",", " ", "i"}], "}"}]}], "]"}]}], 
      "]"}], ",", " ", "\"\<P2WPKH\>\""}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"i", ",", " ", "0", ",", " ", "2"}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"70c03b91-a386-4960-87ca-a818d0375fe2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"bc1qcr8te4kr609gcawutmrza0j4xv80jy8z306fyu\"\>", 
   ",", "\<\"bc1qnjg0jd8228aq7egyzacy8cys3knf9xvrerkf9g\"\>", 
   ",", "\<\"bc1qp59yckz4ae5c4efgw2s5wfyvrz0ala7rgvuz8z\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ac88c30a-303b-4ccc-a7c6-e6948536fd71"]
}, 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->
  "c5c8d249-6324-479d-ba67-ca025fb19887"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c1ea8cbe-f1d7-4192-ba62-53fc0ef9f2e3"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "31d7f8bc-8be4-44df-8453-85fa3e44dabc"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"3f933a26-c894-4077-8525-8640cbb16d72"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP32PathAddressForm"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP32PathAddressForm", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "99e645da-8abb-45ae-8b3f-0b39b1bde322"],
 " reads the form back off the path:"
}], "ExampleText",ExpressionUUID->"65e2188f-f7d7-4486-b7ec-4994d9965f76"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"BIP32PathAddressForm", "[", 
     RowBox[{"BIP32StandardPath", "[", "#", "]"}], "]"}], " ", "&"}], ",", 
   " ", 
   RowBox[{"{", 
    RowBox[{"\"\<P2PKH\>\"", ",", " ", "\"\<P2SH-P2WPKH\>\"", ",", 
     " ", "\"\<P2WPKH\>\"", ",", " ", "\"\<P2TR\>\"", ",", 
     " ", "\"\<Ethereum\>\""}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1b3c72b4-a043-4273-8ec5-ce05cf26be45"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"P2PKH\"\>", ",", "\<\"P2SH-P2WPKH\"\>", ",", "\<\"P2WPKH\"\>", 
   ",", "\<\"P2TR\"\>", ",", "\<\"Ethereum\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"62991163-3aa2-4f5c-aaf7-4cf89b4afb85"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "abc2cf02-5dbf-4193-8023-0908c107ad3c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2ce60551-51be-4739-\
915d-962c00c135a8"],

Cell["Only the first three levels are hardened:", "ExampleText",ExpressionUUID->"03da605b-f969-4c4f-ade0-94625eba38db"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"#", " ", ">=", " ", 
     RowBox[{"2", "^", "31"}]}], " ", "&"}], ",", " ", 
   RowBox[{"BIP32StandardPath", "[", 
    RowBox[{"\"\<P2WPKH\>\"", ",", " ", 
     RowBox[{"{", 
      RowBox[{"3", ",", " ", "1", ",", " ", "17"}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"10e52182-9dd1-4c90-9f0f-6e5bf4ebc498"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "True", ",", "True", ",", "False", ",", "False"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"39781352-df7f-4a36-a612-8e33ae63fcf8"]
}, 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->
  "0b558695-9cbd-40f8-9332-c5d6fc94da96"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"cde1d8d2-a08e-42d1-aadf-30e3f7443dc9"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "5b4c7893-3636-41f7-8322-e550e118ad63"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"d1011767-6e44-4294-89f1-fb4c87d35230"],

Cell["\<\
The purpose level records an intention, not a constraint: a key derived along \
the BIP84 path can still be rendered as any address form, and will then not \
be found by a wallet scanning for it:\
\>", "ExampleText",ExpressionUUID->"4817fa9d-be94-4147-9875-561866a8f68c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitcoinAddress", "[", 
  RowBox[{
   RowBox[{"BIP32DeriveKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", 
      "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], ",", " ", 
     RowBox[{"BIP32StandardPath", "[", "\"\<P2WPKH\>\"", "]"}]}], "]"}], ",", 
   " ", "\"\<P2PKH\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"85d6608e-7ac2-459a-ac23-ba5f1ff3fe8b"],

Cell[BoxData["\<\"1JaUQDVNRdhfNsVncGkXedaPSM5Gc54Hso\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"71011147-c2f4-4a9c-bf74-250f4a2f7fc7"]
}, 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["BIP32Path"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32Path", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "e60129bc-ba79-4ce6-b0a4-ceca2991a1c9"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32PathString"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32PathString", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "030a71a5-24a5-40dc-82ef-73647c3c54c5"],
        "\[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->
         "2b53a82c-fdb1-46dd-a5ed-dc286ac51e05"],
        "\[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->
         "61bb9de8-ba63-43cc-8d7a-e77969991bf8"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BitcoinAddress"]], 
           "paclet:WolframInstitute/Puzzles/ref/BitcoinAddress", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "500cfdec-b6f6-4f56-8ada-bb270580dd75"]
       }], "SeeAlso",ExpressionUUID->"cbc2a6f4-ba33-401e-a65b-d78b0eafdaf2"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"4bdc3c2c-8bed-4874-a589-\
6262e9415b7d"],

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->
         "57791300-4c7f-426a-836c-2b49bc4436de"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"76292a0a-2ee1-40e4-8d94-\
635920503da4"],

Cell[" ", "FooterCell",ExpressionUUID->"e53c4891-5279-4cda-9eb4-21a842abb76c"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BIP32StandardPath",
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, 17.267694}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BIP32StandardPath, paclet : \
WolframInstitute/Puzzles/ref/BIP32StandardPath, WolframInstitute/Puzzles \
Package Symbol][form] gives the derivation path of the first receiving \
address of the first account for an address form. \
PackageLink[BIP32StandardPath, paclet : \
WolframInstitute/Puzzles/ref/BIP32StandardPath, WolframInstitute/Puzzles \
Package Symbol][form, {account, change, index}] gives the path of a given \
account, chain and address index.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "BIP32StandardPath", "titlemodifier" -> "", "metadescription" -> 
    "", "windowtitle" -> "BIP32StandardPath", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BIP32StandardPath", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"8452c5e4-4d11-4e81-a87d-2aeeebcdcc66"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[19744, 494, 135, 2, 70, "ExampleText",ExpressionUUID->"1dae71b6-b7ee-4d9a-93b0-e307e4df888c",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 43173, 1149}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[585, 21, 5827, 142, 70, "AnchorBarGrid",ExpressionUUID->"13ddf33c-3c94-415b-ac7d-28d997dd9c0c",
 CellID->1],
Cell[6415, 165, 107, 0, 70, "ContextNameCell",ExpressionUUID->"823e205c-cfb1-4378-b375-c4df8d6b5320"],
Cell[CellGroupData[{
Cell[6547, 169, 560, 14, 70, "ObjectNameGrid",ExpressionUUID->"6fdaebd6-998d-4ee8-8c33-3378f237dee7"],
Cell[7110, 185, 1710, 44, 70, "Usage",ExpressionUUID->"0e5dcbdf-92ff-469a-9431-a0b25bc5dfd1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8857, 234, 1444, 34, 70, "NotesSection",ExpressionUUID->"f2d87372-d74d-48e9-aeb5-eabdfabcb647",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->2143733690],
Cell[10304, 270, 571, 16, 70, "Notes",ExpressionUUID->"1a4764fe-4427-4f70-8bda-5b688540132f"],
Cell[10878, 288, 146, 2, 70, "Notes",ExpressionUUID->"624ff4a6-093a-4b6e-a359-be661328ace7"],
Cell[11027, 292, 3422, 63, 70, "Text",ExpressionUUID->"81a47c80-9ffd-4342-97ff-85c94e74ccb3"],
Cell[14452, 357, 193, 4, 70, "Notes",ExpressionUUID->"d15cc344-e526-43ed-aa69-794d87aae486"],
Cell[14648, 363, 251, 4, 70, "Notes",ExpressionUUID->"6bcd86de-cdf9-4d30-a699-da61993d1ab9"],
Cell[14902, 369, 1650, 33, 70, "3ColumnTableMod",ExpressionUUID->"158a04f2-7898-4209-bc09-bb7d7919afd4"],
Cell[16555, 404, 184, 3, 70, "Notes",ExpressionUUID->"b01e67d9-d516-4bbb-b139-094b1d66d4d1"]
}, Closed]],
Cell[16754, 410, 80, 0, 70, "PageDelimiter",ExpressionUUID->"991f09fe-d80e-40d1-87f5-4acf2d6879df"],
Cell[CellGroupData[{
Cell[16859, 414, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"60da4415-9b30-4f66-8dd2-063a68414a54",
 CellID->1398982111],
Cell[18264, 453, 216, 4, 70, "Input",ExpressionUUID->"ab9ae2fd-f407-4d1a-a9e2-d8dea310240c",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[18505, 461, 1236, 31, 70, "ExampleSection",ExpressionUUID->"08444979-942c-4300-8f87-b56de75719d4",
 CellID->2041372221],
Cell[19744, 494, 135, 2, 70, "ExampleText",ExpressionUUID->"1dae71b6-b7ee-4d9a-93b0-e307e4df888c",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[19904, 500, 252, 4, 70, "Input",ExpressionUUID->"f115aad4-8bfe-47ce-96ce-cc00c6af56af"],
Cell[20159, 506, 129, 1, 70, "Output",ExpressionUUID->"1935ff71-cc33-44c5-8b48-f06e0f95e99f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20325, 512, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f061ed71-b5a9-41fa-b12b-a467bd7139dc"],
Cell[20552, 519, 114, 0, 70, "ExampleText",ExpressionUUID->"e4b1f7fe-2e85-4c1f-b5da-a8311d10ad47"],
Cell[CellGroupData[{
Cell[20691, 523, 250, 4, 70, "Input",ExpressionUUID->"bb0053f6-77ba-4704-befc-4e5962080c6f"],
Cell[20944, 529, 129, 1, 70, "Output",ExpressionUUID->"8841a0d4-6d7b-4ea9-a4d5-05b69a4edc11"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21122, 536, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"9b1824e6-92a1-4b26-8650-39a286d46f91"],
Cell[21349, 543, 125, 0, 70, "ExampleText",ExpressionUUID->"dc657760-afc7-42cc-b78d-85bf1c08b69e"],
Cell[CellGroupData[{
Cell[21499, 547, 355, 8, 70, "Input",ExpressionUUID->"f5cdd799-1059-4a64-88b4-55f744a1bb8e"],
Cell[21857, 557, 129, 1, 70, "Output",ExpressionUUID->"55cfc3fe-5281-4395-94f6-f2b2c2940746"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22047, 565, 1227, 31, 70, "ExampleSection",ExpressionUUID->"b74d8c14-39a5-45cf-9ff1-c968a6f1e62f",
 CellID->1293636265],
Cell[23277, 598, 100, 0, 70, "ExampleText",ExpressionUUID->"a6b84646-1e76-4992-a9af-e378d8088366"],
Cell[CellGroupData[{
Cell[23402, 602, 251, 4, 70, "Input",ExpressionUUID->"4217456f-1cb5-406b-8e69-7fd608048c14"],
Cell[23656, 608, 129, 1, 70, "Output",ExpressionUUID->"8e899cf5-48ce-4555-bc41-e359a59f7fea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23822, 614, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"bd32cde7-8368-43fd-a24c-10ca0d55d539"],
Cell[24049, 621, 181, 3, 70, "ExampleText",ExpressionUUID->"e1249008-87ca-4053-bfaa-41b6c27e851c"],
Cell[CellGroupData[{
Cell[24255, 628, 256, 5, 70, "Input",ExpressionUUID->"a014ae20-3278-4c9d-8b0f-97b1982ac859"],
Cell[24514, 635, 130, 1, 70, "Output",ExpressionUUID->"a6063403-e021-44f5-966f-86081ee53a44"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24693, 642, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d677f7cb-917a-403f-8292-deb8af2c2fdf"],
Cell[24920, 649, 155, 2, 70, "ExampleText",ExpressionUUID->"fdb3e129-02ab-4c58-bfde-59b457360ca1"],
Cell[CellGroupData[{
Cell[25100, 655, 292, 6, 70, "Input",ExpressionUUID->"debc1504-fe12-4817-86e5-58467c4c808c"],
Cell[25395, 663, 110, 1, 70, "Output",ExpressionUUID->"1fbe60e6-a199-4c35-b563-b31d21566382"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25566, 671, 1229, 31, 70, "ExampleSection",ExpressionUUID->"dafd5c94-ba1f-4377-8928-eaf234568bd3",
 CellID->2061341341],
Cell[26798, 704, 170, 3, 70, "ExampleText",ExpressionUUID->"6a62b10d-3192-4651-82f0-2cbb2a937c82"],
Cell[CellGroupData[{
Cell[26993, 711, 426, 9, 70, "Input",ExpressionUUID->"c1c7fd4c-fe00-4680-8eba-363f770fe40a"],
Cell[27422, 722, 129, 1, 70, "Output",ExpressionUUID->"8efe10ab-d12f-4f8e-ac48-4d1591c75869"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27588, 728, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"af541ee7-4303-4904-940c-cf94532781f6"],
Cell[27815, 735, 132, 0, 70, "ExampleText",ExpressionUUID->"8f587eb6-2b21-4958-9472-f370a4b5b4b2"],
Cell[CellGroupData[{
Cell[27972, 739, 421, 9, 70, "Input",ExpressionUUID->"83792845-6cf7-4c43-8794-f2a67cbb9f55"],
Cell[28396, 750, 129, 1, 70, "Output",ExpressionUUID->"906a0c5e-188f-4633-9635-82c788cd34f9"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[28586, 758, 1233, 31, 70, "ExampleSection",ExpressionUUID->"7268195e-2bc3-4b15-b895-86d2e87bcedc",
 CellID->258228157],
Cell[29822, 791, 133, 0, 70, "ExampleText",ExpressionUUID->"b92ff6b5-ae5d-45cd-912b-f681a801f51e"],
Cell[CellGroupData[{
Cell[29980, 795, 829, 20, 70, "Input",ExpressionUUID->"70c03b91-a386-4960-87ca-a818d0375fe2"],
Cell[30812, 817, 320, 6, 70, "Output",ExpressionUUID->"ac88c30a-303b-4ccc-a7c6-e6948536fd71"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[31181, 829, 1244, 31, 70, "ExampleSection",ExpressionUUID->"3f933a26-c894-4077-8525-8640cbb16d72",
 CellID->2123667759],
Cell[32428, 862, 509, 13, 70, "ExampleText",ExpressionUUID->"65e2188f-f7d7-4486-b7ec-4994d9965f76"],
Cell[CellGroupData[{
Cell[32962, 879, 515, 12, 70, "Input",ExpressionUUID->"1b3c72b4-a043-4273-8ec5-ce05cf26be45"],
Cell[33480, 893, 255, 4, 70, "Output",ExpressionUUID->"62991163-3aa2-4f5c-aaf7-4cf89b4afb85"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33772, 902, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2ce60551-51be-4739-915d-962c00c135a8"],
Cell[33999, 909, 119, 0, 70, "ExampleText",ExpressionUUID->"03da605b-f969-4c4f-ade0-94625eba38db"],
Cell[CellGroupData[{
Cell[34143, 913, 463, 12, 70, "Input",ExpressionUUID->"10e52182-9dd1-4c90-9f0f-6e5bf4ebc498"],
Cell[34609, 927, 202, 4, 70, "Output",ExpressionUUID->"39781352-df7f-4a36-a612-8e33ae63fcf8"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[34872, 938, 1237, 31, 70, "ExampleSection",ExpressionUUID->"d1011767-6e44-4294-89f1-fb4c87d35230",
 CellID->1305812373],
Cell[36112, 971, 281, 4, 70, "ExampleText",ExpressionUUID->"4817fa9d-be94-4147-9875-561866a8f68c"],
Cell[CellGroupData[{
Cell[36418, 979, 566, 13, 70, "Input",ExpressionUUID->"85d6608e-7ac2-459a-ac23-ba5f1ff3fe8b"],
Cell[36987, 994, 148, 1, 70, "Output",ExpressionUUID->"71011147-c2f4-4a9c-bf74-250f4a2f7fc7"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[37174, 1000, 3134, 82, 70, "SeeAlsoSection",ExpressionUUID->"4bdc3c2c-8bed-4874-a589-6262e9415b7d"],
Cell[40311, 1084, 700, 19, 70, "MoreAboutSection",ExpressionUUID->"76292a0a-2ee1-40e4-8d94-635920503da4"],
Cell[41014, 1105, 78, 0, 70, "FooterCell",ExpressionUUID->"e53c4891-5279-4cda-9eb4-21a842abb76c"]
}
]
*)

(* End of internal cache information *)

