(* 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[     37192,        980]
NotebookOptionsPosition[     29346,        831]
NotebookOutlinePosition[     31356,        880]
CellTagsIndexPosition[     31279,        875]
WindowTitle->Base58Q
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->
           "b292e150-e31b-48dc-a112-7513f6f13602"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "ed56170f-b6d8-4dc4-bcb7-0c3f8a54d78e"],
        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->
           "972b1c1d-0e59-40f3-9d11-36a6ed932a10"]
         }],ExpressionUUID->"2098b424-1497-41b1-a74e-1c18609f253b"],
         StripOnInput->False],{
        StyleBox["\"Base58CheckQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58CheckQ"], 
         StyleBox[
          "\"Base58Decode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58Decode"], 
         StyleBox[
          "\"Base58Encode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58Encode"], 
         StyleBox["\"HexStringQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HexStringQ"], 
         StyleBox["\"WIFQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:WolframInstitute/Puzzles/ref/WIFQ"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "8792830a-d984-4491-bca2-3c17d4372a52"],
     "\[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->
           "282e1929-9597-42a0-8449-818785add84c"]
         }],ExpressionUUID->"94aafdaa-2eeb-493c-b4f3-08fe5e38ff03"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "c7e51bb2-8372-44b2-84b5-0e5ac479e2dc"],
     "\[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->
           "bc487582-f06a-491b-94b4-ea071e9f5c25"]
         }],ExpressionUUID->"c9074f4f-a670-4d7d-8209-0252b7d2ec53"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/Base58Q\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/Base58Q"], 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/Base58Q.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/Base58Q" <> ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "bd71a4d4-10fe-4343-9963-668ee02b8184"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "3e52242b-0dc1-49f2-afd2-ff28ec00d146"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"24aa9d6c-a29f-4d76-b549-9a1c35a02f8d"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"625a79fa-ee5d-438d-bd05-8ace7af117eb"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "Base58Q", "ObjectName",ExpressionUUID->
      "30c6fac2-b5a7-4e84-9ba5-36462c5e1885"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"7d48cfaf-dff3-49f9-84cf-e9dbaef1cbeb"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "18579060-5056-41d1-a6cd-06f87b0cc1d8"]
    }],ExpressionUUID->"169ea27d-3aea-40cc-919b-2bde078accd3"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"63123216-0846-4409-94f7-\
2eb73133c089"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["Base58Q"]], "paclet:WolframInstitute/Puzzles/ref/Base58Q",
          "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["string", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "382894bc-3eb1-4ef7-86ef-c88f3fa78485"],
     "\[LineSeparator]",
     "gives ",
     Cell[BoxData["True"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "09045d0a-6f65-453f-b7a2-946f62fc7c23"],
     " if ",
     StyleBox["string", "TI"],
     " uses only the 58 Bitcoin Base58 characters, and ",
     Cell[BoxData["False"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "6a19cb65-def2-4d7b-a867-ca9f62e98090"],
     " otherwise."
    }],ExpressionUUID->"2aaef21a-5ece-433a-a537-e3c331c17902"]}
  }]], "Usage",ExpressionUUID->"6a073c80-366b-45ef-9d4c-c75e6ddd39dd"]
}, 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->"b455e483-2f17-4fac-a72d-262348297328"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"92f6b978-ed27-462b-99a2-6c2f5634141a"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "e00e7d24-4fdd-4618-b28d-e7b85c10f24d"]],ExpressionUUID->"6a6cc564-8fc5-\
4859-abdf-701dae1bbfe6"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1346274520,ExpressionUUID->"6a383d70-7421-4157-87e9-1efe1bef7490"],

Cell[TextData[{
 "The alphabet is ",
 Cell[BoxData["\<\"123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz\
\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e3859e1d-c93b-4260-ac6c-1792055d7efa"],
 ". The four characters ",
 Cell[BoxData["0"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d9af0a52-2b1c-4431-80c6-9c9249e6ddee"],
 ", ",
 Cell[BoxData["O"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "efa2aa6a-c0ab-43ab-a744-0f109b19c225"],
 ", ",
 Cell[BoxData["I"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ec2e9ba3-aaa5-4b4a-9714-ee24dfc977fc"],
 " and ",
 Cell[BoxData["l"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "59ec1e66-f9b8-4236-9fc9-418cc178e569"],
 " are excluded because they are the ones a reader confuses."
}], "Notes",ExpressionUUID->"24a6eb7d-c0b6-49a7-a01b-c2b67e1a0a19"],

Cell[TextData[{
 "This is an alphabet test only. It says nothing about a checksum, a length \
or a version byte; ",
 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->
  "f2352c0d-27b8-4745-9888-4b3e9496bcbd"],
 " is the checksum test."
}], "Notes",ExpressionUUID->"2d639cbd-d77b-4b12-b51c-403e8b4e7741"],

Cell[TextData[{
 "The empty string gives ",
 Cell[BoxData["True"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2d724ec8-40ee-4c05-ba04-0a7b07f32c40"],
 "."
}], "Notes",ExpressionUUID->"f1b28c62-3be7-4031-a75d-ea6e51cbd682"],

Cell[TextData[{
 "Anything that is not a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["String"]], "paclet:ref/String"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "2e0a2097-1b71-4829-8247-01aa7d7837a4"],
 " gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "096553af-1f78-47ed-a501-135f7e1973fb"],
 "."
}], "Notes",ExpressionUUID->"34f95cda-917a-4f7b-9178-2595676a8f83"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"606f8be1-58e8-45c8-ae37-8d865f454521"],

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->"d59a20ff-f0bb-4e3b-8c8b-e0da040ed7fd"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"eefd5f73-3fa4-459b-8ece-a16038747388"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(9)", "ExampleCount",ExpressionUUID->
  "6326b75d-f237-46a8-878f-381401e68281"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->948152848,ExpressionUUID->"55015a1c-eb15-4c26-8dd3-ef720a4704ae"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"76a525da-31bb-48b6-9be1-94422b168d26"],

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->
  "f1df4a92-b5bb-4c12-a2d4-4d8423641d24"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"1f96c409-f6e1-4d14-a394-93bb5be9c743"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "c4bc2352-a3a7-41b6-8b58-dabb706f1afa"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1276255596,ExpressionUUID->"2ec74f7a-a5de-4cfb-9c24-71ccb2bfc4f0"],

Cell["A Bitcoin address uses only alphabet characters:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"0257f782-b05d-4470-a9fc-e321b8a26b91"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Q", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1e0a7852-dd4b-4e4a-b50c-c351d6fa8542"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1c98d306-f4b5-4f93-96d0-07fc6fbf2468"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ff6cf588-7a39-4fbb-9bdb-74e4c9933dce"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7722e763-b5e9-4a81-\
82f4-3be1b84bc5ea"],

Cell[TextData[{
 Cell[BoxData["0"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e67fe451-5532-4cfd-9930-f3370e2a2faf"],
 " is one of the four excluded characters:"
}], "ExampleText",ExpressionUUID->"e4d432ff-b309-476b-bdbf-cb328c34698d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Q", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7Divf0a\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"34077554-308a-41b8-9dce-dbf6688ffc68"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"65d1e245-3801-47fb-8b80-e1cf03eaff0b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "e468e68e-ed6f-4d50-bf4a-a05b44fb162a"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"24c60b2f-43da-480c-\
b3eb-2d8d3ea9c643"],

Cell["The empty string uses no characters outside the alphabet:", \
"ExampleText",ExpressionUUID->"6adee649-2af9-4105-a54a-3604117c3d8c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Q", "[", "\"\<\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f963091a-8ed0-4d45-836e-8d4a93dd5093"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a6ba16bc-7d3a-407f-b9ce-70a121c875d1"]
}, 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->
  "2084861a-f670-4c9e-a5af-fcef9e6ca07c"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"77b0ca51-ec14-4254-a3b4-8bdfb4318434"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "3dd4945b-5e46-465e-ab31-28b673f7a17c"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"556057ff-0c4b-42f6-85ea-5cfb5f7360a9"],

Cell["All four excluded characters are rejected:", "ExampleText",ExpressionUUID->"d4a9330a-3c13-442e-939f-212f18ead8b7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Q", "[", "\"\<0OIl\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fcd183dc-0118-4116-8faa-d055eb87c763"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9b69346c-3b12-424d-97bc-2259ed24fd18"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0e1bad66-8d63-417c-a115-3cd614df10df"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"74988595-5871-444e-\
a19f-58d53e07f12a"],

Cell[TextData[{
 "A non-string gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "02b7896c-dd6c-4649-b6e4-84bae0b2ce24"],
 " rather than an error:"
}], "ExampleText",ExpressionUUID->"d419f13e-a734-462b-8397-e01f88eb892b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Q", "[", "42", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d186ae86-6850-489b-911b-9a4f00affba8"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9d1c5778-b31f-4af5-8142-2177b4557d1d"]
}, 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->
  "aa182011-501e-4f73-b4e7-80ae5e25399b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"8f76cb15-af20-4044-8734-95c51b7e40d6"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "09bcf219-20fd-44dd-af0b-a3dcb23333ab"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"993ae7aa-47c4-4986-89d1-e93885459196"],

Cell["A string can be Base58 without carrying a valid checksum:", \
"ExampleText",ExpressionUUID->"681c76de-9858-47c7-9b2d-7e7370e0e6d3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Q", "[", "\"\<zzzz\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"bed47565-6afd-4a1a-91d8-70580bb70473"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"37d86f92-a39c-4bca-b594-b276d1cd9f83"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ec5098d9-c2e2-4a0a-ac94-61aee2307020"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b7763a85-2b42-4949-\
92b4-e01ae1056022"],

Cell["\<\
The checksum test on the same string tells the other half of the story:\
\>", "ExampleText",ExpressionUUID->"c12c5a47-c8e2-4fc4-880b-5721ee303089"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58CheckQ", "[", "\"\<zzzz\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a144e154-97ca-4460-9ee1-59e85fa9efd9"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a3b64387-768e-4135-b4aa-b4a1a60f579b"]
}, 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->
  "502e52ac-1d2e-4bc4-9336-078fc675ab34"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"dcdec0f2-3203-4fa7-83c9-3eeaff45d48e"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "325d3580-a2ab-451a-a0bc-611f86b2f545"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"c470b611-b1b3-471b-87d6-4dcac38d7981"],

Cell["\<\
Every character of some Bech32 strings lies in the Base58 alphabet, so this \
predicate does not distinguish the two encodings:\
\>", "ExampleText",ExpressionUUID->"a01b03a5-0f72-454c-9b9f-470af203b4b5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Q", "[", "\"\<bc1gmk9yu\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"54a3c051-e45e-4b75-b0b9-c8a714b29a84"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e6bfb3c0-aa5e-42c4-8a57-3bec3d472a39"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "eda30261-8ac4-4892-bbc6-65db5f58c189"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d76ddb96-2f8f-4c92-\
9cfb-d20788548fc1"],

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->
  "ad485ac3-3648-422e-bfc3-b628895afd6d"],
 " separates them, because a Bech32 string does not carry a Base58Check \
checksum:"
}], "ExampleText",ExpressionUUID->"e6a1d52b-5780-4b54-8039-008b304ce6fb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58CheckQ", "[", "\"\<bc1gmk9yu\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"20f381d8-fc91-4ecc-9a28-525f143411ed"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"05c490f4-cfbc-4d71-b88f-610ca0d49348"]
}, 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["Base58CheckQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58CheckQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "13aacc19-2161-4c61-a2e9-8187e85019d0"],
        "\[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->
         "6f7be220-e5fb-4f9a-bbe9-47e2abb67248"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Base58Encode"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58Encode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "f8b7e616-cdd5-49df-87f5-67bc3898674d"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["HexStringQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/HexStringQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "8dccf1a4-37a0-4421-9b46-49d789bf259f"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["WIFQ"]], "paclet:WolframInstitute/Puzzles/ref/WIFQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "44703f35-98c7-4eaf-af6f-573e86638909"]
       }], "SeeAlso",ExpressionUUID->"c5add5e6-e633-4282-88a2-ce16c845140d"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"efba2f4b-a589-49b4-8184-\
1861fecc2f11"],

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->
         "57d545d8-2941-4920-ad59-2ea6b5166689"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"8c0d7677-92ec-4d0d-85ca-\
88d4cdf00577"],

Cell[" ", "FooterCell",ExpressionUUID->"e65bdc70-b823-4220-bb3c-d293dfe205f9"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"Base58Q",
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, 6.108522}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[Base58Q,paclet : WolframInstitute/Puzzles/ref/Base58Q, \
WolframInstitute/Puzzles Package Symbol][string] gives True if string uses \
only the 58 Bitcoin Base58 characters, and False otherwise.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "Base58Q", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "Base58Q", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/Base58Q", "WorkflowDockedCell" -> ""}, 
  "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"b42da645-44f1-4443-aee5-32a312c4620c"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15048, 410, 158, 2, 70, "ExampleText",ExpressionUUID->"0257f782-b05d-4470-a9fc-e321b8a26b91",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 31122, 869}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[575, 21, 5691, 138, 70, "AnchorBarGrid",ExpressionUUID->"24aa9d6c-a29f-4d76-b549-9a1c35a02f8d",
 CellID->1],
Cell[6269, 161, 107, 0, 70, "ContextNameCell",ExpressionUUID->"625a79fa-ee5d-438d-bd05-8ace7af117eb"],
Cell[CellGroupData[{
Cell[6401, 165, 550, 14, 70, "ObjectNameGrid",ExpressionUUID->"63123216-0846-4409-94f7-2eb73133c089"],
Cell[6954, 181, 1151, 29, 70, "Usage",ExpressionUUID->"6a073c80-366b-45ef-9d4c-c75e6ddd39dd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8142, 215, 1444, 34, 70, "NotesSection",ExpressionUUID->"6a383d70-7421-4157-87e9-1efe1bef7490",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1346274520],
Cell[9589, 251, 1064, 28, 70, "Notes",ExpressionUUID->"24a6eb7d-c0b6-49a7-a01b-c2b67e1a0a19"],
Cell[10656, 281, 575, 15, 70, "Notes",ExpressionUUID->"2d639cbd-d77b-4b12-b51c-403e8b4e7741"],
Cell[11234, 298, 275, 7, 70, "Notes",ExpressionUUID->"f1b28c62-3be7-4031-a75d-ea6e51cbd682"],
Cell[11512, 307, 533, 16, 70, "Notes",ExpressionUUID->"34f95cda-917a-4f7b-9178-2595676a8f83"]
}, Closed]],
Cell[12060, 326, 80, 0, 70, "PageDelimiter",ExpressionUUID->"606f8be1-58e8-45c8-ae37-8d865f454521"],
Cell[CellGroupData[{
Cell[12165, 330, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"55015a1c-eb15-4c26-8dd3-ef720a4704ae",
 CellID->948152848],
Cell[13568, 369, 216, 4, 70, "Input",ExpressionUUID->"76a525da-31bb-48b6-9be1-94422b168d26",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13809, 377, 1236, 31, 70, "ExampleSection",ExpressionUUID->"2ec74f7a-a5de-4cfb-9c24-71ccb2bfc4f0",
 CellID->1276255596],
Cell[15048, 410, 158, 2, 70, "ExampleText",ExpressionUUID->"0257f782-b05d-4470-a9fc-e321b8a26b91",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15231, 416, 231, 4, 70, "Input",ExpressionUUID->"1e0a7852-dd4b-4e4a-b50c-c351d6fa8542"],
Cell[15465, 422, 110, 1, 70, "Output",ExpressionUUID->"1c98d306-f4b5-4f93-96d0-07fc6fbf2468"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15612, 428, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7722e763-b5e9-4a81-82f4-3be1b84bc5ea"],
Cell[15839, 435, 289, 6, 70, "ExampleText",ExpressionUUID->"e4d432ff-b309-476b-bdbf-cb328c34698d"],
Cell[CellGroupData[{
Cell[16153, 445, 231, 4, 70, "Input",ExpressionUUID->"34077554-308a-41b8-9dce-dbf6688ffc68"],
Cell[16387, 451, 111, 1, 70, "Output",ExpressionUUID->"65d1e245-3801-47fb-8b80-e1cf03eaff0b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16547, 458, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"24c60b2f-43da-480c-b3eb-2d8d3ea9c643"],
Cell[16774, 465, 137, 1, 70, "ExampleText",ExpressionUUID->"6adee649-2af9-4105-a54a-3604117c3d8c"],
Cell[CellGroupData[{
Cell[16936, 470, 194, 3, 70, "Input",ExpressionUUID->"f963091a-8ed0-4d45-836e-8d4a93dd5093"],
Cell[17133, 475, 110, 1, 70, "Output",ExpressionUUID->"a6ba16bc-7d3a-407f-b9ce-70a121c875d1"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17304, 483, 1227, 31, 70, "ExampleSection",ExpressionUUID->"556057ff-0c4b-42f6-85ea-5cfb5f7360a9",
 CellID->1293636265],
Cell[18534, 516, 120, 0, 70, "ExampleText",ExpressionUUID->"d4a9330a-3c13-442e-939f-212f18ead8b7"],
Cell[CellGroupData[{
Cell[18679, 520, 198, 3, 70, "Input",ExpressionUUID->"fcd183dc-0118-4116-8faa-d055eb87c763"],
Cell[18880, 525, 111, 1, 70, "Output",ExpressionUUID->"9b69346c-3b12-424d-97bc-2259ed24fd18"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19028, 531, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"74988595-5871-444e-a19f-58d53e07f12a"],
Cell[19255, 538, 299, 7, 70, "ExampleText",ExpressionUUID->"d419f13e-a734-462b-8397-e01f88eb892b"],
Cell[CellGroupData[{
Cell[19579, 549, 188, 3, 70, "Input",ExpressionUUID->"d186ae86-6850-489b-911b-9a4f00affba8"],
Cell[19770, 554, 111, 1, 70, "Output",ExpressionUUID->"9d1c5778-b31f-4af5-8142-2177b4557d1d"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[19942, 562, 1244, 31, 70, "ExampleSection",ExpressionUUID->"993ae7aa-47c4-4986-89d1-e93885459196",
 CellID->2123667759],
Cell[21189, 595, 137, 1, 70, "ExampleText",ExpressionUUID->"681c76de-9858-47c7-9b2d-7e7370e0e6d3"],
Cell[CellGroupData[{
Cell[21351, 600, 198, 3, 70, "Input",ExpressionUUID->"bed47565-6afd-4a1a-91d8-70580bb70473"],
Cell[21552, 605, 110, 1, 70, "Output",ExpressionUUID->"37d86f92-a39c-4bca-b594-b276d1cd9f83"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21699, 611, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b7763a85-2b42-4949-92b4-e01ae1056022"],
Cell[21926, 618, 157, 2, 70, "ExampleText",ExpressionUUID->"c12c5a47-c8e2-4fc4-880b-5721ee303089"],
Cell[CellGroupData[{
Cell[22108, 624, 203, 3, 70, "Input",ExpressionUUID->"a144e154-97ca-4460-9ee1-59e85fa9efd9"],
Cell[22314, 629, 111, 1, 70, "Output",ExpressionUUID->"a3b64387-768e-4135-b4aa-b4a1a60f579b"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[22486, 637, 1237, 31, 70, "ExampleSection",ExpressionUUID->"c470b611-b1b3-471b-87d6-4dcac38d7981",
 CellID->1305812373],
Cell[23726, 670, 213, 3, 70, "ExampleText",ExpressionUUID->"a01b03a5-0f72-454c-9b9f-470af203b4b5"],
Cell[CellGroupData[{
Cell[23964, 677, 203, 3, 70, "Input",ExpressionUUID->"54a3c051-e45e-4b75-b0b9-c8a714b29a84"],
Cell[24170, 682, 110, 1, 70, "Output",ExpressionUUID->"e6bfb3c0-aa5e-42c4-8a57-3bec3d472a39"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24317, 688, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d76ddb96-2f8f-4c92-9cfb-d20788548fc1"],
Cell[24544, 695, 540, 14, 70, "ExampleText",ExpressionUUID->"e6a1d52b-5780-4b54-8039-008b304ce6fb"],
Cell[CellGroupData[{
Cell[25109, 713, 208, 3, 70, "Input",ExpressionUUID->"20f381d8-fc91-4ecc-9a28-525f143411ed"],
Cell[25320, 718, 111, 1, 70, "Output",ExpressionUUID->"05c490f4-cfbc-4d71-b88f-610ca0d49348"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[25482, 725, 3078, 81, 70, "SeeAlsoSection",ExpressionUUID->"efba2f4b-a589-49b4-8184-1861fecc2f11"],
Cell[28563, 808, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"8c0d7677-92ec-4d0d-85ca-88d4cdf00577"],
Cell[29264, 829, 78, 0, 70, "FooterCell",ExpressionUUID->"e65bdc70-b823-4220-bb3c-d293dfe205f9"]
}
]
*)

(* End of internal cache information *)

