(* 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[     42061,       1106]
NotebookOptionsPosition[     33439,        945]
NotebookOutlinePosition[     35553,        995]
CellTagsIndexPosition[     35476,        990]
WindowTitle->BIP32PathString
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->
           "a28ae5ef-f37f-4716-a309-e5eafb4d2ee4"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "bcdb89a4-23c2-4145-996d-d37e17c44370"],
        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->
           "7611949e-7b8a-4b88-a53f-88d80fb8cafb"]
         }],ExpressionUUID->"c3a2d853-d3a3-4a4d-8165-d1e7d91e1ff1"],
         StripOnInput->False],{
        StyleBox["\"BIP32Path\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32Path"], 
         StyleBox[
          "\"BIP32StandardPath\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32StandardPath"], 
         StyleBox[
          "\"BIP32PathAddressForm\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32PathAddressForm"], 
         StyleBox[
          "\"BIP32DeriveKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "eab6d61e-3b7b-4c3a-aed3-f144baa28120"],
     "\[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->
           "994c4265-7537-4e98-985f-0d0172532adf"]
         }],ExpressionUUID->"a00e518e-04ba-4890-9b58-e7265cdfa2ca"],
         StripOnInput->False],{
        "\"Derivation\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Derivation"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "c9dca190-4d7a-4785-abde-e1090eac19d8"],
     "\[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->
           "6882c44a-9f26-4617-9868-a10e88b0a14e"]
         }],ExpressionUUID->"a0fbee1a-4f0c-44c9-9191-8267f285e7bd"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BIP32PathString\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BIP32PathString"], 
         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/BIP32PathString.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/BIP32PathString" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "695056f6-eff8-4283-b589-7ad2875af5f8"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "40773aca-ad4c-4474-9409-194b1c969347"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"f54a255f-38b3-449e-8248-721f4341db6f"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"33118d02-4ec9-4f6f-8da3-08b8a4d6c3b5"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BIP32PathString", "ObjectName",ExpressionUUID->
      "fef326b9-2001-41ba-9f7f-1f33a6f290ae"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"9d2c8739-b178-418e-a55b-25d17b0e74bc"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "e24d04c1-5227-4c69-b332-a3e6cb452daf"]
    }],ExpressionUUID->"0be5ad89-38e8-4ab1-bf6e-e17da84efacd"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"ef882ae4-a26e-4e55-ac5c-\
0e3229f82670"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BIP32PathString"]], 
         "paclet:WolframInstitute/Puzzles/ref/BIP32PathString", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox[
          StyleBox["i", "TI"], 
          StyleBox["1", "TR"]], ",", " ", 
         SubscriptBox[
          StyleBox["i", "TI"], 
          StyleBox["2", "TR"]], ",", " ", "\[Ellipsis]"}], "}"}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "91b9bafe-3888-47e8-82bc-f44cb7f726c8"],
     "\[LineSeparator]",
     "gives the canonical derivation-path string of a list of child indices."
    }],ExpressionUUID->"84aeb242-aa1c-4834-b300-1f4a670b11f2"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"BIP32PathString", "[", "\"\<m/84'/0'/0'/0/0\>\"", "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "4e74e36f-4573-4eae-8913-d0ae69e8cf63"],
     "\[LineSeparator]",
     "renormalises a path string."
    }],ExpressionUUID->"aa7bf589-951c-47d7-80e9-b0fda9ca035e"]}
  }]], "Usage",ExpressionUUID->"093b4687-eb80-406b-a781-945ea062ec59"]
}, 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->"6688f652-14b0-45dc-a03f-e486ed025170"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"99f5a396-7654-43d4-aa5f-f93322bf408f"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "3da9e2ba-e75a-4395-858b-6fc68f1a0ac3"]],ExpressionUUID->"ec3c7178-fe46-\
4668-87e1-24bac0653954"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1991071838,ExpressionUUID->"35ba5bad-0c2d-480e-bdfc-b80cffb17bef"],

Cell[TextData[{
 "The canonical form starts with ",
 Cell[BoxData["m"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "69de88fd-f04b-45e8-9957-2b004f58fe5b"],
 ", separates components with ",
 Cell["/", "InlineCode",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "d9adace6-0c66-429d-aa96-8fbc80336ef4"],
 ", and marks a hardened index with a trailing ",
 Cell[BoxData["h"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d4e604c0-9027-45ce-8643-d6ab4df8b903"],
 "."
}], "Notes",ExpressionUUID->"3dd3c5bd-34f6-4260-a670-9c0faf03a6b3"],

Cell[TextData[{
 "The ",
 Cell[BoxData["h"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ac2c53d0-06d9-4ab6-88cf-fe5f8274c86b"],
 " marker is used rather than an apostrophe, so the string survives a shell \
command line and a quoted context without escaping."
}], "Notes",ExpressionUUID->"3080371a-7175-4689-ace4-cdc03d7d3ee3"],

Cell[TextData[{
 "An index of ",
 Cell[BoxData[
  SuperscriptBox["2", "31"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "142a34b5-77b1-4f90-aa86-0cc868c450e2"],
 " or more is written as the index less ",
 Cell[BoxData[
  SuperscriptBox["2", "31"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b9b7b461-4e25-4a4a-bc6d-41859245db38"],
 " followed by ",
 Cell[BoxData["h"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d7e44872-6f2e-4b0d-a95f-07260ecf96cd"],
 "."
}], "Notes",ExpressionUUID->"fd81e5f8-e8d2-42f7-a47d-9b0d7fa4dec5"],

Cell[TextData[{
 "The empty path gives ",
 Cell[BoxData["\<\"m\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "792abf95-6a90-4521-9feb-79419695eaa8"],
 "."
}], "Notes",ExpressionUUID->"a8f7fa8d-152c-43c2-aa3e-e5bb3cc5ecf5"],

Cell[TextData[{
 "A string argument is parsed by ",
 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->
  "508b5d18-3f01-4d9d-899a-6146c0d34dd7"],
 " first, so the apostrophe and ",
 Cell[BoxData["H"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4709bb1a-40ac-4705-b66c-6a9cd0461d19"],
 " forms are accepted and rewritten."
}], "Notes",ExpressionUUID->"ebe3398a-0afb-4265-90e5-95bf13cc5bd2"],

Cell["\<\
Input that is not a path matches no definition and the call is returned \
unevaluated.\
\>", "Notes",ExpressionUUID->"2d9c860d-d322-41cb-b045-3674aed8c5dc"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"852c63f8-bd91-4aae-94ee-b49affdd3a0f"],

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->"71c4f40a-7d63-450b-9812-4911e9df2661"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c7a07a61-0a06-4ee6-9f74-38a1744b2fa2"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(10)", "ExampleCount",ExpressionUUID->
  "c3689eed-89b7-473c-b3e0-b606c981994b"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1854193712,ExpressionUUID->"bbd69773-ac45-45a3-b92d-1391a1e36e9e"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"8c2eb362-979c-415a-978c-55b71b87d77b"],

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->
  "f7fe7859-97ef-4cc4-84b1-3079c8cf1205"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"002951b9-ec0d-4f22-9b7f-8145819249c7"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "b04ae935-3823-4a4e-be69-5302b35bac13"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1298515967,ExpressionUUID->"7a379858-c9ba-4f9e-92da-385b4f8c1683"],

Cell["\<\
The canonical spelling of the BIP32 test vector 1 deep chain:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"85745d5f-7115-44dc-85d3-6c0a80495595"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", 
  RowBox[{"{", 
   RowBox[{
   "2147483648", ",", " ", "1", ",", " ", "2147483650", ",", " ", "2", ",", 
    " ", "1000000000"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1f2fec59-78c0-401f-9b8d-342ec95a6e74"],

Cell[BoxData["\<\"m/0h/1/2h/2/1000000000\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"087a7e60-1579-4cd8-8fcb-26473cb3618a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "374fc43e-9ba9-4631-b281-2eb84acef564"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"be3e4dd7-48b2-4824-\
a6f4-ca9e4989147c"],

Cell[TextData[{
 "The empty path is ",
 Cell[BoxData["m"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cf34986d-0f73-4830-a803-86452d0b17dc"],
 ":"
}], "ExampleText",ExpressionUUID->"4163f2af-dd31-4e52-8005-05b04eac6924"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", 
  RowBox[{"{", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"bbe498de-1260-45ff-8a38-b4b11d8cc27b"],

Cell[BoxData["\<\"m\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f6af25e7-5e63-4632-87ca-8225c3dfa5f8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0664dbaf-8478-4bb2-9df9-6184ea495409"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"474dca8f-7190-4a80-\
bc4d-89a17327306c"],

Cell[TextData[{
 "An apostrophe path is renormalised to the ",
 Cell[BoxData["h"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "51ae07e0-87f2-4299-81dd-1cc9c585ecba"],
 " form:"
}], "ExampleText",ExpressionUUID->"126794b6-c10b-4016-8fa8-ebcea7ec0c3e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", "\"\<m/84'/0'/0'/0/0\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1296172d-4832-4153-8563-a589fcd58f38"],

Cell[BoxData["\<\"m/84h/0h/0h/0/0\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1e8a2390-a364-4769-ba09-50a3288882d1"]
}, 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->
  "6188bb16-c157-408b-9fb4-db8b1149388f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"cf445a57-a9ec-48e8-b4ef-7fed3556393a"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "6df39d21-5414-4ae5-9487-6aca743dd023"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"6c195353-5aa2-4b5a-94c7-3a0afbc8c245"],

Cell["A non-hardened path has no markers at all:", "ExampleText",ExpressionUUID->"c17c7da6-7285-4cee-b4f8-c1ef05313a6b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", 
  RowBox[{"{", 
   RowBox[{"0", ",", " ", "1", ",", " ", "2"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"740d5516-eb9e-444d-890a-3dc553f398a9"],

Cell[BoxData["\<\"m/0/1/2\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"adb81d30-e816-4c14-b5d0-d58fa7003f6a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "57566979-b692-4f4d-a728-e0a376af72d0"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c8eb24db-42c4-4fcd-\
88d5-97451e512730"],

Cell["An index just below and just at the hardened boundary:", "ExampleText",ExpressionUUID->"06e8ddb0-df29-436b-8f64-14888765e909"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", 
  RowBox[{"{", 
   RowBox[{"2147483647", ",", " ", "2147483648"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3db20c71-1ce6-4cdc-8a61-0bac52e191a8"],

Cell[BoxData["\<\"m/2147483647/0h\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9c54930a-ba28-4636-a880-ee1d4f09471b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "72949b5c-d931-48c9-a802-0317529e8c1e"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"035cb5c2-c3aa-42f9-\
a0cf-952cc671cae1"],

Cell["Input that is not a path is returned unevaluated:", "ExampleText",ExpressionUUID->"82e57f91-d263-4bb9-9595-8adb256f31b7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BIP32PathString", "[", 
    RowBox[{"{", 
     RowBox[{"-", "1"}], "}"}], "]"}], ",", " ", "_BIP32PathString"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5ca04fc4-5a63-42c0-a5cf-27430c5dd0b1"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"be721bd4-5198-4075-9030-be6aac15eed0"]
}, 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->
  "b22b0c39-5ec8-462e-8cca-9c32848d05d6"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"aa07f6a9-678c-450c-8034-242bc92f4e42"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "2d53c04b-eda9-4e5f-96f2-44c614469357"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"d9c5bd00-66f7-49e8-9992-319682167eec"],

Cell["\<\
Labelling a table of derived addresses by the path each came from:\
\>", "ExampleText",ExpressionUUID->"92dd6562-e4e0-4191-8733-9cd99d47e670"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AssociationMap", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"BitcoinAddress", "[", 
     RowBox[{
      RowBox[{"BIP32DeriveKey", "[", 
       RowBox[{
        RowBox[{
        "BIP32MasterKey", 
         "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], ",", " ", 
        "#"}], "]"}], ",", " ", "\"\<P2WPKH\>\""}], "]"}], " ", "&"}], ",", 
   " ", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"BIP32PathString", "[", 
       RowBox[{"BIP32StandardPath", "[", 
        RowBox[{"\"\<P2WPKH\>\"", ",", " ", 
         RowBox[{"{", 
          RowBox[{"0", ",", " ", "0", ",", " ", "#"}], "}"}]}], "]"}], "]"}], 
      " ", "&"}], ",", " ", 
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", " ", "2"}], "]"}]}], "]"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"84e79344-7285-4663-bf5c-34b8b5e35869"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"m/84h/0h/0h/0/0\"\>", 
    "\[Rule]", "\<\"bc1qcr8te4kr609gcawutmrza0j4xv80jy8z306fyu\"\>"}], ",", 
   RowBox[{"\<\"m/84h/0h/0h/0/1\"\>", 
    "\[Rule]", "\<\"bc1qnjg0jd8228aq7egyzacy8cys3knf9xvrerkf9g\"\>"}], ",", 
   RowBox[{"\<\"m/84h/0h/0h/0/2\"\>", 
    "\[Rule]", "\<\"bc1qp59yckz4ae5c4efgw2s5wfyvrz0ala7rgvuz8z\"\>"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e26612bf-de3b-4be6-b478-d50fbd84da7c"]
}, 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->
  "43804ada-4fbd-436d-bcad-dc5fc7eb4fa6"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"473fc69b-9bed-47a0-a907-8db9a8abee81"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "151b51e6-6911-4f31-8604-9f9da78cbeda"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"eb094b09-bc69-407a-b8f9-5ff23eab95ab"],

Cell["Parsing and printing are inverse in both directions:", "ExampleText",ExpressionUUID->"f7c7f878-8d54-4af6-81b0-c825ccb1425f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"BIP32PathString", "[", 
    RowBox[{"BIP32Path", "[", "\"\<m/49h/1h/0h/0/0\>\"", "]"}], "]"}], ",", 
   " ", 
   RowBox[{"BIP32Path", "[", 
    RowBox[{"BIP32PathString", "[", 
     RowBox[{"{", 
      RowBox[{
      "2147483697", ",", " ", "2147483649", ",", " ", "2147483648", ",", " ", 
       "0", ",", " ", "0"}], "}"}], "]"}], "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0f50341a-4ee6-40c6-a30f-70db3179cd57"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"m/49h/1h/0h/0/0\"\>", ",", 
   RowBox[{"{", 
    RowBox[{
    "2147483697", ",", "2147483649", ",", "2147483648", ",", "0", ",", "0"}], 
    "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d99d61c5-8649-4b5c-b87a-cf4606c7484f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "538dde0a-701a-4c75-b17c-0833426c93bc"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"604628a6-ce43-4117-\
9dfb-5d632079adff"],

Cell["\<\
Every standard path prints as the string its specification quotes:\
\>", "ExampleText",ExpressionUUID->"e119c28c-c7c7-4ef3-8387-f9aafc32ff0b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"BIP32PathString", "[", 
     RowBox[{"BIP32StandardPath", "[", "#", "]"}], "]"}], " ", "&"}], ",", 
   " ", 
   RowBox[{"{", 
    RowBox[{"\"\<P2PKH\>\"", ",", " ", "\"\<P2SH-P2WPKH\>\"", ",", 
     " ", "\"\<P2WPKH\>\"", ",", " ", "\"\<P2TR\>\""}], "}"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c8e9d01f-b87c-4ba4-a425-b0bf169b774d"],

Cell[BoxData[
 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\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b897b36f-e201-460c-8d88-617b3cdc1817"]
}, 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->
  "105a3d5c-ecb9-40c0-925d-bcdf1c761bab"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a0e15fd9-bf44-48de-830e-882812bddc7c"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "c92b33e8-5e83-40bd-b896-69e367918309"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"6af8009a-3c31-4683-904c-b23d19d5d0ec"],

Cell["\<\
Renormalising loses the original spelling, so a round trip through this \
function is not character-for-character identity on an apostrophe path:\
\>", "ExampleText",ExpressionUUID->"47103765-9a4f-4c29-85e8-dfd76daedec6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32PathString", "[", "\"\<M/44'/0'/0'\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f63f97e6-8ca5-476b-951a-81f22208bbd1"],

Cell[BoxData["\<\"m/44h/0h/0h\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"addf3aee-c1f0-4eb2-9558-216570f0c9bb"]
}, 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->
         "bf3b30dd-d7e6-46a2-9f11-ee37d5e5e1e4"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32StandardPath"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32StandardPath", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "91331a27-62a9-4ec4-b96e-8aaed9b4530d"],
        "\[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->
         "54d6c287-728c-496d-9144-99590851f7ce"],
        "\[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->
         "707bcfcd-051f-4578-acad-ad203cca9a6d"]
       }], "SeeAlso",ExpressionUUID->"f988f1fb-8bbd-449c-a44f-258149951719"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"7ee6a173-121d-4c29-9745-\
887e5311d8d4"],

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->
         "51708c07-2613-4792-8068-0f21d9ffcae9"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"6678aa3c-4b55-4bb1-a997-\
6c3954427498"],

Cell[" ", "FooterCell",ExpressionUUID->"feb8fffe-ec6a-4b60-a1f3-288afb0c918f"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BIP32PathString",
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, 10.275529}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BIP32PathString, paclet : \
WolframInstitute/Puzzles/ref/BIP32PathString, WolframInstitute/Puzzles \
Package Symbol][{i1, i2, ...}] gives the canonical derivation-path string of \
a list of child indices. BIP32PathString[m/84'/0'/0'/0/0] renormalises a path \
string.", "synonyms" -> {}, "tabletags" -> {}, "title" -> "BIP32PathString", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "BIP32PathString", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BIP32PathString", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"f98c3950-eabb-4496-aa78-e5260addc932"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15650, 426, 179, 4, 70, "ExampleText",ExpressionUUID->"85745d5f-7115-44dc-85d3-6c0a80495595",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 35319, 984}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[583, 21, 5626, 138, 70, "AnchorBarGrid",ExpressionUUID->"f54a255f-38b3-449e-8248-721f4341db6f",
 CellID->1],
Cell[6212, 161, 107, 0, 70, "ContextNameCell",ExpressionUUID->"33118d02-4ec9-4f6f-8da3-08b8a4d6c3b5"],
Cell[CellGroupData[{
Cell[6344, 165, 558, 14, 70, "ObjectNameGrid",ExpressionUUID->"ef882ae4-a26e-4e55-ac5c-0e3229f82670"],
Cell[6905, 181, 1395, 36, 70, "Usage",ExpressionUUID->"093b4687-eb80-406b-a781-945ea062ec59"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8337, 222, 1444, 34, 70, "NotesSection",ExpressionUUID->"35ba5bad-0c2d-480e-bdfc-b80cffb17bef",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1991071838],
Cell[9784, 258, 636, 16, 70, "Notes",ExpressionUUID->"3dd3c5bd-34f6-4260-a670-9c0faf03a6b3"],
Cell[10423, 276, 379, 8, 70, "Notes",ExpressionUUID->"3080371a-7175-4689-ace4-cdc03d7d3ee3"],
Cell[10805, 286, 684, 19, 70, "Notes",ExpressionUUID->"fd81e5f8-e8d2-42f7-a47d-9b0d7fa4dec5"],
Cell[11492, 307, 278, 7, 70, "Notes",ExpressionUUID->"a8f7fa8d-152c-43c2-aa3e-e5bb3cc5ecf5"],
Cell[11773, 316, 703, 18, 70, "Notes",ExpressionUUID->"ebe3398a-0afb-4265-90e5-95bf13cc5bd2"],
Cell[12479, 336, 166, 3, 70, "Notes",ExpressionUUID->"2d9c860d-d322-41cb-b045-3674aed8c5dc"]
}, Closed]],
Cell[12660, 342, 80, 0, 70, "PageDelimiter",ExpressionUUID->"852c63f8-bd91-4aae-94ee-b49affdd3a0f"],
Cell[CellGroupData[{
Cell[12765, 346, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"bbd69773-ac45-45a3-b92d-1391a1e36e9e",
 CellID->1854193712],
Cell[14170, 385, 216, 4, 70, "Input",ExpressionUUID->"8c2eb362-979c-415a-978c-55b71b87d77b",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14411, 393, 1236, 31, 70, "ExampleSection",ExpressionUUID->"7a379858-c9ba-4f9e-92da-385b4f8c1683",
 CellID->1298515967],
Cell[15650, 426, 179, 4, 70, "ExampleText",ExpressionUUID->"85745d5f-7115-44dc-85d3-6c0a80495595",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15854, 434, 328, 7, 70, "Input",ExpressionUUID->"1f2fec59-78c0-401f-9b8d-342ec95a6e74"],
Cell[16185, 443, 136, 1, 70, "Output",ExpressionUUID->"087a7e60-1579-4cd8-8fcb-26473cb3618a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16358, 449, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"be3e4dd7-48b2-4824-a6f4-ca9e4989147c"],
Cell[16585, 456, 273, 7, 70, "ExampleText",ExpressionUUID->"4163f2af-dd31-4e52-8005-05b04eac6924"],
Cell[CellGroupData[{
Cell[16883, 467, 213, 4, 70, "Input",ExpressionUUID->"bbe498de-1260-45ff-8a38-b4b11d8cc27b"],
Cell[17099, 473, 115, 1, 70, "Output",ExpressionUUID->"f6af25e7-5e63-4632-87ca-8225c3dfa5f8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17263, 480, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"474dca8f-7190-4a80-bc4d-89a17327306c"],
Cell[17490, 487, 302, 7, 70, "ExampleText",ExpressionUUID->"126794b6-c10b-4016-8fa8-ebcea7ec0c3e"],
Cell[CellGroupData[{
Cell[17817, 498, 217, 3, 70, "Input",ExpressionUUID->"1296172d-4832-4153-8563-a589fcd58f38"],
Cell[18037, 503, 129, 1, 70, "Output",ExpressionUUID->"1e8a2390-a364-4769-ba09-50a3288882d1"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18227, 511, 1227, 31, 70, "ExampleSection",ExpressionUUID->"6c195353-5aa2-4b5a-94c7-3a0afbc8c245",
 CellID->1293636265],
Cell[19457, 544, 120, 0, 70, "ExampleText",ExpressionUUID->"c17c7da6-7285-4cee-b4f8-c1ef05313a6b"],
Cell[CellGroupData[{
Cell[19602, 548, 262, 5, 70, "Input",ExpressionUUID->"740d5516-eb9e-444d-890a-3dc553f398a9"],
Cell[19867, 555, 121, 1, 70, "Output",ExpressionUUID->"adb81d30-e816-4c14-b5d0-d58fa7003f6a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20025, 561, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c8eb24db-42c4-4fcd-88d5-97451e512730"],
Cell[20252, 568, 132, 0, 70, "ExampleText",ExpressionUUID->"06e8ddb0-df29-436b-8f64-14888765e909"],
Cell[CellGroupData[{
Cell[20409, 572, 265, 5, 70, "Input",ExpressionUUID->"3db20c71-1ce6-4cdc-8a61-0bac52e191a8"],
Cell[20677, 579, 129, 1, 70, "Output",ExpressionUUID->"9c54930a-ba28-4636-a880-ee1d4f09471b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20855, 586, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"035cb5c2-c3aa-42f9-a0cf-952cc671cae1"],
Cell[21082, 593, 127, 0, 70, "ExampleText",ExpressionUUID->"82e57f91-d263-4bb9-9595-8adb256f31b7"],
Cell[CellGroupData[{
Cell[21234, 597, 321, 8, 70, "Input",ExpressionUUID->"5ca04fc4-5a63-42c0-a5cf-27430c5dd0b1"],
Cell[21558, 607, 110, 1, 70, "Output",ExpressionUUID->"be721bd4-5198-4075-9030-be6aac15eed0"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[21729, 615, 1233, 31, 70, "ExampleSection",ExpressionUUID->"d9c5bd00-66f7-49e8-9992-319682167eec",
 CellID->258228157],
Cell[22965, 648, 152, 2, 70, "ExampleText",ExpressionUUID->"92dd6562-e4e0-4191-8733-9cd99d47e670"],
Cell[CellGroupData[{
Cell[23142, 654, 1013, 27, 70, "Input",ExpressionUUID->"84e79344-7285-4663-bf5c-34b8b5e35869"],
Cell[24158, 683, 518, 10, 70, "Output",ExpressionUUID->"e26612bf-de3b-4be6-b478-d50fbd84da7c"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24725, 699, 1244, 31, 70, "ExampleSection",ExpressionUUID->"eb094b09-bc69-407a-b8f9-5ff23eab95ab",
 CellID->2123667759],
Cell[25972, 732, 130, 0, 70, "ExampleText",ExpressionUUID->"f7c7f878-8d54-4af6-81b0-c825ccb1425f"],
Cell[CellGroupData[{
Cell[26127, 736, 537, 13, 70, "Input",ExpressionUUID->"0f50341a-4ee6-40c6-a30f-70db3179cd57"],
Cell[26667, 751, 290, 7, 70, "Output",ExpressionUUID->"d99d61c5-8649-4b5c-b87a-cf4606c7484f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26994, 763, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"604628a6-ce43-4117-9dfb-5d632079adff"],
Cell[27221, 770, 152, 2, 70, "ExampleText",ExpressionUUID->"e119c28c-c7c7-4ef3-8387-f9aafc32ff0b"],
Cell[CellGroupData[{
Cell[27398, 776, 477, 12, 70, "Input",ExpressionUUID->"c8e9d01f-b87c-4ba4-a425-b0bf169b774d"],
Cell[27878, 790, 267, 5, 70, "Output",ExpressionUUID->"b897b36f-e201-460c-8d88-617b3cdc1817"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[28206, 802, 1237, 31, 70, "ExampleSection",ExpressionUUID->"6af8009a-3c31-4683-904c-b23d19d5d0ec",
 CellID->1305812373],
Cell[29446, 835, 231, 3, 70, "ExampleText",ExpressionUUID->"47103765-9a4f-4c29-85e8-dfd76daedec6"],
Cell[CellGroupData[{
Cell[29702, 842, 213, 3, 70, "Input",ExpressionUUID->"f63f97e6-8ca5-476b-951a-81f22208bbd1"],
Cell[29918, 847, 125, 1, 70, "Output",ExpressionUUID->"addf3aee-c1f0-4eb2-9558-216570f0c9bb"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[30082, 853, 2569, 67, 70, "SeeAlsoSection",ExpressionUUID->"7ee6a173-121d-4c29-9745-887e5311d8d4"],
Cell[32654, 922, 700, 19, 70, "MoreAboutSection",ExpressionUUID->"6678aa3c-4b55-4bb1-a997-6c3954427498"],
Cell[33357, 943, 78, 0, 70, "FooterCell",ExpressionUUID->"feb8fffe-ec6a-4b60-a1f3-288afb0c918f"]
}
]
*)

(* End of internal cache information *)

