(* 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[     42395,       1106]
NotebookOptionsPosition[     33428,        938]
NotebookOutlinePosition[     35529,        988]
CellTagsIndexPosition[     35452,        983]
WindowTitle->$ElectrumV1Words
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->
           "67134414-97f5-4414-8830-3b12e94ebe67"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "c39fb955-5106-4a62-8f1e-f61838e3a5f3"],
        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->
           "62f79cec-c8d6-40af-9cd8-56e024dd4056"]
         }],ExpressionUUID->"6d61d104-ccc0-4748-9936-64a0c834ddef"],
         StripOnInput->False],{
        StyleBox[
          "\"ElectrumV1Mnemonic\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Mnemonic"], 
         StyleBox[
          "\"ElectrumV1Seed\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Seed"], 
         StyleBox[
          "\"ElectrumV1MnemonicQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ"], 
         StyleBox[
          "\"ElectrumSeedVersion\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumSeedVersion"], 
         StyleBox[
          "\"$BIP39EnglishWords\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/$BIP39EnglishWords"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "2f9d1914-9beb-4f65-a44a-a8b1812d8208"],
     "\[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->
           "cd02f74c-61da-4c7c-9a94-b1e4c95d3d4b"]
         }],ExpressionUUID->"434ca350-de91-4027-82b4-a9f027f4dcf0"],
         StripOnInput->False],{
        "\"Seeds\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Seeds"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "a951ceef-42cd-4b6e-9adf-6167780b174b"],
     "\[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->
           "a78a9b3e-b214-42d3-8da5-df6c1b920f38"]
         }],ExpressionUUID->"3a1f7288-510e-4f95-bf5e-d3fe5d0531cc"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/$ElectrumV1Words\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/$ElectrumV1Words"], 
         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/$ElectrumV1Words.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/$ElectrumV1Words" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "1be807ff-5187-4eb7-9f78-b2163932616b"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "8cfb2ee7-f5a8-47e7-ad4a-65f2e9211a29"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"bef64104-a343-4d19-acad-582aa8cf81d8"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"ec239615-0230-4435-b2cc-fc53754d1821"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "$ElectrumV1Words", "ObjectName",ExpressionUUID->
      "285baa4e-fcd3-42b5-9fa1-ca11168adb03"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"516b403d-f601-4829-b89b-b167f45f8382"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "d3012f29-68f6-4506-966a-7446ac5e93c6"]
    }],ExpressionUUID->"63c5905a-7054-40d1-b617-e94eaf86bda7"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"e5c61a03-c857-442e-89ed-\
382060bb44d5"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     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->
      "b8324f15-e3ad-4f31-bc53-5a23c4633eeb"],
     "\[LineSeparator]",
     "is the list of the 1626 words of the Electrum version 1 wordlist, in \
the order the scheme's radix-1626 encoding indexes them."
    }],ExpressionUUID->"3ab27217-9c64-46e2-849e-405b2070f5b2"]}
  }]], "Usage",ExpressionUUID->"db753812-653b-4522-862f-6affe3c71343"]
}, 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->"aa98b04a-354a-4f66-9ab0-a9d1fd5e8349"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"764a8a9a-49df-4684-9534-e1db74a3fe62"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "0b59d997-cee7-4763-95b2-928f68110b9a"]],ExpressionUUID->"852b0139-bfb8-\
4bdd-a59d-614a6068a5f4"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->622657916,ExpressionUUID->"c8d39dae-f41e-4e35-8fbd-43d6de57ccd0"],

Cell[TextData[{
 "The list is the ",
 Cell[BoxData["_words"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3c941355-5308-4de0-986e-dbcddf8a539c"],
 " tuple of ",
 Cell["old_mnemonic.py", "InlineCode",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "7b847618-f22c-4ab6-ae09-1f080e4873f8"],
 " in the Electrum source, sourced there from a Wiktionary \
contemporary-poetry frequency list."
}], "Notes",ExpressionUUID->"94827381-8ea6-4933-a97b-d70a998fd334"],

Cell["\<\
The order is part of the scheme, not a presentation choice: the version 1 \
encoding is radix 1626 over positions in this list, so a reordered list would \
decode every seed to different bytes while still looking correct.\
\>", "Notes",ExpressionUUID->"4b570a0f-0a0b-494d-a2a3-2f0964767cb0"],

Cell["\<\
The list is therefore deliberately not alphabetical. It is free of duplicates.\
\>", "Notes",ExpressionUUID->"e65e2450-e44b-4f98-a282-e8fabdc10279"],

Cell[TextData[{
 "This is not the BIP39 wordlist and the two schemes share no encoding. \
Electrum version 2 seeds are written in ",
 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->
  "d7b69487-601d-49ee-9cbb-3d7786313221"],
 " under a completely different validity rule."
}], "Notes",ExpressionUUID->"570b15a0-848a-49cf-8fbf-21a68c5a0a6e"],

Cell[TextData[{
 "The version 1 scheme has no checksum, so membership in this list is the \
only structural check there is; see ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ElectrumV1MnemonicQ"]], 
    "paclet:WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8dd3fd18-08b7-4bc1-9fa7-1dae94a6339e"],
 "."
}], "Notes",ExpressionUUID->"4fb09a28-1aac-437a-9bcf-c73fcbdd72e0"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"d030c571-0cfd-4b60-b1b6-aba6bf57f31d"],

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->"18747493-5ada-4315-8713-519de81a7eb3"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ae2af63a-6bdb-41d6-ae7e-c2deb2abcd10"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(11)", "ExampleCount",ExpressionUUID->
  "1179ac74-0f5d-4727-9300-1048af9ca21a"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->323782381,ExpressionUUID->"9b9ec725-2082-4fd0-84d0-8c1136592c13"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"a5696c3e-ac23-464d-a7b4-0044eba00abb"],

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->
  "802c0ddc-9ed6-4e02-825a-25ab3afd2d11"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"baef5b96-8d06-4e0f-a7d6-e752c7f43735"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "a0442f7a-73f3-4024-8e17-63a58bbbf440"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->86915969,ExpressionUUID->"a5599c00-66b7-4b60-890b-2699be63080f"],

Cell["\<\
The wordlist has 1626 entries, the radix of the version 1 encoding:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"c22c03fe-f72e-42fe-a5b1-70498fdb7bc7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "$ElectrumV1Words", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0bdd86f4-ee2e-4812-8b39-e05758d0c873"],

Cell[BoxData["1626"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1e098820-7726-4d29-9ed1-0e5223456f1a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d032b164-cd8a-441e-bdf1-d085dd24ddc2"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d3dca2c2-b111-4b9f-\
b783-ef11d44a2a1e"],

Cell["The first and last words bound the index range:", "ExampleText",ExpressionUUID->"5193b466-51ca-4594-a1f7-cab214fc1468"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"First", "[", "$ElectrumV1Words", "]"}], ",", " ", 
   RowBox[{"Last", "[", "$ElectrumV1Words", "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"249b0773-572b-4bbd-bd1e-b7d1db76494b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"like\"\>", ",", "\<\"weary\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1391755f-27a9-4692-9653-111728dccdaa"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "67937dfe-d633-4d28-8321-7494f6c7c0cf"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e98423c2-c536-44dc-\
835b-4b4f460ff901"],

Cell[TextData[{
 "It is a frequency list, so it opens with the commonest words rather than \
with ",
 Cell[BoxData["\<\"a\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1a79baa2-bf57-4cf2-9763-6541160782fc"],
 ":"
}], "ExampleText",ExpressionUUID->"9868cb60-fe7a-4984-9864-2e03a0cf08f0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{"$ElectrumV1Words", ",", " ", "8"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"48d600f0-01bc-4209-819c-7adb31c5cd08"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"like\"\>", ",", "\<\"just\"\>", ",", "\<\"love\"\>", 
   ",", "\<\"know\"\>", ",", "\<\"never\"\>", ",", "\<\"want\"\>", 
   ",", "\<\"time\"\>", ",", "\<\"out\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8fe97f17-a45d-4f32-a4d0-4627a228e4f9"]
}, 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->
  "22fced3f-0375-477f-9b32-5bedf26c01a3"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d2bc4e4b-8d0d-4bd5-ad11-e7e6103ff2b8"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "3a8d02f1-f284-4231-8795-831e1f448b56"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"f5e52915-169e-46cc-b693-223829fb5fe8"],

Cell["\<\
The list is not alphabetical, which is what makes the order load-bearing:\
\>", "ExampleText",ExpressionUUID->"5cde0f53-b2d3-4641-b3d0-3209a6d041d1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$ElectrumV1Words", " ", "===", " ", 
  RowBox[{"Sort", "[", "$ElectrumV1Words", "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"990aff29-40e7-426a-bfd0-abecdb46607b"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ea2f0ee0-2957-47e4-a069-d0b745426f67"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "db368eb9-98be-4db5-b1f0-00ebc73a23f9"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"a242cce4-be42-4a41-\
a017-66c1264e0507"],

Cell["It is free of duplicates, so a word determines its index:", \
"ExampleText",ExpressionUUID->"1921d609-c677-4828-9adb-693ea023a8af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DuplicateFreeQ", "[", "$ElectrumV1Words", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e4a01a56-376b-4775-9e0c-a62da4d65bc0"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0b05eb50-dec5-46de-b6e6-4617996a6b19"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "cfb4bc85-ee0a-4723-9d1c-00b91a6a7c80"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"dc7db02e-9128-4c50-\
9a13-455003e35038"],

Cell["The three positions the published seed reads first:", "ExampleText",ExpressionUUID->"e7c0ede4-6c11-48f2-8cd8-129279a128a1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"FirstPosition", "[", 
      RowBox[{"$ElectrumV1Words", ",", " ", "#"}], "]"}], " ", "&"}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"\"\<hardly\>\"", ",", " ", "\"\<point\>\"", ",", 
      " ", "\"\<goal\>\""}], "}"}]}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"83640f12-5867-41f6-b34b-4a13aa959aee"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1075", ",", "281", ",", "1187"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fb5c0f08-58c3-431d-a033-181c72cc747f"]
}, 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->
  "4a34e768-ecae-451b-a26a-3882e0813c8e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ca34585e-1ad6-45bf-ac9e-3e63b308d5bf"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "4a5be9a5-bc60-4135-b640-ac1dce0324d1"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"ea8cccdb-15a5-40fd-8d5d-6e697caff943"],

Cell["\<\
The published Electrum vector round-trips through those positions, which is \
what pins the order:\
\>", "ExampleText",ExpressionUUID->"8df215d6-dfbe-43f1-9789-5a2b7a0d16a4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1Mnemonic", "[", "\"\<8edad31a95e7d59f8837667510d75a4d\>\"",
   "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0d2659aa-d574-4d12-abe8-7ff208941580"],

Cell[BoxData["\<\"hardly point goal hallway patience key stone difference \
ready caught listen fact\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"32de99df-5cf7-47bb-89e5-6a1957969192"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "17eb2995-c69c-467b-b559-b9adbf6d1fcc"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"4046fb76-7cc4-4aa5-\
8c3f-89d27e735e6b"],

Cell["\<\
Words shared with the BIP39 list are the ones a phrase can be ambiguous in:\
\>", "ExampleText",ExpressionUUID->"fd24e08f-09a3-48e1-b35b-1476a9aea013"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"Intersection", "[", 
   RowBox[{"$BIP39EnglishWords", ",", " ", "$ElectrumV1Words"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e26d2bcb-1e71-4749-90ff-937c8216be6b"],

Cell[BoxData["861"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ca34bde0-eebb-4002-bdd9-47ea612e440e"]
}, 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->
  "9480755c-b81a-439f-b32b-9da652fd3228"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"2dac327c-5d03-4ae8-8760-042b8d22cdec"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "628fffea-3dde-49a0-be0f-fc93fbc86eee"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"1a2870f5-0e9f-4310-8075-1f8d28abb6f0"],

Cell["\<\
The two wordlists differ in length as well as in content, so a 12-word phrase \
whose words are all in one and not the other is unambiguous:\
\>", "ExampleText",ExpressionUUID->"09985986-738c-4e1a-825a-ec7abb446e9d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Length", "[", "$ElectrumV1Words", "]"}], ",", " ", 
   RowBox[{"Length", "[", "$BIP39EnglishWords", "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"698285f8-3df8-42a0-a3bb-6b72664ea644"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1626", ",", "2048"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f39b709f-0cdf-40e8-a57a-117424d0d07d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "39d75681-5081-45a3-b524-7b4c820dd22e"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"965ec626-91d1-4e0d-\
bcc5-0bfdb4751935"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ElectrumV1MnemonicQ"]], 
    "paclet:WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ce2cec31-13cc-4fa7-86b4-6da70e6a6ed7"],
 " is membership in this list plus a word count:"
}], "ExampleText",ExpressionUUID->"bd9ef79f-9c8c-4cf3-8f9c-9976a6e975bf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumV1MnemonicQ", "[", 
  RowBox[{"StringRiffle", "[", 
   RowBox[{"Take", "[", 
    RowBox[{"$ElectrumV1Words", ",", " ", "12"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0cfddccb-740f-45f6-868c-4b2870cad5dc"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4323d221-a763-44ae-b2ec-e5c4b0252fa9"]
}, 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->
  "ac2ad0d2-4c89-44a7-93de-6cb57882396e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ca9bc4f5-7fc5-4b9b-8c43-62c86b345031"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "86290a80-5edd-4403-a265-2bd39869eb88"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"0db23e4a-8212-4eac-9bd6-61b3c3e93cbb"],

Cell[TextData[{
 "A word may be in both wordlists, so seeing familiar words does not tell the \
schemes apart; ",
 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->
  "e4bb7bb1-499f-44a0-83f3-c52e4eb72aa2"],
 " does:"
}], "ExampleText",ExpressionUUID->"7aa37d0a-3ea2-48b8-b631-9b8d2915b0cf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MemberQ", "[", 
    RowBox[{"$ElectrumV1Words", ",", " ", "\"\<letter\>\""}], "]"}], ",", " ", 
   RowBox[{"MemberQ", "[", 
    RowBox[{"$BIP39EnglishWords", ",", " ", "\"\<letter\>\""}], "]"}]}], 
  "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8ea8be40-7470-4cd8-9061-609f241f96a5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "True"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"74608d36-c4fa-4406-9f73-5cfc1f83f856"]
}, 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["ElectrumV1Mnemonic"]], 
           "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Mnemonic", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "29c43208-0d41-4468-a440-0f6bcddb847b"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ElectrumV1Seed"]], 
           "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Seed", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "7cda2ae9-f1c9-4338-957b-e746569b7aad"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ElectrumV1MnemonicQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "47067427-9d5c-44bb-9610-57a358d9c5b7"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ElectrumSeedVersion"]], 
           "paclet:WolframInstitute/Puzzles/ref/ElectrumSeedVersion", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "280e0658-b274-4b1b-8338-20b7af00a62a"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["$BIP39EnglishWords"]], 
           "paclet:WolframInstitute/Puzzles/ref/$BIP39EnglishWords", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "7368a1ac-21e9-4030-a242-8c4111507349"]
       }], "SeeAlso",ExpressionUUID->"792c1920-3020-4372-9db6-da5088979115"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"a6bfc8ca-1677-4651-86e8-\
e2f4e84766ed"],

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->
         "1c8252d5-eb1b-41e9-a3a5-55c0ebadf989"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"f52ab66c-80cb-47a5-b005-\
616aa442c454"],

Cell[" ", "FooterCell",ExpressionUUID->"4e07a30c-4183-4a00-9165-13c86b24d87a"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"$ElectrumV1Words",
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, 1.727493}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[$ElectrumV1Words, paclet : \
WolframInstitute/Puzzles/ref/$ElectrumV1Words, WolframInstitute/Puzzles \
Package Symbol] is the list of the 1626 words of the Electrum version 1 \
wordlist, in the order the scheme's radix-1626 encoding indexes them.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "$ElectrumV1Words", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "$ElectrumV1Words", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/$ElectrumV1Words", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"47be02c9-5c8c-422f-860b-39e34504a041"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[14568, 387, 185, 4, 70, "ExampleText",ExpressionUUID->"c22c03fe-f72e-42fe-a5b1-70498fdb7bc7",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 35295, 977}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[584, 21, 5854, 143, 70, "AnchorBarGrid",ExpressionUUID->"bef64104-a343-4d19-acad-582aa8cf81d8",
 CellID->1],
Cell[6441, 166, 107, 0, 70, "ContextNameCell",ExpressionUUID->"ec239615-0230-4435-b2cc-fc53754d1821"],
Cell[CellGroupData[{
Cell[6573, 170, 559, 14, 70, "ObjectNameGrid",ExpressionUUID->"e5c61a03-c857-442e-89ed-382060bb44d5"],
Cell[7135, 186, 759, 17, 70, "Usage",ExpressionUUID->"db753812-653b-4522-862f-6affe3c71343"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7931, 208, 1443, 34, 70, "NotesSection",ExpressionUUID->"c8d39dae-f41e-4e35-8fbd-43d6de57ccd0",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->622657916],
Cell[9377, 244, 509, 12, 70, "Notes",ExpressionUUID->"94827381-8ea6-4933-a97b-d70a998fd334"],
Cell[9889, 258, 301, 4, 70, "Notes",ExpressionUUID->"4b570a0f-0a0b-494d-a2a3-2f0964767cb0"],
Cell[10193, 264, 158, 2, 70, "Notes",ExpressionUUID->"e65e2450-e44b-4f98-a282-e8fabdc10279"],
Cell[10354, 268, 626, 15, 70, "Notes",ExpressionUUID->"570b15a0-848a-49cf-8fbf-21a68c5a0a6e"],
Cell[10983, 285, 583, 15, 70, "Notes",ExpressionUUID->"4fb09a28-1aac-437a-9bcf-c73fcbdd72e0"]
}, Closed]],
Cell[11581, 303, 80, 0, 70, "PageDelimiter",ExpressionUUID->"d030c571-0cfd-4b60-b1b6-aba6bf57f31d"],
Cell[CellGroupData[{
Cell[11686, 307, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"9b9ec725-2082-4fd0-84d0-8c1136592c13",
 CellID->323782381],
Cell[13090, 346, 216, 4, 70, "Input",ExpressionUUID->"a5696c3e-ac23-464d-a7b4-0044eba00abb",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13331, 354, 1234, 31, 70, "ExampleSection",ExpressionUUID->"a5599c00-66b7-4b60-890b-2699be63080f",
 CellID->86915969],
Cell[14568, 387, 185, 4, 70, "ExampleText",ExpressionUUID->"c22c03fe-f72e-42fe-a5b1-70498fdb7bc7",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[14778, 395, 201, 3, 70, "Input",ExpressionUUID->"0bdd86f4-ee2e-4812-8b39-e05758d0c873"],
Cell[14982, 400, 110, 1, 70, "Output",ExpressionUUID->"1e098820-7726-4d29-9ed1-0e5223456f1a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15129, 406, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d3dca2c2-b111-4b9f-b783-ef11d44a2a1e"],
Cell[15356, 413, 125, 0, 70, "ExampleText",ExpressionUUID->"5193b466-51ca-4594-a1f7-cab214fc1468"],
Cell[CellGroupData[{
Cell[15506, 417, 299, 6, 70, "Input",ExpressionUUID->"249b0773-572b-4bbd-bd1e-b7d1db76494b"],
Cell[15808, 425, 175, 3, 70, "Output",ExpressionUUID->"1391755f-27a9-4692-9653-111728dccdaa"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16032, 434, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e98423c2-c536-44dc-835b-4b4f460ff901"],
Cell[16259, 441, 343, 8, 70, "ExampleText",ExpressionUUID->"9868cb60-fe7a-4984-9864-2e03a0cf08f0"],
Cell[CellGroupData[{
Cell[16627, 453, 227, 4, 70, "Input",ExpressionUUID->"48d600f0-01bc-4209-819c-7adb31c5cd08"],
Cell[16857, 459, 308, 5, 70, "Output",ExpressionUUID->"8fe97f17-a45d-4f32-a4d0-4627a228e4f9"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17226, 471, 1227, 31, 70, "ExampleSection",ExpressionUUID->"f5e52915-169e-46cc-b693-223829fb5fe8",
 CellID->1293636265],
Cell[18456, 504, 159, 2, 70, "ExampleText",ExpressionUUID->"5cde0f53-b2d3-4641-b3d0-3209a6d041d1"],
Cell[CellGroupData[{
Cell[18640, 510, 249, 4, 70, "Input",ExpressionUUID->"990aff29-40e7-426a-bfd0-abecdb46607b"],
Cell[18892, 516, 111, 1, 70, "Output",ExpressionUUID->"ea2f0ee0-2957-47e4-a069-d0b745426f67"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19040, 522, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"a242cce4-be42-4a41-a017-66c1264e0507"],
Cell[19267, 529, 137, 1, 70, "ExampleText",ExpressionUUID->"1921d609-c677-4828-9adb-693ea023a8af"],
Cell[CellGroupData[{
Cell[19429, 534, 209, 3, 70, "Input",ExpressionUUID->"e4a01a56-376b-4775-9e0c-a62da4d65bc0"],
Cell[19641, 539, 110, 1, 70, "Output",ExpressionUUID->"0b05eb50-dec5-46de-b6e6-4617996a6b19"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19800, 546, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"dc7db02e-9128-4c50-9a13-455003e35038"],
Cell[20027, 553, 129, 0, 70, "ExampleText",ExpressionUUID->"e7c0ede4-6c11-48f2-8cd8-129279a128a1"],
Cell[CellGroupData[{
Cell[20181, 557, 480, 12, 70, "Input",ExpressionUUID->"83640f12-5867-41f6-b34b-4a13aa959aee"],
Cell[20664, 571, 170, 3, 70, "Output",ExpressionUUID->"fb5c0f08-58c3-431d-a033-181c72cc747f"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[20895, 581, 1233, 31, 70, "ExampleSection",ExpressionUUID->"ea8cccdb-15a5-40fd-8d5d-6e697caff943",
 CellID->258228157],
Cell[22131, 614, 184, 3, 70, "ExampleText",ExpressionUUID->"8df215d6-dfbe-43f1-9789-5a2b7a0d16a4"],
Cell[CellGroupData[{
Cell[22340, 621, 240, 4, 70, "Input",ExpressionUUID->"0d2659aa-d574-4d12-abe8-7ff208941580"],
Cell[22583, 627, 196, 2, 70, "Output",ExpressionUUID->"32de99df-5cf7-47bb-89e5-6a1957969192"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22816, 634, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"4046fb76-7cc4-4aa5-8c3f-89d27e735e6b"],
Cell[23043, 641, 161, 2, 70, "ExampleText",ExpressionUUID->"fd24e08f-09a3-48e1-b35b-1476a9aea013"],
Cell[CellGroupData[{
Cell[23229, 647, 289, 6, 70, "Input",ExpressionUUID->"e26d2bcb-1e71-4749-90ff-937c8216be6b"],
Cell[23521, 655, 109, 1, 70, "Output",ExpressionUUID->"ca34bde0-eebb-4002-bdd9-47ea612e440e"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[23691, 663, 1244, 31, 70, "ExampleSection",ExpressionUUID->"1a2870f5-0e9f-4310-8075-1f8d28abb6f0",
 CellID->2123667759],
Cell[24938, 696, 226, 3, 70, "ExampleText",ExpressionUUID->"09985986-738c-4e1a-825a-ec7abb446e9d"],
Cell[CellGroupData[{
Cell[25189, 703, 304, 6, 70, "Input",ExpressionUUID->"698285f8-3df8-42a0-a3bb-6b72664ea644"],
Cell[25496, 711, 158, 3, 70, "Output",ExpressionUUID->"f39b709f-0cdf-40e8-a57a-117424d0d07d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25691, 719, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"965ec626-91d1-4e0d-bcc5-0bfdb4751935"],
Cell[25918, 726, 519, 13, 70, "ExampleText",ExpressionUUID->"bd9ef79f-9c8c-4cf3-8f9c-9976a6e975bf"],
Cell[CellGroupData[{
Cell[26462, 743, 319, 7, 70, "Input",ExpressionUUID->"0cfddccb-740f-45f6-868c-4b2870cad5dc"],
Cell[26784, 752, 110, 1, 70, "Output",ExpressionUUID->"4323d221-a763-44ae-b2ec-e5c4b0252fa9"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[26955, 760, 1237, 31, 70, "ExampleSection",ExpressionUUID->"0db23e4a-8212-4eac-9bd6-61b3c3e93cbb",
 CellID->1305812373],
Cell[28195, 793, 577, 15, 70, "ExampleText",ExpressionUUID->"7aa37d0a-3ea2-48b8-b631-9b8d2915b0cf"],
Cell[CellGroupData[{
Cell[28797, 812, 395, 9, 70, "Input",ExpressionUUID->"8ea8be40-7470-4cd8-9061-609f241f96a5"],
Cell[29195, 823, 158, 3, 70, "Output",ExpressionUUID->"74608d36-c4fa-4406-9f73-5cfc1f83f856"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[29392, 831, 3222, 83, 70, "SeeAlsoSection",ExpressionUUID->"a6bfc8ca-1677-4651-86e8-e2f4e84766ed"],
Cell[32617, 916, 726, 18, 70, "MoreAboutSection",ExpressionUUID->"f52ab66c-80cb-47a5-b005-616aa442c454"],
Cell[33346, 936, 78, 0, 70, "FooterCell",ExpressionUUID->"4e07a30c-4183-4a00-9165-13c86b24d87a"]
}
]
*)

(* End of internal cache information *)

