(* 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[     40827,       1074]
NotebookOptionsPosition[     32486,        917]
NotebookOutlinePosition[     34529,        966]
CellTagsIndexPosition[     34452,        961]
WindowTitle->Base58Decode
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->
           "cbef8e52-7ef3-4db7-ac19-2f213bb35bd2"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "2bf16fd8-ba0b-44bf-ad03-ddcb12ceb4dc"],
        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->
           "be916b26-ccfe-46a2-ba5f-818d729fc300"]
         }],ExpressionUUID->"95ee41fb-3db1-4c89-8097-892837d5a908"],
         StripOnInput->False],{
        StyleBox["\"BaseDecode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/BaseDecode"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"Base58Encode\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58Encode"], 
         StyleBox[
          StyleBox["\"Base58Q\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58Q"], 
         StyleBox[
          StyleBox[
           "\"Base58CheckDecode\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58CheckDecode"], 
         StyleBox[
          StyleBox[
           "\"ByteListToHexString\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "dccf89be-44e1-4080-ba35-552ac4ef5de1"],
     "\[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->
           "f28daf93-9d5c-43eb-a414-b225e806bd66"]
         }],ExpressionUUID->"9719a7c0-87ea-44e0-b690-342607251c8e"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "4467fe80-03d9-470e-a4f1-1618684607dc"],
     "\[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->
           "dfc927a6-91bf-4767-8b33-119499f64032"]
         }],ExpressionUUID->"2862ae6a-bc77-4873-83e5-65671efe7568"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/Base58Decode\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/Base58Decode"], 
         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/Base58Decode.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/Base58Decode" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "57adeb9a-7bd8-4164-b0d2-0ad3c3c03381"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "f34dd536-da2f-46e3-a291-d3ab10c2d4c2"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"d816c306-5813-4217-9581-5a46f74964f3"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"2830b8a8-0992-48e7-8acb-1650d3a1ba58"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "Base58Decode", "ObjectName",ExpressionUUID->
      "31ae8ae6-e220-4ce0-885b-112970bf709e"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"bc9a5668-6d7b-49ea-8de2-931eadde4535"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "e6db7501-96d3-4749-92de-7b36f5c7e93a"]
    }],ExpressionUUID->"4a8a946b-707c-48ec-be55-a287bc563e16"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"5d757165-415a-4f07-840f-\
360ca89dcc19"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["Base58Decode"]], 
         "paclet:WolframInstitute/Puzzles/ref/Base58Decode", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["string", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "b31b8284-05f9-4832-b1d4-965a7df9a615"],
     "\[LineSeparator]",
     "gives the list of bytes a Base58 ",
     StyleBox["string", "TI"],
     " encodes, with one leading zero byte per leading ",
     Cell[BoxData["\"\<1\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "5622e9ea-f0df-4722-8343-cba413fd0c55"],
     "."
    }],ExpressionUUID->"476058fd-9193-47af-81c7-5995b2251cca"]}
  }]], "Usage",ExpressionUUID->"634088f5-109c-4d2b-b726-a96aa0a6750e"]
}, 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->"24d1a67f-1212-478a-bea2-914b932b9496"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"891b1719-0022-40a2-9132-03ef788aff60"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "6abe7dbf-32db-4a0f-8e1a-ff0975651f03"]],ExpressionUUID->"b5449716-655b-\
4b35-acae-d678b0449781"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1965554273,ExpressionUUID->"7b7f403f-180e-40f7-b7e3-77872751623c"],

Cell[TextData[{
 "The argument must satisfy ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Base58Q"]], "paclet:WolframInstitute/Puzzles/ref/Base58Q", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "fc213350-6ca8-48bb-9403-6a1755bc5423"],
 ": every character must lie in the alphabet ",
 Cell[BoxData["\<\"123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz\
\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c25289e6-6320-4c21-bd23-766beee57326"],
 ". A string holding ",
 Cell[BoxData["0"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d699641c-da55-44f2-9655-f9329dc7a85c"],
 ", ",
 Cell[BoxData["O"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "617502da-e5ba-4980-afff-44652e4786f9"],
 ", ",
 Cell[BoxData["I"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "caca54fe-ff53-4d59-b60b-1dbe0003d815"],
 " or ",
 Cell[BoxData["l"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0590d2ff-9a54-44aa-bbd6-a215f3748d7e"],
 " matches no definition and the call is returned unevaluated."
}], "Notes",ExpressionUUID->"d6d9642a-b073-40c1-affa-36de7919f0af"],

Cell["The empty string gives the empty byte list.", "Notes",ExpressionUUID->"32f9eb47-a915-4aea-a807-afe8c44072d9"],

Cell[TextData[{
 "The result carries no checksum verification: every string of alphabet \
characters decodes to some byte list. ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Base58CheckDecode"]], 
    "paclet:WolframInstitute/Puzzles/ref/Base58CheckDecode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "adf5c3a3-d53e-4122-b8ce-4d9122f86bd5"],
 " is the checked reading."
}], "Notes",ExpressionUUID->"6e536cf5-db82-4d95-a074-708101b85bcf"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Base58Encode"]], 
    "paclet:WolframInstitute/Puzzles/ref/Base58Encode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b86e7795-32b1-4a8c-8e7f-266879ca18bf"],
 " is the exact inverse, on the nose rather than up to leading zeros."
}], "Notes",ExpressionUUID->"593318a1-6e45-4387-b715-dce474644dc1"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"750944ca-f77f-4611-8d27-4df3ea363d9c"],

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->"96a0667e-8aba-465c-8424-95e8d63c2d44"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"82fca138-66df-407f-8461-a157949015d2"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(10)", "ExampleCount",ExpressionUUID->
  "0e4dc3a6-bd15-415c-899d-ec647e8b45c7"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->329724510,ExpressionUUID->"aac92b5b-61da-4f83-9386-33910f47473c"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"32bb8c1c-b08e-43b2-830f-2cdaec8236c1"],

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->
  "f3b6f806-4f22-4171-a15e-ef989587cc8f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"09277875-043c-4330-933a-5cfbb8ed24bb"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "3e5c9915-96c9-46e4-86b0-200d30a58ec5"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1172030310,ExpressionUUID->"b7103193-fcb0-4fa2-bae0-a9dffd9c2034"],

Cell[TextData[{
 "The Bitcoin Core test vector ",
 Cell[BoxData["\<\"2cFupjhnEsSn59qHXstmK2ffpLv2\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ce0c43cf-2e49-4d31-a8e5-f07fefacdae7"],
 ":"
}], "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"ae98845e-7cca-499c-97af-b9232d984d5a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"Base58Decode", "[", "\"\<2cFupjhnEsSn59qHXstmK2ffpLv2\>\"", "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"535c05ba-a817-46d5-99e9-ceee158795b5"],

Cell[BoxData["\<\"73696d706c792061206c6f6e6720737472696e67\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"71a5ebdc-ec2f-4b71-83d5-e15fbd097759"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "b5beeb5a-8dfd-444d-b58c-b470d737f774"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"965294a1-506c-4727-\
8b74-302540d2725e"],

Cell["The raw bytes of a two-character string:", "ExampleText",ExpressionUUID->"ae97c4b8-ea02-443d-a138-3df476ddd3cd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Decode", "[", "\"\<2g\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2f894d11-8f9a-44ee-a819-c80ab9c50e9b"],

Cell[BoxData[
 RowBox[{"{", "97", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"32aa3026-66bb-4b87-b882-fdb3a1c8ce32"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "484bcee3-6f68-4da9-bf85-a04bddd5605a"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"5dbc89c3-49cb-41fd-\
9fb7-49a9d333fe0f"],

Cell[TextData[{
 "Ten leading ",
 Cell[BoxData["\<\"1\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7b6a6b10-b479-46e0-93af-f8daa7f55972"],
 " characters decode to ten zero bytes:"
}], "ExampleText",ExpressionUUID->"f69ad76d-ef70-428e-a3f4-61cd538e5bb0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Decode", "[", "\"\<1111111111\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ff6f83ab-023e-4b38-bfb5-8d8cbfd5b47e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
    "0", ",", "0"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a9d29a23-6d9f-4f1c-a7bc-a5c167d292b8"]
}, 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->
  "90a47f20-3124-4492-9b11-55e9a14f8420"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b7d522ef-7fe2-4b8b-964f-335836513880"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "48c54284-ce3f-4f28-9aa5-c59391c4c2ae"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"8a10c82e-b045-4030-8238-77f2372112d4"],

Cell["\<\
A mainnet address decodes to its version byte, HASH160 and four checksum \
bytes:\
\>", "ExampleText",ExpressionUUID->"310afa43-014e-4f8d-84bf-073aaa20a409"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{
  "Base58Decode", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c73641c6-fde1-4c44-aae8-ee9ca47906cc"],

Cell[BoxData["\<\"0062e907b15cbf27d5425399ebf6f0fb50ebb88f18c29b7d93\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"39065d95-96bd-476a-b3e2-39b64f95a7f2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "eefaa4bc-cb8b-4095-b3e7-3dd022894b3c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"64b01aa6-f5aa-4c0b-\
be60-ec3221780de8"],

Cell["The empty string gives the empty byte list:", "ExampleText",ExpressionUUID->"21572cba-d888-4659-9778-97fc67e9cc2c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Decode", "[", "\"\<\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"61df45a5-49c9-4c52-8b36-dffb3f06dcc0"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"99be2e30-b505-47db-95c5-78fae7d4ffc6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9b5a049c-62da-4eca-94e8-18cce95e4b7d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"17799ec8-a6f0-4daa-\
ba29-9797242dc98b"],

Cell["\<\
The Bitcoin Core vector whose payload is the whole alphabet in order:\
\>", "ExampleText",ExpressionUUID->"3c256a51-e3c6-4a62-9733-e404aa51f7b7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{
  "Base58Decode", 
   "[", "\"\<123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e39a40cf-b95b-4aaa-aa96-962a7b4d17c0"],

Cell[BoxData["\<\"\
000111d38e5fc9071ffcd20b4a763cc9ae4f252bb4e48fd66a835e252ada93ff480d6dd43dc62a\
641155a5\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"faadaa5f-a7e6-4939-aa4c-62bf7ba23df4"]
}, 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->
  "87f372d9-ab63-45af-b036-05b897c93989"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"908f3b45-5508-4d96-a221-0337efee4231"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "81c8dd90-4de6-4f4c-8e60-5c7eb3034f86"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"2f3a8e13-ed5a-4f01-a2fb-8cab722018e4"],

Cell["\<\
Decoding inverts encoding on every Bitcoin Core vector, leading zero bytes \
included:\
\>", "ExampleText",ExpressionUUID->"47c93a36-16f1-4e53-938f-df75f86811f6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Decode", "[", 
  RowBox[{"Base58Encode", "[", 
   RowBox[{"{", 
    RowBox[{"0", ",", " ", "0", ",", " ", "0", ",", " ", "1"}], "}"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"413d9d64-49e1-4a44-a181-64a3bc7c5cb5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6e675d33-6066-4ed3-b1ab-5b6a5c4429d7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "f3b62c0c-1a27-4273-a18a-aa611e4fc5b4"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"db165bc5-d5c1-4bc8-\
a3ab-be49098ed628"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Base58CheckDecode"]], 
    "paclet:WolframInstitute/Puzzles/ref/Base58CheckDecode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "28e953b2-476f-487c-9b78-7fcfb1ac0786"],
 " reads the same string but verifies and strips the four trailing checksum \
bytes:"
}], "ExampleText",ExpressionUUID->"7095635e-9272-415d-9c51-3e97101de454"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{
  "Base58CheckDecode", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2aad73d8-27d5-4c2f-8b32-4bde0abd4a2a"],

Cell[BoxData["\<\"0062e907b15cbf27d5425399ebf6f0fb50ebb88f18\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6921d267-97c2-493c-adb0-ae3547c845d2"]
}, 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->
  "7d0a633a-5f4d-41e6-8a0d-ba240142098b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"0bd33699-3ccc-40f7-8646-af51e4d214a7"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "335b6001-d3e6-4cc4-bd32-8667a36e9c6c"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"05304dbd-4a7d-4704-9033-37ce70b24552"],

Cell["\<\
Every string of alphabet characters decodes, whether or not it means anything:\
\>", "ExampleText",ExpressionUUID->"bfd2b443-f8a5-4fb8-8559-640dc0402155"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Decode", "[", "\"\<zzzz\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b758399f-d689-496a-aaa9-a7ee2bb6f44d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"172", ",", "173", ",", "15"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"982289c0-dd5e-4fd1-9a7a-ac02f403cbba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "45938ec3-a45a-4cf4-a2c2-95b6ba32b470"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f0887c10-ee56-43a5-\
924f-2321a15ccec3"],

Cell[TextData[{
 Cell[BoxData["0"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "01789baf-bbac-4741-a8d0-a2877b1f2094"],
 ", ",
 Cell[BoxData["O"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a9e873a4-820d-495f-9708-872c5fe8239a"],
 ", ",
 Cell[BoxData["I"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "77387b7d-2899-46f1-b0ed-56752c0a9c68"],
 " and ",
 Cell[BoxData["l"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8ce7d62e-8cb3-4e6d-8f8a-17208a2bebd7"],
 " are not in the alphabet, so the call is returned unevaluated:"
}], "ExampleText",ExpressionUUID->"ba850a88-dbe6-411d-9400-e20425b1f698"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Decode", "[", "\"\<0OIl\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a73b6ced-82aa-44f1-b44d-68d7110580f4"],

Cell[BoxData[
 RowBox[{"Base58Decode", "[", "\<\"0OIl\"\>", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a4f5a4df-cd29-4585-a940-d3479e9df00d"]
}, 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["Base58Encode"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58Encode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "650490ed-ea1b-49bd-b7ad-f3f7bdf2b3da"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Base58Q"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58Q", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a24d00a1-8a88-4423-9c9f-66e294c2e345"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Base58CheckDecode"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58CheckDecode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c2f63f79-f2ae-46c6-9ac9-b3ff130e0899"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteListToHexString"]], 
           "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "6ba6ace5-2f83-49c4-9004-05ff1138234c"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BaseDecode"]], "paclet:ref/BaseDecode"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "7c80ba3c-9f96-49f3-8fd7-4c8b536e3312"]
       }], "SeeAlso",ExpressionUUID->"46b8d685-46f0-45f2-8aaa-46865f8929d1"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"bcf1faa8-b02b-4eca-bd66-\
35192f793ee2"],

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->
         "297736a0-f88a-4ea4-bd92-8b8f9d448eb1"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"9dc1b30d-c6c1-4f05-a673-\
f323fd7e90e8"],

Cell[" ", "FooterCell",ExpressionUUID->"c5af1d89-18e6-45ac-ad05-be2ede3100b9"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"Base58Decode",
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, 26.581573}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[Base58Decode,paclet : \
WolframInstitute/Puzzles/ref/Base58Decode, WolframInstitute/Puzzles Package \
Symbol][string] gives the list of bytes a Base58 string encodes, with one \
leading zero byte per leading 1.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "Base58Decode", "titlemodifier" -> "", "metadescription" -> "",
     "windowtitle" -> "Base58Decode", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/Base58Decode", "WorkflowDockedCell" -> ""}, 
  "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"55f67f8a-3e36-4a6d-9b0e-23a761b3fd2b"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15757, 421, 351, 9, 70, "ExampleText",ExpressionUUID->"ae98845e-7cca-499c-97af-b9232d984d5a",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 34295, 955}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[580, 21, 6275, 152, 70, "AnchorBarGrid",ExpressionUUID->"d816c306-5813-4217-9581-5a46f74964f3",
 CellID->1],
Cell[6858, 175, 107, 0, 70, "ContextNameCell",ExpressionUUID->"2830b8a8-0992-48e7-8acb-1650d3a1ba58"],
Cell[CellGroupData[{
Cell[6990, 179, 555, 14, 70, "ObjectNameGrid",ExpressionUUID->"5d757165-415a-4f07-840f-360ca89dcc19"],
Cell[7548, 195, 1004, 25, 70, "Usage",ExpressionUUID->"634088f5-109c-4d2b-b726-a96aa0a6750e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8589, 225, 1444, 34, 70, "NotesSection",ExpressionUUID->"7b7f403f-180e-40f7-b7e3-77872751623c",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1965554273],
Cell[10036, 261, 1471, 39, 70, "Notes",ExpressionUUID->"d6d9642a-b073-40c1-affa-36de7919f0af"],
Cell[11510, 302, 115, 0, 70, "Notes",ExpressionUUID->"32f9eb47-a915-4aea-a807-afe8c44072d9"],
Cell[11628, 304, 602, 15, 70, "Notes",ExpressionUUID->"6e536cf5-db82-4d95-a074-708101b85bcf"],
Cell[12233, 321, 520, 13, 70, "Notes",ExpressionUUID->"593318a1-6e45-4387-b715-dce474644dc1"]
}, Closed]],
Cell[12768, 337, 80, 0, 70, "PageDelimiter",ExpressionUUID->"750944ca-f77f-4611-8d27-4df3ea363d9c"],
Cell[CellGroupData[{
Cell[12873, 341, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"aac92b5b-61da-4f83-9386-33910f47473c",
 CellID->329724510],
Cell[14277, 380, 216, 4, 70, "Input",ExpressionUUID->"32bb8c1c-b08e-43b2-830f-2cdaec8236c1",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14518, 388, 1236, 31, 70, "ExampleSection",ExpressionUUID->"b7103193-fcb0-4fa2-bae0-a9dffd9c2034",
 CellID->1172030310],
Cell[15757, 421, 351, 9, 70, "ExampleText",ExpressionUUID->"ae98845e-7cca-499c-97af-b9232d984d5a",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[16133, 434, 276, 5, 70, "Input",ExpressionUUID->"535c05ba-a817-46d5-99e9-ceee158795b5"],
Cell[16412, 441, 154, 1, 70, "Output",ExpressionUUID->"71a5ebdc-ec2f-4b71-83d5-e15fbd097759"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16603, 447, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"965294a1-506c-4727-8b74-302540d2725e"],
Cell[16830, 454, 118, 0, 70, "ExampleText",ExpressionUUID->"ae97c4b8-ea02-443d-a138-3df476ddd3cd"],
Cell[CellGroupData[{
Cell[16973, 458, 201, 3, 70, "Input",ExpressionUUID->"2f894d11-8f9a-44ee-a819-c80ab9c50e9b"],
Cell[17177, 463, 130, 2, 70, "Output",ExpressionUUID->"32aa3026-66bb-4b87-b882-fdb3a1c8ce32"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17356, 471, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"5dbc89c3-49cb-41fd-9fb7-49a9d333fe0f"],
Cell[17583, 478, 311, 7, 70, "ExampleText",ExpressionUUID->"f69ad76d-ef70-428e-a3f4-61cd538e5bb0"],
Cell[CellGroupData[{
Cell[17919, 489, 209, 3, 70, "Input",ExpressionUUID->"ff6f83ab-023e-4b38-bfb5-8d8cbfd5b47e"],
Cell[18131, 494, 239, 5, 70, "Output",ExpressionUUID->"a9d29a23-6d9f-4f1c-a7bc-a5c167d292b8"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18431, 506, 1227, 31, 70, "ExampleSection",ExpressionUUID->"8a10c82e-b045-4030-8238-77f2372112d4",
 CellID->1293636265],
Cell[19661, 539, 167, 3, 70, "ExampleText",ExpressionUUID->"310afa43-014e-4f8d-84bf-073aaa20a409"],
Cell[CellGroupData[{
Cell[19853, 546, 285, 6, 70, "Input",ExpressionUUID->"c73641c6-fde1-4c44-aae8-ee9ca47906cc"],
Cell[20141, 554, 166, 2, 70, "Output",ExpressionUUID->"39065d95-96bd-476a-b3e2-39b64f95a7f2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20344, 561, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"64b01aa6-f5aa-4c0b-be60-ec3221780de8"],
Cell[20571, 568, 121, 0, 70, "ExampleText",ExpressionUUID->"21572cba-d888-4659-9778-97fc67e9cc2c"],
Cell[CellGroupData[{
Cell[20717, 572, 199, 3, 70, "Input",ExpressionUUID->"61df45a5-49c9-4c52-8b36-dffb3f06dcc0"],
Cell[20919, 577, 124, 2, 70, "Output",ExpressionUUID->"99be2e30-b505-47db-95c5-78fae7d4ffc6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21092, 585, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"17799ec8-a6f0-4daa-ba29-9797242dc98b"],
Cell[21319, 592, 155, 2, 70, "ExampleText",ExpressionUUID->"3c256a51-e3c6-4a62-9733-e404aa51f7b7"],
Cell[CellGroupData[{
Cell[21499, 598, 314, 7, 70, "Input",ExpressionUUID->"e39a40cf-b95b-4aaa-aa96-962a7b4d17c0"],
Cell[21816, 607, 204, 3, 70, "Output",ExpressionUUID->"faadaa5f-a7e6-4939-aa4c-62bf7ba23df4"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[22081, 617, 1244, 31, 70, "ExampleSection",ExpressionUUID->"2f3a8e13-ed5a-4f01-a2fb-8cab722018e4",
 CellID->2123667759],
Cell[23328, 650, 172, 3, 70, "ExampleText",ExpressionUUID->"47c93a36-16f1-4e53-938f-df75f86811f6"],
Cell[CellGroupData[{
Cell[23525, 657, 318, 7, 70, "Input",ExpressionUUID->"413d9d64-49e1-4a44-a181-64a3bc7c5cb5"],
Cell[23846, 666, 172, 3, 70, "Output",ExpressionUUID->"6e675d33-6066-4ed3-b1ab-5b6a5c4429d7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24055, 674, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"db165bc5-d5c1-4bc8-a3ab-be49098ed628"],
Cell[24282, 681, 551, 14, 70, "ExampleText",ExpressionUUID->"7095635e-9272-415d-9c51-3e97101de454"],
Cell[CellGroupData[{
Cell[24858, 699, 291, 6, 70, "Input",ExpressionUUID->"2aad73d8-27d5-4c2f-8b32-4bde0abd4a2a"],
Cell[25152, 707, 156, 1, 70, "Output",ExpressionUUID->"6921d267-97c2-493c-adb0-ae3547c845d2"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25369, 715, 1237, 31, 70, "ExampleSection",ExpressionUUID->"05304dbd-4a7d-4704-9033-37ce70b24552",
 CellID->1305812373],
Cell[26609, 748, 164, 2, 70, "ExampleText",ExpressionUUID->"bfd2b443-f8a5-4fb8-8559-640dc0402155"],
Cell[CellGroupData[{
Cell[26798, 754, 203, 3, 70, "Input",ExpressionUUID->"b758399f-d689-496a-aaa9-a7ee2bb6f44d"],
Cell[27004, 759, 167, 3, 70, "Output",ExpressionUUID->"982289c0-dd5e-4fd1-9a7a-ac02f403cbba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27208, 767, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f0887c10-ee56-43a5-924f-2321a15ccec3"],
Cell[27435, 774, 803, 21, 70, "ExampleText",ExpressionUUID->"ba850a88-dbe6-411d-9400-e20425b1f698"],
Cell[CellGroupData[{
Cell[28263, 799, 203, 3, 70, "Input",ExpressionUUID->"a73b6ced-82aa-44f1-b44d-68d7110580f4"],
Cell[28469, 804, 156, 2, 70, "Output",ExpressionUUID->"a4f5a4df-cd29-4585-a940-d3479e9df00d"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[28676, 812, 3024, 80, 70, "SeeAlsoSection",ExpressionUUID->"bcf1faa8-b02b-4eca-bd66-35192f793ee2"],
Cell[31703, 894, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"9dc1b30d-c6c1-4f05-a673-f323fd7e90e8"],
Cell[32404, 915, 78, 0, 70, "FooterCell",ExpressionUUID->"c5af1d89-18e6-45ac-ad05-be2ede3100b9"]
}
]
*)

(* End of internal cache information *)

