(* 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[     38985,       1022]
NotebookOptionsPosition[     30878,        870]
NotebookOutlinePosition[     32942,        919]
CellTagsIndexPosition[     32865,        914]
WindowTitle->BIP32KeyFingerprint
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->
           "03198985-78b2-4dfb-973b-ad89a0ac470b"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "9cfe7cd3-39fc-4687-9631-0a1499e8df92"],
        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->
           "be810d5a-447f-4f39-890e-032eca049d39"]
         }],ExpressionUUID->"63e4b518-e8c3-4e6f-8129-6015658d0b0b"],
         StripOnInput->False],{
        StyleBox[
          "\"BIP32ChildKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32ChildKey"], 
         StyleBox[
          "\"BIP32PublicKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32PublicKey"], 
         StyleBox[
          "\"BIP32ExtendedKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32ExtendedKey"], 
         StyleBox[
          "\"BitcoinPublicKeyHash\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BitcoinPublicKeyHash"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "ef35b7d7-7e3a-4407-bfe5-3ec97cbe1fb9"],
     "\[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->
           "265f2c01-76cb-4360-9994-91e73365b816"]
         }],ExpressionUUID->"13174dea-31cf-459d-aeac-133390cea016"],
         StripOnInput->False],{
        "\"Derivation\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Derivation"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "4c8fceb3-dbac-4e6b-be71-f5ec6dc60c91"],
     "\[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->
           "43ffef6f-006f-4ccb-980c-b530f76a7f57"]
         }],ExpressionUUID->"ae7a483e-d46a-435f-ab45-1c7e12e4a02b"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BIP32KeyFingerprint\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BIP32KeyFingerprint"], 
         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/BIP32KeyFingerprint.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/BIP32KeyFingerprint" <> ".html"],
               None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "1f1f9368-d3a7-4b49-b044-e88868b40b70"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "a4e095bd-feb7-494f-9e7e-2d81b692ea0a"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"f2987558-ba92-4c58-a6b3-9fe88e493fae"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"9d0f2292-280a-473a-b261-83c4163fe055"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BIP32KeyFingerprint", "ObjectName",ExpressionUUID->
      "6c20daa0-b760-44f6-8415-5f223190dd7a"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"64faece0-ada7-4615-a979-bfd393c5f57d"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "05acd7c9-2de9-4136-a882-64c2ffbe8d21"]
    }],ExpressionUUID->"344e5dc8-7795-43b2-8ed7-feca181f2f5a"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"a795c931-0cfc-4758-9a22-\
6e53486ed9e0"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BIP32KeyFingerprint"]], 
         "paclet:WolframInstitute/Puzzles/ref/BIP32KeyFingerprint", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["key", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "64ef5a5c-f468-4fca-8d78-bae99d9abe7b"],
     "\[LineSeparator]",
     "gives the 4-byte fingerprint of a BIP32 extended ",
     StyleBox["key", "TI"],
     ", as a ByteArray."
    }],ExpressionUUID->"cb610681-2e67-4861-8528-9db7fbc7d7c6"]}
  }]], "Usage",ExpressionUUID->"3a1f3810-779b-4a76-ab54-e5a11192aa27"]
}, 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->"ff0fde63-4b3f-4870-88a0-5bfdd3a1d486"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"14961e13-d221-4ad7-94c4-ca51978f76b8"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "e38174cc-964a-4df1-9b41-3f5e7446e777"]],ExpressionUUID->"e232a4d5-fb3a-\
4332-ade2-05462df16ba9"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->2143733690,ExpressionUUID->"48bf6090-18d3-4c0a-a63c-bdb46d157d55"],

Cell[TextData[{
 "The BIP32 key identifier is ",
 Cell[BoxData["HASH160"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "715c57a5-e733-43af-8038-d4caeacd6d38"],
 " of the compressed public key; the fingerprint is its first four bytes."
}], "Notes",ExpressionUUID->"ea79ed2f-b8f8-439b-abe6-abf342a2ecc2"],

Cell["\<\
A private key and its neutered public key have the same fingerprint, since \
both identify the same point.\
\>", "Notes",ExpressionUUID->"979e4530-6f7a-45a6-958f-b914a1441b32"],

Cell[TextData[{
 "The fingerprint of a key is what its children carry as ",
 Cell[BoxData["\<\"ParentFingerprint\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a1b1e515-1934-4c88-8a8c-009881ef890f"],
 "."
}], "Notes",ExpressionUUID->"09a541bf-6de2-4f92-888d-93c28e76d8e8"],

Cell["\<\
Four bytes is not collision-resistant; the fingerprint is a lookup hint, not \
an identity.\
\>", "Notes",ExpressionUUID->"8457e801-dc89-4d84-81bb-0cd433777c6d"],

Cell["\<\
An Association that is not an extended key matches no definition and the call \
is returned unevaluated.\
\>", "Notes",ExpressionUUID->"d7d6f9b4-276e-4a4f-be75-6c47af7cd0d3"],

Cell[TextData[{
 "Output descriptors write the master fingerprint in front of a path, as in \
",
 Cell["[d34db33f/84h/0h/0h]", "InlineCode",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "8f10fcbb-7532-47d4-8bcc-34642470f8da"],
 "."
}], "Notes",ExpressionUUID->"9a568b71-ee2f-46ff-8a93-de87fda0d72a"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"2d718940-bf78-4c1c-baf5-81419307d0be"],

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->"21b7de0c-86e9-4980-8a8a-8f6cc9b22660"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"86e67d3c-eca0-4a11-a32d-03146b26f2bf"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(9)", "ExampleCount",ExpressionUUID->
  "5525b83e-3106-4f12-b0fd-cce7175f60f3"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1398982111,ExpressionUUID->"9fdf6adf-08a9-41fa-b628-21f8a09d980e"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"fe8ba283-dd3d-4225-a402-624b12881680"],

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->
  "8a392a59-513d-49eb-b0e3-47c6a89a4a1b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"8b45c6f2-29f8-4b5d-967c-6a30693cfe58"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "4b9405f0-8acc-4958-9de6-b42a4a1d02aa"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2041372221,ExpressionUUID->"6cc982a9-a44f-4897-a820-b32ed203e306"],

Cell["The fingerprint of the BIP32 test vector 1 master key:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"2046444d-f5c9-4b2c-be8d-1ff19fc91c04"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"Normal", "[", 
   RowBox[{"BIP32KeyFingerprint", "[", 
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4b88355b-5ccf-4327-b1fa-e43084933593"],

Cell[BoxData["\<\"3442193e\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7b43f9f4-98af-4c4a-9f45-2b04641a9653"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2527456e-08d7-4f49-9918-2a6e21181a35"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f373711e-5f91-4e90-\
b5d0-a71fb4652095"],

Cell["It is exactly what the first child records as its parent:", \
"ExampleText",ExpressionUUID->"34f92178-5530-4c7a-a38a-968653dd6aa8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BIP32ChildKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}],
      ",", " ", "0"}], "]"}], "[", "\"\<ParentFingerprint\>\"", "]"}], " ", "===",
   " ", 
  RowBox[{"BIP32KeyFingerprint", "[", 
   RowBox[{
   "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7631a0b3-9ae0-4c5b-b3a0-e920a4dd65b9"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"20d04066-25e7-4716-9cb8-449666803596"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9a6ded68-07c4-422a-8f68-a98018841f8e"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c3e471d0-65b4-4b21-\
8327-1c4cc91620a0"],

Cell["The result is four bytes:", "ExampleText",ExpressionUUID->"5908adac-e64c-4d40-8fb2-52a1c0be4168"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"BIP32KeyFingerprint", "[", 
   RowBox[{
   "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e8fe0fd3-2c08-4653-95cd-3d2354c98d7c"],

Cell[BoxData["4"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4ac432a5-ddf7-49d5-8d49-ea6d238ebd75"]
}, 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->
  "34f2d646-a616-46a2-90b2-b9f84c7f6703"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"84e080fe-621e-4007-9b62-f4a4f963c0f1"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "3491dff2-fd44-4b48-ab5f-37af65babb44"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"c9ffb154-3e9b-4b70-aaef-1ff9186b5adb"],

Cell["\<\
A private key and its neutered form have the same fingerprint:\
\>", "ExampleText",ExpressionUUID->"5ce5bfd1-06bd-4231-bbca-1b3e02c53674"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BIP32KeyFingerprint", "[", 
   RowBox[{"BIP32PublicKey", "[", 
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    "]"}], "]"}], " ", "===", " ", 
  RowBox[{"BIP32KeyFingerprint", "[", 
   RowBox[{
   "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3bb84992-8774-4238-be92-3b02caec75ce"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3ed89969-293b-4591-a5af-fd03b3837b9f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "442ee94a-3aa9-4f63-b099-3a97dc4dedc7"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"48ff1ed5-3525-4b37-\
b922-c09f061afb62"],

Cell["\<\
The fingerprint of a key parsed from a published xpub string:\
\>", "ExampleText",ExpressionUUID->"6834805d-8796-4aa6-a2ab-4126587d566e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"Normal", "[", 
   RowBox[{"BIP32KeyFingerprint", "[", 
    RowBox[{
    "BIP32ExtendedKey", 
     "[", "\"\<\
xpub661MyMwAqRbcFtXgS5sYJABqqG9YLmC4Q1Rdap9gSE8NqtwybGhePY2gZ29ESFjqJoCu1Rupje\
8YtGqsefD265TMg7usUDFdp6W1EGMcet8\>\"", "]"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"94d0fe0f-5764-4ab4-b325-0d9168c858ab"],

Cell[BoxData["\<\"3442193e\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c4b44894-0f35-49a1-8746-a54a3ee6d3d8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a581d9ca-f2af-4f37-b591-77e0887c6a12"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c9eaf2f6-c3e8-4b7c-\
9f40-b8ad70dfe1ad"],

Cell["An Association that is not an extended key is left alone:", \
"ExampleText",ExpressionUUID->"601d1b35-03bf-457b-977b-ef83f35a794d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BIP32KeyFingerprint", "[", 
    RowBox[{"<|", 
     RowBox[{"\"\<Key\>\"", " ", "->", " ", "1"}], "|>"}], "]"}], ",", " ", 
   "_BIP32KeyFingerprint"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1ee23bbd-bdef-464f-8e1e-f3942ed663a3"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f296c801-db71-475b-a7bb-d0cfab2a4a74"]
}, 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->
  "6f1bba32-6f97-4f6b-9b32-323f223eaf8d"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"685f7aed-92da-49b7-95ea-fb64d8543857"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "445e65e6-ec3f-464b-9c12-c4bdb67d5916"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"eefcce01-57a0-49d8-b91c-0236da60076a"],

Cell["\<\
Identifying which of several master keys a descriptor refers to:\
\>", "ExampleText",ExpressionUUID->"a5be844c-8068-4c0d-ad45-0c2566904481"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AssociationMap", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ByteListToHexString", "[", 
     RowBox[{"Normal", "[", 
      RowBox[{"BIP32KeyFingerprint", "[", 
       RowBox[{"BIP32MasterKey", "[", "#", "]"}], "]"}], "]"}], "]"}], " ", 
    "&"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<000102030405060708090a0b0c0d0e0f\>\"", ",", 
     " ", "\"\<\
3ddd5602285899a946114506157c7997e5444528f3003f6134712147db19b678\>\""}], 
    "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"322a2f08-e9ba-43ee-b0a8-de189cf31e63"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"000102030405060708090a0b0c0d0e0f\"\>", 
    "\[Rule]", "\<\"3442193e\"\>"}], ",", 
   RowBox[{"\<\"\
3ddd5602285899a946114506157c7997e5444528f3003f6134712147db19b678\"\>", 
    "\[Rule]", "\<\"ad85d955\"\>"}]}], "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d07dfa78-7a4f-4c7a-9dfc-90dfbd4d4d80"]
}, 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->
  "22d50b72-e75a-4b2e-b3e3-a6d01c5d0c82"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ecd58faa-2f00-421f-9ee2-b47cec3e0435"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "5a042c38-6733-4d3d-bf6f-5fd49c42459c"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"40862ebb-9993-41c3-a6e8-95ebbfcd084d"],

Cell[TextData[{
 "The fingerprint is the first four bytes of the key identifier, which is ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BitcoinPublicKeyHash"]], 
    "paclet:WolframInstitute/Puzzles/ref/BitcoinPublicKeyHash", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "721f1f07-294d-4f25-8aa1-f1145d27bf53"],
 " of the same key:"
}], "ExampleText",ExpressionUUID->"b40e11da-d616-4918-833b-24f12bdb080e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Normal", "[", 
   RowBox[{"BIP32KeyFingerprint", "[", 
    RowBox[{
    "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", "]"}], 
    "]"}], "]"}], " ", "===", " ", 
  RowBox[{"Take", "[", 
   RowBox[{
    RowBox[{"Normal", "[", 
     RowBox[{"BitcoinPublicKeyHash", "[", 
      RowBox[{
      "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", 
       "]"}], "]"}], "]"}], ",", " ", "4"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9c207f18-2b83-454c-8c06-5bc4536cdbd6"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"aebfe9f5-6a0e-4499-929e-80e6d9a6c754"]
}, 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->
  "ddc399f3-5789-408d-a435-15cc95a15b96"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"eddabfb4-8897-43e9-9baf-9d97b57de501"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "58d2e4ba-8189-4a53-8e3b-53af719f7bb3"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"bf5e5214-2d50-49f9-b7ee-8b0f67e39b71"],

Cell[TextData[{
 "Four bytes give only ",
 Cell[BoxData[
  SuperscriptBox["2", "32"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4f23bf92-e81d-4ba6-9a18-9a7338812c8f"],
 " values, so a fingerprint match is a hint to check rather than a proof of \
identity:"
}], "ExampleText",ExpressionUUID->"48909572-f55f-4111-95ad-5be7b21c12a3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", "^", "32"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"41347e36-6589-45fe-b825-886cb40425e5"],

Cell[BoxData["4294967296"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"84de50a3-c48c-4ae9-9d05-470d2ba117f0"]
}, 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["BIP32ChildKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32ChildKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a53ccd8f-2470-4ca6-83b3-268387337d16"],
        "\[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->
         "cdb2fc39-0d1c-48da-a6d5-32a1708d5d16"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32ExtendedKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32ExtendedKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "39f5d217-49ab-44a6-8884-c2ec4662eecc"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BitcoinPublicKeyHash"]], 
           "paclet:WolframInstitute/Puzzles/ref/BitcoinPublicKeyHash", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "75b77c66-6625-4636-834d-7a16d543a782"]
       }], "SeeAlso",ExpressionUUID->"0d39a123-7f36-4626-85d7-98edd44e05c0"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"96e200e9-b7f3-4d80-861a-\
034db1a80151"],

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->
         "a0705173-0064-4ac3-a82e-249b2c234acd"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"91a58e28-d601-475e-82c3-\
e74ff8987436"],

Cell[" ", "FooterCell",ExpressionUUID->"d94b2a19-f889-478a-8421-e1c96bc2262d"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BIP32KeyFingerprint",
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, 21.281368}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BIP32KeyFingerprint, paclet : \
WolframInstitute/Puzzles/ref/BIP32KeyFingerprint, WolframInstitute/Puzzles \
Package Symbol][key] gives the 4-byte fingerprint of a BIP32 extended key, as \
a ByteArray.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "BIP32KeyFingerprint", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "BIP32KeyFingerprint", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BIP32KeyFingerprint", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"fd1fd89f-0939-4557-99f7-3151093b584f"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[13782, 370, 164, 2, 70, "ExampleText",ExpressionUUID->"2046444d-f5c9-4b2c-be8d-1ff19fc91c04",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 32708, 908}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[587, 21, 5659, 139, 70, "AnchorBarGrid",ExpressionUUID->"f2987558-ba92-4c58-a6b3-9fe88e493fae",
 CellID->1],
Cell[6249, 162, 107, 0, 70, "ContextNameCell",ExpressionUUID->"9d0f2292-280a-473a-b261-83c4163fe055"],
Cell[CellGroupData[{
Cell[6381, 166, 562, 14, 70, "ObjectNameGrid",ExpressionUUID->"a795c931-0cfc-4758-9a22-6e53486ed9e0"],
Cell[6946, 182, 806, 20, 70, "Usage",ExpressionUUID->"3a1f3810-779b-4a76-ab54-e5a11192aa27"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7789, 207, 1444, 34, 70, "NotesSection",ExpressionUUID->"48bf6090-18d3-4c0a-a63c-bdb46d157d55",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->2143733690],
Cell[9236, 243, 353, 7, 70, "Notes",ExpressionUUID->"ea79ed2f-b8f8-439b-abe6-abf342a2ecc2"],
Cell[9592, 252, 186, 3, 70, "Notes",ExpressionUUID->"979e4530-6f7a-45a6-958f-b914a1441b32"],
Cell[9781, 257, 328, 7, 70, "Notes",ExpressionUUID->"09a541bf-6de2-4f92-888d-93c28e76d8e8"],
Cell[10112, 266, 171, 3, 70, "Notes",ExpressionUUID->"8457e801-dc89-4d84-81bb-0cd433777c6d"],
Cell[10286, 271, 184, 3, 70, "Notes",ExpressionUUID->"d7d6f9b4-276e-4a4f-be75-6c47af7cd0d3"],
Cell[10473, 276, 305, 7, 70, "Notes",ExpressionUUID->"9a568b71-ee2f-46ff-8a93-de87fda0d72a"]
}, Closed]],
Cell[10793, 286, 80, 0, 70, "PageDelimiter",ExpressionUUID->"2d718940-bf78-4c1c-baf5-81419307d0be"],
Cell[CellGroupData[{
Cell[10898, 290, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"9fdf6adf-08a9-41fa-b628-21f8a09d980e",
 CellID->1398982111],
Cell[12302, 329, 216, 4, 70, "Input",ExpressionUUID->"fe8ba283-dd3d-4225-a402-624b12881680",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[12543, 337, 1236, 31, 70, "ExampleSection",ExpressionUUID->"6cc982a9-a44f-4897-a820-b32ed203e306",
 CellID->2041372221],
Cell[13782, 370, 164, 2, 70, "ExampleText",ExpressionUUID->"2046444d-f5c9-4b2c-be8d-1ff19fc91c04",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[13971, 376, 371, 8, 70, "Input",ExpressionUUID->"4b88355b-5ccf-4327-b1fa-e43084933593"],
Cell[14345, 386, 122, 1, 70, "Output",ExpressionUUID->"7b43f9f4-98af-4c4a-9f45-2b04641a9653"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14504, 392, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f373711e-5f91-4e90-b5d0-a71fb4652095"],
Cell[14731, 399, 137, 1, 70, "ExampleText",ExpressionUUID->"34f92178-5530-4c7a-a38a-968653dd6aa8"],
Cell[CellGroupData[{
Cell[14893, 404, 544, 14, 70, "Input",ExpressionUUID->"7631a0b3-9ae0-4c5b-b3a0-e920a4dd65b9"],
Cell[15440, 420, 110, 1, 70, "Output",ExpressionUUID->"20d04066-25e7-4716-9cb8-449666803596"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15599, 427, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c3e471d0-65b4-4b21-8327-1c4cc91620a0"],
Cell[15826, 434, 103, 0, 70, "ExampleText",ExpressionUUID->"5908adac-e64c-4d40-8fb2-52a1c0be4168"],
Cell[CellGroupData[{
Cell[15954, 438, 321, 7, 70, "Input",ExpressionUUID->"e8fe0fd3-2c08-4653-95cd-3d2354c98d7c"],
Cell[16278, 447, 107, 1, 70, "Output",ExpressionUUID->"4ac432a5-ddf7-49d5-8d49-ea6d238ebd75"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16446, 455, 1227, 31, 70, "ExampleSection",ExpressionUUID->"c9ffb154-3e9b-4b70-aaef-1ff9186b5adb",
 CellID->1293636265],
Cell[17676, 488, 148, 2, 70, "ExampleText",ExpressionUUID->"5ce5bfd1-06bd-4231-bbca-1b3e02c53674"],
Cell[CellGroupData[{
Cell[17849, 494, 503, 12, 70, "Input",ExpressionUUID->"3bb84992-8774-4238-be92-3b02caec75ce"],
Cell[18355, 508, 110, 1, 70, "Output",ExpressionUUID->"3ed89969-293b-4591-a5af-fd03b3837b9f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18502, 514, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"48ff1ed5-3525-4b37-b922-c09f061afb62"],
Cell[18729, 521, 147, 2, 70, "ExampleText",ExpressionUUID->"6834805d-8796-4aa6-a2ab-4126587d566e"],
Cell[CellGroupData[{
Cell[18901, 527, 457, 10, 70, "Input",ExpressionUUID->"94d0fe0f-5764-4ab4-b325-0d9168c858ab"],
Cell[19361, 539, 122, 1, 70, "Output",ExpressionUUID->"c4b44894-0f35-49a1-8746-a54a3ee6d3d8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19532, 546, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c9eaf2f6-c3e8-4b7c-9f40-b8ad70dfe1ad"],
Cell[19759, 553, 137, 1, 70, "ExampleText",ExpressionUUID->"601d1b35-03bf-457b-977b-ef83f35a794d"],
Cell[CellGroupData[{
Cell[19921, 558, 358, 8, 70, "Input",ExpressionUUID->"1ee23bbd-bdef-464f-8e1e-f3942ed663a3"],
Cell[20282, 568, 110, 1, 70, "Output",ExpressionUUID->"f296c801-db71-475b-a7bb-d0cfab2a4a74"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[20453, 576, 1233, 31, 70, "ExampleSection",ExpressionUUID->"eefcce01-57a0-49d8-b91c-0236da60076a",
 CellID->258228157],
Cell[21689, 609, 150, 2, 70, "ExampleText",ExpressionUUID->"a5be844c-8068-4c0d-ad45-0c2566904481"],
Cell[CellGroupData[{
Cell[21864, 615, 608, 15, 70, "Input",ExpressionUUID->"322a2f08-e9ba-43ee-b0a8-de189cf31e63"],
Cell[22475, 632, 399, 8, 70, "Output",ExpressionUUID->"d07dfa78-7a4f-4c7a-9dfc-90dfbd4d4d80"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[22923, 646, 1244, 31, 70, "ExampleSection",ExpressionUUID->"40862ebb-9993-41c3-a6e8-95ebbfcd084d",
 CellID->2123667759],
Cell[24170, 679, 569, 14, 70, "ExampleText",ExpressionUUID->"b40e11da-d616-4918-833b-24f12bdb080e"],
Cell[CellGroupData[{
Cell[24764, 697, 604, 15, 70, "Input",ExpressionUUID->"9c207f18-2b83-454c-8c06-5bc4536cdbd6"],
Cell[25371, 714, 110, 1, 70, "Output",ExpressionUUID->"aebfe9f5-6a0e-4499-929e-80e6d9a6c754"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25530, 721, 1237, 31, 70, "ExampleSection",ExpressionUUID->"bf5e5214-2d50-49f9-b7ee-8b0f67e39b71",
 CellID->1305812373],
Cell[26770, 754, 385, 9, 70, "ExampleText",ExpressionUUID->"48909572-f55f-4111-95ad-5be7b21c12a3"],
Cell[CellGroupData[{
Cell[27180, 767, 177, 3, 70, "Input",ExpressionUUID->"41347e36-6589-45fe-b825-886cb40425e5"],
Cell[27360, 772, 116, 1, 70, "Output",ExpressionUUID->"84de50a3-c48c-4ae9-9d05-470d2ba117f0"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[27515, 778, 2575, 67, 70, "SeeAlsoSection",ExpressionUUID->"96e200e9-b7f3-4d80-861a-034db1a80151"],
Cell[30093, 847, 700, 19, 70, "MoreAboutSection",ExpressionUUID->"91a58e28-d601-475e-82c3-e74ff8987436"],
Cell[30796, 868, 78, 0, 70, "FooterCell",ExpressionUUID->"d94b2a19-f889-478a-8421-e1c96bc2262d"]
}
]
*)

(* End of internal cache information *)

