(* 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[     53946,       1383]
NotebookOptionsPosition[     45013,       1219]
NotebookOutlinePosition[     47324,       1271]
CellTagsIndexPosition[     47246,       1266]
WindowTitle->BIP32ExtendedKeyString
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->
           "b441716d-7cd4-47ed-b09a-82458de06816"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "d81e101b-c38d-4497-8fc1-dceaa91ecaa3"],
        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->
           "c15e2491-e5b6-4ee7-b353-2ce7d9e39145"]
         }],ExpressionUUID->"1576d49f-e1c7-4e55-93c2-3e4d3bb1752f"],
         StripOnInput->False],{
        StyleBox[
          "\"BIP32ExtendedKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32ExtendedKey"], 
         StyleBox[
          "\"BIP32MasterKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32MasterKey"], 
         StyleBox[
          "\"BIP32PublicKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32PublicKey"], 
         StyleBox[
          "\"BIP32DeriveKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey"], 
         StyleBox[
          "\"Base58CheckEncode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58CheckEncode"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "42c93a55-e548-4839-b6f5-23a4cad6a6ab"],
     "\[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->
           "0243a33d-3ceb-40b8-9d93-3db9b060f35e"]
         }],ExpressionUUID->"3e83ef2d-a930-4efb-9067-6689be05716a"],
         StripOnInput->False],{
        "\"Derivation\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Derivation"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "49681644-e8e7-452b-ae22-d14b002acf85"],
     "\[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->
           "b61ea418-80b7-46d6-a2ea-6d3a6d741290"]
         }],ExpressionUUID->"1bb5aa41-434d-4e91-ab18-1a9211a4027b"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BIP32ExtendedKeyString\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard[
          "WolframInstitute/Puzzles/ref/BIP32ExtendedKeyString"], 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/BIP32ExtendedKeyString.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/BIP32ExtendedKeyString" <> 
               ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "e2b16317-4da5-401d-a652-8a6c853384d6"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "705ccd58-40b6-4b95-825c-c8e139a18127"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"c1056d90-8500-4474-bdda-30ba29de32fa"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"128a6afb-2011-4c9d-abba-6e0dbeda6241"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BIP32ExtendedKeyString", "ObjectName",ExpressionUUID->
      "266d25f7-e655-4fc9-bc8e-44d0c25fa820"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"5ad69a7e-9361-4408-afdb-0c3aa9f24c36"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "b557a74a-7dfb-4058-9c45-fb9c805021de"]
    }],ExpressionUUID->"3fc6f619-e0f4-4efb-94ca-70dd4f499c90"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"d6092a2f-2018-463f-9f43-\
f17832d3ce08"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BIP32ExtendedKeyString"]], 
         "paclet:WolframInstitute/Puzzles/ref/BIP32ExtendedKeyString", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["key", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "03e54555-b624-4bad-83a4-2f633ddb79c2"],
     "\[LineSeparator]",
     "gives the Base58Check serialisation of a BIP32 extended ",
     StyleBox["key", "TI"],
     ", using the version it carries."
    }],ExpressionUUID->"4d9fdd1f-22ab-4b1c-8de8-51daa5fcc568"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BIP32ExtendedKeyString"]], 
         "paclet:WolframInstitute/Puzzles/ref/BIP32ExtendedKeyString", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["key", "TI"], ",", " ", 
        StyleBox["prefix", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "a50be75b-24a8-4f15-a2e6-8cc6284423f3"],
     "\[LineSeparator]",
     "serialises it under the version named by ",
     StyleBox["prefix", "TI"],
     "."
    }],ExpressionUUID->"24ec7016-78cf-422d-8d5b-fc37b556ceb8"]}
  }]], "Usage",ExpressionUUID->"f90f0463-3575-4e5e-8627-11955c11d6ea"]
}, 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->"d7adfaf6-1df0-4dde-a141-c31d841f6c53"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"0d885ffd-a0c6-4cc2-86bd-0face0d3008c"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "7df1cf12-321a-478a-ac8b-3bfb16d951f1"]],ExpressionUUID->"be7a85bc-e94c-\
4e7f-8c9e-94b096ed55b0"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1429036555,ExpressionUUID->"814cd5c4-6c86-4c9a-9300-b423e2e263f3"],

Cell["\<\
The 78 serialised bytes are the 4-byte version, the depth, the 4-byte parent \
fingerprint, the 4-byte child number, the 32-byte chain code and 33 bytes of \
key data, Base58Check encoded.\
\>", "Notes",ExpressionUUID->"1850b5cc-4cb9-4da5-ad1e-6ba060424d01"],

Cell["\<\
A private key is padded to 33 bytes with a leading zero byte; a public key is \
already 33 bytes compressed.\
\>", "Notes",ExpressionUUID->"a5f33da0-b28e-4dcf-be15-6d0d005b6b46"],

Cell[TextData[{
 "The prefix is one of ",
 Cell[BoxData["\<\"xprv\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7c23c0f2-5a12-4ce2-8d7b-c275e7e94976"],
 ", ",
 Cell[BoxData["\<\"xpub\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8eb6388a-5640-4cfc-a420-2ae2c0c224dd"],
 ", ",
 Cell[BoxData["\<\"yprv\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5311aec9-800a-40f0-9f4c-58622b85a8a1"],
 ", ",
 Cell[BoxData["\<\"ypub\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "81be902a-1442-4d04-90b1-623a5de2a25b"],
 ", ",
 Cell[BoxData["\<\"zprv\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c5c7a286-b444-472d-95ae-d9482e21c732"],
 ", ",
 Cell[BoxData["\<\"zpub\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "baa4c4a3-9529-437b-83e9-deae3560108d"],
 ", ",
 Cell[BoxData["\<\"tprv\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "db94df39-b920-4846-bd90-6e8ad3f26fee"],
 ", ",
 Cell[BoxData["\<\"tpub\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "bf857bf2-90fa-4ad6-b910-8a2e69ac9907"],
 ", ",
 Cell[BoxData["\<\"uprv\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b610e1fd-84d5-47bc-a2e3-5aa39d7e60b6"],
 ", ",
 Cell[BoxData["\<\"upub\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b82f5724-0921-45ba-b53f-9320c1129e60"],
 ", ",
 Cell[BoxData["\<\"vprv\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d3d2320c-1269-4072-b60f-43915b95484f"],
 " or ",
 Cell[BoxData["\<\"vpub\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c0f9789e-c7d1-4158-9fe6-a3c2577fbbb0"],
 "."
}], "Notes",ExpressionUUID->"54e75da3-c423-43d2-9594-9a49679eb19a"],

Cell[BoxData[GridBox[{
   {Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"1c72421c-5e36-4b3d-9ce2-357ff377e24d"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"161d97ee-7c38-4e2a-8336-9fa787a916af"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"387520df-991b-443d-b899-816668c1518b"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"c51f34db-d0c5-4d4a-8081-4cd685db3984"]},
   {Cell[TextData[{
     Cell[BoxData["xprv"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "e2f1326b-263e-448b-a58a-c258521f72a4"],
     " / ",
     Cell[BoxData["xpub"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "933aac36-44d9-4c13-bc54-f40f7daf0edd"]
    }], "TableText",ExpressionUUID->"02a46275-6bfc-4740-a851-d940d136f1fc"], 
    Cell[TextData[{
     Cell[BoxData[
      RowBox[{"0488", "ade4"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "13e527ae-0ff6-456d-a6d4-0e32ee3c2a06"],
     " / ",
     Cell[BoxData[
      RowBox[{"0488", "b21e"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "4fb0fa6c-2d4a-4b43-8b9f-3e1401eefdfc"]
    }], "TableText",ExpressionUUID->"d3fd80d5-c142-4f31-8833-6010c4e127fe"], 
    Cell["Mainnet", "TableText",ExpressionUUID->
     "d221ac22-2689-4110-b845-d01fa4c8f20a"], Cell[
    "P2PKH or P2SH", "TableText",ExpressionUUID->
     "feeb1cde-55a0-491b-8360-ca1039488c4c"]},
   {Cell[TextData[{
     Cell[BoxData["yprv"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "ea87dd50-1cab-4f31-b3f8-7f495e57d0f2"],
     " / ",
     Cell[BoxData["ypub"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "e2b035e6-7393-466b-ab36-1b937b365d61"]
    }], "TableText",ExpressionUUID->"23b7bb05-c498-402e-970f-26e65f8fa1b0"], 
    Cell[TextData[{
     Cell[BoxData[
      RowBox[{"049", "d7878"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "60bb0297-761a-4e4b-8da6-88c47cb2ba9f"],
     " / ",
     Cell[BoxData[
      RowBox[{"049", "d7cb2"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "51101cad-ca08-428c-9469-2ba47f492351"]
    }], "TableText",ExpressionUUID->"cd0861ee-2be1-4ab3-862c-ae943958d45d"], 
    Cell["Mainnet", "TableText",ExpressionUUID->
     "46189bb0-3ac1-463f-a5cc-c775c1d7a4c0"], Cell[
    "P2WPKH in P2SH", "TableText",ExpressionUUID->
     "25c3e19d-220c-4562-b4ed-23ffde77f623"]},
   {Cell[TextData[{
     Cell[BoxData["zprv"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "49bccb85-89ac-4a1b-bb91-d94ca11a7cec"],
     " / ",
     Cell[BoxData["zpub"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "16751874-5920-4334-ad3b-8dcf50b62322"]
    }], "TableText",ExpressionUUID->"fe9c769b-53b6-4502-ad04-857dbdd3ade1"], 
    Cell[TextData[{
     Cell[BoxData[
      RowBox[{"04", "b2430c"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "1e39ce47-8e27-4171-9443-1a208770c75a"],
     " / ",
     Cell[BoxData[
      RowBox[{"04", "b24746"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "20004bbf-5548-4c6c-9d1a-fc0a300e4679"]
    }], "TableText",ExpressionUUID->"d52e6b6d-d29a-489f-9ea5-caa5210069ff"], 
    Cell["Mainnet", "TableText",ExpressionUUID->
     "17658b91-73d7-4435-bbf5-e76037e7ba6a"], Cell[
    "P2WPKH", "TableText",ExpressionUUID->
     "8e47db8e-8789-45f5-8b9a-938cb0a083fc"]},
   {Cell[TextData[{
     Cell[BoxData["tprv"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "12948411-948e-492b-8d64-383a6c6143c3"],
     " / ",
     Cell[BoxData["tpub"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "b8fb70a0-6f4a-4a93-b689-4780ce872540"]
    }], "TableText",ExpressionUUID->"4973ba0d-2a64-4c19-a5b7-618d6a53a04a"], 
    Cell[TextData[{
     Cell[BoxData["04358394"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "b38af48a-9439-4dd9-ac6f-8e6f089e5643"],
     " / ",
     Cell[BoxData[
      RowBox[{"043587", "cf"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "0c8906f6-ab82-4288-9336-f5341fe9988f"]
    }], "TableText",ExpressionUUID->"c9212737-7ba3-4c7b-8560-f6ec438f479a"], 
    Cell["Testnet", "TableText",ExpressionUUID->
     "ebdd17d4-2e16-4db8-9b1a-362eb8084722"], Cell[
    "P2PKH or P2SH", "TableText",ExpressionUUID->
     "b97623a4-a248-4e27-8eea-859c732c222a"]},
   {Cell[TextData[{
     Cell[BoxData["uprv"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "f2894aec-9a68-4f31-b98a-a0799c8b3ea5"],
     " / ",
     Cell[BoxData["upub"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "efdfbc5d-9f82-4832-95e9-db38e28f24d5"]
    }], "TableText",ExpressionUUID->"d23db0ec-3fcf-40df-9284-803f7324f884"], 
    Cell[TextData[{
     Cell[BoxData[
      RowBox[{"044", "a4e28"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "40cb75cf-b2d9-4c83-b547-9bfe8bdf5471"],
     " / ",
     Cell[BoxData[
      RowBox[{"044", "a5262"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "45325702-a0fb-4861-abd0-1e85afcc8a41"]
    }], "TableText",ExpressionUUID->"1a8b9224-0f72-40d6-b22d-57bd8b0c61f9"], 
    Cell["Testnet", "TableText",ExpressionUUID->
     "6bc54593-1136-4621-9ff1-ebb26f4fdace"], Cell[
    "P2WPKH in P2SH", "TableText",ExpressionUUID->
     "6ce24743-82e1-4c88-8e3e-ab6cb3f54b21"]},
   {Cell[TextData[{
     Cell[BoxData["vprv"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "eb3d3ea3-1aae-4c08-88a7-7eea4488a270"],
     " / ",
     Cell[BoxData["vpub"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "a46ac4e6-2828-4307-a6b7-9819229f22be"]
    }], "TableText",ExpressionUUID->"5d85d279-d528-4e72-961e-717e98a0773a"], 
    Cell[TextData[{
     Cell[BoxData[
      RowBox[{"045", "f18bc"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "4140384b-44aa-4705-86de-a68cd4824bfd"],
     " / ",
     Cell[BoxData[
      RowBox[{"045", "f1cf6"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "bc0c4d7c-ce80-4fdb-9d1c-df32ac0ebd7a"]
    }], "TableText",ExpressionUUID->"72ba70de-f48c-402a-8178-1ffc73b91ee8"], 
    Cell["Testnet", "TableText",ExpressionUUID->
     "e115bf57-eb12-4426-9816-75ca9757dadb"], Cell[
    "P2WPKH", "TableText",ExpressionUUID->
     "d2b17da7-9536-4bae-85be-3b7ab026e2c0"]}
  },
  GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
  GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {{True}}},
  GridBoxSpacings->{"Columns" -> {{1.5}}, "Rows" -> {{0.7}}}]], "Text",Express\
ionUUID->"8848ec49-0cd3-4d94-b656-adb36f821f3c"],

Cell[TextData[{
 "The prefix must match the key's ",
 Cell[BoxData["\<\"Type\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b3249160-12cc-4041-806a-9f828d8b64bb"],
 ": serialising a private key as an ",
 Cell[BoxData["xpub"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0fa62d6d-13bb-4391-8d81-1072ac252840"],
 " matches no definition and the call is returned unevaluated."
}], "Notes",ExpressionUUID->"2d9feda8-d4c9-4a32-a3fd-619ebb873977"],

Cell[TextData[{
 "The version bytes carry no derivation meaning; a key derived along ",
 Cell["m/84h/0h/0h", "InlineCode",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "2d9e0d7e-06c5-431b-bb9f-034a7743d143"],
 " can be written as an ",
 Cell[BoxData["xprv"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6d1ca1d1-a6f1-45c1-accc-1384d8076bd5"],
 ", and the same bytes are then a different string for the same key."
}], "Notes",ExpressionUUID->"f3ca6631-71e9-41c2-ac3d-aa3e284828a6"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP32ExtendedKey"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP32ExtendedKey", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "de73428f-338a-4d11-8324-78c63c2aa63c"],
 " is the inverse."
}], "Notes",ExpressionUUID->"daf3524c-6a51-4120-ac5c-678520ea27aa"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"66a01312-5853-4714-8e93-58a1f51161b5"],

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->"2edf6c1a-6c8a-45f8-a2a9-38d467d8a37b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"0f7d543a-fa56-497a-b555-f30d48fa2e9d"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(10)", "ExampleCount",ExpressionUUID->
  "46c08cfd-bc95-4f20-b2ee-6d34417eec24"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->360271837,ExpressionUUID->"cd596e53-27cd-4b91-9f05-48acd52dd21f"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"69b0533f-2206-4388-9b47-0f6282be7502"],

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->
  "dac167e4-fffb-4214-afbf-067045707aa0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"98ec05a4-314e-4dbb-9a02-ca71c40951a3"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "e68110bc-fb59-4dd4-ae5b-40a6466da752"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1332363566,ExpressionUUID->"a051f50e-992d-433d-9a68-4a5be959fd6c"],

Cell["The BIP32 test vector 1 master key:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"0b7dbefb-7c7a-45ea-b1b1-82b72b8147d1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{
  "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"864dccda-db57-47d4-9651-5d5a3762428f"],

Cell[BoxData["\<\"\
xprv9s21ZrQH143K3QTDL4LXw2F7HEK3wJUD2nW2nRk4stbPy6cq3jPPqjiChkVvvNKmPGJxWUtg6L\
nF5kejMRNNU3TGtRBeJgk33yuGBxrMPHi\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f0b9defd-110a-48ea-b93f-6d5bf3dad983"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "332d1ddd-6637-4a2b-8771-c0a7eb36eaa9"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b9e7b9d2-819b-41dc-\
ad0f-8869b617aabb"],

Cell["Its extended public key:", "ExampleText",ExpressionUUID->"0d4a6cfb-d966-4af1-8159-ec7a62aabf4f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{"BIP32PublicKey", "[", 
   RowBox[{
   "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e39c8f19-2f8e-418f-ac52-fddebe8c7723"],

Cell[BoxData["\<\"\
xpub661MyMwAqRbcFtXgS5sYJABqqG9YLmC4Q1Rdap9gSE8NqtwybGhePY2gZ29ESFjqJoCu1Rupje\
8YtGqsefD265TMg7usUDFdp6W1EGMcet8\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"389db69d-59ba-4216-959e-2ac070246116"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "70500306-776e-45e1-82b6-2f3b635efbb8"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2b8aefdd-33a1-4a8f-\
b15f-28afc422f9f8"],

Cell["\<\
The same master key written under the BIP84 zprv version, as that \
specification quotes it:\
\>", "ExampleText",ExpressionUUID->"b800da21-63b7-4e25-ac97-1c845222ad0d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{
   RowBox[{
   "BIP32MasterKey", 
    "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], ",", 
   " ", "\"\<zprv\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7b18859d-f244-4c1a-a854-2c6897e46aea"],

Cell[BoxData["\<\"\
zprvAWgYBBk7JR8Gjrh4UJQ2uJdG1r3WNRRfURiABBE3RvMXYSrRJL62XuezvGdPvG6GFBZduosCc1\
YP5wixPox7zhZLfiUm8aunE96BBa4Kei5\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f01dd9a1-864c-40f1-89c8-ce1afa094df6"]
}, 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->
  "8acbbe0c-e0bd-4d4a-81b7-bb66428ce070"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"bb475c80-c899-4b3b-b2cb-500b70eb1116"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "6fc1b28f-3d22-4ca0-9cd1-4fa6a34cf57e"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"8a45896f-e5b8-4e37-afbb-7e66cc3ccc16"],

Cell["A public key under the zpub version, the BIP84 rootpub:", "ExampleText",ExpressionUUID->"1e61b362-4af5-4c7b-8fe7-371c5d1695ea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{
   RowBox[{"BIP32PublicKey", "[", 
    RowBox[{
    "BIP32MasterKey", 
     "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], "]"}], ",", 
   " ", "\"\<zpub\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0e9ccb45-99cc-43b8-8606-009c1049ad73"],

Cell[BoxData["\<\"\
zpub6jftahH18ngZxLmXaKw3GSZzZsszmt9WqedkyZdezFtWRFBZqsQH5hyUmb4pCEeZGmVfQuP5be\
dXTB8is6fTv19U1GQRyQUKQGUTzyHACMF\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3b94a49f-4c14-4173-9cd5-5fc12f1501fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "f40efca0-33b3-489b-bf61-319f8d722942"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"6fc9d5fe-3746-4e5e-\
b2b2-a49fe5ab21b2"],

Cell["\<\
A testnet version gives a tprv, differing only in the four version bytes:\
\>", "ExampleText",ExpressionUUID->"73cfbc76-73f6-4239-9e9f-2402fa7158ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BIP32ExtendedKeyString", "[", 
  RowBox[{
   RowBox[{
   "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], ",",
    " ", "\"\<tprv\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ec515b19-06c7-49d6-b410-41b5f8115079"],

Cell[BoxData["\<\"\
tprv8ZgxMBicQKsPeDgjzdC36fs6bMjGApWDNLR9erAXMs5skhMv36j9MV5ecvfavji5khqjWaWSFh\
N3YcCUUdiKH6isR4Pwy3U5y5egddBr16m\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2af96704-8dbd-466d-9cf0-0f6f4d1fa48b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2c42ecf5-1829-49cc-84b1-acce62b3db18"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f82a62f3-39c8-4b62-\
9b96-811fbeaae9e2"],

Cell["\<\
A private key cannot be serialised under a public version, so the call is \
returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"435dba7c-8fce-465d-9ba3-a11405e2de23"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BIP32ExtendedKeyString", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      ",", " ", "\"\<xpub\>\""}], "]"}], ",", " ", 
   "_BIP32ExtendedKeyString"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"642649ba-bb36-4aeb-a022-d1bdd9636ac4"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c4dd9147-34a0-43da-97e7-f18ae6de0a65"]
}, 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->
  "5ccd5e49-f6c0-4af2-8f44-30d83964f6e1"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"db01b819-b20d-42bf-99eb-e2255a67e640"],
 "Options",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "155040e9-75c3-49a1-9926-3891dd21dfa3"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2061341341,ExpressionUUID->"83c9e010-f1e2-4238-8f13-de80ff166359"],

Cell["\<\
Every registered prefix applied to one key, showing that only the version \
bytes change:\
\>", "ExampleText",ExpressionUUID->"6eb6bac5-159f-4b8a-bdef-0f7b22418db8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AssociationMap", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"BIP32ExtendedKeyString", "[", 
     RowBox[{
      RowBox[{
      "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", 
       "]"}], ",", " ", "#"}], "]"}], " ", "&"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<xprv\>\"", ",", " ", "\"\<yprv\>\"", ",", " ", "\"\<zprv\>\"",
      ",", " ", "\"\<tprv\>\"", ",", " ", "\"\<uprv\>\"", ",", 
     " ", "\"\<vprv\>\""}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5818856e-438b-4a9d-909a-e6092615579d"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"xprv\"\>", 
    "\[Rule]", \
"\<\"xprv9s21ZrQH143K3QTDL4LXw2F7HEK3wJUD2nW2nRk4stbPy6cq3jPPqjiChkVvvNKmPGJxW\
Utg6LnF5kejMRNNU3TGtRBeJgk33yuGBxrMPHi\"\>"}], ",", 
   RowBox[{"\<\"yprv\"\>", 
    "\[Rule]", \
"\<\"yprvABrGsX5C9jantheLAR8A97LcTCTVsvThwu2FZpdxFtyH2CS4JPYxToNLixTWvGygnuRmF\
xVEZ18ny3GJ57nPGH8skkt4tbZXKhxuaUFh6jt\"\>"}], ",", 
   RowBox[{"\<\"zprv\"\>", 
    "\[Rule]", \
"\<\"zprvAWgYBBk7JR8GjzqSzmunMCS7dAbwpYTCs1YUMDXqduMA5JFHZ3iX5s2UkAR6vBdcCYYa1\
S5o1fVLrKsrnpCQ4WpUd6aVUWP1bS2Yy5DoaKv\"\>"}], ",", 
   RowBox[{"\<\"tprv\"\>", 
    "\[Rule]", \
"\<\"tprv8ZgxMBicQKsPeDgjzdC36fs6bMjGApWDNLR9erAXMs5skhMv36j9MV5ecvfavji5khqjW\
aWSFhN3YcCUUdiKH6isR4Pwy3U5y5egddBr16m\"\>"}], ",", 
   RowBox[{"\<\"uprv\"\>", 
    "\[Rule]", \
"\<\"uprv8tXDerPXZ1QsVWsrpyyfJkxbmKsi7SViHSwNSF4QjsTkooB9HkthyYjne8dAveN1ALxYG\
46ziMibRtp3CL8L5LQUHQ6NYxHaEoiL29kHzK1\"\>"}], ",", 
   RowBox[{"\<\"vprv\"\>", 
    "\[Rule]", \
"\<\"vprv9DMUxX4ShgxMLp4yfLmHWr46wJ2A44VDCZTbDdxJ7sqdrtzNYR4GbcPvfLakvZ1vZz5M1\
XhZB259KBRbv2YLsa659jno8s74WXmyQmgaevA\"\>"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7f35c7a7-bddc-4e97-9db2-25d7fa4ba933"]
}, 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->
  "c20cc9c5-62ad-4e49-90c6-2c306b9ae2ca"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"442568b8-5a13-42f5-a44c-a4ea6a24de7d"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "bfbc6667-bb3e-477e-b7d4-9e4f9dab6b4f"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"71363d8e-6d09-4a37-b1d5-4656c88cc52c"],

Cell["Serialising and parsing are inverse:", "ExampleText",ExpressionUUID->"07b00d71-131b-45d7-b436-0acec52021f0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BIP32ExtendedKey", "[", 
   RowBox[{"BIP32ExtendedKeyString", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      ",", " ", "\"\<zprv\>\""}], "]"}], "]"}], " ", "===", " ", 
  RowBox[{
  "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e850186d-8ba2-48ef-a6c6-9a6f14993796"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"67301d9e-a59f-456d-9771-c5b0b0641d10"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7db4e860-2308-4dfa-8e75-0a779204d144"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ced7897a-383f-46b6-\
b3aa-44e161fb4421"],

Cell["\<\
The serialisation is 78 bytes before Base58Check, which is why every extended \
key string is 111 or 112 characters:\
\>", "ExampleText",ExpressionUUID->"20630a6c-77a4-4a1c-a799-3455fa4ae17c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringLength", "[", 
  RowBox[{"BIP32ExtendedKeyString", "[", 
   RowBox[{
   "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c7221463-ede3-464b-bdfc-c86d67fec93f"],

Cell[BoxData["111"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a05595ee-7956-4eba-97ec-a5bf6d65fc39"]
}, 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->
  "8f9664ef-aa7e-46de-94f6-7e0e8bab8272"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"50244276-8447-4af7-a153-4d2ac78c7448"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "517837e9-1a8c-4b25-af2f-73fc9f030ecf"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"59d169fa-0b80-4628-ba36-0220f7ccd7f4"],

Cell["\<\
The version bytes are a display convention, not part of the key: the same key \
under two versions is two strings that derive identical addresses, which is \
why a wallet that \"does not recognise\" an xpub is usually asking for a zpub \
of the same key:\
\>", "ExampleText",ExpressionUUID->"084c821f-25bb-4e15-8a74-baf0a3383d0d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BIP32DeriveKey", "[", 
    RowBox[{
     RowBox[{"BIP32ExtendedKey", "[", 
      RowBox[{"BIP32ExtendedKeyString", "[", 
       RowBox[{
        RowBox[{
        "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", 
         "]"}], ",", " ", "\"\<zprv\>\""}], "]"}], "]"}], ",", 
     " ", "\"\<m/0\>\""}], "]"}], "[", "\"\<Key\>\"", "]"}], " ", "===", " ", 
  
  RowBox[{
   RowBox[{"BIP32DeriveKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      ",", " ", "\"\<m/0\>\""}], "]"}], "[", "\"\<Key\>\"", "]"}]}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9d489007-0793-463a-8817-7521899c75a0"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8eff01f5-1109-4bc5-ac4e-48cb4444c1e3"]
}, 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["BIP32ExtendedKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32ExtendedKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "0109ca08-5d71-4cd9-944c-67cecdbc7682"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32MasterKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32MasterKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c22ea5e6-dfd5-44e0-8780-e6ef73bdf971"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32PublicKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32PublicKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "3ac80c30-d3f6-4ac9-949f-3f0297c4a4c9"],
        "\[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->
         "4e08b3ee-1219-4615-9707-549194232ce5"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Base58CheckEncode"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58CheckEncode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "0285013c-9f99-430c-b36c-bb9669cdfafc"]
       }], "SeeAlso",ExpressionUUID->"33173f2d-1e34-490c-a39d-e15d770232b5"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"4a8ef50a-0ba7-460f-9880-\
8cb40bef9878"],

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->
         "969978bf-2bcb-4b9d-8025-81246a2f9f4c"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"d11a54f6-7f2a-4eb3-8968-\
0aa0cd3dc158"],

Cell[" ", "FooterCell",ExpressionUUID->"6575bbc7-95ee-41f2-96d0-62fac2daa64a"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BIP32ExtendedKeyString",
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, 18.032641}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BIP32ExtendedKeyString, paclet : \
WolframInstitute/Puzzles/ref/BIP32ExtendedKeyString, WolframInstitute/Puzzles \
Package Symbol][key] gives the Base58Check serialisation of a BIP32 extended \
key, using the version it carries. PackageLink[BIP32ExtendedKeyString, paclet \
: WolframInstitute/Puzzles/ref/BIP32ExtendedKeyString, \
WolframInstitute/Puzzles Package Symbol][key, prefix] serialises it under the \
version named by prefix.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "BIP32ExtendedKeyString", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "BIP32ExtendedKeyString", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BIP32ExtendedKeyString", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"567218b7-f7da-476b-9faa-e55057a77521"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[25161, 653, 145, 2, 70, "ExampleText",ExpressionUUID->"0b7dbefb-7c7a-45ea-b1b1-82b72b8147d1",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 47089, 1260}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[590, 21, 5874, 144, 70, "AnchorBarGrid",ExpressionUUID->"c1056d90-8500-4474-bdda-30ba29de32fa",
 CellID->1],
Cell[6467, 167, 107, 0, 70, "ContextNameCell",ExpressionUUID->"128a6afb-2011-4c9d-abba-6e0dbeda6241"],
Cell[CellGroupData[{
Cell[6599, 171, 565, 14, 70, "ObjectNameGrid",ExpressionUUID->"d6092a2f-2018-463f-9f43-f17832d3ce08"],
Cell[7167, 187, 1596, 41, 70, "Usage",ExpressionUUID->"f90f0463-3575-4e5e-8627-11955c11d6ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8800, 233, 1444, 34, 70, "NotesSection",ExpressionUUID->"814cd5c4-6c86-4c9a-9300-b423e2e263f3",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1429036555],
Cell[10247, 269, 268, 4, 70, "Notes",ExpressionUUID->"1850b5cc-4cb9-4da5-ad1e-6ba060424d01"],
Cell[10518, 275, 188, 3, 70, "Notes",ExpressionUUID->"a5f33da0-b28e-4dcf-be15-6d0d005b6b46"],
Cell[10709, 280, 2197, 62, 70, "Notes",ExpressionUUID->"54e75da3-c423-43d2-9594-9a49679eb19a"],
Cell[12909, 344, 7675, 180, 70, "Text",ExpressionUUID->"8848ec49-0cd3-4d94-b656-adb36f821f3c"],
Cell[20587, 526, 549, 12, 70, "Notes",ExpressionUUID->"2d9feda8-d4c9-4a32-a3fd-619ebb873977"],
Cell[21139, 540, 538, 11, 70, "Notes",ExpressionUUID->"f3ca6631-71e9-41c2-ac3d-aa3e284828a6"],
Cell[21680, 553, 477, 13, 70, "Notes",ExpressionUUID->"daf3524c-6a51-4120-ac5c-678520ea27aa"]
}, Closed]],
Cell[22172, 569, 80, 0, 70, "PageDelimiter",ExpressionUUID->"66a01312-5853-4714-8e93-58a1f51161b5"],
Cell[CellGroupData[{
Cell[22277, 573, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"cd596e53-27cd-4b91-9f05-48acd52dd21f",
 CellID->360271837],
Cell[23681, 612, 216, 4, 70, "Input",ExpressionUUID->"69b0533f-2206-4388-9b47-0f6282be7502",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[23922, 620, 1236, 31, 70, "ExampleSection",ExpressionUUID->"a051f50e-992d-433d-9a68-4a5be959fd6c",
 CellID->1332363566],
Cell[25161, 653, 145, 2, 70, "ExampleText",ExpressionUUID->"0b7dbefb-7c7a-45ea-b1b1-82b72b8147d1",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[25331, 659, 288, 6, 70, "Input",ExpressionUUID->"864dccda-db57-47d4-9651-5d5a3762428f"],
Cell[25622, 667, 229, 3, 70, "Output",ExpressionUUID->"f0b9defd-110a-48ea-b93f-6d5bf3dad983"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25888, 675, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b9e7b9d2-819b-41dc-ad0f-8869b617aabb"],
Cell[26115, 682, 102, 0, 70, "ExampleText",ExpressionUUID->"0d4a6cfb-d966-4af1-8159-ec7a62aabf4f"],
Cell[CellGroupData[{
Cell[26242, 686, 332, 7, 70, "Input",ExpressionUUID->"e39c8f19-2f8e-418f-ac52-fddebe8c7723"],
Cell[26577, 695, 229, 3, 70, "Output",ExpressionUUID->"389db69d-59ba-4216-959e-2ac070246116"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[26855, 704, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2b8aefdd-33a1-4a8f-b15f-28afc422f9f8"],
Cell[27082, 711, 178, 3, 70, "ExampleText",ExpressionUUID->"b800da21-63b7-4e25-ac97-1c845222ad0d"],
Cell[CellGroupData[{
Cell[27285, 718, 435, 10, 70, "Input",ExpressionUUID->"7b18859d-f244-4c1a-a854-2c6897e46aea"],
Cell[27723, 730, 229, 3, 70, "Output",ExpressionUUID->"f01dd9a1-864c-40f1-89c8-ce1afa094df6"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28013, 740, 1227, 31, 70, "ExampleSection",ExpressionUUID->"8a45896f-e5b8-4e37-afbb-7e66cc3ccc16",
 CellID->1293636265],
Cell[29243, 773, 133, 0, 70, "ExampleText",ExpressionUUID->"1e61b362-4af5-4c7b-8fe7-371c5d1695ea"],
Cell[CellGroupData[{
Cell[29401, 777, 480, 11, 70, "Input",ExpressionUUID->"0e9ccb45-99cc-43b8-8606-009c1049ad73"],
Cell[29884, 790, 229, 3, 70, "Output",ExpressionUUID->"3b94a49f-4c14-4173-9cd5-5fc12f1501fc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30150, 798, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"6fc9d5fe-3746-4e5e-b2b2-a49fe5ab21b2"],
Cell[30377, 805, 159, 2, 70, "ExampleText",ExpressionUUID->"73cfbc76-73f6-4239-9e9f-2402fa7158ca"],
Cell[CellGroupData[{
Cell[30561, 811, 330, 7, 70, "Input",ExpressionUUID->"ec515b19-06c7-49d6-b410-41b5f8115079"],
Cell[30894, 820, 229, 3, 70, "Output",ExpressionUUID->"2af96704-8dbd-466d-9cf0-0f6f4d1fa48b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31172, 829, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f82a62f3-39c8-4b62-9b96-811fbeaae9e2"],
Cell[31399, 836, 183, 3, 70, "ExampleText",ExpressionUUID->"435dba7c-8fce-465d-9ba3-a11405e2de23"],
Cell[CellGroupData[{
Cell[31607, 843, 426, 10, 70, "Input",ExpressionUUID->"642649ba-bb36-4aeb-a022-d1bdd9636ac4"],
Cell[32036, 855, 110, 1, 70, "Output",ExpressionUUID->"c4dd9147-34a0-43da-97e7-f18ae6de0a65"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[32207, 863, 1229, 31, 70, "ExampleSection",ExpressionUUID->"83c9e010-f1e2-4238-8f13-de80ff166359",
 CellID->2061341341],
Cell[33439, 896, 175, 3, 70, "ExampleText",ExpressionUUID->"6eb6bac5-159f-4b8a-bdef-0f7b22418db8"],
Cell[CellGroupData[{
Cell[33639, 903, 619, 14, 70, "Input",ExpressionUUID->"5818856e-438b-4a9d-909a-e6092615579d"],
Cell[34261, 919, 1238, 28, 70, "Output",ExpressionUUID->"7f35c7a7-bddc-4e97-9db2-25d7fa4ba933"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[35548, 953, 1244, 31, 70, "ExampleSection",ExpressionUUID->"71363d8e-6d09-4a37-b1d5-4656c88cc52c",
 CellID->2123667759],
Cell[36795, 986, 114, 0, 70, "ExampleText",ExpressionUUID->"07b00d71-131b-45d7-b436-0acec52021f0"],
Cell[CellGroupData[{
Cell[36934, 990, 504, 12, 70, "Input",ExpressionUUID->"e850186d-8ba2-48ef-a6c6-9a6f14993796"],
Cell[37441, 1004, 111, 1, 70, "Output",ExpressionUUID->"67301d9e-a59f-456d-9771-c5b0b0641d10"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37589, 1010, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ced7897a-383f-46b6-b3aa-44e161fb4421"],
Cell[37816, 1017, 202, 3, 70, "ExampleText",ExpressionUUID->"20630a6c-77a4-4a1c-a799-3455fa4ae17c"],
Cell[CellGroupData[{
Cell[38043, 1024, 330, 7, 70, "Input",ExpressionUUID->"c7221463-ede3-464b-bdfc-c86d67fec93f"],
Cell[38376, 1033, 109, 1, 70, "Output",ExpressionUUID->"a05595ee-7956-4eba-97ec-a5bf6d65fc39"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[38546, 1041, 1237, 31, 70, "ExampleSection",ExpressionUUID->"59d169fa-0b80-4628-ba36-0220f7ccd7f4",
 CellID->1305812373],
Cell[39786, 1074, 340, 5, 70, "ExampleText",ExpressionUUID->"084c821f-25bb-4e15-8a74-baf0a3383d0d"],
Cell[CellGroupData[{
Cell[40151, 1083, 782, 21, 70, "Input",ExpressionUUID->"9d489007-0793-463a-8817-7521899c75a0"],
Cell[40936, 1106, 110, 1, 70, "Output",ExpressionUUID->"8eff01f5-1109-4bc5-ac4e-48cb4444c1e3"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[41085, 1112, 3140, 82, 70, "SeeAlsoSection",ExpressionUUID->"4a8ef50a-0ba7-460f-9880-8cb40bef9878"],
Cell[44228, 1196, 700, 19, 70, "MoreAboutSection",ExpressionUUID->"d11a54f6-7f2a-4eb3-8968-0aa0cd3dc158"],
Cell[44931, 1217, 78, 0, 70, "FooterCell",ExpressionUUID->"6575bbc7-95ee-41f2-96d0-62fac2daa64a"]
}
]
*)

(* End of internal cache information *)

