(* 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[     55740,       1462]
NotebookOptionsPosition[     45054,       1266]
NotebookOutlinePosition[     47123,       1315]
CellTagsIndexPosition[     47045,       1310]
WindowTitle->WIFEncode
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->
           "861d3824-13a2-4092-8c1c-abfddad9062b"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "a8bb5fe1-ef9c-4887-bf3b-61977552953a"],
        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->
           "50686b14-b989-46c6-8b67-72a40a2f681f"]
         }],ExpressionUUID->"813761ad-c3d7-42f6-99c0-d5879cffa8be"],
         StripOnInput->False],{
        StyleBox["\"WIFDecode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/WIFDecode"], 
         StyleBox["\"WIFQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:WolframInstitute/Puzzles/ref/WIFQ"],
          StyleBox[
          "\"Base58CheckEncode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Base58CheckEncode"], 
         StyleBox[
          "\"HexStringToByteList\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HexStringToByteList"], 
         StyleBox["\"ByteListQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ByteListQ"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "2a7d211a-c8af-4eed-a3f6-cab550fa0416"],
     "\[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->
           "fec809d5-f506-4a6d-ba1b-4c9cc7eef941"]
         }],ExpressionUUID->"62ff941b-28a2-4ee4-a8b8-6c678f02a7e4"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "9ec6e0a9-7d2e-4f38-906b-602f10ccb812"],
     "\[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->
           "c839e2d8-7da5-40ed-b8a4-e5af137c9860"]
         }],ExpressionUUID->"bfc57c12-8414-4125-afa5-6c295d4bfa4b"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/WIFEncode\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/WIFEncode"], 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/WIFEncode.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/WIFEncode" <> ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "b1fd107d-97b9-4e25-9fad-9a3d82bd18f6"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "fae6c636-81ff-4841-895f-965a59d0dcbb"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"5dd893c7-3064-47e9-ac4a-46e76960bc49"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"dbd7c85c-7ae8-4409-85e4-acd8e144820a"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "WIFEncode", "ObjectName",ExpressionUUID->
      "1235812e-b82e-4913-a389-ce0deef40b18"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"7fde63d9-9c07-4ad8-8ca0-ebe7cb639c99"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "d5c18734-2c97-4ba4-bf88-2de9aef92a62"]
    }],ExpressionUUID->"62fae60e-5f71-4d9a-aaee-f00a01731344"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"b4ad884b-0786-44ef-87e7-\
c3aa5a2770a0"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["WIFEncode"]], 
         "paclet:WolframInstitute/Puzzles/ref/WIFEncode", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["key", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "e84a4474-6afc-403e-9d94-fb48a5ba2644"],
     "\[LineSeparator]",
     "gives the Wallet Import Format string for a 32-byte private ",
     StyleBox["key", "TI"],
     " given as a byte list, a 64-character hexadecimal string, or a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["ByteArray"]], "paclet:ref/ByteArray"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "efc2b09f-647a-42e1-b658-8e003f44bdb1"],
     "."
    }],ExpressionUUID->"ae5eec9b-3d79-4806-83e3-81e42a64720f"]}
  }]], "Usage",ExpressionUUID->"ac57ef74-0ddb-4794-874a-3a6b065ba946"]
}, 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->"cff20494-7474-484f-8c05-fe38c7c79350"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"b91951fc-fdc5-488b-9ebf-1c949a8f82d3"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "b2d925b8-2955-43fd-832e-1485db77ea7f"]],ExpressionUUID->"e602a2d7-2c21-\
445c-86c6-80cf0aebca87"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->893740937,ExpressionUUID->"5afd710f-c589-4858-a096-42bcb0b596a8"],

Cell[TextData[{
 "The payload is the network version byte, then the 32 key bytes, then a \
single ",
 Cell[BoxData[
  RowBox[{"0", "x01"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "87941c07-8cda-49b8-ac98-d99ab806317a"],
 " byte when the key is marked as belonging to a compressed public key; the \
whole thing goes through ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Base58CheckEncode"]], 
    "paclet:WolframInstitute/Puzzles/ref/Base58CheckEncode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "161cdffc-f0a7-4e6a-a107-88e39152f688"],
 "."
}], "Notes",ExpressionUUID->"a0e191f2-6778-4dbe-b9d0-0f90dac226e8"],

Cell[TextData[{
 "With the defaults the result is the mainnet compressed form, which begins \
with ",
 Cell[BoxData["K"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "73eb2c0b-63ae-419b-ad20-8768a37e42d5"],
 " or ",
 Cell[BoxData["L"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "df5badc0-bda9-4c3e-862e-f5ec81e4f90c"],
 ". The uncompressed mainnet form begins with ",
 Cell[BoxData["5"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "edce7ff8-09ca-4652-b27a-ad2dd774ac9d"],
 "."
}], "Notes",ExpressionUUID->"e7f28f7d-5da2-44e2-82b5-e9c83cd703e0"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"\<\"Network\"\>", " ", "->", " ", "\<\"Mainnet\"\>"}]], 
  "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "93fd497b-966a-4825-8568-a82773f4e6c5"],
 " uses version byte ",
 Cell[BoxData[
  RowBox[{"0", "x80"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a211facf-0960-4bee-a6ef-15a933d7ef1e"],
 " and ",
 Cell[BoxData[
  RowBox[{"\<\"Network\"\>", " ", "->", " ", "\<\"Testnet\"\>"}]], 
  "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "57d4fc55-76b9-4d29-afee-f7797da921df"],
 " uses ",
 Cell[BoxData[
  RowBox[{"0", "xef"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a9fa1b68-20ca-497e-83df-cdbc00755efc"],
 ". Testnet, signet and regtest all share ",
 Cell[BoxData[
  RowBox[{"0", "xef"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "52bcc6b2-24c3-441c-9273-2aeddb576f5f"],
 ", so all three are reported as testnet."
}], "Notes",ExpressionUUID->"e852d12b-eea8-4670-a672-fc55445caad6"],

Cell[TextData[{
 "The three input forms are the same key: a byte list of length 32, a \
hexadecimal string of length 64, or a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "b33abf7f-8235-4bc6-a8c3-4641ca3e56d3"],
 " of 32 bytes."
}], "Notes",ExpressionUUID->"8872b67f-ae32-485d-acf1-bcfbb4c21969"],

Cell["\<\
Format only. The scalar is not checked against the secp256k1 group order, and \
no public key or address is derived.\
\>", "Notes",ExpressionUUID->"be33dd75-6de5-479d-870f-d8ac058d593f"],

Cell["\<\
A key of the wrong length matches no definition and the call is returned \
unevaluated.\
\>", "Notes",ExpressionUUID->"ed4ebd43-bff7-4712-97c3-2d67f2dc68fa"],

Cell[BoxData[GridBox[{
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "42141091-8539-48f9-a91a-54adde93c765"], Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"537c6bab-df28-4d08-9121-2e9a54ad3190"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"bfc732ae-9cb9-4220-842b-e13f1e1bcea5"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"e64779c8-e5ec-4881-bc5b-57104e402212"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "3bc51d1c-3a62-4c49-84ec-c89a8434e095"], Cell[TextData[Cell[
    BoxData["\"\<Compressed\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "37ad168d-9c6b-497e-8e66-ae7072162230"]], "TableText",ExpressionUUID->
     "b262fa06-6c8a-4c6c-b8db-c58f373f5b76"], Cell[TextData[Cell[BoxData[
    "True"], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "754ab8cd-0858-44e2-92d8-a3337e0e8969"]], "TableText",ExpressionUUID->
     "5667bf53-2d01-417e-b7bb-00381c5dbaf1"], Cell[TextData[{
     "whether to append the ",
     Cell[BoxData[
      RowBox[{"0", "x01"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "b1c93662-a3e5-43b2-94e5-12738ecdede2"],
     " marker for use with a compressed public key"
    }], "TableText",ExpressionUUID->"5a687ac4-b901-4430-a65c-0e238014472f"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "2d15013b-531d-482a-8540-1d3f8c492c22"], Cell[TextData[Cell[
    BoxData["\"\<Network\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "bdc8612f-d843-490c-bea6-a4da8496ccb2"]], "TableText",ExpressionUUID->
     "a7850794-6f49-4316-aca9-d350901d5454"], Cell[TextData[Cell[
    BoxData["\"\<Mainnet\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "a4990f01-4ac7-4114-8caf-d4f19e9879e4"]], "TableText",ExpressionUUID->
     "40a555fd-ec77-44af-819f-fdfc57184c71"], Cell[TextData[{
     Cell[BoxData["\"\<Mainnet\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "4c5e26ae-b4c8-4e44-a97c-4f20abc599c1"],
     " for version byte ",
     Cell[BoxData[
      RowBox[{"0", "x80"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "f847a5a3-78dd-4493-a475-76c3c8cf5f0a"],
     ", ",
     Cell[BoxData["\"\<Testnet\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "d2435519-cfef-4e9f-9dab-c8609985b04d"],
     " for ",
     Cell[BoxData[
      RowBox[{"0", "xef"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "c7ff3d54-f060-4d09-a6ef-6ddbcf77e131"]
    }], "TableText",ExpressionUUID->"2c9f5889-b88c-4d0a-822d-97a7ed53bfab"]}
  }]], "3ColumnTableMod",
 GridBoxOptions->{
 GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {None, None, {None}}},
 GridBoxDividers->{
  "Rows" -> {{
     True, True, True, 
      True}}}},ExpressionUUID->"5511a687-75f2-4eb6-a5c2-3d0466ae4d3b"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"b1d7b1fc-37ad-469c-9bd0-e469d71ecdcc"],

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->"87cc4645-589f-4944-8d1c-ded82df1612c"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"0894646a-61c4-4406-bf0b-a6eb90ee8ec4"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(14)", "ExampleCount",ExpressionUUID->
  "48d7eae0-b3db-4888-ad00-ad57cf78234a"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1603301041,ExpressionUUID->"3c4c15a1-2e4b-4ce1-aa40-26bd735a158d"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"449422c4-8ca4-4efb-a76f-feb36cfe4cb3"],

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->
  "6cc9440a-1452-4524-aa93-0386ece311a1"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"5d7c827c-b131-4317-ab59-31de476b17c4"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "b1aa9fd9-832f-44c9-a243-7e6632374004"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->55793531,ExpressionUUID->"2b665623-e964-4c16-977f-a62b837bac51"],

Cell["\<\
The Bitcoin Core key_io vector for an uncompressed mainnet key:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"02f713a3-27a1-454a-b3a0-90d64198d36a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFEncode", "[", 
  RowBox[{"\"\<\
8f8943bf956de595665c38ffff23827e17c10cdc1c27a028caae6c9810626198\>\"", ",", 
   " ", 
   RowBox[{"\"\<Compressed\>\"", " ", "->", " ", "False"}]}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0bbeceee-f328-4bae-9e3a-a30362dac87f"],

Cell[BoxData["\<\"5JuW2AMDYu4xVwRG9DZW18VbzQrGcd5RCgb99sS6ehJsNQXu5b9\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"150a9203-cf7a-441a-9174-4ba2ff0aebc2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9d2e2e56-8d31-4f09-ab21-c7c39bb0c7bd"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e1c58f41-c8c7-4cf7-\
a43f-d2b22ea9beb5"],

Cell["\<\
The Bitcoin Core key_io vector for a compressed mainnet key, which is the \
default form:\
\>", "ExampleText",ExpressionUUID->"745ee3c8-e2f2-4816-a198-a8fc76752187"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFEncode", 
  "[", "\"\<ff778740f88ddcf102aeb81daee289c044c4a4571c4b6f287400f4b8e0b843f8\>\
\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f3eac7b0-f464-43d4-9a2e-f7937d50096a"],

Cell[BoxData["\<\"L5nJeqKmpHp4P7F8ZYyjwc5a7P4d8EabuGAzfGJk7yC1BJyzNaEd\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c6189a72-bac5-48de-9cdb-bd3180aa2f29"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d9541359-17ee-46ae-afab-388a0186d876"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"75cb7275-2ea3-4c45-\
a3c0-e72870cb6db4"],

Cell["A byte list is the same key written another way:", "ExampleText",ExpressionUUID->"0a4ff5eb-99df-4a96-a6e8-fc202793929e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFEncode", "[", 
  RowBox[{
  "HexStringToByteList", 
   "[", "\"\<ff778740f88ddcf102aeb81daee289c044c4a4571c4b6f287400f4b8e0b843f8\
\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8b7d592f-ef87-47d8-93f8-bef5edddbba9"],

Cell[BoxData["\<\"L5nJeqKmpHp4P7F8ZYyjwc5a7P4d8EabuGAzfGJk7yC1BJyzNaEd\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"53167b86-a68b-49be-84f6-25870a2347aa"]
}, 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->
  "4b6db4c4-a2b2-4038-88bc-7be2b8ad4f8f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e1385b04-efc3-4aa8-a777-da3f3e43669d"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "dc32a31d-b7b7-46c1-ade1-cb8ef80c63aa"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"afc3ee36-4e56-4c0c-be6c-320d28049bc0"],

Cell[TextData[{
 "A ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "d31c85e3-d8a3-464c-9cf5-af70dfd69a58"],
 " is accepted directly:"
}], "ExampleText",ExpressionUUID->"c47791b3-d36d-4ea3-a7cd-356febf9daf1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFEncode", "[", 
  RowBox[{"ByteArray", "[", 
   RowBox[{
   "HexStringToByteList", 
    "[", "\"\<\
ff778740f88ddcf102aeb81daee289c044c4a4571c4b6f287400f4b8e0b843f8\>\"", "]"}], 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d5f6a0b1-ec62-4fb7-94d7-5105da7d9024"],

Cell[BoxData["\<\"L5nJeqKmpHp4P7F8ZYyjwc5a7P4d8EabuGAzfGJk7yC1BJyzNaEd\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a8a551bc-40e2-4b61-874b-9d7d36feb73f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "6b83ea0f-15c9-42e7-bd4a-8eaf4740be07"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"42f48e4b-c061-47d2-\
94a5-fc9425ad0357"],

Cell[TextData[{
 "The Bitcoin Core key_io vector for an uncompressed testnet key, which \
begins with ",
 Cell[BoxData["9"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8eadc701-1dae-498d-9072-4b597a3110a1"],
 ":"
}], "ExampleText",ExpressionUUID->"5cdf2954-a1f9-4435-b98c-c8c4ea00d552"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFEncode", "[", 
  RowBox[{"\"\<\
80c32d81e91bdea04cd7a3819b32275fc3298af4c7ec87eb0099527d041ced5c\>\"", ",", 
   " ", 
   RowBox[{"\"\<Compressed\>\"", " ", "->", " ", "False"}], ",", " ", 
   RowBox[{"\"\<Network\>\"", " ", "->", " ", "\"\<Testnet\>\""}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9d3fcc13-3169-4e44-b44e-b7d8bfcbba22"],

Cell[BoxData["\<\"92ZdE5HoLafywnTBbzPxbvRmp75pSfzvdU3XaZGh1cToipgdHVh\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8e50889c-99f1-430d-8823-56d54ed549b7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c9e5f336-86ce-4fa0-bbe5-15c2ea20b975"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"946e5961-44ca-4c5a-\
bd39-d3e6c517ac1c"],

Cell[TextData[{
 "The Bitcoin Core key_io vector for a compressed testnet key, which begins \
with ",
 Cell[BoxData["c"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "68c92b0e-79dc-4e96-9272-76df4e72abd1"],
 ":"
}], "ExampleText",ExpressionUUID->"43d87bad-f1fc-4265-bc2c-c337decc40f1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFEncode", "[", 
  RowBox[{"\"\<\
e0fcd4ce4e3d0e3de091f21415bb7cd011fac288c42020a879f28c2a4387df9b\>\"", ",", 
   " ", 
   RowBox[{"\"\<Network\>\"", " ", "->", " ", "\"\<Testnet\>\""}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d206b35c-d5c3-446f-935b-89b539a556cf"],

Cell[BoxData["\<\"cV83kKisF3RQSvXbUCm9ox3kaz5JjEUBWcx8tNydfGJcyeUxuH47\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a7351d27-515a-436e-9a6e-16b389b754b0"]
}, 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->
  "dfeec60e-b1bb-426b-aa36-245810f15838"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"27a2ccfe-8742-4a39-9be7-39ca6be698b2"],
 "Options",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "ef1254cd-f3c7-485e-9bd1-1be3658d54cb"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2061341341,ExpressionUUID->"0fa1f72f-1323-4f38-81ae-33b2389f8dbb"],

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->
  "b948b6c2-6780-4c1e-ae7a-757544957665"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"f794845a-d3e5-4e5f-af90-775f93d715b4"],
 "Compressed",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "5e9fb7dd-20fa-419f-ac2d-48a9d43f73e8"]
}], "ExampleSubsection", "ExampleSubsection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,ExpressionUUID->"f790e333-e7f4-47a2-b027-14ba1fa1e9bb"],

Cell["\<\
The compression marker changes the whole string, and the first character with \
it:\
\>", "ExampleText",ExpressionUUID->"4f3ec737-bd85-48d9-8111-893222ba3b50"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringTake", "[", 
  RowBox[{
   RowBox[{
   "WIFEncode", 
    "[", "\"\<\
8f8943bf956de595665c38ffff23827e17c10cdc1c27a028caae6c9810626198\>\"", "]"}], 
   ",", " ", "1"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8cd1433b-faf1-4f95-894f-520671791c2e"],

Cell[BoxData["\<\"L\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f84beb57-ac66-436e-a44f-6af5a9a677bb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "cc312ab8-06da-4c5e-b417-4e678858e78d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"77317216-f2f5-424e-\
8e73-cee5278c6120"],

Cell[TextData[{
 "Without it the same key gives the older ",
 Cell[BoxData["5"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a4530ecd-7cb5-4487-b8cf-5a42e3443a35"],
 " form:"
}], "ExampleText",ExpressionUUID->"e52b56dc-8434-4162-ab4c-0e5944aa9dbe"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringTake", "[", 
  RowBox[{
   RowBox[{"WIFEncode", "[", 
    RowBox[{"\"\<\
8f8943bf956de595665c38ffff23827e17c10cdc1c27a028caae6c9810626198\>\"", ",", 
     " ", 
     RowBox[{"\"\<Compressed\>\"", " ", "->", " ", "False"}]}], "]"}], ",", 
   " ", "1"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"49676c5e-4021-4c5e-839d-386032e17590"],

Cell[BoxData["\<\"5\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"87533f61-e598-42a5-af6f-7daa42d6a0fb"]
}, 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->
  "cb286656-85c6-4237-b29b-21137b7b7e6e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d5a2228c-b63d-41fd-a968-778c32eac036"],
 "Network",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "bfa3bd0f-08eb-49cc-96e8-320c21d31614"]
}], "ExampleSubsection", "ExampleSubsection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,ExpressionUUID->"84c179e2-8707-44e8-8a13-4db2572a5c5c"],

Cell[TextData[{
 "Testnet, signet and regtest share version byte ",
 Cell[BoxData[
  RowBox[{"0", "xef"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5d3b6168-fcae-4c15-9695-b725f566dc3d"],
 ", so the same key gives the same testnet string on all three:"
}], "ExampleText",ExpressionUUID->"c1bd5bd6-efb9-459b-997c-b56fddabcf8a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"WIFDecode", "[", 
   RowBox[{"WIFEncode", "[", 
    RowBox[{"\"\<\
12b5a10f3a11e708dc5412833c47ab7c368a21b9efe19293793ec879ce683018\>\"", ",", 
     " ", 
     RowBox[{"\"\<Network\>\"", " ", "->", " ", "\"\<Testnet\>\""}]}], "]"}], 
   "]"}], "[", "\"\<VersionByte\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1311d20a-811e-48e1-b2f3-6d36c26ddccc"],

Cell[BoxData["239"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1817414f-9e6b-4518-95c6-7aa7a93d12a4"]
}, Open  ]]
}, Closed]]
}, 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->
  "0f0ec355-b45c-4f25-9fc5-3b94ca2b16de"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"1690b224-6d70-4c62-a78b-edb4f0b19327"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "d905835c-e42c-4583-b461-9c11a6e99f34"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"e402582d-e8b3-4f32-8c00-51bbf574741f"],

Cell[TextData[{
 "The result is ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Base58CheckEncode"]], 
    "paclet:WolframInstitute/Puzzles/ref/Base58CheckEncode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9b6932da-9197-47f3-841f-08f11229682e"],
 " of the version byte, the key and the marker:"
}], "ExampleText",ExpressionUUID->"c26e104c-60ec-4b79-91e1-d42e1dfa08c8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Base58CheckEncode", "[", 
  RowBox[{"16^^80", ",", " ", 
   RowBox[{"Append", "[", 
    RowBox[{
     RowBox[{
     "HexStringToByteList", 
      "[", "\"\<\
ff778740f88ddcf102aeb81daee289c044c4a4571c4b6f287400f4b8e0b843f8\>\"", "]"}], 
     ",", " ", "1"}], "]"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e044bc15-a206-49f7-8363-92c09b87330b"],

Cell[BoxData["\<\"L5nJeqKmpHp4P7F8ZYyjwc5a7P4d8EabuGAzfGJk7yC1BJyzNaEd\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4b41b394-8abe-4248-bbe0-44e0c039ef53"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "554ec673-f93d-4338-a06c-fa48f8d2a5bd"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"42ac2281-ada5-4a61-\
8cbd-d9efd6826335"],

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->
  "3133817d-1da3-4e48-b4bf-c5cc261054fd"],
 " recovers the key and the flags:"
}], "ExampleText",ExpressionUUID->"501bb4b5-f9fe-45c5-80f3-1bada4ad47d2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"WIFDecode", "[", 
   RowBox[{
   "WIFEncode", 
    "[", "\"\<\
ff778740f88ddcf102aeb81daee289c044c4a4571c4b6f287400f4b8e0b843f8\>\"", "]"}], 
   "]"}], "[", "\"\<PrivateKeyHexString\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"00706164-adbd-441b-a445-ad10f6b994cf"],

Cell[BoxData["\<\"\
ff778740f88ddcf102aeb81daee289c044c4a4571c4b6f287400f4b8e0b843f8\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0c4e0771-ee3a-4bac-a008-2db2335a91be"]
}, 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->
  "7c51f011-6c92-4ffd-9cb5-148002d9ee2c"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e3e1b555-2bc1-43bf-9066-ea81034dc40d"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "8ba2e190-1dca-4325-b8e1-da2df26c5ddc"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"68185d9e-5b2b-4af0-b4a2-249f3d7971eb"],

Cell["\<\
A key of the wrong length matches no definition, so the call is returned \
unevaluated:\
\>", "ExampleText",ExpressionUUID->"3741c7c9-70b6-4a9c-a018-eac6163d0f12"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFEncode", "[", 
  RowBox[{"ConstantArray", "[", 
   RowBox[{"1", ",", " ", "31"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ea22e506-ab93-4c48-ab23-ffc6055aa960"],

Cell[BoxData[
 RowBox[{"WIFEncode", "[", 
  RowBox[{"{", 
   RowBox[{
   "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
    ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",",
     "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
    "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1",
     ",", "1"}], "}"}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"82fa7988-757f-4a1b-80fd-e36072c8b043"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "969df1ae-ef0e-4150-9bf6-b741f0a88319"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f01011c3-2b72-4dad-\
b673-d302426c001c"],

Cell["A short hexadecimal string is rejected the same way:", "ExampleText",ExpressionUUID->"6bba4cec-951d-462d-b74d-9f7d8a220b61"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFEncode", "[", "\"\<8f8943bf\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"53533c6e-af6e-4b6d-ba33-20a76052ec28"],

Cell[BoxData[
 RowBox[{"WIFEncode", "[", "\<\"8f8943bf\"\>", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d217b7a0-15f4-46d5-aa43-0cc4d47b2b42"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "77b6909c-324e-45e6-b516-3babd62ebdca"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"9f5f02ef-7ae8-4b22-\
8df2-065129d52a5f"],

Cell["\<\
The scalar is not checked against the secp256k1 group order, so a key of all \
zero bytes encodes even though no public key corresponds to it:\
\>", "ExampleText",ExpressionUUID->"5bb8acae-8058-47e1-ad84-040638240a60"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WIFEncode", "[", 
  RowBox[{
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", " ", "32"}], "]"}], ",", " ", 
   RowBox[{"\"\<Compressed\>\"", " ", "->", " ", "False"}]}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"cd475e23-4853-45d2-bee5-33ee109b2f0a"],

Cell[BoxData["\<\"5HpHagT65TZzG1PH3CSu63k8DbpvD8s5ip4nEB3kEsreAbuatmU\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"804689fa-c0c7-434f-9b1b-9c1a1bb51cda"]
}, 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->
         "c664623f-7534-44ae-a699-0b88f7d9ca4d"],
        "\[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->
         "dd5b5ce3-8138-4422-a94d-3cba3c2bb9d1"],
        "\[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->
         "a9baada2-04bc-4f67-9423-d5c8691fa300"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["HexStringToByteList"]], 
           "paclet:WolframInstitute/Puzzles/ref/HexStringToByteList", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "419f32a9-fc80-4260-9a76-a9bc7b0900ce"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteListQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/ByteListQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "df28a2f8-ea32-46e3-9429-066c44728123"]
       }], "SeeAlso",ExpressionUUID->"79e5adb0-18bf-4ec4-977b-a9f230410e13"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"876e4074-85a6-42ee-ae6a-\
e58781c11c19"],

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->
         "288deae4-d8ab-4fed-ae56-079ada3b8cfa"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"01fe59ec-9eaf-4963-9573-\
b8bb70b1003d"],

Cell[" ", "FooterCell",ExpressionUUID->"0baf2628-5e20-43ce-a6c0-26e95a7d6b3f"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"WIFEncode",
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, 54.053468}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[WIFEncode,paclet : WolframInstitute/Puzzles/ref/WIFEncode, \
WolframInstitute/Puzzles Package Symbol][key] gives the Wallet Import Format \
string for a 32-byte private key given as a byte list, a 64-character \
hexadecimal string, or a ByteArray.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "WIFEncode", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "WIFEncode", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/WIFEncode", "WorkflowDockedCell" -> ""}, 
  "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"5235c71b-f2b4-413b-a48e-89a7c1c70b4a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[19410, 509, 181, 4, 70, "ExampleText",ExpressionUUID->"02f713a3-27a1-454a-b3a0-90d64198d36a",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 46888, 1304}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[577, 21, 5715, 138, 70, "AnchorBarGrid",ExpressionUUID->"5dd893c7-3064-47e9-ac4a-46e76960bc49",
 CellID->1],
Cell[6295, 161, 107, 0, 70, "ContextNameCell",ExpressionUUID->"dbd7c85c-7ae8-4409-85e4-acd8e144820a"],
Cell[CellGroupData[{
Cell[6427, 165, 552, 14, 70, "ObjectNameGrid",ExpressionUUID->"b4ad884b-0786-44ef-87e7-c3aa5a2770a0"],
Cell[6982, 181, 1136, 29, 70, "Usage",ExpressionUUID->"ac57ef74-0ddb-4794-874a-3a6b065ba946"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8155, 215, 1443, 34, 70, "NotesSection",ExpressionUUID->"5afd710f-c589-4858-a096-42bcb0b596a8",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->893740937],
Cell[9601, 251, 831, 22, 70, "Notes",ExpressionUUID->"a0e191f2-6778-4dbe-b9d0-0f90dac226e8"],
Cell[10435, 275, 700, 18, 70, "Notes",ExpressionUUID->"e7f28f7d-5da2-44e2-82b5-e9c83cd703e0"],
Cell[11138, 295, 1186, 33, 70, "Notes",ExpressionUUID->"e852d12b-eea8-4670-a672-fc55445caad6"],
Cell[12327, 330, 464, 12, 70, "Notes",ExpressionUUID->"8872b67f-ae32-485d-acf1-bcfbb4c21969"],
Cell[12794, 344, 196, 3, 70, "Notes",ExpressionUUID->"be33dd75-6de5-479d-870f-d8ac058d593f"],
Cell[12993, 349, 167, 3, 70, "Notes",ExpressionUUID->"ed4ebd43-bff7-4712-97c3-2d67f2dc68fa"],
Cell[13163, 354, 3244, 68, 70, "3ColumnTableMod",ExpressionUUID->"5511a687-75f2-4eb6-a5c2-3d0466ae4d3b"]
}, Closed]],
Cell[16422, 425, 80, 0, 70, "PageDelimiter",ExpressionUUID->"b1d7b1fc-37ad-469c-9bd0-e469d71ecdcc"],
Cell[CellGroupData[{
Cell[16527, 429, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"3c4c15a1-2e4b-4ce1-aa40-26bd735a158d",
 CellID->1603301041],
Cell[17932, 468, 216, 4, 70, "Input",ExpressionUUID->"449422c4-8ca4-4efb-a76f-feb36cfe4cb3",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[18173, 476, 1234, 31, 70, "ExampleSection",ExpressionUUID->"2b665623-e964-4c16-977f-a62b837bac51",
 CellID->55793531],
Cell[19410, 509, 181, 4, 70, "ExampleText",ExpressionUUID->"02f713a3-27a1-454a-b3a0-90d64198d36a",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[19616, 517, 352, 8, 70, "Input",ExpressionUUID->"0bbeceee-f328-4bae-9e3a-a30362dac87f"],
Cell[19971, 527, 167, 2, 70, "Output",ExpressionUUID->"150a9203-cf7a-441a-9174-4ba2ff0aebc2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20175, 534, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e1c58f41-c8c7-4cf7-a43f-d2b22ea9beb5"],
Cell[20402, 541, 175, 3, 70, "ExampleText",ExpressionUUID->"745ee3c8-e2f2-4816-a198-a8fc76752187"],
Cell[CellGroupData[{
Cell[20602, 548, 265, 5, 70, "Input",ExpressionUUID->"f3eac7b0-f464-43d4-9a2e-f7937d50096a"],
Cell[20870, 555, 168, 2, 70, "Output",ExpressionUUID->"c6189a72-bac5-48de-9cdb-bd3180aa2f29"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21087, 563, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"75cb7275-2ea3-4c45-a3c0-e72870cb6db4"],
Cell[21314, 570, 126, 0, 70, "ExampleText",ExpressionUUID->"0a4ff5eb-99df-4a96-a6e8-fc202793929e"],
Cell[CellGroupData[{
Cell[21465, 574, 315, 7, 70, "Input",ExpressionUUID->"8b7d592f-ef87-47d8-93f8-bef5edddbba9"],
Cell[21783, 583, 168, 2, 70, "Output",ExpressionUUID->"53167b86-a68b-49be-84f6-25870a2347aa"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22012, 592, 1227, 31, 70, "ExampleSection",ExpressionUUID->"afc3ee36-4e56-4c0c-be6c-320d28049bc0",
 CellID->1293636265],
Cell[23242, 625, 373, 11, 70, "ExampleText",ExpressionUUID->"c47791b3-d36d-4ea3-a7cd-356febf9daf1"],
Cell[CellGroupData[{
Cell[23640, 640, 358, 9, 70, "Input",ExpressionUUID->"d5f6a0b1-ec62-4fb7-94d7-5105da7d9024"],
Cell[24001, 651, 168, 2, 70, "Output",ExpressionUUID->"a8a551bc-40e2-4b61-874b-9d7d36feb73f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24206, 658, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"42f48e4b-c061-47d2-94a5-fc9425ad0357"],
Cell[24433, 665, 339, 8, 70, "ExampleText",ExpressionUUID->"5cdf2954-a1f9-4435-b98c-c8c4ea00d552"],
Cell[CellGroupData[{
Cell[24797, 677, 431, 9, 70, "Input",ExpressionUUID->"9d3fcc13-3169-4e44-b44e-b7d8bfcbba22"],
Cell[25231, 688, 167, 2, 70, "Output",ExpressionUUID->"8e50889c-99f1-430d-8823-56d54ed549b7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25447, 696, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"946e5961-44ca-4c5a-bd39-d3e6c517ac1c"],
Cell[25674, 703, 336, 8, 70, "ExampleText",ExpressionUUID->"43d87bad-f1fc-4265-bc2c-c337decc40f1"],
Cell[CellGroupData[{
Cell[26035, 715, 360, 8, 70, "Input",ExpressionUUID->"d206b35c-d5c3-446f-935b-89b539a556cf"],
Cell[26398, 725, 168, 2, 70, "Output",ExpressionUUID->"a7351d27-515a-436e-9a6e-16b389b754b0"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[26627, 734, 1229, 31, 70, "ExampleSection",ExpressionUUID->"0fa1f72f-1323-4f38-81ae-33b2389f8dbb",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[27881, 769, 1217, 30, 70, "ExampleSubsection",ExpressionUUID->"f790e333-e7f4-47a2-b027-14ba1fa1e9bb"],
Cell[29101, 801, 169, 3, 70, "ExampleText",ExpressionUUID->"4f3ec737-bd85-48d9-8111-893222ba3b50"],
Cell[CellGroupData[{
Cell[29295, 808, 341, 9, 70, "Input",ExpressionUUID->"8cd1433b-faf1-4f95-894f-520671791c2e"],
Cell[29639, 819, 115, 1, 70, "Output",ExpressionUUID->"f84beb57-ac66-436e-a44f-6af5a9a677bb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29791, 825, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"77317216-f2f5-424e-8e73-cee5278c6120"],
Cell[30018, 832, 300, 7, 70, "ExampleText",ExpressionUUID->"e52b56dc-8434-4162-ab4c-0e5944aa9dbe"],
Cell[CellGroupData[{
Cell[30343, 843, 426, 10, 70, "Input",ExpressionUUID->"49676c5e-4021-4c5e-839d-386032e17590"],
Cell[30772, 855, 115, 1, 70, "Output",ExpressionUUID->"87533f61-e598-42a5-af6f-7daa42d6a0fb"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[30948, 863, 1214, 30, 70, "ExampleSubsection",ExpressionUUID->"84c179e2-8707-44e8-8a13-4db2572a5c5c"],
Cell[32165, 895, 382, 8, 70, "ExampleText",ExpressionUUID->"c1bd5bd6-efb9-459b-997c-b56fddabcf8a"],
Cell[CellGroupData[{
Cell[32572, 907, 450, 10, 70, "Input",ExpressionUUID->"1311d20a-811e-48e1-b2f3-6d36c26ddccc"],
Cell[33025, 919, 109, 1, 70, "Output",ExpressionUUID->"1817414f-9e6b-4518-95c6-7aa7a93d12a4"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[33195, 927, 1244, 31, 70, "ExampleSection",ExpressionUUID->"e402582d-e8b3-4f32-8c00-51bbf574741f",
 CellID->2123667759],
Cell[34442, 960, 533, 14, 70, "ExampleText",ExpressionUUID->"c26e104c-60ec-4b79-91e1-d42e1dfa08c8"],
Cell[CellGroupData[{
Cell[35000, 978, 435, 11, 70, "Input",ExpressionUUID->"e044bc15-a206-49f7-8363-92c09b87330b"],
Cell[35438, 991, 168, 2, 70, "Output",ExpressionUUID->"4b41b394-8abe-4248-bbe0-44e0c039ef53"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35643, 998, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"42ac2281-ada5-4a61-8cbd-d9efd6826335"],
Cell[35870, 1005, 480, 12, 70, "ExampleText",ExpressionUUID->"501bb4b5-f9fe-45c5-80f3-1bada4ad47d2"],
Cell[CellGroupData[{
Cell[36375, 1021, 366, 9, 70, "Input",ExpressionUUID->"00706164-adbd-441b-a445-ad10f6b994cf"],
Cell[36744, 1032, 182, 3, 70, "Output",ExpressionUUID->"0c4e0771-ee3a-4bac-a008-2db2335a91be"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[36987, 1042, 1237, 31, 70, "ExampleSection",ExpressionUUID->"68185d9e-5b2b-4af0-b4a2-249f3d7971eb",
 CellID->1305812373],
Cell[38227, 1075, 173, 3, 70, "ExampleText",ExpressionUUID->"3741c7c9-70b6-4a9c-a018-eac6163d0f12"],
Cell[CellGroupData[{
Cell[38425, 1082, 259, 5, 70, "Input",ExpressionUUID->"ea22e506-ab93-4c48-ab23-ffc6055aa960"],
Cell[38687, 1089, 503, 9, 70, "Output",ExpressionUUID->"82fa7988-757f-4a1b-80fd-e36072c8b043"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39227, 1103, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f01011c3-2b72-4dad-b673-d302426c001c"],
Cell[39454, 1110, 130, 0, 70, "ExampleText",ExpressionUUID->"6bba4cec-951d-462d-b74d-9f7d8a220b61"],
Cell[CellGroupData[{
Cell[39609, 1114, 204, 3, 70, "Input",ExpressionUUID->"53533c6e-af6e-4b6d-ba33-20a76052ec28"],
Cell[39816, 1119, 157, 2, 70, "Output",ExpressionUUID->"d217b7a0-15f4-46d5-aa43-0cc4d47b2b42"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[40022, 1127, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"9f5f02ef-7ae8-4b22-8df2-065129d52a5f"],
Cell[40249, 1134, 228, 3, 70, "ExampleText",ExpressionUUID->"5bb8acae-8058-47e1-ad84-040638240a60"],
Cell[CellGroupData[{
Cell[40502, 1141, 347, 8, 70, "Input",ExpressionUUID->"cd475e23-4853-45d2-bee5-33ee109b2f0a"],
Cell[40852, 1151, 167, 2, 70, "Output",ExpressionUUID->"804689fa-c0c7-434f-9b1b-9c1a1bb51cda"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[41070, 1159, 3150, 82, 70, "SeeAlsoSection",ExpressionUUID->"876e4074-85a6-42ee-ae6a-e58781c11c19"],
Cell[44223, 1243, 746, 19, 70, "MoreAboutSection",ExpressionUUID->"01fe59ec-9eaf-4963-9573-b8bb70b1003d"],
Cell[44972, 1264, 78, 0, 70, "FooterCell",ExpressionUUID->"0baf2628-5e20-43ce-a6c0-26e95a7d6b3f"]
}
]
*)

(* End of internal cache information *)

