(* 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[     41581,       1111]
NotebookOptionsPosition[     32829,        947]
NotebookOutlinePosition[     34824,        995]
CellTagsIndexPosition[     34747,        990]
WindowTitle->WIFQ
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->
           "97adce36-a7e6-41bb-b757-ce573891bfd9"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "1192939c-04b7-438b-ac24-25c0f19021c6"],
        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->
           "15e89753-945f-4fc3-a2df-cda8b3098a9c"]
         }],ExpressionUUID->"989ca39f-9d36-4505-bd32-2ae237e5f856"],
         StripOnInput->False],{
        StyleBox["\"WIFDecode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/WIFDecode"], 
         StyleBox["\"WIFEncode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/WIFEncode"], 
         StyleBox[
          "\"Base58CheckQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58CheckQ"], 
         StyleBox[
          "\"SegWitAddressQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/SegWitAddressQ"], 
         StyleBox["\"Base58Q\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58Q"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "04da9ee1-5b7b-415a-8c9c-1f77fbbb8f78"],
     "\[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->
           "fac62eec-7cc5-4fd1-b238-b57893b75fa7"]
         }],ExpressionUUID->"e6e2768c-fdb2-489b-a171-0c04eba28d03"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "34bfb257-26da-41d2-867b-ed13b80422ae"],
     "\[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->
           "0479f9e0-db3e-4c91-8ce2-1622cf7a4853"]
         }],ExpressionUUID->"badb24df-53b7-4852-8008-932e187c8e2c"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/WIFQ\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/WIFQ"], 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/WIFQ.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/WIFQ" <> ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "de8e1c86-ff30-475d-bd18-f69466bdb47f"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "e03ce756-a3a2-47ee-b21f-a263d66c16ce"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"3d0cc1b2-8ec2-4e97-bc58-1cdb5462bf31"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"7da03862-7017-429d-ad54-562528581303"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "WIFQ", "ObjectName",ExpressionUUID->
      "bb9c5ada-d1b5-4e88-8c31-9f997e9acee2"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"d9671353-dee7-4c61-bb43-41979fae335e"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "e34e625f-8ad1-4fe6-a72b-bd03475cddcd"]
    }],ExpressionUUID->"b93b4d13-9115-4d74-a570-3feef4525040"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"9f6962f1-f03e-4c6c-b2f2-\
473a037c5d3a"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["WIFQ"]], "paclet:WolframInstitute/Puzzles/ref/WIFQ", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["string", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "d572e9ab-da85-4292-8c6c-acb2dec5da8e"],
     "\[LineSeparator]",
     "gives ",
     Cell[BoxData["True"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "3ac056f9-8d50-42ef-90b5-410d5eebd415"],
     " if ",
     StyleBox["string", "TI"],
     " is a well-formed Wallet Import Format private key, and ",
     Cell[BoxData["False"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "6cf11fd3-2ca8-47ac-a3a7-1ed186d19e25"],
     " otherwise."
    }],ExpressionUUID->"165d5e7c-3703-416d-852a-6adb5d174a3a"]}
  }]], "Usage",ExpressionUUID->"9d91ba77-1e9b-4410-bfcd-111178b83520"]
}, 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->"8e0d59a2-13f5-47a1-ab00-b24403f99b3e"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"f9ca6647-e7f9-40c9-8253-31bbf8932903"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "07488fdf-5ad6-415e-902a-27362cc0a73e"]],ExpressionUUID->"c7a46d1e-75cf-\
4564-a4eb-c02bf1e16c26"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1343033645,ExpressionUUID->"4401f609-d669-49a8-bcfa-92b0a40708f2"],

Cell[TextData[{
 "Three conditions must hold: a valid Base58Check checksum, a version byte of \
",
 Cell[BoxData[
  RowBox[{"0", "x80"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "aef9910b-5378-4c28-a2eb-39bb7f48f8d4"],
 " or ",
 Cell[BoxData[
  RowBox[{"0", "xef"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "166a89b3-c660-4cd7-90ec-5f6d02729694"],
 ", and a payload after the version byte of either 32 bytes or 33 bytes \
ending in ",
 Cell[BoxData[
  RowBox[{"0", "x01"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0f002845-0cdf-4f59-a888-2c41b0010a46"],
 "."
}], "Notes",ExpressionUUID->"06b7d907-1d15-47a7-a8d7-018b2ef8b019"],

Cell[TextData[{
 "Format only. A ",
 Cell[BoxData["True"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "dbeb7cf5-6b92-414e-908a-0b7a26854f32"],
 " answer does not mean the scalar lies in the secp256k1 range ",
 Cell[BoxData[
  RowBox[{"[", "1", ",", 
   StyleBox["n", "TI"], ")"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "90596dd8-85c0-4828-8cff-74e0f272ec08"],
 ", and it says nothing about whether the key controls any coins."
}], "Notes",ExpressionUUID->"331b063a-ac10-4b6e-af5c-dc818a7f6675"],

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->
  "a39e2b91-c90e-4471-a341-7e3d2f36127b"],
 " gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "25563f0f-5652-40e2-a229-7d2a31188431"],
 ", as does any string outside the Base58 alphabet."
}], "Notes",ExpressionUUID->"92e7d996-cd65-4bdb-8e70-be41ab53df71"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["WIFDecode"]], "paclet:WolframInstitute/Puzzles/ref/WIFDecode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "00451548-d2aa-4b7b-9f36-137a34d39d62"],
 " gives the same verdict with the key and flags attached."
}], "Notes",ExpressionUUID->"03e032f9-b660-4cd2-bdad-6d820851353f"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"77aa350c-7539-4621-9aa6-ffdc9262b943"],

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->"31b13c4d-4c9d-4ef7-8f5c-6145e0d2e63f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"851d77e1-e3b1-40ea-87d4-b7c77f455c37"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(11)", "ExampleCount",ExpressionUUID->
  "d440ac85-421b-48ad-ae9f-4a1300da108e"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->165857898,ExpressionUUID->"d8152caf-4343-49de-8052-ef1632a1e131"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"d099bae6-b031-4516-9f77-a113bf1dbce4"],

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->
  "631b290c-b569-4bd9-91bb-a14a3bb38afa"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6c1ea52e-ee4b-45e6-8c92-312dbb23f59e"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "154f69ba-cc42-47b7-a355-5dbb77581718"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->139917880,ExpressionUUID->"0706d4c3-1661-47d1-b7d9-4ce37be40f92"],

Cell["A Bitcoin Core key_io vector for a mainnet private key:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"8e827de2-0b7b-4ec9-9075-f63f6b5bff5c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFQ", 
  "[", "\"\<5JuW2AMDYu4xVwRG9DZW18VbzQrGcd5RCgb99sS6ehJsNQXu5b9\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"45c4d59f-482d-4bef-89c9-b25ffe32a182"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"52610239-594d-43c2-84ba-c7a83d95a075"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c6ae1148-bbc9-4053-b422-c8edeff2c1d8"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"064c714e-7869-4b54-\
9540-581b304dd4b6"],

Cell["A compressed mainnet key:", "ExampleText",ExpressionUUID->"8cd002b4-d121-4e52-b519-8dbb688b8318"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFQ", 
  "[", "\"\<L5nJeqKmpHp4P7F8ZYyjwc5a7P4d8EabuGAzfGJk7yC1BJyzNaEd\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6985d878-e872-4212-b7e8-9a34844059b6"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"64497e0d-9c41-4f0e-91e6-afe81cef8fce"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "5b077e14-a973-4418-9a1e-035b1bb80171"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"318a626a-e903-4cf1-\
b4ef-43fac9cec883"],

Cell["\<\
A Bitcoin address is a well-formed Base58Check string with the wrong version \
byte:\
\>", "ExampleText",ExpressionUUID->"dac3f9b0-5688-41f0-9184-eb392ba8e0ff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFQ", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e8224b41-cdbf-4345-8973-8576d98700a7"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ff023c80-1450-4ad4-b2e8-27cc3cbba389"]
}, 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->
  "37d7254f-ff01-42b2-8341-c0a78aafc2fb"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"edf4faf7-3aca-41a0-afe6-58e05aab4c64"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "aee7f19a-27b1-494f-947a-dc010a9874c3"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"981de9f1-c097-4b81-ab22-2771f65dbd59"],

Cell[TextData[{
 "A testnet key passes too, since ",
 Cell[BoxData[
  RowBox[{"0", "xef"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "410bc7ea-3158-4e7e-abd1-ea7f8151a0e4"],
 " is one of the two accepted version bytes:"
}], "ExampleText",ExpressionUUID->"8338e545-280a-4bbd-89a4-f0154376f278"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFQ", 
  "[", "\"\<cV83kKisF3RQSvXbUCm9ox3kaz5JjEUBWcx8tNydfGJcyeUxuH47\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ffd2fb73-3b88-4032-acf1-92e46fb77204"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ca1c8bdd-3ab1-495e-a110-b8802c7e2479"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0ad0a7c7-88ba-4328-90c9-36bf6a428ccf"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"818f5c94-8d46-4eaa-\
8c2b-5b44bbf0947a"],

Cell["\<\
A Bitcoin Core key_io_invalid vector whose payload length is wrong:\
\>", "ExampleText",ExpressionUUID->"586cca16-f81d-49aa-9095-12c9c58282df"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFQ", 
  "[", "\"\<cPTVQ1hbo4qdoysf6Jx5GthqucNmdfqt6J2pZRFeXv8Ep7Kmjqud\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9966de52-625f-43d7-84e6-ea25d3aabe3f"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d24581bf-9096-4475-bda2-673e13fa629e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "424764b7-aaed-461a-b699-cb2b798cee3c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"25b21804-f063-42d2-\
8747-1906b152d3a2"],

Cell[TextData[{
 "A non-string gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3614f18b-06b4-4bfa-bc67-343e2980910f"],
 " rather than an error:"
}], "ExampleText",ExpressionUUID->"30cbba15-c3e4-4fcc-b37d-bf4d930e46d5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFQ", "[", "42", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"288fdac5-c8ae-4a57-b09e-c57f4ad1de99"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7438e950-26d3-463e-86dd-4f1de9299821"]
}, 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->
  "baf370f5-6a2b-45d3-b249-11b9308cc8fe"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b65a8810-e778-4312-afd7-9447dfdb7508"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "599be3b3-dcc5-41af-b799-cc6d6a220e9e"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"a179481c-5d0d-4822-8fd4-961d73b1c553"],

Cell[TextData[{
 "A ",
 Cell[BoxData["True"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b6b18ddf-ee78-40da-b9e6-2239317976dd"],
 " answer implies the Base58Check checksum held, so this predicate is \
stronger than ",
 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->
  "12fd5ed4-02fc-4490-af72-18139607748d"],
 ":"
}], "ExampleText",ExpressionUUID->"34e75169-9bc0-486b-b26c-500785057f84"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
   "Base58CheckQ", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", "]"}], ",",
    " ", 
   RowBox[{"WIFQ", "[", "\"\<1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\>\"", "]"}]}],
   "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"daf2a273-0b1f-4790-ad71-bfc2998229c9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "False"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"46e70fdc-0cf9-412b-a471-3cdbcd008cc7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "790e4359-d980-4e7b-a30c-4351a2a63fb0"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"9d9e9482-a585-4b81-\
a309-cbd9c8b53d04"],

Cell[TextData[{
 "Everything ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["WIFEncode"]], "paclet:WolframInstitute/Puzzles/ref/WIFEncode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "88c9306c-ba60-4a1c-8a1a-fb06818ab1d3"],
 " produces passes:"
}], "ExampleText",ExpressionUUID->"f48bd242-782e-4493-aba5-5f5620f60b71"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFQ", "[", 
  RowBox[{"WIFEncode", "[", 
   RowBox[{
    RowBox[{"ConstantArray", "[", 
     RowBox[{"7", ",", " ", "32"}], "]"}], ",", " ", 
    RowBox[{"\"\<Network\>\"", " ", "->", " ", "\"\<Testnet\>\""}]}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"bdb03c23-52fa-4e43-af32-e4ba9bb064a3"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"aa7f9840-3b10-4e6c-946f-71579143923d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "813397c6-5619-46bf-a99f-4122d987de5c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"66610188-582d-44f5-\
b9c2-5b2827c8bfde"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["WIFDecode"]], "paclet:WolframInstitute/Puzzles/ref/WIFDecode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4a8040b9-81ff-4e4d-ab7b-9343fdf8d7b7"],
 " gives the same verdict with the reason attached:"
}], "ExampleText",ExpressionUUID->"9d832239-814b-414f-9c75-dab7f76f7874"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{
  "WIFDecode", 
   "[", "\"\<cPTVQ1hbo4qdoysf6Jx5GthqucNmdfqt6J2pZRFeXv8Ep7Kmjqud\>\"", "]"}],
   "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"96ab22c3-4600-4c61-aa25-cc6cfe8685d2"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"455c2dc0-3c4b-49e9-808b-94a26ea5b56f"]
}, 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->
  "b17959ce-4e94-4ac0-868d-a693b030454a"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"1ad65c40-359f-4703-85f1-9433e05a784b"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "ec133080-34d2-4b55-aa0f-c6f8fcbd8c7f"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"5dff523f-b24f-47e5-b520-74a65f09b201"],

Cell["\<\
The scalar is not range-checked, so a key of all zero bytes is well formed \
and useless:\
\>", "ExampleText",ExpressionUUID->"05cbb1ca-e775-4b5d-b082-63c59ebe487d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFQ", "[", 
  RowBox[{"WIFEncode", "[", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", " ", "32"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9685cd30-3641-411d-b476-d085a90c2467"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d6b9b124-b128-4677-8e0e-ab0c89519fc2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "e5e4b0a8-7b40-4159-a9ab-b9a8d9a8ec74"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"570914d1-ae48-44f3-\
b3f2-c836707341a3"],

Cell[TextData[{
 "A string outside the Base58 alphabet gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "be475c45-fe7a-4b67-8f75-bd29ef2c249e"],
 ":"
}], "ExampleText",ExpressionUUID->"7e298410-e314-4319-bc32-9b7d03958630"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFQ", "[", "\"\<not base58 0OIl\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fd65d4e5-5325-4417-8076-776653570086"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2ba11ee2-bafc-4235-9698-1a2de1be1e98"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["WIFDecode"]], 
           "paclet:WolframInstitute/Puzzles/ref/WIFDecode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "60defe69-85ac-4c8a-adac-94e2cb9b40a5"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["WIFEncode"]], 
           "paclet:WolframInstitute/Puzzles/ref/WIFEncode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c9246e2d-3c3f-4367-abe8-6ed2bffedf49"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Base58CheckQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/Base58CheckQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a12cf987-d28e-43bf-b11f-b09caf55bd70"],
        "\[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->
         "b4a225c5-2b05-48ab-8086-e53b84da57cc"],
        "\[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->
         "d43552a6-a86f-4130-befb-18ebc479b7d5"]
       }], "SeeAlso",ExpressionUUID->"26eb6e56-6e0c-4542-8acd-22659fdd303f"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"1fe9db50-01e2-44cf-b291-\
58a12b847086"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, "RelatedGuide.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "40ba0a9b-452d-4d66-a978-912613359dc3"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"b5676435-3f8d-4a04-9bdf-\
70f13811c779"],

Cell[" ", "FooterCell",ExpressionUUID->"0344ba34-4c1a-4267-890e-cc11c3d3133b"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"WIFQ",
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, 57.843639}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[WIFQ,paclet : WolframInstitute/Puzzles/ref/WIFQ, \
WolframInstitute/Puzzles Package Symbol][string] gives True if string is a \
well-formed Wallet Import Format private key, and False otherwise.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "WIFQ", "titlemodifier" -> 
    "", "metadescription" -> "", "windowtitle" -> "WIFQ", "type" -> "Symbol", 
    "uri" -> "WolframInstitute/Puzzles/ref/WIFQ", "WorkflowDockedCell" -> ""},
   "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"87534c64-168a-48a4-a192-39021a3adafe"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15075, 409, 165, 2, 70, "ExampleText",ExpressionUUID->"8e827de2-0b7b-4ec9-9075-f63f6b5bff5c",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 34590, 984}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[572, 21, 5692, 139, 70, "AnchorBarGrid",ExpressionUUID->"3d0cc1b2-8ec2-4e97-bc58-1cdb5462bf31",
 CellID->1],
Cell[6267, 162, 107, 0, 70, "ContextNameCell",ExpressionUUID->"7da03862-7017-429d-ad54-562528581303"],
Cell[CellGroupData[{
Cell[6399, 166, 547, 14, 70, "ObjectNameGrid",ExpressionUUID->"9f6962f1-f03e-4c6c-b2f2-473a037c5d3a"],
Cell[6949, 182, 1152, 29, 70, "Usage",ExpressionUUID->"9d91ba77-1e9b-4410-bfcd-111178b83520"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8138, 216, 1444, 34, 70, "NotesSection",ExpressionUUID->"4401f609-d669-49a8-bcfa-92b0a40708f2",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1343033645],
Cell[9585, 252, 795, 22, 70, "Notes",ExpressionUUID->"06b7d907-1d15-47a7-a8d7-018b2ef8b019"],
Cell[10383, 276, 604, 14, 70, "Notes",ExpressionUUID->"331b063a-ac10-4b6e-af5c-dc818a7f6675"],
Cell[10990, 292, 581, 16, 70, "Notes",ExpressionUUID->"92e7d996-cd65-4bdb-8e70-be41ab53df71"],
Cell[11574, 310, 498, 12, 70, "Notes",ExpressionUUID->"03e032f9-b660-4cd2-bdad-6d820851353f"]
}, Closed]],
Cell[12087, 325, 80, 0, 70, "PageDelimiter",ExpressionUUID->"77aa350c-7539-4621-9aa6-ffdc9262b943"],
Cell[CellGroupData[{
Cell[12192, 329, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"d8152caf-4343-49de-8052-ef1632a1e131",
 CellID->165857898],
Cell[13596, 368, 216, 4, 70, "Input",ExpressionUUID->"d099bae6-b031-4516-9f77-a113bf1dbce4",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13837, 376, 1235, 31, 70, "ExampleSection",ExpressionUUID->"0706d4c3-1661-47d1-b7d9-4ce37be40f92",
 CellID->139917880],
Cell[15075, 409, 165, 2, 70, "ExampleText",ExpressionUUID->"8e827de2-0b7b-4ec9-9075-f63f6b5bff5c",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15265, 415, 248, 5, 70, "Input",ExpressionUUID->"45c4d59f-482d-4bef-89c9-b25ffe32a182"],
Cell[15516, 422, 110, 1, 70, "Output",ExpressionUUID->"52610239-594d-43c2-84ba-c7a83d95a075"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15663, 428, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"064c714e-7869-4b54-9540-581b304dd4b6"],
Cell[15890, 435, 103, 0, 70, "ExampleText",ExpressionUUID->"8cd002b4-d121-4e52-b519-8dbb688b8318"],
Cell[CellGroupData[{
Cell[16018, 439, 249, 5, 70, "Input",ExpressionUUID->"6985d878-e872-4212-b7e8-9a34844059b6"],
Cell[16270, 446, 110, 1, 70, "Output",ExpressionUUID->"64497e0d-9c41-4f0e-91e6-afe81cef8fce"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16429, 453, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"318a626a-e903-4cf1-b4ef-43fac9cec883"],
Cell[16656, 460, 170, 3, 70, "ExampleText",ExpressionUUID->"dac3f9b0-5688-41f0-9184-eb392ba8e0ff"],
Cell[CellGroupData[{
Cell[16851, 467, 228, 4, 70, "Input",ExpressionUUID->"e8224b41-cdbf-4345-8973-8576d98700a7"],
Cell[17082, 473, 111, 1, 70, "Output",ExpressionUUID->"ff023c80-1450-4ad4-b2e8-27cc3cbba389"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17254, 481, 1227, 31, 70, "ExampleSection",ExpressionUUID->"981de9f1-c097-4b81-ab22-2771f65dbd59",
 CellID->1293636265],
Cell[18484, 514, 348, 8, 70, "ExampleText",ExpressionUUID->"8338e545-280a-4bbd-89a4-f0154376f278"],
Cell[CellGroupData[{
Cell[18857, 526, 249, 5, 70, "Input",ExpressionUUID->"ffd2fb73-3b88-4032-acf1-92e46fb77204"],
Cell[19109, 533, 110, 1, 70, "Output",ExpressionUUID->"ca1c8bdd-3ab1-495e-a110-b8802c7e2479"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19256, 539, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"818f5c94-8d46-4eaa-8c2b-5b44bbf0947a"],
Cell[19483, 546, 153, 2, 70, "ExampleText",ExpressionUUID->"586cca16-f81d-49aa-9095-12c9c58282df"],
Cell[CellGroupData[{
Cell[19661, 552, 249, 5, 70, "Input",ExpressionUUID->"9966de52-625f-43d7-84e6-ea25d3aabe3f"],
Cell[19913, 559, 111, 1, 70, "Output",ExpressionUUID->"d24581bf-9096-4475-bda2-673e13fa629e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20073, 566, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"25b21804-f063-42d2-8747-1906b152d3a2"],
Cell[20300, 573, 299, 7, 70, "ExampleText",ExpressionUUID->"30cbba15-c3e4-4fcc-b37d-bf4d930e46d5"],
Cell[CellGroupData[{
Cell[20624, 584, 185, 3, 70, "Input",ExpressionUUID->"288fdac5-c8ae-4a57-b09e-c57f4ad1de99"],
Cell[20812, 589, 111, 1, 70, "Output",ExpressionUUID->"7438e950-26d3-463e-86dd-4f1de9299821"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[20984, 597, 1244, 31, 70, "ExampleSection",ExpressionUUID->"a179481c-5d0d-4822-8fd4-961d73b1c553",
 CellID->2123667759],
Cell[22231, 630, 715, 20, 70, "ExampleText",ExpressionUUID->"34e75169-9bc0-486b-b26c-500785057f84"],
Cell[CellGroupData[{
Cell[22971, 654, 369, 9, 70, "Input",ExpressionUUID->"daf2a273-0b1f-4790-ad71-bfc2998229c9"],
Cell[23343, 665, 159, 3, 70, "Output",ExpressionUUID->"46e70fdc-0cf9-412b-a471-3cdbcd008cc7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23539, 673, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"9d9e9482-a585-4b81-a309-cbd9c8b53d04"],
Cell[23766, 680, 481, 13, 70, "ExampleText",ExpressionUUID->"f48bd242-782e-4493-aba5-5f5620f60b71"],
Cell[CellGroupData[{
Cell[24272, 697, 390, 9, 70, "Input",ExpressionUUID->"bdb03c23-52fa-4e43-af32-e4ba9bb064a3"],
Cell[24665, 708, 110, 1, 70, "Output",ExpressionUUID->"aa7f9840-3b10-4e6c-946f-71579143923d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24824, 715, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"66610188-582d-44f5-b9c2-5b2827c8bfde"],
Cell[25051, 722, 497, 12, 70, "ExampleText",ExpressionUUID->"9d832239-814b-414f-9c75-dab7f76f7874"],
Cell[CellGroupData[{
Cell[25573, 738, 293, 7, 70, "Input",ExpressionUUID->"96ab22c3-4600-4c61-aa25-cc6cfe8685d2"],
Cell[25869, 747, 110, 1, 70, "Output",ExpressionUUID->"455c2dc0-3c4b-49e9-808b-94a26ea5b56f"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[26040, 755, 1237, 31, 70, "ExampleSection",ExpressionUUID->"5dff523f-b24f-47e5-b520-74a65f09b201",
 CellID->1305812373],
Cell[27280, 788, 175, 3, 70, "ExampleText",ExpressionUUID->"05cbb1ca-e775-4b5d-b082-63c59ebe487d"],
Cell[CellGroupData[{
Cell[27480, 795, 292, 6, 70, "Input",ExpressionUUID->"9685cd30-3641-411d-b476-d085a90c2467"],
Cell[27775, 803, 110, 1, 70, "Output",ExpressionUUID->"d6b9b124-b128-4677-8e0e-ab0c89519fc2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27922, 809, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"570914d1-ae48-44f3-b3f2-c836707341a3"],
Cell[28149, 816, 302, 7, 70, "ExampleText",ExpressionUUID->"7e298410-e314-4319-bc32-9b7d03958630"],
Cell[CellGroupData[{
Cell[28476, 827, 206, 3, 70, "Input",ExpressionUUID->"fd65d4e5-5325-4417-8076-776653570086"],
Cell[28685, 832, 111, 1, 70, "Output",ExpressionUUID->"2ba11ee2-bafc-4235-9698-1a2de1be1e98"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[28847, 839, 3148, 83, 70, "SeeAlsoSection",ExpressionUUID->"1fe9db50-01e2-44cf-b291-58a12b847086"],
Cell[31998, 924, 746, 19, 70, "MoreAboutSection",ExpressionUUID->"b5676435-3f8d-4a04-9bdf-70f13811c779"],
Cell[32747, 945, 78, 0, 70, "FooterCell",ExpressionUUID->"0344ba34-4c1a-4267-890e-cc11c3d3133b"]
}
]
*)

(* End of internal cache information *)

