(* 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[     42539,       1121]
NotebookOptionsPosition[     33445,        953]
NotebookOutlinePosition[     35589,       1003]
CellTagsIndexPosition[     35512,        998]
WindowTitle->Base58CheckDecode
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->
           "8452acb5-86a5-4546-82c3-279d7c56b7d6"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "e3675558-658b-4970-af4b-a900e4a98f07"],
        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->
           "ed0234b5-59ee-40bd-a1ba-c50b8e7f4e67"]
         }],ExpressionUUID->"7a20f069-1008-43e2-a7f1-64c4c3640d74"],
         StripOnInput->False],{
        StyleBox["\"Failure\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/Failure"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"Base58CheckEncode\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58CheckEncode"], 
         StyleBox[
          StyleBox[
           "\"Base58CheckQ\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58CheckQ"], 
         StyleBox[
          StyleBox[
           "\"Base58Decode\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58Decode"], 
         StyleBox[
          StyleBox["\"WIFDecode\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/WIFDecode"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "3e419149-7b49-4f9b-b836-3e8d190a773e"],
     "\[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->
           "95576f77-50f2-4154-a3ed-5167872dc91c"]
         }],ExpressionUUID->"be6ad30e-680d-4b29-9c09-1711e8f6537f"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "9f017cf4-0e3d-4f22-9436-48ae86267d21"],
     "\[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->
           "0fa137aa-8740-41eb-8e24-3f7592757178"]
         }],ExpressionUUID->"350c4c78-b78e-43ee-903b-8810a7128f4b"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/Base58CheckDecode\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/Base58CheckDecode"], 
         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/Base58CheckDecode.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/Base58CheckDecode" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "63083aa4-7fad-4c92-9c26-48f18e393afd"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "b4b88545-2098-4f8d-b96d-d1bb20522679"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"35133689-d0d1-489c-8190-6e9794fe5795"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"31ed03e5-1fe9-4c27-bbd8-93dc2ce21beb"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "Base58CheckDecode", "ObjectName",ExpressionUUID->
      "8be72d05-1715-483b-a016-75ab13934fd8"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"5d8cb470-4513-44f8-8b3d-439d084c2858"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "34500082-547d-4055-9ab3-21f4e29d99e7"]
    }],ExpressionUUID->"fcd1932a-d1c1-4432-ab26-80400dca987e"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"9790873a-de2a-4c41-9442-\
c9e77158f5ca"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["Base58CheckDecode"]], 
         "paclet:WolframInstitute/Puzzles/ref/Base58CheckDecode", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["string", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "cf1495d9-1c54-43e7-9f41-a7e2eea2d7f5"],
     "\[LineSeparator]",
     "gives the payload byte list of a Base58Check ",
     StyleBox["string", "TI"],
     ", version byte first and checksum removed, or a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Failure"]], "paclet:ref/Failure"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "ad48dffa-eaab-46ee-aa0b-a006a8bb52de"],
     " if the string is too short or fails its checksum."
    }],ExpressionUUID->"8ab90a73-4066-485e-98fe-3fa505c0d545"]}
  }]], "Usage",ExpressionUUID->"79d6d7dd-0ee0-4a7d-929d-a7e96929e6be"]
}, 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->"83d88196-f2aa-4c05-adc9-ed2f2631d83c"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"6af9399f-184e-4c32-bbe5-a73b591803ca"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "752ba2f7-1dd4-4e2c-86bc-427b4efcc740"]],ExpressionUUID->"49019184-ac12-\
43f1-82ed-ab11b435ecb2"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->2041372221,ExpressionUUID->"7e963389-0ce6-497f-a56f-16b9927992f6"],

Cell[TextData[{
 "The four trailing bytes are verified against the first four bytes of ",
 Cell[BoxData[
  RowBox[{"SHA256", 
   RowBox[{"(", 
    RowBox[{"SHA256", 
     RowBox[{"(", "payload", ")"}]}], ")"}]}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cf535bf1-4a24-4333-90fb-4584e0920a57"],
 " and then removed, so the result is the payload including its version \
byte."
}], "Notes",ExpressionUUID->"2bc471f0-c9f4-4bed-b677-f05c7648726b"],

Cell[TextData[{
 "A string of fewer than four decoded bytes cannot carry a checksum and gives \
a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "8c52e2cc-ac12-4918-9097-3a72dd9d3fa5"],
 "."
}], "Notes",ExpressionUUID->"eb72ccfb-8ed1-40ea-8890-3c2eb62115e3"],

Cell[TextData[{
 "A checksum mismatch gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "b00f64d1-0519-40a2-987c-62ecd1c36831"],
 ", because the string is well-formed Base58 and the attempt genuinely \
engaged."
}], "Notes",ExpressionUUID->"1a208f0f-f421-4d9a-9a69-3aa41f1c41bf"],

Cell["\<\
A string holding a character outside the Base58 alphabet is not Base58 at \
all, so it matches no definition and the call is returned unevaluated.\
\>", "Notes",ExpressionUUID->"50e6bf06-3b44-4e0b-bea1-b617764667de"],

Cell[TextData[{
 "The version byte is not interpreted; ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["First"]], "paclet:ref/First"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a06abb82-f4a3-47b8-8660-3876eeaf4b43"],
 " of the result reads it, and ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Rest"]], "paclet:ref/Rest"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f4e74078-4f35-4a78-88cf-ea60a638982f"],
 " gives the data."
}], "Notes",ExpressionUUID->"d3a9e70c-4d1c-49e8-b7e9-ff1c7af89c8a"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Base58CheckQ"]], 
    "paclet:WolframInstitute/Puzzles/ref/Base58CheckQ", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "006c443a-10c9-4754-adf4-b6a1e78b3eb3"],
 " gives the same verdict as a boolean."
}], "Notes",ExpressionUUID->"be1ecff6-15cf-488b-9745-23a998c02045"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"37c0b6b7-4479-47eb-8f3c-fe3dde47f7e3"],

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->"b8a9ee1c-dfd2-485e-bc76-e48680702305"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d291ee6a-0c6c-4607-b59f-0b5e6213c4e0"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(11)", "ExampleCount",ExpressionUUID->
  "2cc77e58-2abe-4ede-bcdf-845e74c2faed"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1144173875,ExpressionUUID->"03aa2bd5-0dfc-4c25-a4e4-57f2364ce245"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"d8018275-ed52-45f0-b4ca-a1521fdb106f"],

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->
  "2b3d58d0-ee34-4853-a9c3-4186a4033081"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b2344a91-94cf-466c-8882-f40aca7d6c2b"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "3a37ffe4-df2c-4d48-90d4-0fad6a96c42a"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1561741887,ExpressionUUID->"c0a5b511-9ecf-4b79-9270-45ec0ea5d0a2"],

Cell["\<\
The genesis block coinbase address decodes to its version byte and HASH160:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"4ac86a7f-dbce-4ba8-8bb8-d820b7eed93c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{
  "Base58CheckDecode", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9386d33f-8da5-4435-921d-3d53dc9711ff"],

Cell[BoxData["\<\"0062e907b15cbf27d5425399ebf6f0fb50ebb88f18\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c3b3e6c7-84a1-4119-9466-300807281583"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "74a057ee-f899-4ce0-8f2a-1cdeaec814fd"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"bea21200-5757-4704-\
afa2-890198a1e8cb"],

Cell["The version byte is the first element of the payload:", "ExampleText",ExpressionUUID->"0f7d5fde-4d9f-4b09-a8fb-7c8ae07eb9eb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "[", 
  RowBox[{
  "Base58CheckDecode", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b0ce33a8-da43-4526-97cf-014dbb2ed7bd"],

Cell[BoxData["0"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a7619e4d-2428-40e1-a4ab-ed9f1208d289"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "e4cab70e-aad1-43bf-b9b1-661e9abfecf7"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"82e9aa33-022c-427f-\
9138-6ccd5464136f"],

Cell[TextData[{
 "Changing one character breaks the checksum, so the result is a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "feb87815-47f4-4e12-83a3-a0f271280adc"],
 ":"
}], "ExampleText",ExpressionUUID->"38335d64-967c-40ec-8575-4cabc9d95598"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{
  "Base58CheckDecode", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNb\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c49a6d74-cfc7-4fb2-b3fc-3a941805244a"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"72a26b11-c761-4060-a3a5-bfc81941d37e"]
}, 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->
  "d298cc9c-7eab-4fb0-822b-a8f956d9c793"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"8d297d68-f735-457a-9e0a-7fd56391e294"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "dbc2b2cf-0474-4c02-85f4-e60e4547e17e"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"2a14871b-5d0a-4666-a399-b0413f18a10c"],

Cell["A mainnet P2SH address decodes under version byte 0x05:", "ExampleText",ExpressionUUID->"c63a51cf-a684-4a73-9028-6d3a8407c3d3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{
  "Base58CheckDecode", "[", "\"\<36j4NfKv6Akva9amjWrLG6MuSQym1GuEmm\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e5368c8c-39ab-4246-bc39-8496f3df3abe"],

Cell[BoxData["\<\"05373b819a068f32b7a6b38b6b38729647cfde01c2\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"824ae6fc-ed43-4483-824b-66d2ce7a4baa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "01bda643-8ce5-4530-a800-05ea2829cf1c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"36529a19-4797-470d-\
a034-7ab0062771f4"],

Cell["A testnet P2PKH address decodes under version byte 0x6f:", "ExampleText",ExpressionUUID->"fe210716-01a9-4df5-ac0e-a269ea51419e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "[", 
  RowBox[{
  "Base58CheckDecode", "[", "\"\<mzK2FFDEhxqHcmrJw1ysqFkVyhUULo45hZ\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4f99c084-d223-4b3d-baac-a7e527a28d09"],

Cell[BoxData["111"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a27f7779-8983-4982-a706-062e2c1b93c6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "fc049fed-fc9f-4583-a5c0-d9adc6bdb7ca"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"81f4a959-8985-4f17-\
a696-d2993ecc2696"],

Cell["\<\
An uncompressed Wallet Import Format key decodes to version byte 0x80 \
followed by the 32-byte scalar:\
\>", "ExampleText",ExpressionUUID->"71e5abe8-3e0e-4648-8fe9-9bf92a833493"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{
  "Base58CheckDecode", 
   "[", "\"\<5JuW2AMDYu4xVwRG9DZW18VbzQrGcd5RCgb99sS6ehJsNQXu5b9\>\"", "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"796828a0-ac9a-4c5a-a7d1-794b3fb784ab"],

Cell[BoxData["\<\"\
808f8943bf956de595665c38ffff23827e17c10cdc1c27a028caae6c9810626198\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"bc8c95db-6f70-4019-966c-7c9f80a34799"]
}, 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->
  "2c664cfe-f503-49ba-b574-3c77a9021ded"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"7968b4e1-128c-44bf-a70b-5f780f579f64"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "28dedbd8-a0ef-4001-847e-181ef6d4d970"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"c1a62579-f0be-4448-96e3-78f720e7bbc4"],

Cell["Decoding inverts the one-argument encoding exactly:", "ExampleText",ExpressionUUID->"8e29cb5c-a9ac-4792-bf11-aa1979f7b7f3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58CheckEncode", "[", 
  RowBox[{
  "Base58CheckDecode", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2f06eaa5-130b-4ae0-a3e1-b01cca628e38"],

Cell[BoxData["\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f49d146c-e1bb-43de-bfe6-04f03c6cf4e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "144631ff-9072-4adf-ae63-4e6cdeb4883b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7ca41913-4809-4395-\
8ff0-622161ae3f65"],

Cell[TextData[{
 "The raw ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Base58Decode"]], 
    "paclet:WolframInstitute/Puzzles/ref/Base58Decode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "98771766-1d8f-4155-8e3d-04fe6343a6da"],
 " of the same string is four bytes longer, because it keeps the checksum:"
}], "ExampleText",ExpressionUUID->"457a3f1c-3308-4eda-bba1-238d2cae9471"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{
   "Base58Decode", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", "]"}], 
   "]"}], " ", "-", " ", 
  RowBox[{"Length", "[", 
   RowBox[{
   "Base58CheckDecode", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
    "]"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0673a5a1-ccfa-4514-ad03-f4f4a0c7114e"],

Cell[BoxData["4"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"bb060c22-f5a8-49d7-af1d-b820d25a812a"]
}, 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->
  "4b85ba05-7ec6-4cd4-8e47-82fa60309e0d"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"8ce2d25d-24d7-4910-ac64-0adc88a715ce"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "e995972d-e864-4515-8340-916452cda46d"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"91406494-466c-4644-8e5a-718d008ba453"],

Cell[TextData[{
 "A string too short to hold a checksum gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "71862cc6-33e5-4f72-b3a2-9dbbade05d12"],
 ", not an empty payload:"
}], "ExampleText",ExpressionUUID->"83a484bb-5d68-4ca1-bb98-6be6e7629223"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"Base58CheckDecode", "[", "\"\<x\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1f075017-1276-4a71-971c-0a88786732a8"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a5fcbf59-b650-4edf-96f7-fa51447bc723"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d6e1a2e6-3ccc-4fb7-b47a-504daf2b87e1"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"799f1d92-ad22-4372-\
8d88-4a3a8318fb43"],

Cell["\<\
A character outside the Base58 alphabet means there is no Base58 reading at \
all, so the call is returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"fe355813-fd25-41de-a457-dc7bfc865a4b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58CheckDecode", "[", "\"\<0OIl\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6eff10d0-b741-466c-900d-dd716655b6cb"],

Cell[BoxData[
 RowBox[{"Base58CheckDecode", "[", "\<\"0OIl\"\>", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4b3fc3a2-469e-4854-964c-d38e5b811614"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8b774384-70e8-440b-9d20-d89a7d5cbe4c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ddac0e58-5e62-476c-\
a695-a3c1a9a7cf6e"],

Cell["\<\
A valid checksum says nothing about whether the payload is a meaningful \
address: the version byte and length are the caller's business:\
\>", "ExampleText",ExpressionUUID->"5a2232c9-972f-41f1-a3bf-8f81aff1a955"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"Base58CheckDecode", "[", 
   RowBox[{"Base58CheckEncode", "[", 
    RowBox[{"16^^42", ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}]}], "]"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e4b05abe-0b3b-44c9-9673-8d13ede2aa90"],

Cell[BoxData["\<\"42010203\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"32f696bf-001f-4a7d-b444-d28e16a80f47"]
}, Open  ]]
}, 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["Base58CheckEncode"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58CheckEncode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "1a2cde72-316e-4c5b-a7a3-a3179da3a2da"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Base58CheckQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58CheckQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "0928e471-e2b3-40fd-9621-0d0307a8d2da"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Base58Decode"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58Decode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "b33be2da-9d8e-4d2f-9cc7-547e4da1b665"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["WIFDecode"]], 
           "paclet:WolframInstitute/Puzzles/ref/WIFDecode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "2d08f4eb-fa3c-4d90-bf6f-d60b6b437c07"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Failure"]], "paclet:ref/Failure"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "8599314e-4a43-4ca0-abeb-944c425543d1"]
       }], "SeeAlso",ExpressionUUID->"01e0cd31-47d0-4cf9-8670-034a3f39259b"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"9f6ea156-30bd-4b40-b90a-\
b12a1ab024a3"],

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["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "5dab9550-bcc2-4329-84d2-f757951b1d6e"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"d3d80356-2cb9-42ee-b3c5-\
973519cca2fe"],

Cell[" ", "FooterCell",ExpressionUUID->"37670a55-a0f6-48c9-adce-bf889f82fa2a"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"Base58CheckDecode",
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, 12.585791}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[Base58CheckDecode, paclet : \
WolframInstitute/Puzzles/ref/Base58CheckDecode, WolframInstitute/Puzzles \
Package Symbol][string] gives the payload byte list of a Base58Check string, \
version byte first and checksum removed, or a Failure if the string is too \
short or fails its checksum.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "Base58CheckDecode", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "Base58CheckDecode", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/Base58CheckDecode", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"72204431-5662-4cf6-9351-277711f96e3b"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[16035, 436, 193, 4, 70, "ExampleText",ExpressionUUID->"4ac86a7f-dbce-4ba8-8bb8-d820b7eed93c",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 35355, 992}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[585, 21, 6278, 152, 70, "AnchorBarGrid",ExpressionUUID->"35133689-d0d1-489c-8190-6e9794fe5795",
 CellID->1],
Cell[6866, 175, 107, 0, 70, "ContextNameCell",ExpressionUUID->"31ed03e5-1fe9-4c27-bbd8-93dc2ce21beb"],
Cell[CellGroupData[{
Cell[6998, 179, 560, 14, 70, "ObjectNameGrid",ExpressionUUID->"9790873a-de2a-4c41-9442-c9e77158f5ca"],
Cell[7561, 195, 1173, 29, 70, "Usage",ExpressionUUID->"79d6d7dd-0ee0-4a7d-929d-a7e96929e6be"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8771, 229, 1444, 34, 70, "NotesSection",ExpressionUUID->"7e963389-0ce6-497f-a56f-16b9927992f6",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->2041372221],
Cell[10218, 265, 498, 12, 70, "Notes",ExpressionUUID->"2bc471f0-c9f4-4bed-b677-f05c7648726b"],
Cell[10719, 279, 420, 12, 70, "Notes",ExpressionUUID->"eb72ccfb-8ed1-40ea-8890-3c2eb62115e3"],
Cell[11142, 293, 446, 12, 70, "Notes",ExpressionUUID->"1a208f0f-f421-4d9a-9a69-3aa41f1c41bf"],
Cell[11591, 307, 226, 3, 70, "Notes",ExpressionUUID->"50e6bf06-3b44-4e0b-bea1-b617764667de"],
Cell[11820, 312, 717, 22, 70, "Notes",ExpressionUUID->"d3a9e70c-4d1c-49e8-b7e9-ff1c7af89c8a"],
Cell[12540, 336, 490, 13, 70, "Notes",ExpressionUUID->"be1ecff6-15cf-488b-9745-23a998c02045"]
}, Closed]],
Cell[13045, 352, 80, 0, 70, "PageDelimiter",ExpressionUUID->"37c0b6b7-4479-47eb-8f3c-fe3dde47f7e3"],
Cell[CellGroupData[{
Cell[13150, 356, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"03aa2bd5-0dfc-4c25-a4e4-57f2364ce245",
 CellID->1144173875],
Cell[14555, 395, 216, 4, 70, "Input",ExpressionUUID->"d8018275-ed52-45f0-b4ca-a1521fdb106f",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14796, 403, 1236, 31, 70, "ExampleSection",ExpressionUUID->"c0a5b511-9ecf-4b79-9270-45ec0ea5d0a2",
 CellID->1561741887],
Cell[16035, 436, 193, 4, 70, "ExampleText",ExpressionUUID->"4ac86a7f-dbce-4ba8-8bb8-d820b7eed93c",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[16253, 444, 291, 6, 70, "Input",ExpressionUUID->"9386d33f-8da5-4435-921d-3d53dc9711ff"],
Cell[16547, 452, 156, 1, 70, "Output",ExpressionUUID->"c3b3e6c7-84a1-4119-9466-300807281583"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16740, 458, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"bea21200-5757-4704-afa2-890198a1e8cb"],
Cell[16967, 465, 131, 0, 70, "ExampleText",ExpressionUUID->"0f7d5fde-4d9f-4b09-a8fb-7c8ae07eb9eb"],
Cell[CellGroupData[{
Cell[17123, 469, 277, 6, 70, "Input",ExpressionUUID->"b0ce33a8-da43-4526-97cf-014dbb2ed7bd"],
Cell[17403, 477, 107, 1, 70, "Output",ExpressionUUID->"a7619e4d-2428-40e1-a4ab-ed9f1208d289"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17559, 484, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"82e9aa33-022c-427f-9138-6ccd5464136f"],
Cell[17786, 491, 409, 11, 70, "ExampleText",ExpressionUUID->"38335d64-967c-40ec-8575-4cabc9d95598"],
Cell[CellGroupData[{
Cell[18220, 506, 280, 6, 70, "Input",ExpressionUUID->"c49a6d74-cfc7-4fb2-b3fc-3a941805244a"],
Cell[18503, 514, 110, 1, 70, "Output",ExpressionUUID->"72a26b11-c761-4060-a3a5-bfc81941d37e"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18674, 522, 1227, 31, 70, "ExampleSection",ExpressionUUID->"2a14871b-5d0a-4666-a399-b0413f18a10c",
 CellID->1293636265],
Cell[19904, 555, 133, 0, 70, "ExampleText",ExpressionUUID->"c63a51cf-a684-4a73-9028-6d3a8407c3d3"],
Cell[CellGroupData[{
Cell[20062, 559, 291, 6, 70, "Input",ExpressionUUID->"e5368c8c-39ab-4246-bc39-8496f3df3abe"],
Cell[20356, 567, 156, 1, 70, "Output",ExpressionUUID->"824ae6fc-ed43-4483-824b-66d2ce7a4baa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20549, 573, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"36529a19-4797-470d-a034-7ab0062771f4"],
Cell[20776, 580, 134, 0, 70, "ExampleText",ExpressionUUID->"fe210716-01a9-4df5-ac0e-a269ea51419e"],
Cell[CellGroupData[{
Cell[20935, 584, 277, 6, 70, "Input",ExpressionUUID->"4f99c084-d223-4b3d-baac-a7e527a28d09"],
Cell[21215, 592, 109, 1, 70, "Output",ExpressionUUID->"a27f7779-8983-4982-a706-062e2c1b93c6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21373, 599, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"81f4a959-8985-4f17-a696-d2993ecc2696"],
Cell[21600, 606, 189, 3, 70, "ExampleText",ExpressionUUID->"71e5abe8-3e0e-4648-8fe9-9bf92a833493"],
Cell[CellGroupData[{
Cell[21814, 613, 311, 7, 70, "Input",ExpressionUUID->"796828a0-ac9a-4c5a-a7d1-794b3fb784ab"],
Cell[22128, 622, 184, 3, 70, "Output",ExpressionUUID->"bc8c95db-6f70-4019-966c-7c9f80a34799"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[22373, 632, 1244, 31, 70, "ExampleSection",ExpressionUUID->"c1a62579-f0be-4448-96e3-78f720e7bbc4",
 CellID->2123667759],
Cell[23620, 665, 129, 0, 70, "ExampleText",ExpressionUUID->"8e29cb5c-a9ac-4792-bf11-aa1979f7b7f3"],
Cell[CellGroupData[{
Cell[23774, 669, 289, 6, 70, "Input",ExpressionUUID->"2f06eaa5-130b-4ae0-a3e1-b01cca628e38"],
Cell[24066, 677, 148, 1, 70, "Output",ExpressionUUID->"f49d146c-e1bb-43de-bfe6-04f03c6cf4e7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24251, 683, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7ca41913-4809-4395-8ff0-622161ae3f65"],
Cell[24478, 690, 544, 14, 70, "ExampleText",ExpressionUUID->"457a3f1c-3308-4eda-bba1-238d2cae9471"],
Cell[CellGroupData[{
Cell[25047, 708, 436, 11, 70, "Input",ExpressionUUID->"0673a5a1-ccfa-4514-ad03-f4f4a0c7114e"],
Cell[25486, 721, 107, 1, 70, "Output",ExpressionUUID->"bb060c22-f5a8-49d7-af1d-b820d25a812a"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25654, 729, 1237, 31, 70, "ExampleSection",ExpressionUUID->"91406494-466c-4644-8e5a-718d008ba453",
 CellID->1305812373],
Cell[26894, 762, 414, 11, 70, "ExampleText",ExpressionUUID->"83a484bb-5d68-4ca1-bb98-6be6e7629223"],
Cell[CellGroupData[{
Cell[27333, 777, 240, 4, 70, "Input",ExpressionUUID->"1f075017-1276-4a71-971c-0a88786732a8"],
Cell[27576, 783, 110, 1, 70, "Output",ExpressionUUID->"a5fcbf59-b650-4edf-96f7-fa51447bc723"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27723, 789, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"799f1d92-ad22-4372-8d88-4a3a8318fb43"],
Cell[27950, 796, 205, 3, 70, "ExampleText",ExpressionUUID->"fe355813-fd25-41de-a457-dc7bfc865a4b"],
Cell[CellGroupData[{
Cell[28180, 803, 208, 3, 70, "Input",ExpressionUUID->"6eff10d0-b741-466c-900d-dd716655b6cb"],
Cell[28391, 808, 161, 2, 70, "Output",ExpressionUUID->"4b3fc3a2-469e-4854-964c-d38e5b811614"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28601, 816, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ddac0e58-5e62-476c-a695-a3c1a9a7cf6e"],
Cell[28828, 823, 223, 3, 70, "ExampleText",ExpressionUUID->"5a2232c9-972f-41f1-a3bf-8f81aff1a955"],
Cell[CellGroupData[{
Cell[29076, 830, 399, 9, 70, "Input",ExpressionUUID->"e4b05abe-0b3b-44c9-9673-8d13ede2aa90"],
Cell[29478, 841, 122, 1, 70, "Output",ExpressionUUID->"32f696bf-001f-4a7d-b444-d28e16a80f47"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[29651, 848, 3008, 80, 70, "SeeAlsoSection",ExpressionUUID->"9f6ea156-30bd-4b40-b90a-b12a1ab024a3"],
Cell[32662, 930, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"d3d80356-2cb9-42ee-b3c5-973519cca2fe"],
Cell[33363, 951, 78, 0, 70, "FooterCell",ExpressionUUID->"37670a55-a0f6-48c9-adce-bf889f82fa2a"]
}
]
*)

(* End of internal cache information *)

