(* 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[     41863,       1108]
NotebookOptionsPosition[     32860,        941]
NotebookOutlinePosition[     34920,        990]
CellTagsIndexPosition[     34843,        985]
WindowTitle->Base58CheckQ
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->
           "5468199b-33fc-4fbb-b961-45f43a47d90c"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "1f8b3710-ef77-4487-90ac-4cf06f336f45"],
        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->
           "6a0a9acb-0863-4f5c-9f6b-9e4a8681295c"]
         }],ExpressionUUID->"d6841f00-c08e-4b6e-a9eb-f4fee675bc44"],
         StripOnInput->False],{
        StyleBox[
          "\"Base58CheckDecode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58CheckDecode"], 
         StyleBox["\"Base58Q\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58Q"], 
         StyleBox["\"WIFQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:WolframInstitute/Puzzles/ref/WIFQ"],
          StyleBox[
          "\"SegWitAddressQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/SegWitAddressQ"], 
         StyleBox[
          "\"Base58CheckEncode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58CheckEncode"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "1ecdbbca-0ece-466d-a1d4-016b59da9a8f"],
     "\[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->
           "eb0e7aee-8e38-47b3-bbd8-008a232b2249"]
         }],ExpressionUUID->"57ee3a32-1c9b-44a9-9db4-180feba09b63"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "76ca3384-9edc-431e-a940-361ba2534c57"],
     "\[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->
           "f9bae964-8baf-424a-9264-96fca39b7ee6"]
         }],ExpressionUUID->"7f32985e-4a8f-428f-a943-ee21c8037bba"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/Base58CheckQ\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/Base58CheckQ"], 
         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/Base58CheckQ.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/Base58CheckQ" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "1e8c4821-6a5f-43bd-8a80-52741b451756"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "99c84892-103b-4542-9861-662279ac29e5"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"8566507b-b246-4393-9ec0-75394f9b0928"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"7d44bcf1-fcff-441f-b957-4731325a2574"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "Base58CheckQ", "ObjectName",ExpressionUUID->
      "c0cb5548-dfd4-4bb7-aab9-f83a658763ac"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"88772d16-dffa-4a9b-b785-f64c909b33ce"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "b12b6f22-6d2a-4d33-a261-7b2da33e7401"]
    }],ExpressionUUID->"c999623f-002c-4c6b-b172-c09ec5f4142d"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"95706dfe-c59a-4328-aa88-\
8cca718bdb4e"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["Base58CheckQ"]], 
         "paclet:WolframInstitute/Puzzles/ref/Base58CheckQ", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["string", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "a886d4be-2973-401f-af13-0a6ae8c57daf"],
     "\[LineSeparator]",
     "gives ",
     Cell[BoxData["True"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "fd2188be-fae9-4d4b-8e06-536fbd3bc6d0"],
     " if ",
     StyleBox["string", "TI"],
     " is Base58 and carries a valid four-byte double-SHA256 checksum, and ",
     Cell[BoxData["False"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "5eb88cd4-5694-4436-a8ec-0b0c725025d3"],
     " otherwise."
    }],ExpressionUUID->"4596646e-71ae-40ce-8bd7-843d9e235bca"]}
  }]], "Usage",ExpressionUUID->"da9c13b5-4e3d-4b63-a737-20ce9dbc39b8"]
}, 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->"8cff3e45-6e4a-492d-b19e-451dd89d0f30"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"429ed0bc-7073-4207-9b04-0e4a04ce653b"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "4de9c8d2-5a39-4e72-84df-aa940ae3ea46"]],ExpressionUUID->"13e75ffb-b59e-\
421a-ac2e-0b721fdb016d"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->154882474,ExpressionUUID->"e49ff0a9-46bd-4c75-9a3f-e4b6d8455941"],

Cell[TextData[{
 "The test is the checksum only. A ",
 Cell[BoxData["True"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c52620e5-99a3-48be-82bf-fb1f58f1b328"],
 " answer says the string was transcribed correctly, not that its version \
byte or payload length mean anything in Bitcoin."
}], "Notes",ExpressionUUID->"1d987bab-6051-4252-af64-36272d9ad1b9"],

Cell[TextData[{
 "A string holding a character outside the Base58 alphabet gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4c6ae9c8-59f5-40f2-93c5-a22ef2b62d11"],
 "."
}], "Notes",ExpressionUUID->"667d138a-2337-4c40-967b-7c68c580b01e"],

Cell[TextData[{
 "A string of fewer than four decoded bytes gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "92d81135-f7bd-4558-b510-e60cee89c871"],
 ", since it cannot carry a checksum."
}], "Notes",ExpressionUUID->"563dd0b2-5848-4882-8960-506a973acb91"],

Cell[TextData[{
 "The empty string gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "70752ab0-5135-4879-8d18-34deff679c22"],
 "."
}], "Notes",ExpressionUUID->"8e38ee24-d2db-4b99-bed8-629f2d534c43"],

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->
  "b8775b0c-430e-40b8-ba78-a0561978cb73"],
 " gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0e606f11-f858-4d4b-9f48-331ea0ea2777"],
 "."
}], "Notes",ExpressionUUID->"e2bcca1b-7361-4f63-9a4b-551f7d11b293"],

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->
  "97e61ea8-c575-4d33-9005-0a2d4a1a65d2"],
 " gives the payload, or a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "390d3b4d-3d88-4588-a6b6-8a81c8a6dd60"],
 " with the reason."
}], "Notes",ExpressionUUID->"6bf9c673-5daa-4081-858b-f3b991fe0397"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"46283c3c-fff6-4fdc-ba7a-074529cb2205"],

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->"8a990d87-d79e-4d97-9967-0e477c7a57dc"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"223c7a7b-3484-40c4-961f-e7470ba09d00"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(11)", "ExampleCount",ExpressionUUID->
  "fab4260e-e6a9-468d-a44f-9f0decb22e8c"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->359560354,ExpressionUUID->"326a852e-07c1-4259-89d0-e3389e7ae1fe"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"a9d355f2-0b60-43c6-b019-bd44b8df2ab5"],

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->
  "fd3a529a-f519-4ceb-bcd0-e69fc5b889f0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"08b419fd-a416-46b1-b754-f57f7ffb1a48"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "e777005a-b451-49c2-8b92-bad36c6037e6"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->111887020,ExpressionUUID->"70dc8601-a526-4190-808d-043ad55bf37d"],

Cell["A correctly transcribed Bitcoin address:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"6bdbf1e5-c76a-4b1f-ab64-c4637f7da18f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58CheckQ", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a0698037-6700-4699-a8d3-4e6232e6d4f6"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4a4776da-1776-4127-88a1-679ba2b1e35d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "32fb7a7d-348f-4806-a96e-3539c280a050"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ec278da6-fc0e-4023-\
9d2a-e774a33b4245"],

Cell["The same address with its last character changed:", "ExampleText",ExpressionUUID->"e0ef8518-6f38-4401-a36c-3fc839c784a2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58CheckQ", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNb\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5fa92ca6-d2b8-428b-9af6-d2fe3d7ba85c"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"27c4dd4d-7af6-40e9-8bec-9fac130f05c1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d6d50c7e-8e45-46f6-9844-fa6628ed9446"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"35940c13-87b6-4abc-\
9068-0adb4cdba8a6"],

Cell["A string of alphabet characters with no checksum behind it:", \
"ExampleText",ExpressionUUID->"1cbeaf32-654c-4f01-8118-4bc450734276"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58CheckQ", "[", "\"\<zzzz\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c79a40fe-5d5c-4fc6-b85e-28f5f7231407"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c7102003-95ff-4c04-ad3d-5e3c48133503"]
}, 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->
  "bb854f09-943d-43a9-8566-6d3511f89750"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"7b77bd41-6488-4605-ba74-2c5957156cad"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "2e040a8e-84ce-46b1-931a-5a48fcf1fe06"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"abf9e5bf-136f-4c6e-ae3e-ac88b5d8aea0"],

Cell["\<\
A Wallet Import Format private key is a Base58Check string too:\
\>", "ExampleText",ExpressionUUID->"d16accc9-dc48-4e02-86fc-15910ff7dec8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58CheckQ", 
  "[", "\"\<5JuW2AMDYu4xVwRG9DZW18VbzQrGcd5RCgb99sS6ehJsNQXu5b9\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f8ed9a17-aa94-4116-a4c2-2330548f216c"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"88d71e24-ec0c-46fe-afb3-7bdcada4a629"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c4da97d7-805c-4947-a566-507c815f7df4"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"327370a9-67b1-48ce-\
887b-ad6e6e1472ba"],

Cell[TextData[{
 "A character outside the alphabet gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3c62eeda-a7df-424f-8a27-2a777d9b069c"],
 " rather than an error:"
}], "ExampleText",ExpressionUUID->"ea57d390-68f9-44fa-bd2a-cf8ee716b599"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58CheckQ", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7Divf0a\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b140f5e1-b4ea-47bf-bd58-c2516ca56b4a"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e67b657d-99e5-4e8f-a490-e36305317070"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "1e775df3-ce04-4769-ad08-8e5fa7d66529"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"eab4a853-d99c-46f2-\
be73-1c71fc1aba30"],

Cell[TextData[{
 "A non-string gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "76751151-527a-46bb-82b3-a079a70fa37a"],
 ":"
}], "ExampleText",ExpressionUUID->"a09639a8-b1d3-4ea6-97ad-b93374f65cc3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58CheckQ", "[", "42", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"36d3e694-2ffd-406d-9463-4a113d58a914"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"af3137a5-1693-45d8-b194-b31e5df3436a"]
}, 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->
  "203374fc-add4-4129-9b81-a1ea10192f7e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"987b082e-2758-41b1-871d-e026246be1c2"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "a65b5f03-35e6-4311-9022-94c39c2dc36a"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"2b1c3790-40ca-4041-90f4-70a8a5c481d2"],

Cell["\<\
The checksum catches every single-character substitution of a published \
address:\
\>", "ExampleText",ExpressionUUID->"97d60dd5-6270-457f-8db2-d6243f16cd6b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Count", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Base58CheckQ", "[", 
       RowBox[{"StringReplacePart", "[", 
        RowBox[{"\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", ",", " ", 
         "character", ",", " ", 
         RowBox[{"{", 
          RowBox[{"position", ",", " ", "position"}], "}"}]}], "]"}], "]"}], ",",
       " ", 
      RowBox[{"{", 
       RowBox[{"position", ",", " ", "34"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"character", ",", " ", 
        RowBox[{
        "Characters", 
         "[", "\"\<123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz\
\>\"", "]"}]}], "}"}]}], "]"}], "]"}], ",", " ", "True"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5eb32d3a-7f6c-46c7-a0bf-044bd6670a8b"],

Cell[BoxData["34"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ce35eb6f-3925-4ffd-b9dc-b9f23ee366a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "77a9d5a9-66b1-47ed-8ed5-ee3355bf1a6d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"8cdadcfc-a2b9-4c7d-\
858b-500ba78c7a4d"],

Cell["\<\
Those 34 are the identity substitutions, one per position, so no genuine \
corruption survives:\
\>", "ExampleText",ExpressionUUID->"c9358872-e75f-45c6-b549-aafc7b8b4c10"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "Base58CheckQ", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", "]"}], 
  " ", "&&", " ", 
  RowBox[{"!", " ", 
   RowBox[{
   "Base58CheckQ", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNb\>\"", 
    "]"}]}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fa9739e2-b00c-4952-9301-bb94417b7a3a"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c7889832-e634-4de4-ae07-fc4dbc601538"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "01518f5b-6256-40b8-b254-0df9f6463e7d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d73f2179-1fd9-43bb-\
923b-dbf17be77370"],

Cell[TextData[{
 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->
  "5c75a86f-36cd-46e8-97fa-27782b016068"],
 " tests only the alphabet, so it is true of strings this predicate rejects:"
}], "ExampleText",ExpressionUUID->"dea00f10-50ee-4766-9fc4-d2c7cfcfe714"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58Q", "[", "\"\<zzzz\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1be232ae-a458-4e6f-bc72-60fd29034216"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6f752741-e7c0-4b6a-a95f-0b0f7c555d57"]
}, 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->
  "c4430b4e-ba15-45aa-ab47-d0e02a415d83"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"edc53afa-bbf9-48fe-8e9a-7f7090e9541a"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "299ddce5-6b72-436c-ad7a-afbd4c1da122"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"711e6ec9-2305-48b5-9181-573904c3340b"],

Cell["\<\
A valid checksum does not make a string a usable Bitcoin address: an \
unassigned version byte passes here and is rejected further up:\
\>", "ExampleText",ExpressionUUID->"3e4a2250-92a4-4f9d-aaab-a73298a14d0c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58CheckQ", "[", 
  RowBox[{"Base58CheckEncode", "[", 
   RowBox[{"16^^42", ",", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"bdd19fff-4416-4fc6-ab5a-8f6166baa674"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a716de3c-c9ed-4577-8ead-01b201c0cc84"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a4dbe9b5-7e0e-4c17-a436-cb19c8112117"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"8028196f-6cc6-449f-\
bb75-3bf5c51c92c9"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["WIFQ"]], "paclet:WolframInstitute/Puzzles/ref/WIFQ", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3ee38359-1892-4575-84e2-13934edff270"],
 " is the predicate that also checks the private-key version byte and payload \
length:"
}], "ExampleText",ExpressionUUID->"48ab2846-7340-4a03-ae99-3a1813562a5c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFQ", "[", 
  RowBox[{"Base58CheckEncode", "[", 
   RowBox[{"16^^42", ",", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3ec72aac-9c90-475f-8529-32c38d3a106c"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ee53dede-45dd-466a-9853-4fcfcb867326"]
}, 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["Base58CheckDecode"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58CheckDecode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "df4c0099-cd6e-4871-b09e-75f32ce0fe5a"],
        "\[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->
         "0e209ae9-0d47-4982-9574-579d4e14a111"],
        "\[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->
         "f06ae6c7-8a1e-4703-b0e6-18a36a0ce373"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["SegWitAddressQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/SegWitAddressQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "30d63c1e-3513-42b6-8de7-507e4d529b3d"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Base58CheckEncode"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58CheckEncode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "461c2826-1b7e-4b53-88ac-a0529ee810da"]
       }], "SeeAlso",ExpressionUUID->"660ba15b-1c2b-4880-8032-45322a511498"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"4b53c20e-7176-41c6-b3c9-\
4313fdacb9e3"],

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->
         "fa88bec5-608f-4052-b776-9101dcd8542b"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"0a9be97b-2a11-434d-bca9-\
90722b426dd7"],

Cell[" ", "FooterCell",ExpressionUUID->"2fe1240f-1761-49ed-b9c4-beb1366e0195"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"Base58CheckQ",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "", "LinkTrails" -> "", 
  "ExampleCounter" -> 1, 
  "Openers" -> {
   "PrimaryExamplesSection" -> Open, "ExampleSection" -> {"0" -> Open}, 
    "AllOptsTable" -> Closed}, "NewStyles" -> True, 
  "CitationPopupData" -> $Failed, "ShowCitation" -> False, "HasOptions" -> 
  True, "RootCaptions" -> "", "HeaderCoreAreaLink" -> {}, 
  "Metadata" -> {
   "built" -> "{2026, 8, 27, 0, 11, 21.064730}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[Base58CheckQ,paclet : \
WolframInstitute/Puzzles/ref/Base58CheckQ, WolframInstitute/Puzzles Package \
Symbol][string] gives True if string is Base58 and carries a valid four-byte \
double-SHA256 checksum, and False otherwise.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "Base58CheckQ", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "Base58CheckQ", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/Base58CheckQ", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"07ff23f4-4de8-4c2f-990a-8c69027a321a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15343, 418, 150, 2, 70, "ExampleText",ExpressionUUID->"6bdbf1e5-c76a-4b1f-ab64-c4637f7da18f",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 34686, 979}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[580, 21, 5755, 140, 70, "AnchorBarGrid",ExpressionUUID->"8566507b-b246-4393-9ec0-75394f9b0928",
 CellID->1],
Cell[6338, 163, 107, 0, 70, "ContextNameCell",ExpressionUUID->"7d44bcf1-fcff-441f-b957-4731325a2574"],
Cell[CellGroupData[{
Cell[6470, 167, 555, 14, 70, "ObjectNameGrid",ExpressionUUID->"95706dfe-c59a-4328-aa88-8cca718bdb4e"],
Cell[7028, 183, 1191, 30, 70, "Usage",ExpressionUUID->"da9c13b5-4e3d-4b63-a737-20ce9dbc39b8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8256, 218, 1443, 34, 70, "NotesSection",ExpressionUUID->"e49ff0a9-46bd-4c75-9a3f-e4b6d8455941",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->154882474],
Cell[9702, 254, 406, 8, 70, "Notes",ExpressionUUID->"1d987bab-6051-4252-af64-36272d9ad1b9"],
Cell[10111, 264, 316, 7, 70, "Notes",ExpressionUUID->"667d138a-2337-4c40-967b-7c68c580b01e"],
Cell[10430, 273, 335, 7, 70, "Notes",ExpressionUUID->"563dd0b2-5848-4882-8960-506a973acb91"],
Cell[10768, 282, 276, 7, 70, "Notes",ExpressionUUID->"8e38ee24-d2db-4b99-bed8-629f2d534c43"],
Cell[11047, 291, 533, 16, 70, "Notes",ExpressionUUID->"e2bcca1b-7361-4f63-9a4b-551f7d11b293"],
Cell[11583, 309, 757, 22, 70, "Notes",ExpressionUUID->"6bf9c673-5daa-4081-858b-f3b991fe0397"]
}, Closed]],
Cell[12355, 334, 80, 0, 70, "PageDelimiter",ExpressionUUID->"46283c3c-fff6-4fdc-ba7a-074529cb2205"],
Cell[CellGroupData[{
Cell[12460, 338, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"326a852e-07c1-4259-89d0-e3389e7ae1fe",
 CellID->359560354],
Cell[13864, 377, 216, 4, 70, "Input",ExpressionUUID->"a9d355f2-0b60-43c6-b019-bd44b8df2ab5",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14105, 385, 1235, 31, 70, "ExampleSection",ExpressionUUID->"70dc8601-a526-4190-808d-043ad55bf37d",
 CellID->111887020],
Cell[15343, 418, 150, 2, 70, "ExampleText",ExpressionUUID->"6bdbf1e5-c76a-4b1f-ab64-c4637f7da18f",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15518, 424, 236, 4, 70, "Input",ExpressionUUID->"a0698037-6700-4699-a8d3-4e6232e6d4f6"],
Cell[15757, 430, 110, 1, 70, "Output",ExpressionUUID->"4a4776da-1776-4127-88a1-679ba2b1e35d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15904, 436, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ec278da6-fc0e-4023-9d2a-e774a33b4245"],
Cell[16131, 443, 127, 0, 70, "ExampleText",ExpressionUUID->"e0ef8518-6f38-4401-a36c-3fc839c784a2"],
Cell[CellGroupData[{
Cell[16283, 447, 236, 4, 70, "Input",ExpressionUUID->"5fa92ca6-d2b8-428b-9af6-d2fe3d7ba85c"],
Cell[16522, 453, 111, 1, 70, "Output",ExpressionUUID->"27c4dd4d-7af6-40e9-8bec-9fac130f05c1"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16682, 460, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"35940c13-87b6-4abc-9068-0adb4cdba8a6"],
Cell[16909, 467, 139, 1, 70, "ExampleText",ExpressionUUID->"1cbeaf32-654c-4f01-8118-4bc450734276"],
Cell[CellGroupData[{
Cell[17073, 472, 203, 3, 70, "Input",ExpressionUUID->"c79a40fe-5d5c-4fc6-b85e-28f5f7231407"],
Cell[17279, 477, 111, 1, 70, "Output",ExpressionUUID->"c7102003-95ff-4c04-ad3d-5e3c48133503"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17451, 485, 1227, 31, 70, "ExampleSection",ExpressionUUID->"abf9e5bf-136f-4c6e-ae3e-ac88b5d8aea0",
 CellID->1293636265],
Cell[18681, 518, 149, 2, 70, "ExampleText",ExpressionUUID->"d16accc9-dc48-4e02-86fc-15910ff7dec8"],
Cell[CellGroupData[{
Cell[18855, 524, 256, 5, 70, "Input",ExpressionUUID->"f8ed9a17-aa94-4116-a4c2-2330548f216c"],
Cell[19114, 531, 110, 1, 70, "Output",ExpressionUUID->"88d71e24-ec0c-46fe-afb3-7bdcada4a629"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19261, 537, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"327370a9-67b1-48ce-887b-ad6e6e1472ba"],
Cell[19488, 544, 319, 7, 70, "ExampleText",ExpressionUUID->"ea57d390-68f9-44fa-bd2a-cf8ee716b599"],
Cell[CellGroupData[{
Cell[19832, 555, 236, 4, 70, "Input",ExpressionUUID->"b140f5e1-b4ea-47bf-bd58-c2516ca56b4a"],
Cell[20071, 561, 111, 1, 70, "Output",ExpressionUUID->"e67b657d-99e5-4e8f-a490-e36305317070"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20231, 568, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"eab4a853-d99c-46f2-be73-1c71fc1aba30"],
Cell[20458, 575, 278, 7, 70, "ExampleText",ExpressionUUID->"a09639a8-b1d3-4ea6-97ad-b93374f65cc3"],
Cell[CellGroupData[{
Cell[20761, 586, 193, 3, 70, "Input",ExpressionUUID->"36d3e694-2ffd-406d-9463-4a113d58a914"],
Cell[20957, 591, 111, 1, 70, "Output",ExpressionUUID->"af3137a5-1693-45d8-b194-b31e5df3436a"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[21129, 599, 1244, 31, 70, "ExampleSection",ExpressionUUID->"2b1c3790-40ca-4041-90f4-70a8a5c481d2",
 CellID->2123667759],
Cell[22376, 632, 168, 3, 70, "ExampleText",ExpressionUUID->"97d60dd5-6270-457f-8db2-d6243f16cd6b"],
Cell[CellGroupData[{
Cell[22569, 639, 883, 22, 70, "Input",ExpressionUUID->"5eb32d3a-7f6c-46c7-a0bf-044bd6670a8b"],
Cell[23455, 663, 108, 1, 70, "Output",ExpressionUUID->"ce35eb6f-3925-4ffd-b9dc-b9f23ee366a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23600, 669, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"8cdadcfc-a2b9-4c7d-858b-500ba78c7a4d"],
Cell[23827, 676, 181, 3, 70, "ExampleText",ExpressionUUID->"c9358872-e75f-45c6-b549-aafc7b8b4c10"],
Cell[CellGroupData[{
Cell[24033, 683, 386, 10, 70, "Input",ExpressionUUID->"fa9739e2-b00c-4952-9301-bb94417b7a3a"],
Cell[24422, 695, 110, 1, 70, "Output",ExpressionUUID->"c7889832-e634-4de4-ae07-fc4dbc601538"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24581, 702, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d73f2179-1fd9-43bb-923b-dbf17be77370"],
Cell[24808, 709, 518, 12, 70, "ExampleText",ExpressionUUID->"dea00f10-50ee-4766-9fc4-d2c7cfcfe714"],
Cell[CellGroupData[{
Cell[25351, 725, 198, 3, 70, "Input",ExpressionUUID->"1be232ae-a458-4e6f-bc72-60fd29034216"],
Cell[25552, 730, 110, 1, 70, "Output",ExpressionUUID->"6f752741-e7c0-4b6a-a95f-0b0f7c555d57"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25723, 738, 1237, 31, 70, "ExampleSection",ExpressionUUID->"711e6ec9-2305-48b5-9181-573904c3340b",
 CellID->1305812373],
Cell[26963, 771, 220, 3, 70, "ExampleText",ExpressionUUID->"3e4a2250-92a4-4f9d-aaab-a73298a14d0c"],
Cell[CellGroupData[{
Cell[27208, 778, 344, 8, 70, "Input",ExpressionUUID->"bdd19fff-4416-4fc6-ab5a-8f6166baa674"],
Cell[27555, 788, 110, 1, 70, "Output",ExpressionUUID->"a716de3c-c9ed-4577-8ead-01b201c0cc84"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27702, 794, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"8028196f-6cc6-449f-bb75-3bf5c51c92c9"],
Cell[27929, 801, 523, 13, 70, "ExampleText",ExpressionUUID->"48ab2846-7340-4a03-ae99-3a1813562a5c"],
Cell[CellGroupData[{
Cell[28477, 818, 336, 8, 70, "Input",ExpressionUUID->"3ec72aac-9c90-475f-8529-32c38d3a106c"],
Cell[28816, 828, 111, 1, 70, "Output",ExpressionUUID->"ee53dede-45dd-466a-9853-4fcfcb867326"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[28978, 835, 3096, 81, 70, "SeeAlsoSection",ExpressionUUID->"4b53c20e-7176-41c6-b3c9-4313fdacb9e3"],
Cell[32077, 918, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"0a9be97b-2a11-434d-bca9-90722b426dd7"],
Cell[32778, 939, 78, 0, 70, "FooterCell",ExpressionUUID->"2fe1240f-1761-49ed-b9c4-beb1366e0195"]
}
]
*)

(* End of internal cache information *)

