(* 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[     44683,       1179]
NotebookOptionsPosition[     35742,       1012]
NotebookOutlinePosition[     37810,       1061]
CellTagsIndexPosition[     37732,       1056]
WindowTitle->$BIP39EnglishWords
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->
           "1aedb739-a45b-4829-8372-eac650a2a3d3"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "a5b47d9c-c688-41b1-b635-03a29ba57e57"],
        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->
           "e8ce0de6-6669-4098-a9dc-547e61cde6a4"]
         }],ExpressionUUID->"2c8fe864-3198-4c94-8156-2d76ba7613ce"],
         StripOnInput->False],{
        StyleBox[
          "\"BIP39Mnemonic\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP39Mnemonic"], 
         StyleBox[
          "\"BIP39Entropy\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP39Entropy"], 
         StyleBox[
          "\"BIP39MnemonicQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP39MnemonicQ"], 
         StyleBox[
          "\"BIP39FinalWords\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP39FinalWords"], 
         StyleBox[
          "\"$ElectrumV1Words\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/$ElectrumV1Words"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "b62a4111-9f74-49d6-b127-91cb94c3572a"],
     "\[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->
           "9edb08c6-f774-45a1-b181-b156a3e598cd"]
         }],ExpressionUUID->"803dce3e-0de3-4a10-8dde-c6d5590904d3"],
         StripOnInput->False],{
        "\"Seeds\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Seeds"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "049e1a73-6b32-43d9-ade4-43349b7dfac0"],
     "\[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->
           "b0554501-1d9e-4cf5-b182-fa363cc5a103"]
         }],ExpressionUUID->"043843c1-ecc4-4520-9d50-4a5466868dc1"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/$BIP39EnglishWords\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/$BIP39EnglishWords"], 
         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/$BIP39EnglishWords.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/$BIP39EnglishWords" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "14839c39-d73f-4592-bd36-ad2fdb8b8c56"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "9bd0bf4a-c151-44df-a9bc-966f3783a6be"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"eaa9623a-9b1a-4fef-950d-57509db3b73d"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"3a7807a3-efd5-4845-bd15-2d98cc00bd5e"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "$BIP39EnglishWords", "ObjectName",ExpressionUUID->
      "2d48ba7f-4c85-47ba-b9aa-94c6049a6057"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"b93e31e1-7c3d-46ff-91ce-1fc963b154a3"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "87c26c22-8e24-4f34-8501-dbdb5b200bd9"]
    }],ExpressionUUID->"18141e5a-fb98-4077-bafe-18a923341601"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"8922c935-77ba-418e-ab35-\
1b5d39d8d26a"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["$BIP39EnglishWords"]], 
        "paclet:WolframInstitute/Puzzles/ref/$BIP39EnglishWords", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "ed5a11c7-5acb-4718-a156-6dfdc8f4394e"],
     "\[LineSeparator]",
     "is the list of the 2048 words of the BIP39 English wordlist, in \
specification order."
    }],ExpressionUUID->"31658061-8e2a-41d2-93fe-3686771422cd"]}
  }]], "Usage",ExpressionUUID->"23745651-8f70-4dc1-87c3-2339e2241ae9"]
}, 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->"739bb09d-6005-43af-82d8-bdac58b246fd"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"94771dd8-01d6-4895-885f-2eced45bec76"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "bc7f277c-50b3-4402-9413-e1e78b9f565d"]],ExpressionUUID->"6a6f03b8-7c82-\
44d1-a965-793bba4378d1"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1754382613,ExpressionUUID->"36eb5886-f895-4ca4-8867-5d8d4589095e"],

Cell[TextData[{
 "The list is ",
 Cell["english.txt", "InlineCode",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "44b7404e-9431-4338-9998-4154555dc28f"],
 " of the BIP-0039 specification directory, verbatim and in order, so the \
position of a word is one more than its 11-bit BIP39 index: ",
 Cell[BoxData["\<\"abandon\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e56b03c8-860b-4b01-8930-135d149bdbde"],
 " is index 0 and ",
 Cell[BoxData["\<\"zoo\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "17f6bb78-3068-4b92-951d-5e8d716acacd"],
 " is index 2047."
}], "Notes",ExpressionUUID->"1ddfa266-2b09-4419-91d1-7d164c5353d1"],

Cell[TextData[{
 "The published SHA-256 of that file is ",
 Cell[BoxData["\<\"\
2f5eed53a4727b4bf8880d8f3f199efc90e58503646d9ff8eff3a2ed3b24dbda\"\>"], 
  "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "49a98181-e604-42ef-9361-82f4ccab7b60"],
 ", and the test suite recomputes it from this list, so a typo or a \
reordering fails the suite rather than deriving a wrong key."
}], "Notes",ExpressionUUID->"542adecb-ccd5-4f7a-80bb-2b8b91dfe1ad"],

Cell["\<\
The specification requires the words to be sorted, distinct, and identified \
by their first four letters; all three hold here.\
\>", "Notes",ExpressionUUID->"dea56916-a94b-4932-a0c4-4a74506b2fb9"],

Cell[TextData[{
 "Only English is provided. ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP39Seed"]], "paclet:WolframInstitute/Puzzles/ref/BIP39Seed", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1c5f2c9c-face-44ed-9eb4-27095768a4b4"],
 " consults no wordlist and is correct for a mnemonic in any BIP39 language, \
but ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP39Mnemonic"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP39Mnemonic", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cde38ad2-8746-4787-96eb-94b558f5ac6f"],
 ", ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP39Entropy"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP39Entropy", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6d47d357-f1b7-405a-8faf-7b3e2eb6e093"],
 ", ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP39MnemonicQ"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP39MnemonicQ", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2eeeae2e-a3d0-49ee-a790-3dca4437e6fc"],
 " and ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP39FinalWords"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP39FinalWords", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2dc2d2cc-fd7d-4dac-8530-be20c7a58d76"],
 " are English-only."
}], "Notes",ExpressionUUID->"cccfb4ec-734b-4591-8262-1b09516fc2bd"],

Cell[TextData[{
 "Electrum version 2 seeds are also written in these words, under an entirely \
different validity rule; see ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ElectrumSeedVersion"]], 
    "paclet:WolframInstitute/Puzzles/ref/ElectrumSeedVersion", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "51937a2d-2727-4d5b-a0ac-01f9ee579f33"],
 ". The Electrum version 1 wordlist is a different list, ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["$ElectrumV1Words"]], 
    "paclet:WolframInstitute/Puzzles/ref/$ElectrumV1Words", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6f680134-a81d-49be-820b-0a1f08bb21eb"],
 "."
}], "Notes",ExpressionUUID->"257f9eda-2ed0-4e3e-b43d-0db014072f5e"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"55eaac24-d5e1-4f31-b440-c5b1f105e9c6"],

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->"96d8dd2d-4854-4201-9622-a5075567640e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6ea05c45-2af1-4400-a56f-6b56557be051"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(11)", "ExampleCount",ExpressionUUID->
  "12967d22-e0cb-4ffd-94d0-f1f78d3ec265"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->958103381,ExpressionUUID->"ad12dd4c-9f3a-43c7-8e9a-55eb5d602105"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"339feae8-5509-48e5-8758-e986b23d18c8"],

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->
  "4bdb319b-63cf-42ba-a000-303e17259b7d"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d4396c93-baaa-4be5-b0e2-82976320c02a"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "0f992616-5ada-449a-8fa1-0ae4bf463cff"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1011139261,ExpressionUUID->"c3fc05f2-baf2-4177-938f-093f275ec66e"],

Cell["The wordlist has 2048 entries, one per 11-bit index:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"42f23b6e-04d3-4c96-9f5f-676ddbb23bd7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "$BIP39EnglishWords", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"43fb3216-1703-41ab-9d8f-7ef8a59fe189"],

Cell[BoxData["2048"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f89e7063-4bc5-4039-876f-dc69ecf04f6a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9092789e-e10f-4e44-b4c8-be0d48319180"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"11dca840-38b0-4d34-\
9e49-584d7e1edf8a"],

Cell["The first and last words bound the index range:", "ExampleText",ExpressionUUID->"261b6f63-935e-4340-9f67-7975d0155f10"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"First", "[", "$BIP39EnglishWords", "]"}], ",", " ", 
   RowBox[{"Last", "[", "$BIP39EnglishWords", "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8ab2ebe6-355b-40b1-8c73-69167d4c65bc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"abandon\"\>", ",", "\<\"zoo\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"edfb1307-1bf0-4cf6-a5e3-860075abbfe7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9cff5a56-9907-43f8-a543-af3dea58f475"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"df283227-0880-4b7b-\
8a93-11d97402fa09"],

Cell["\<\
The words a mnemonic is built from are looked up by position, so index 3 is \
the fourth word:\
\>", "ExampleText",ExpressionUUID->"8950ec88-a098-4747-b2bb-5c166de66d3b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{"$BIP39EnglishWords", ",", " ", "5"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"303e144f-2dc7-4b7a-bd47-964c8d43daec"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"abandon\"\>", ",", "\<\"ability\"\>", ",", "\<\"able\"\>", 
   ",", "\<\"about\"\>", ",", "\<\"above\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"67a85fcd-fee3-4200-aa39-630e6ccef062"]
}, 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->
  "605ad7c6-a909-4a04-bc5c-0b0d62926a25"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"1207a367-dd34-424a-aa34-861e61240c24"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "0f830316-6748-4b12-a09f-68920841da49"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"5e0981d2-9e19-47e4-a370-c89198ccf372"],

Cell["\<\
The published digest of the specification file, recomputed from the list:\
\>", "ExampleText",ExpressionUUID->"9ea52f28-7067-4768-9e2d-5f66ea898954"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToLowerCase", "[", 
  RowBox[{"Hash", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"Riffle", "[", 
       RowBox[{"$BIP39EnglishWords", ",", " ", "\"\<\n\>\""}], "]"}], "]"}], 
     " ", "<>", " ", "\"\<\n\>\""}], ",", " ", "\"\<SHA256\>\"", ",", 
    " ", "\"\<HexString\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7d648e32-9767-4a56-940e-c1bd10c99605"],

Cell[BoxData["\<\"\
2f5eed53a4727b4bf8880d8f3f199efc90e58503646d9ff8eff3a2ed3b24dbda\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"864f479c-ff79-4b24-9947-fc797edbe357"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3af913dd-1efa-407e-908d-827b31083c89"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"6a15f5be-5c28-44fa-\
b931-231fc5ac6a6d"],

Cell["\<\
The list is sorted and free of duplicates, as BIP39 requires:\
\>", "ExampleText",ExpressionUUID->"c57206c0-9fe6-4478-8e8c-0df54acce8c9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"$BIP39EnglishWords", " ", "===", " ", 
   RowBox[{"Sort", "[", "$BIP39EnglishWords", "]"}]}], " ", "&&", " ", 
  RowBox[{"DuplicateFreeQ", "[", "$BIP39EnglishWords", "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"82598334-59a3-4bf6-a53a-3e6d19b84fd2"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"155162f7-7813-4351-b8ea-3ac60c83dfd4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "bbc4ac26-2e26-448f-91a6-4bc24f56920d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"943bf0aa-9000-4f31-\
bb99-3868f19e4de2"],

Cell["\<\
Every word is identified by its first four letters, which is why wallets \
accept truncated input:\
\>", "ExampleText",ExpressionUUID->"697fef2a-ed36-4678-9a0f-611b0f6ccf54"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DuplicateFreeQ", "[", 
  RowBox[{"StringTake", "[", 
   RowBox[{"$BIP39EnglishWords", ",", " ", 
    RowBox[{"UpTo", "[", "4", "]"}]}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"96fda8b3-764e-4121-bb5d-dbd271a220f6"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3ff75546-61a6-4c7e-9eb3-2c9b1e21972a"]
}, 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->
  "d266a779-561f-4b62-921b-d0ea00344781"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a5bfd0ab-4661-4d98-89be-a3f37b23d120"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "5cef1912-8527-4558-98fd-9d7b36833341"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"170d545d-e781-4897-9697-163e2ddc64ba"],

Cell["\<\
Recovering a smudged word from its first letters is a lookup in this list:\
\>", "ExampleText",ExpressionUUID->"32554491-9fb4-46e7-86cf-2f1c61707a6c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Select", "[", 
  RowBox[{"$BIP39EnglishWords", ",", " ", 
   RowBox[{
    RowBox[{"StringStartsQ", "[", 
     RowBox[{"#", ",", " ", "\"\<aban\>\""}], "]"}], " ", "&"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3ee3564b-2ebd-4f2e-99f4-8bb32f851a84"],

Cell[BoxData[
 RowBox[{"{", "\<\"abandon\"\>", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9a438ae9-8a64-43b2-bcb8-fb5eb0081a8c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "1c1d11ea-e85a-4381-9ee4-2c99a9ccd1bc"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"38c293c0-9dc3-46c2-\
96ae-1fab906620ec"],

Cell["\<\
The word lengths spread from three to eight letters, which matters when a \
puzzle gives a letter count:\
\>", "ExampleText",ExpressionUUID->"be605cd8-c771-4e23-b980-bfea2ef81526"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"KeySort", "[", 
   RowBox[{"Counts", "[", 
    RowBox[{"StringLength", "[", "$BIP39EnglishWords", "]"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"84154687-9bb9-4918-b193-58d83140cb53"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"3", "\[Rule]", "103"}], ",", 
   RowBox[{"4", "\[Rule]", "442"}], ",", 
   RowBox[{"5", "\[Rule]", "555"}], ",", 
   RowBox[{"6", "\[Rule]", "508"}], ",", 
   RowBox[{"7", "\[Rule]", "352"}], ",", 
   RowBox[{"8", "\[Rule]", "88"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"919a7825-3600-4e1f-8d70-5d7d11d6eb0a"]
}, 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->
  "9a24352d-203e-44eb-97b3-144626a07d42"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"50200a37-969c-4b87-ab29-a1a9e61f4442"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "d3f6a6f6-9913-4f5f-b205-9ffb67b65a91"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"ccdad625-bf8e-4ec8-8ab3-9a641488a935"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BIP39Mnemonic"]], 
    "paclet:WolframInstitute/Puzzles/ref/BIP39Mnemonic", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6e5112fb-ed4c-4247-89bd-57bb3e7657f5"],
 " reads its output out of this list, so the all-zero entropy gives index 0 \
eleven times:"
}], "ExampleText",ExpressionUUID->"bcc5842d-3dd2-48cf-b0c5-6560bbc3253f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{
   RowBox[{"StringSplit", "[", 
    RowBox[{
    "BIP39Mnemonic", "[", "\"\<00000000000000000000000000000000\>\"", "]"}], 
    "]"}], ",", " ", "3"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"33a6c3ab-1617-4799-840d-d3f4940af185"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"abandon\"\>", ",", "\<\"abandon\"\>", ",", "\<\"abandon\"\>"}],
   "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f8a8b011-0054-4d60-aa65-e6f042e328e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "95e679ed-f873-4790-9126-0393c79925c3"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"1c2d03ab-6a47-4b1d-\
966d-541a0c4ae3ab"],

Cell["\<\
The Electrum version 1 list is a different list of a different length, and \
the two share only some words:\
\>", "ExampleText",ExpressionUUID->"7860c7e5-a999-4f37-a118-22fa6ac376f1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Length", "[", "$ElectrumV1Words", "]"}], ",", " ", 
   RowBox[{"Length", "[", 
    RowBox[{"Intersection", "[", 
     RowBox[{"$BIP39EnglishWords", ",", " ", "$ElectrumV1Words"}], "]"}], 
    "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"04cf8e9e-0a6f-47ad-b300-df2ba45c730d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1626", ",", "861"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d4415ca7-6de1-43a1-9490-7f0b79eb8553"]
}, 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->
  "847eff6d-4870-4453-a7f0-181b157ade08"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"53eba781-fcd6-47e2-a43d-75277635bc45"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "eaa70016-d532-4a07-ab10-150bcd18b357"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"d75c074c-7eba-499f-b3c5-b3a5c0203c52"],

Cell["\<\
A word that is spelled correctly in English may still not be in the list, \
because the list is a curated 2048 and not a dictionary:\
\>", "ExampleText",ExpressionUUID->"a65abfa7-45da-4ef4-98c1-e2671ee29211"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MemberQ", "[", 
  RowBox[{"$BIP39EnglishWords", ",", " ", "\"\<bitcoin\>\""}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a59a228d-8294-4868-8292-75fb98775df0"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"981d0cb2-68e6-4fb0-8b3e-b4373941d8db"]
}, 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["BIP39Mnemonic"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP39Mnemonic", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "30700923-d9af-49c4-b02c-7eb7ad2b4da3"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP39Entropy"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP39Entropy", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "50a1db84-1c96-421c-ae0b-1e3291a9d72e"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP39MnemonicQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP39MnemonicQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "94bfb073-e289-4b9a-b1cf-e8afee7a65b0"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP39FinalWords"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP39FinalWords", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "d456d26b-df5e-4464-b3a5-a3dc3129f4e8"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["$ElectrumV1Words"]], 
           "paclet:WolframInstitute/Puzzles/ref/$ElectrumV1Words", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "8789fc6e-d0be-444f-9336-5907076aba8b"]
       }], "SeeAlso",ExpressionUUID->"db311154-9ac4-4816-9ccd-6dd66fcba06a"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"9f642ad3-dbf5-426d-8714-\
f3f13c886c37"],

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["Seeds"]], "paclet:WolframInstitute/Puzzles/guide/Seeds"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "73abb593-6b56-4fc7-8af2-d9858481e882"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"aee22bed-dd9b-4ff8-b789-\
0bfe2c30b619"],

Cell[" ", "FooterCell",ExpressionUUID->"09ccd603-0f4e-40e4-a187-3aa296fd42de"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"$BIP39EnglishWords",
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, 12, 3.342513}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[$BIP39EnglishWords, paclet : \
WolframInstitute/Puzzles/ref/$BIP39EnglishWords, WolframInstitute/Puzzles \
Package Symbol] is the list of the 2048 words of the BIP39 English wordlist, \
in specification order.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "$BIP39EnglishWords", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "$BIP39EnglishWords", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/$BIP39EnglishWords", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"1b66f7cc-dba9-4d8c-be6c-7c510df441c2"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[16863, 458, 162, 2, 70, "ExampleText",ExpressionUUID->"42f23b6e-04d3-4c96-9f5f-676ddbb23bd7",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 37575, 1050}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[586, 21, 5826, 143, 70, "AnchorBarGrid",ExpressionUUID->"eaa9623a-9b1a-4fef-950d-57509db3b73d",
 CellID->1],
Cell[6415, 166, 107, 0, 70, "ContextNameCell",ExpressionUUID->"3a7807a3-efd5-4845-bd15-2d98cc00bd5e"],
Cell[CellGroupData[{
Cell[6547, 170, 561, 14, 70, "ObjectNameGrid",ExpressionUUID->"8922c935-77ba-418e-ab35-1b5d39d8d26a"],
Cell[7111, 186, 722, 17, 70, "Usage",ExpressionUUID->"23745651-8f70-4dc1-87c3-2339e2241ae9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7870, 208, 1444, 34, 70, "NotesSection",ExpressionUUID->"36eb5886-f895-4ca4-8867-5d8d4589095e",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1754382613],
Cell[9317, 244, 742, 17, 70, "Notes",ExpressionUUID->"1ddfa266-2b09-4419-91d1-7d164c5353d1"],
Cell[10062, 263, 490, 10, 70, "Notes",ExpressionUUID->"542adecb-ccd5-4f7a-80bb-2b8b91dfe1ad"],
Cell[10555, 275, 207, 3, 70, "Notes",ExpressionUUID->"dea56916-a94b-4932-a0c4-4a74506b2fb9"],
Cell[10765, 280, 2077, 62, 70, "Notes",ExpressionUUID->"cccfb4ec-734b-4591-8262-1b09516fc2bd"],
Cell[12845, 344, 1014, 27, 70, "Notes",ExpressionUUID->"257f9eda-2ed0-4e3e-b43d-0db014072f5e"]
}, Closed]],
Cell[13874, 374, 80, 0, 70, "PageDelimiter",ExpressionUUID->"55eaac24-d5e1-4f31-b440-c5b1f105e9c6"],
Cell[CellGroupData[{
Cell[13979, 378, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"ad12dd4c-9f3a-43c7-8e9a-55eb5d602105",
 CellID->958103381],
Cell[15383, 417, 216, 4, 70, "Input",ExpressionUUID->"339feae8-5509-48e5-8758-e986b23d18c8",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[15624, 425, 1236, 31, 70, "ExampleSection",ExpressionUUID->"c3fc05f2-baf2-4177-938f-093f275ec66e",
 CellID->1011139261],
Cell[16863, 458, 162, 2, 70, "ExampleText",ExpressionUUID->"42f23b6e-04d3-4c96-9f5f-676ddbb23bd7",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[17050, 464, 203, 3, 70, "Input",ExpressionUUID->"43fb3216-1703-41ab-9d8f-7ef8a59fe189"],
Cell[17256, 469, 110, 1, 70, "Output",ExpressionUUID->"f89e7063-4bc5-4039-876f-dc69ecf04f6a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17403, 475, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"11dca840-38b0-4d34-9e49-584d7e1edf8a"],
Cell[17630, 482, 125, 0, 70, "ExampleText",ExpressionUUID->"261b6f63-935e-4340-9f67-7975d0155f10"],
Cell[CellGroupData[{
Cell[17780, 486, 303, 6, 70, "Input",ExpressionUUID->"8ab2ebe6-355b-40b1-8c73-69167d4c65bc"],
Cell[18086, 494, 176, 3, 70, "Output",ExpressionUUID->"edfb1307-1bf0-4cf6-a5e3-860075abbfe7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18311, 503, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"df283227-0880-4b7b-8a93-11d97402fa09"],
Cell[18538, 510, 180, 3, 70, "ExampleText",ExpressionUUID->"8950ec88-a098-4747-b2bb-5c166de66d3b"],
Cell[CellGroupData[{
Cell[18743, 517, 229, 4, 70, "Input",ExpressionUUID->"303e144f-2dc7-4b7a-bd47-964c8d43daec"],
Cell[18975, 523, 249, 4, 70, "Output",ExpressionUUID->"67a85fcd-fee3-4200-aa39-630e6ccef062"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19285, 534, 1227, 31, 70, "ExampleSection",ExpressionUUID->"5e0981d2-9e19-47e4-a370-c89198ccf372",
 CellID->1293636265],
Cell[20515, 567, 159, 2, 70, "ExampleText",ExpressionUUID->"9ea52f28-7067-4768-9e2d-5f66ea898954"],
Cell[CellGroupData[{
Cell[20699, 573, 487, 11, 70, "Input",ExpressionUUID->"7d648e32-9767-4a56-940e-c1bd10c99605"],
Cell[21189, 586, 182, 3, 70, "Output",ExpressionUUID->"864f479c-ff79-4b24-9947-fc797edbe357"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21408, 594, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"6a15f5be-5c28-44fa-b931-231fc5ac6a6d"],
Cell[21635, 601, 147, 2, 70, "ExampleText",ExpressionUUID->"c57206c0-9fe6-4478-8e8c-0df54acce8c9"],
Cell[CellGroupData[{
Cell[21807, 607, 346, 6, 70, "Input",ExpressionUUID->"82598334-59a3-4bf6-a53a-3e6d19b84fd2"],
Cell[22156, 615, 110, 1, 70, "Output",ExpressionUUID->"155162f7-7813-4351-b8ea-3ac60c83dfd4"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22315, 622, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"943bf0aa-9000-4f31-bb99-3868f19e4de2"],
Cell[22542, 629, 184, 3, 70, "ExampleText",ExpressionUUID->"697fef2a-ed36-4678-9a0f-611b0f6ccf54"],
Cell[CellGroupData[{
Cell[22751, 636, 310, 6, 70, "Input",ExpressionUUID->"96fda8b3-764e-4121-bb5d-dbd271a220f6"],
Cell[23064, 644, 110, 1, 70, "Output",ExpressionUUID->"3ff75546-61a6-4c7e-9eb3-2c9b1e21972a"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[23235, 652, 1233, 31, 70, "ExampleSection",ExpressionUUID->"170d545d-e781-4897-9697-163e2ddc64ba",
 CellID->258228157],
Cell[24471, 685, 160, 2, 70, "ExampleText",ExpressionUUID->"32554491-9fb4-46e7-86cf-2f1c61707a6c"],
Cell[CellGroupData[{
Cell[24656, 691, 342, 8, 70, "Input",ExpressionUUID->"3ee3564b-2ebd-4f2e-99f4-8bb32f851a84"],
Cell[25001, 701, 143, 2, 70, "Output",ExpressionUUID->"9a438ae9-8a64-43b2-bcb8-fb5eb0081a8c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25181, 708, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"38c293c0-9dc3-46c2-96ae-1fab906620ec"],
Cell[25408, 715, 190, 3, 70, "ExampleText",ExpressionUUID->"be605cd8-c771-4e23-b980-bfea2ef81526"],
Cell[CellGroupData[{
Cell[25623, 722, 315, 7, 70, "Input",ExpressionUUID->"84154687-9bb9-4918-b193-58d83140cb53"],
Cell[25941, 731, 383, 9, 70, "Output",ExpressionUUID->"919a7825-3600-4e1f-8d70-5d7d11d6eb0a"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[26385, 747, 1244, 31, 70, "ExampleSection",ExpressionUUID->"ccdad625-bf8e-4ec8-8ab3-9a641488a935",
 CellID->2123667759],
Cell[27632, 780, 550, 14, 70, "ExampleText",ExpressionUUID->"bcc5842d-3dd2-48cf-b0c5-6560bbc3253f"],
Cell[CellGroupData[{
Cell[28207, 798, 342, 8, 70, "Input",ExpressionUUID->"33a6c3ab-1617-4799-840d-d3f4940af185"],
Cell[28552, 808, 207, 4, 70, "Output",ExpressionUUID->"f8a8b011-0054-4d60-aa65-e6f042e328e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28796, 817, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"1c2d03ab-6a47-4b1d-966d-541a0c4ae3ab"],
Cell[29023, 824, 193, 3, 70, "ExampleText",ExpressionUUID->"7860c7e5-a999-4f37-a118-22fa6ac376f1"],
Cell[CellGroupData[{
Cell[29241, 831, 396, 9, 70, "Input",ExpressionUUID->"04cf8e9e-0a6f-47ad-b300-df2ba45c730d"],
Cell[29640, 842, 157, 3, 70, "Output",ExpressionUUID->"d4415ca7-6de1-43a1-9490-7f0b79eb8553"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[29858, 852, 1237, 31, 70, "ExampleSection",ExpressionUUID->"d75c074c-7eba-499f-b3c5-b3a5c0203c52",
 CellID->1305812373],
Cell[31098, 885, 218, 3, 70, "ExampleText",ExpressionUUID->"a65abfa7-45da-4ef4-98c1-e2671ee29211"],
Cell[CellGroupData[{
Cell[31341, 892, 248, 5, 70, "Input",ExpressionUUID->"a59a228d-8294-4868-8292-75fb98775df0"],
Cell[31592, 899, 111, 1, 70, "Output",ExpressionUUID->"981d0cb2-68e6-4fb0-8b3e-b4373941d8db"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[31742, 905, 3186, 83, 70, "SeeAlsoSection",ExpressionUUID->"9f642ad3-dbf5-426d-8714-f3f13c886c37"],
Cell[34931, 990, 726, 18, 70, "MoreAboutSection",ExpressionUUID->"aee22bed-dd9b-4ff8-b789-0bfe2c30b619"],
Cell[35660, 1010, 78, 0, 70, "FooterCell",ExpressionUUID->"09ccd603-0f4e-40e4-a187-3aa296fd42de"]
}
]
*)

(* End of internal cache information *)

