(* 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[     44752,       1161]
NotebookOptionsPosition[     35157,        984]
NotebookOutlinePosition[     37235,       1033]
CellTagsIndexPosition[     37157,       1028]
WindowTitle->BIP32PathAddressForm
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->
           "6c9ce431-07c3-4e99-99b5-5cac0c1bc1f3"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "b6c7b480-7c84-4c84-a6a7-bca7075e7f0b"],
        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->
           "92a2a173-e92e-4ade-8be2-5d4e767570a2"]
         }],ExpressionUUID->"bb27637f-b8e2-4958-a868-ed15190b3e38"],
         StripOnInput->False],{
        StyleBox[
          "\"BIP32StandardPath\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32StandardPath"], 
         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[
          "\"BitcoinAddress\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BitcoinAddress"], 
         StyleBox[
          "\"BIP32DeriveKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "12a83d9b-6133-4eff-bb1b-68107085a0a8"],
     "\[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->
           "8cc406f3-5319-4369-91c6-79a0a5d1352a"]
         }],ExpressionUUID->"7cf803b1-c238-40bf-a663-1b7c4090dd34"],
         StripOnInput->False],{
        "\"Derivation\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Derivation"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "b27a20f5-b683-44e3-a5ac-c0e4318e48a9"],
     "\[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->
           "8f00ba6f-1d3f-40a0-b82b-facc9d1162f0"]
         }],ExpressionUUID->"0bf9d9b9-e2c7-4065-bd78-6e11b2115dd7"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BIP32PathAddressForm\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BIP32PathAddressForm"],
          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/BIP32PathAddressForm.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/BIP32PathAddressForm" <> 
               ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "9a58eecb-f09b-48e4-89e9-ba389087151a"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "633d9e82-0629-4953-85e2-7beb7aae7a62"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"23a01a3b-aa1c-4124-bd5c-c276accfc3c5"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"4720a76b-bff4-4660-9467-e315cea26a90"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BIP32PathAddressForm", "ObjectName",ExpressionUUID->
      "38de9080-529b-4804-8eef-60639780988c"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"f62f506d-c104-451a-989a-6e59e87f538c"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "e10f24b0-ff8a-479d-b3bd-b794462c3aec"]
    }],ExpressionUUID->"046cf23b-b820-419f-a540-f87dfc96ab73"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"3a698490-4b0b-41f4-bac5-\
eab6d14d031b"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BIP32PathAddressForm"]], 
         "paclet:WolframInstitute/Puzzles/ref/BIP32PathAddressForm", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["path", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "815f92d4-c097-43df-9e10-9b6b121b9cb9"],
     "\[LineSeparator]",
     "gives the address form that the purpose field of a derivation ",
     StyleBox["path", "TI"],
     " implies."
    }],ExpressionUUID->"d1902c8c-3e49-49e7-a731-cda2ea74e6ab"]}
  }]], "Usage",ExpressionUUID->"a357af01-b85e-43cb-ac26-bba492f7ab93"]
}, 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->"cafafa3b-ef85-41cf-a410-7f449617e2ca"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"458c6c11-d4ee-4050-a35b-fd845faffe1f"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "04f736c4-1736-465d-b8a7-0fb336aa87ea"]],ExpressionUUID->"f045e50f-387d-\
446c-b8de-e735c4c50b2a"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->285035943,ExpressionUUID->"17886980-586c-4d22-9fd6-e131bde18464"],

Cell["\<\
The purpose field is the first level of a BIP43 path, and is hardened.\
\>", "Notes",ExpressionUUID->"e80bec9a-96e6-43ad-8d8f-6c2929a592fa"],

Cell[TextData[{
 "Purpose 44 gives ",
 Cell[BoxData["\<\"P2PKH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "894d6806-186f-4a3b-a97b-d0e8211fcf91"],
 ", 49 gives ",
 Cell[BoxData["\<\"P2SH-P2WPKH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c071d8fd-eaf3-4773-940e-8c04cea3af26"],
 ", 84 gives ",
 Cell[BoxData["\<\"P2WPKH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e54de2d1-9ebe-4434-a059-7bbd4c2f24a5"],
 " and 86 gives ",
 Cell[BoxData["\<\"P2TR\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5c75c251-9405-47ba-88e5-36ceea6dbbda"],
 "."
}], "Notes",ExpressionUUID->"7c8aa151-7263-4b23-8b44-53825d4f0714"],

Cell[TextData[{
 "Purpose 44 with SLIP-44 coin type 60 gives ",
 Cell[BoxData["\<\"Ethereum\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6b17ac74-5c84-4a9e-a5c7-b7d810573eda"],
 ", which shares BIP44's purpose and is distinguished by the coin type."
}], "Notes",ExpressionUUID->"d7a3fcb6-b39b-4699-a9a3-09369e078872"],

Cell[TextData[{
 "A path whose purpose is unhardened, unregistered, or absent gives ",
 Cell[BoxData[
  RowBox[{"Missing", "[", "\<\"UnknownPurpose\"\>", "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ae4b3fcf-96d3-418d-8ec2-b45bc9b2a1a4"],
 "; the path is well-formed, there is simply no convention attached to it."
}], "Notes",ExpressionUUID->"cfdeded9-9536-4dae-afe3-ed1c669d3721"],

Cell[TextData[{
 "The path may be a string or a list of indices, as ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP32Path"]], "paclet:WolframInstitute/Puzzles/ref/BIP32Path", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2ea4e1af-b31a-4836-9feb-3068ea12359d"],
 " accepts."
}], "Notes",ExpressionUUID->"6fbaf72a-3f3e-40a1-96b6-7b6d1044b6c7"],

Cell["\<\
Input that is not a path matches no definition and the call is returned \
unevaluated.\
\>", "Notes",ExpressionUUID->"d8a9f5b4-0bff-4fd0-86c4-ded8d873c639"],

Cell["\<\
The answer is a convention, not a constraint: any key can be rendered in any \
form.\
\>", "Notes",ExpressionUUID->"1c87e33d-3294-4db1-a0c5-ae8a1facb193"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"654d1c70-b0e6-46d2-b77f-a1d2967193f9"],

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->"84e05e3b-55fb-48eb-93d7-1a8c8b190c19"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"afecc44e-677f-4ba9-9e03-e5cbe2b060f5"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(12)", "ExampleCount",ExpressionUUID->
  "895f741a-4b86-4ac7-971a-d0c286ffc0a9"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1710561191,ExpressionUUID->"edeae07a-3a56-440e-9a62-afa7e6d44edf"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"1a3ffe09-3b90-4907-a0dc-db28975b8d3d"],

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->
  "067e8dbe-f45c-477b-a3ba-547d10336367"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ab1ee28f-5770-41f3-aaf5-72498ef9a525"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "9c052513-9520-4a5c-a72c-52abfda8b957"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1038354748,ExpressionUUID->"1fc4d4d5-0790-4a4c-b648-7cbfb58444ed"],

Cell["The BIP84 path implies a native segwit address:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"0c347d75-198d-4ff2-8117-1ff493085789"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathAddressForm", "[", "\"\<m/84h/0h/0h/0/0\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"05c31413-70a1-4a07-b568-9eb996f8b8e1"],

Cell[BoxData["\<\"P2WPKH\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"699f4ae8-98e9-47c1-9bfa-295764852bb6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7f5b59c1-8675-4241-ad33-46c63a5f619a"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d6533cbf-9cec-4a6a-\
b734-d71d82953a56"],

Cell["The BIP86 path implies a taproot address:", "ExampleText",ExpressionUUID->"94ec9f38-a3b6-46e9-85a3-eced6aa4b407"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathAddressForm", "[", "\"\<m/86h/0h/0h/0/0\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8f6f11a3-a5bd-4f6e-9578-7a3b2ae6f754"],

Cell[BoxData["\<\"P2TR\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"22100ff3-8357-4a34-a0f5-993a49ca73ce"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d2decc32-dc0f-41e9-a1bd-5a7fad25a30c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"a0303f71-2859-4ac3-\
b272-3ab0086bfcf3"],

Cell["The four Bitcoin conventions:", "ExampleText",ExpressionUUID->"f368162d-b711-4948-82cb-56c65b2d6232"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{"BIP32PathAddressForm", ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<m/44h/0h/0h/0/0\>\"", ",", " ", "\"\<m/49h/0h/0h/0/0\>\"", ",",
      " ", "\"\<m/84h/0h/0h/0/0\>\"", ",", " ", "\"\<m/86h/0h/0h/0/0\>\""}], 
    "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"58a25b8e-cf2c-46de-9252-63e1dfa9a83d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"P2PKH\"\>", ",", "\<\"P2SH-P2WPKH\"\>", ",", "\<\"P2WPKH\"\>", 
   ",", "\<\"P2TR\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5bda2457-e6c8-4b59-9561-3f1d6ddf1aae"]
}, 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->
  "507ac4f4-5c8e-4957-85d5-5e97ccf2018b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"12d140e0-0955-4f80-baf0-b3f5c666b16e"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(5)", "ExampleCount",ExpressionUUID->
  "9b470c4a-f277-4ff1-ab60-2793e1a5096c"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"153d60a2-45d4-42a6-96ca-11553cebf11c"],

Cell["Coin type 60 under the BIP44 purpose is Ethereum:", "ExampleText",ExpressionUUID->"adcb11fc-c047-46a5-a3ed-680336149cea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathAddressForm", "[", "\"\<m/44h/60h/0h/0/0\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1df7d477-16e9-43c1-b70d-f4dc12362e5b"],

Cell[BoxData["\<\"Ethereum\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c088bb33-4b8d-41bc-909d-9d28d0b4c6dc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7e7fbbac-6f46-4ccd-91a7-df21fb49b85b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"25d3c5df-d436-4b23-\
8948-10e8ac994bb0"],

Cell["A path with no registered purpose has no implied form:", "ExampleText",ExpressionUUID->"52fcef00-bd8c-41f0-b881-153afb9e1a4f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathAddressForm", "[", "\"\<m/0h/1\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0c579c2d-fd84-4e37-946f-7fc5ac49ebbb"],

Cell[BoxData[
 RowBox[{"Missing", "[", "\<\"UnknownPurpose\"\>", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a0095609-3de1-4766-aefd-c347f530dcd7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "e16b5cf1-26a3-432d-8555-76d05e139c71"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e1e9beb3-bc2b-46f1-\
92e6-69066ae302e1"],

Cell["An unhardened first level is not a BIP43 purpose field:", "ExampleText",ExpressionUUID->"88dcdc62-1f16-43a5-87e1-497539ea8291"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathAddressForm", "[", "\"\<m/84/0h/0h/0/0\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1dce9aff-f728-4e71-85f7-b7f9cc315d65"],

Cell[BoxData[
 RowBox[{"Missing", "[", "\<\"UnknownPurpose\"\>", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7673d3e6-fffb-4f5b-be51-5cf5f542e42a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8bd98e73-ce28-440f-8ab5-1cd2d82cb4c0"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e9478156-8e32-4f09-\
a9bb-51e9fdefe88e"],

Cell["The empty path has no purpose at all:", "ExampleText",ExpressionUUID->"1f14949d-2b26-4541-aacb-bc074370b9d5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathAddressForm", "[", "\"\<m\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a765a204-e7f1-41de-b3df-372edffdb95d"],

Cell[BoxData[
 RowBox[{"Missing", "[", "\<\"UnknownPurpose\"\>", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3fe92bb8-665f-4cd7-9b6b-1a03cc27e3a8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3d02adbf-3e16-4fd5-9cd7-137a33448bf2"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"8032bd3a-b172-4338-\
b40a-a4e5a14cf06c"],

Cell["Input that is not a path is returned unevaluated:", "ExampleText",ExpressionUUID->"aca7d9b4-c88e-4ef8-86af-dea5e843bd99"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BIP32PathAddressForm", "[", "\"\<not a path\>\"", "]"}], ",", " ",
    "_BIP32PathAddressForm"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9208338e-b47e-4606-9023-3adda17ae73d"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ceaf8848-0971-4186-9d3c-cd188799e4da"]
}, 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->
  "50548672-3cdc-4f57-bed1-ae1c1b092c9a"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d1ac5493-ef02-463f-bd56-800bb0be0f2e"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "d052d9a2-966d-47f8-b179-f2cf5ee529fc"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"c7b28e39-8261-4388-8d7a-7df196bda2aa"],

Cell["\<\
Deriving a key and rendering it in the form its path intends:\
\>", "ExampleText",ExpressionUUID->"42335874-119f-411c-a7f7-681d7c6e4243"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"path", " ", "=", " ", "\"\<m/86h/0h/0h/0/0\>\""}], "}"}], ",", 
   " ", 
   RowBox[{"BitcoinAddress", "[", 
    RowBox[{
     RowBox[{"BIP32DeriveKey", "[", 
      RowBox[{
       RowBox[{
       "BIP32MasterKey", 
        "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], ",", " ", 
       "path"}], "]"}], ",", " ", 
     RowBox[{"BIP32PathAddressForm", "[", "path", "]"}]}], "]"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6cea7c11-db4a-47a4-91a4-84382695ec06"],

Cell[BoxData["\<\"\
bc1p5cyxnuxmeuwuvkwfem96lqzszd02n6xdcjrs20cac6yqjjwudpxqkedrcr\"\>"], "Output",\

 CellLabel->"Out[1]= ",ExpressionUUID->"e9e51d10-11ff-4c8a-a96b-37ed2c8a1989"]
}, 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->
  "56bfdc27-1f99-4bee-a451-647992502fbb"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"2791325f-ce63-4908-af4c-1f81afb138ba"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "b3f526b1-9a74-41c0-b5da-4a9fc5b1925f"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"83caaadf-8f45-4960-9d69-1850d249d5a2"],

Cell[TextData[{
 "It inverts ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP32StandardPath"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP32StandardPath", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5f932c57-2d9b-4108-93f5-638cc5c2d96d"],
 ":"
}], "ExampleText",ExpressionUUID->"93773730-12ce-4388-a8f0-c56b5eae0398"],

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->"ecce8935-adb0-46e6-8e31-ca97dde06c91"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"P2PKH\"\>", ",", "\<\"P2SH-P2WPKH\"\>", ",", "\<\"P2WPKH\"\>", 
   ",", "\<\"P2TR\"\>", ",", "\<\"Ethereum\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"bdfa8c53-d73a-493e-a2f1-cb13f12ecc79"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3dce6f56-8f1f-4645-8b61-26d93ef3e5ce"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d970d515-6aa2-4d96-\
88db-2c1e570fcc99"],

Cell["\<\
Only the first two levels are read, so the account, chain and index do not \
change the answer:\
\>", "ExampleText",ExpressionUUID->"6ac60879-5a2e-4b8b-864b-af1cd6996c88"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BIP32PathAddressForm", "[", "\"\<m/84h/0h/9h/1/500\>\"", "]"}], 
  " ", "===", " ", 
  RowBox[{"BIP32PathAddressForm", "[", "\"\<m/84h/0h\>\"", "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e2a23234-7e66-416d-826d-bd17461171f7"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"57ec1dd4-6901-4ea3-9d65-c6909229b53d"]
}, 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->
  "d7d14cfc-76a5-4602-946f-079fcf1a0ac6"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d5634a02-5256-49c9-9872-8be1e054b4d8"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "19f6b4fb-96e1-4ca6-9c27-3c86f2d953b9"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"2e56e337-42d8-4f0d-838a-d81623c47517"],

Cell["\<\
The form is what the path was intended for, not what the key can produce; the \
same key renders in all four forms, and only one of them is the address a \
wallet will look for:\
\>", "ExampleText",ExpressionUUID->"2c644938-d347-444e-8467-5ad6ebe4740a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"key", " ", "=", " ", 
     RowBox[{"BIP32DeriveKey", "[", 
      RowBox[{
       RowBox[{
       "BIP32MasterKey", 
        "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], ",", 
       " ", "\"\<m/84h/0h/0h/0/0\>\""}], "]"}]}], "}"}], ",", " ", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"BitcoinAddress", "[", 
       RowBox[{"key", ",", " ", "#"}], "]"}], " ", "&"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<P2PKH\>\"", ",", " ", "\"\<P2SH-P2WPKH\>\"", ",", 
       " ", "\"\<P2WPKH\>\"", ",", " ", "\"\<P2TR\>\""}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"46495531-3c26-4e56-ac38-e7312e4acfe4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"1JaUQDVNRdhfNsVncGkXedaPSM5Gc54Hso\"\>", 
   ",", "\<\"3GtVZYzsKF6Feikdjd4bDyPdAiyeHANY9b\"\>", 
   ",", "\<\"bc1qcr8te4kr609gcawutmrza0j4xv80jy8z306fyu\"\>", 
   ",", "\<\"bc1p8knh0enfv47gmpuf66528zd4jtkgjq4sv5w5l2gqwgk8exu2ynns9g8c9m\"\
\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"bd0198b2-2d26-4326-80f7-6546cc971f0e"]
}, 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["BIP32StandardPath"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32StandardPath", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "f7bc9b45-5bc2-4c88-a363-9f4564456b49"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32Path"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32Path", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c6c7a706-1ef8-46c4-a855-147a27f34914"],
        "\[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->
         "aceb9a4c-0833-437f-bf8d-922071615a4d"],
        "\[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->
         "37950515-f8b7-4495-92c0-bec8e259a7d9"],
        "\[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->
         "cf184fd5-86fa-4ccc-9781-0b99fafa7075"]
       }], "SeeAlso",ExpressionUUID->"42210f2f-468f-4e46-aecc-27818eac754a"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"b4be2bc9-cb88-4f16-8d6a-\
37328fe94d96"],

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->
         "10477f93-6001-48d7-a6ca-eee50ad9ee12"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"e642cbac-0ac7-4c48-89d5-\
634c187b4210"],

Cell[" ", "FooterCell",ExpressionUUID->"588f136a-fb07-46fe-9a23-196ae31da147"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BIP32PathAddressForm",
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, 28.685097}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BIP32PathAddressForm, paclet : \
WolframInstitute/Puzzles/ref/BIP32PathAddressForm, WolframInstitute/Puzzles \
Package Symbol][path] gives the address form that the purpose field of a \
derivation path implies.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "BIP32PathAddressForm", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "BIP32PathAddressForm", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BIP32PathAddressForm", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"4f97247b-066c-4b78-bb1d-f0e466655a49"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15083, 403, 157, 2, 70, "ExampleText",ExpressionUUID->"0c347d75-198d-4ff2-8117-1ff493085789",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 37000, 1022}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[588, 21, 5832, 142, 70, "AnchorBarGrid",ExpressionUUID->"23a01a3b-aa1c-4124-bd5c-c276accfc3c5",
 CellID->1],
Cell[6423, 165, 107, 0, 70, "ContextNameCell",ExpressionUUID->"4720a76b-bff4-4660-9467-e315cea26a90"],
Cell[CellGroupData[{
Cell[6555, 169, 563, 14, 70, "ObjectNameGrid",ExpressionUUID->"3a698490-4b0b-41f4-bac5-eab6d14d031b"],
Cell[7121, 185, 815, 20, 70, "Usage",ExpressionUUID->"a357af01-b85e-43cb-ac26-bba492f7ab93"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7973, 210, 1443, 34, 70, "NotesSection",ExpressionUUID->"17886980-586c-4d22-9fd6-e131bde18464",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->285035943],
Cell[9419, 246, 150, 2, 70, "Notes",ExpressionUUID->"e80bec9a-96e6-43ad-8d8f-6c2929a592fa"],
Cell[9572, 250, 839, 22, 70, "Notes",ExpressionUUID->"7c8aa151-7263-4b23-8b44-53825d4f0714"],
Cell[10414, 274, 375, 7, 70, "Notes",ExpressionUUID->"d7a3fcb6-b39b-4699-a9a3-09369e078872"],
Cell[10792, 283, 441, 8, 70, "Notes",ExpressionUUID->"cfdeded9-9536-4dae-afe3-ed1c669d3721"],
Cell[11236, 293, 506, 13, 70, "Notes",ExpressionUUID->"6fbaf72a-3f3e-40a1-96b6-7b6d1044b6c7"],
Cell[11745, 308, 166, 3, 70, "Notes",ExpressionUUID->"d8a9f5b4-0bff-4fd0-86c4-ded8d873c639"],
Cell[11914, 313, 164, 3, 70, "Notes",ExpressionUUID->"1c87e33d-3294-4db1-a0c5-ae8a1facb193"]
}, Closed]],
Cell[12093, 319, 80, 0, 70, "PageDelimiter",ExpressionUUID->"654d1c70-b0e6-46d2-b77f-a1d2967193f9"],
Cell[CellGroupData[{
Cell[12198, 323, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"edeae07a-3a56-440e-9a62-afa7e6d44edf",
 CellID->1710561191],
Cell[13603, 362, 216, 4, 70, "Input",ExpressionUUID->"1a3ffe09-3b90-4907-a0dc-db28975b8d3d",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13844, 370, 1236, 31, 70, "ExampleSection",ExpressionUUID->"1fc4d4d5-0790-4a4c-b648-7cbfb58444ed",
 CellID->1038354748],
Cell[15083, 403, 157, 2, 70, "ExampleText",ExpressionUUID->"0c347d75-198d-4ff2-8117-1ff493085789",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15265, 409, 225, 4, 70, "Input",ExpressionUUID->"05c31413-70a1-4a07-b568-9eb996f8b8e1"],
Cell[15493, 415, 120, 1, 70, "Output",ExpressionUUID->"699f4ae8-98e9-47c1-9bfa-295764852bb6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15650, 421, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d6533cbf-9cec-4a6a-b734-d71d82953a56"],
Cell[15877, 428, 119, 0, 70, "ExampleText",ExpressionUUID->"94ec9f38-a3b6-46e9-85a3-eced6aa4b407"],
Cell[CellGroupData[{
Cell[16021, 432, 225, 4, 70, "Input",ExpressionUUID->"8f6f11a3-a5bd-4f6e-9578-7a3b2ae6f754"],
Cell[16249, 438, 118, 1, 70, "Output",ExpressionUUID->"22100ff3-8357-4a34-a0f5-993a49ca73ce"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16416, 445, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"a0303f71-2859-4ac3-b272-3ab0086bfcf3"],
Cell[16643, 452, 107, 0, 70, "ExampleText",ExpressionUUID->"f368162d-b711-4948-82cb-56c65b2d6232"],
Cell[CellGroupData[{
Cell[16775, 456, 413, 8, 70, "Input",ExpressionUUID->"58a25b8e-cf2c-46de-9252-63e1dfa9a83d"],
Cell[17191, 466, 230, 4, 70, "Output",ExpressionUUID->"5bda2457-e6c8-4b59-9561-3f1d6ddf1aae"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17482, 477, 1227, 31, 70, "ExampleSection",ExpressionUUID->"153d60a2-45d4-42a6-96ca-11553cebf11c",
 CellID->1293636265],
Cell[18712, 510, 127, 0, 70, "ExampleText",ExpressionUUID->"adcb11fc-c047-46a5-a3ed-680336149cea"],
Cell[CellGroupData[{
Cell[18864, 514, 226, 4, 70, "Input",ExpressionUUID->"1df7d477-16e9-43c1-b70d-f4dc12362e5b"],
Cell[19093, 520, 122, 1, 70, "Output",ExpressionUUID->"c088bb33-4b8d-41bc-909d-9d28d0b4c6dc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19252, 526, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"25d3c5df-d436-4b23-8948-10e8ac994bb0"],
Cell[19479, 533, 132, 0, 70, "ExampleText",ExpressionUUID->"52fcef00-bd8c-41f0-b881-153afb9e1a4f"],
Cell[CellGroupData[{
Cell[19636, 537, 213, 3, 70, "Input",ExpressionUUID->"0c579c2d-fd84-4e37-946f-7fc5ac49ebbb"],
Cell[19852, 542, 161, 2, 70, "Output",ExpressionUUID->"a0095609-3de1-4766-aefd-c347f530dcd7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20062, 550, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e1e9beb3-bc2b-46f1-92e6-69066ae302e1"],
Cell[20289, 557, 133, 0, 70, "ExampleText",ExpressionUUID->"88dcdc62-1f16-43a5-87e1-497539ea8291"],
Cell[CellGroupData[{
Cell[20447, 561, 224, 4, 70, "Input",ExpressionUUID->"1dce9aff-f728-4e71-85f7-b7f9cc315d65"],
Cell[20674, 567, 161, 2, 70, "Output",ExpressionUUID->"7673d3e6-fffb-4f5b-be51-5cf5f542e42a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20884, 575, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e9478156-8e32-4f09-a9bb-51e9fdefe88e"],
Cell[21111, 582, 115, 0, 70, "ExampleText",ExpressionUUID->"1f14949d-2b26-4541-aacb-bc074370b9d5"],
Cell[CellGroupData[{
Cell[21251, 586, 208, 3, 70, "Input",ExpressionUUID->"a765a204-e7f1-41de-b3df-372edffdb95d"],
Cell[21462, 591, 161, 2, 70, "Output",ExpressionUUID->"3fe92bb8-665f-4cd7-9b6b-1a03cc27e3a8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21672, 599, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"8032bd3a-b172-4338-b40a-a4e5a14cf06c"],
Cell[21899, 606, 127, 0, 70, "ExampleText",ExpressionUUID->"aca7d9b4-c88e-4ef8-86af-dea5e843bd99"],
Cell[CellGroupData[{
Cell[22051, 610, 303, 6, 70, "Input",ExpressionUUID->"9208338e-b47e-4606-9023-3adda17ae73d"],
Cell[22357, 618, 110, 1, 70, "Output",ExpressionUUID->"ceaf8848-0971-4186-9d3c-cd188799e4da"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[22528, 626, 1233, 31, 70, "ExampleSection",ExpressionUUID->"c7b28e39-8261-4388-8d7a-7df196bda2aa",
 CellID->258228157],
Cell[23764, 659, 147, 2, 70, "ExampleText",ExpressionUUID->"42335874-119f-411c-a7f7-681d7c6e4243"],
Cell[CellGroupData[{
Cell[23936, 665, 717, 19, 70, "Input",ExpressionUUID->"6cea7c11-db4a-47a4-91a4-84382695ec06"],
Cell[24656, 686, 180, 3, 70, "Output",ExpressionUUID->"e9e51d10-11ff-4c8a-a96b-37ed2c8a1989"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24885, 695, 1244, 31, 70, "ExampleSection",ExpressionUUID->"83caaadf-8f45-4960-9d69-1850d249d5a2",
 CellID->2123667759],
Cell[26132, 728, 486, 14, 70, "ExampleText",ExpressionUUID->"93773730-12ce-4388-a8f0-c56b5eae0398"],
Cell[CellGroupData[{
Cell[26643, 746, 515, 12, 70, "Input",ExpressionUUID->"ecce8935-adb0-46e6-8e31-ca97dde06c91"],
Cell[27161, 760, 255, 4, 70, "Output",ExpressionUUID->"bdfa8c53-d73a-493e-a2f1-cb13f12ecc79"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27453, 769, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d970d515-6aa2-4d96-88db-2c1e570fcc99"],
Cell[27680, 776, 181, 3, 70, "ExampleText",ExpressionUUID->"6ac60879-5a2e-4b8b-864b-af1cd6996c88"],
Cell[CellGroupData[{
Cell[27886, 783, 324, 6, 70, "Input",ExpressionUUID->"e2a23234-7e66-416d-826d-bd17461171f7"],
Cell[28213, 791, 110, 1, 70, "Output",ExpressionUUID->"57ec1dd4-6901-4ea3-9d65-c6909229b53d"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[28384, 799, 1237, 31, 70, "ExampleSection",ExpressionUUID->"2e56e337-42d8-4f0d-838a-d81623c47517",
 CellID->1305812373],
Cell[29624, 832, 263, 4, 70, "ExampleText",ExpressionUUID->"2c644938-d347-444e-8467-5ad6ebe4740a"],
Cell[CellGroupData[{
Cell[29912, 840, 901, 23, 70, "Input",ExpressionUUID->"46495531-3c26-4e56-ac38-e7312e4acfe4"],
Cell[30816, 865, 386, 7, 70, "Output",ExpressionUUID->"bd0198b2-2d26-4326-80f7-6546cc971f0e"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[31241, 877, 3128, 82, 70, "SeeAlsoSection",ExpressionUUID->"b4be2bc9-cb88-4f16-8d6a-37328fe94d96"],
Cell[34372, 961, 700, 19, 70, "MoreAboutSection",ExpressionUUID->"e642cbac-0ac7-4c48-89d5-634c187b4210"],
Cell[35075, 982, 78, 0, 70, "FooterCell",ExpressionUUID->"588f136a-fb07-46fe-9a23-196ae31da147"]
}
]
*)

(* End of internal cache information *)

