(* 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[     87925,       2050]
NotebookOptionsPosition[     77151,       1854]
NotebookOutlinePosition[     79442,       1906]
CellTagsIndexPosition[     79364,       1901]
WindowTitle->ElectrumSeedVersion
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->
           "17b51347-c47e-4e74-b617-8d544d35d9b0"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "8f85b700-57bd-410c-97dc-4423777a0eef"],
        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->
           "caa42603-0c5a-435a-a95c-8abc00d4f81f"]
         }],ExpressionUUID->"c597706e-18c8-4533-9a45-d683e04f4e3a"],
         StripOnInput->False],{
        StyleBox[
          "\"ElectrumV2Seed\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumV2Seed"], 
         StyleBox[
          "\"ElectrumV1MnemonicQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumV1MnemonicQ"], 
         StyleBox[
          "\"ElectrumV1Seed\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ElectrumV1Seed"], 
         StyleBox["\"HMACHash\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HMACHash"], 
         StyleBox[
          "\"BIP39MnemonicQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP39MnemonicQ"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "a8b69d19-8092-4c46-9a22-12f683e4a40a"],
     "\[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->
           "a807d5d8-c264-43af-93bf-8ceafdfc15ad"]
         }],ExpressionUUID->"4032cc74-eb99-4be0-9979-02d0bed8cc1f"],
         StripOnInput->False],{
        "\"Seeds\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Seeds"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "c41f9b45-20a7-4f2f-8476-94416b60dc86"],
     "\[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->
           "793fc6ea-eb54-4c13-95c7-04b719523622"]
         }],ExpressionUUID->"2c57fe0a-3199-483b-86d4-889cce9eb2df"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ElectrumSeedVersion\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/ElectrumSeedVersion"], 
         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/ElectrumSeedVersion.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/ElectrumSeedVersion" <> ".html"],
               None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "dc04314f-7c5c-48d1-8cc8-745bc4c77812"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "5655d788-054e-4df5-9021-39ab61201e81"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"dac09b82-9b4f-46e2-aa03-5eca3a48e01f"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"36562a1d-29dc-48fe-ab5f-61c8062218b5"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ElectrumSeedVersion", "ObjectName",ExpressionUUID->
      "004abb6c-87ea-4215-ad31-3e97b7b95b5b"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"3df287d7-2185-4f77-b945-94c474c39ed5"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "6826814c-03fd-4d8d-b904-fa7361a5c9a0"]
    }],ExpressionUUID->"8048bc23-8c9a-4442-8c71-74301524d423"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"761b1346-f3ff-499d-849e-\
9ca4fbd708ba"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ElectrumSeedVersion"]], 
         "paclet:WolframInstitute/Puzzles/ref/ElectrumSeedVersion", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["mnemonic", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "992285a2-ac7c-4be5-90f5-efc52ebb15bf"],
     "\[LineSeparator]",
     "gives the kind of Electrum seed the sentence ",
     StyleBox["mnemonic", "TI"],
     " is, or ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["None"]], "paclet:ref/None"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "a640f618-f3e5-4d16-afb7-83c59dcc4355"],
     " if it is not one."
    }],ExpressionUUID->"7eb9bbe2-d418-44fb-a65c-874790d7127c"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ElectrumSeedVersion"]], 
         "paclet:WolframInstitute/Puzzles/ref/ElectrumSeedVersion", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox[
           StyleBox["word", "TI"], 
           StyleBox["_", "TI"]], "1", "$"}], ",", " ", 
         RowBox[{
          SubscriptBox[
           StyleBox["word", "TI"], 
           StyleBox["_", "TI"]], "2", "$"}], ",", " ", "\[Ellipsis]"}], "}"}],
        "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "faa66c46-8cd6-4b4b-8604-292c8f6a69e4"],
     "\[LineSeparator]",
     "takes the sentence as a list of words."
    }],ExpressionUUID->"2a1da546-9f2f-4006-890a-7d91b42188bb"]}
  }]], "Usage",ExpressionUUID->"ae6ea1fc-f249-4690-809e-c34b5e380090"]
}, 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->"9102ade4-6cbe-40e6-b7e6-380d5f361bb4"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"1e2868dd-8d4d-4d49-8c3e-eef517eea64c"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "951c2b1f-198d-4d37-9de8-cf2ad122e9d8"]],ExpressionUUID->"91e8c302-2332-\
4271-aff5-2b8a5935956a"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->329724510,ExpressionUUID->"50c467d3-f4bf-4c80-a91f-17c4ecb49077"],

Cell[TextData[{
 "The result is one of ",
 Cell[BoxData["\<\"Old\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "008d6c0f-c063-4070-b51f-3034e0096fc5"],
 ", ",
 Cell[BoxData["\<\"Standard\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2f6aa53c-6f81-4a02-bcfa-5ff946169234"],
 ", ",
 Cell[BoxData["\<\"Segwit\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "74b56e0a-32b6-4fbb-a8e4-8438d4dcbcde"],
 ", ",
 Cell[BoxData["\<\"2FA\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "95a106b9-9735-40e9-b27c-4e879893be34"],
 ", ",
 Cell[BoxData["\<\"2FASegwit\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "20316cf5-ce68-4dab-97b6-f3be45178604"],
 " or ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["None"]], "paclet:ref/None"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "8ceff784-c4a8-48f0-83e9-ca2a6549828e"],
 "."
}], "Notes",ExpressionUUID->"a58d1e88-ca89-41b4-a4f9-6c82704cd20c"],

Cell[TextData[{
 Cell[BoxData["\<\"Old\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "78760eee-c4e2-40a1-b6f6-7f8753399e3a"],
 " means a version 1 seed: 12 or 24 words of ",
 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->
  "e7567b60-189d-4c2d-b501-23c253cfa63d"],
 ", or a bare hexadecimal string of 32 or 64 digits."
}], "Notes",ExpressionUUID->"386917c7-31a8-4a47-a033-693f0df7d007"],

Cell[TextData[{
 "The version 2 kinds are decided by a keyed hash, not by a wordlist: a \
sentence is a version 2 seed when the hexadecimal spelling of ",
 Cell[BoxData[
  StyleBox[
   RowBox[{"HMAC", "-", "SHA512"}],
   FontSlant->"Plain"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "972d6a96-fc91-4469-8ffd-4e0ef46a81d8"],
 " of it under the key ",
 Cell[BoxData["\<\"Seed version\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d526c724-13b3-47cf-824f-cbdf94057d56"],
 " begins with ",
 Cell[BoxData["\<\"01\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b778a06e-c6e2-46e0-a1c0-47df0df9e7b4"],
 " for ",
 Cell[BoxData["\<\"Standard\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c3b44970-64c2-4aa7-a898-15c9d14c7d82"],
 ", ",
 Cell[BoxData["\<\"100\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3bc53f0d-9c3d-4858-9ca6-730841bd7690"],
 " for ",
 Cell[BoxData["\<\"Segwit\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "91be3103-a36c-40bd-a93f-1352f29e396b"],
 ", ",
 Cell[BoxData["\<\"101\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f560233c-7b1b-41f6-a489-1349cb7436a8"],
 " for ",
 Cell[BoxData["\<\"2FA\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "dbe4c1d7-a371-4367-9a55-a0442cbf5fa8"],
 " or ",
 Cell[BoxData["\<\"102\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e7023d50-39c2-442b-8e84-6d0e181e9431"],
 " for ",
 Cell[BoxData["\<\"2FASegwit\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "27c684b1-0995-4305-85ad-b2d9f15e9aa2"],
 "."
}], "Notes",ExpressionUUID->"503a63d7-bfc8-4371-9a07-f379bf831b43"],

Cell[TextData[{
 Cell[BoxData["\<\"2FA\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "caa65f8d-f077-4e99-8a2e-fc61294cacc6"],
 " additionally requires 12 words or at least 20, which is Electrum's own \
compatibility rule: the prefix was reused in version 2.7 for a different \
derivation and only the word count tells the two apart."
}], "Notes",ExpressionUUID->"d0b724fa-8ba9-4af6-ad75-9dc7ececa219"],

Cell["\<\
The sentence is normalized first, exactly as Electrum normalizes it: NFKD, \
lowercase, characters of nonzero Unicode combining class dropped, whitespace \
collapsed to single spaces, and spaces between CJK characters removed. Mixed \
case, extra spaces and precomposed accents are therefore harmless.\
\>", "Notes",ExpressionUUID->"1ae4bbef-8fa5-47d8-a8bb-55048c935ad3"],

Cell[TextData[{
 "Because the test is a hash prefix and not a wordlist, a version 2 seed can \
be any words at all, and very short strings such as ",
 Cell[BoxData["\<\"x8\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a23e1899-0b8d-47be-a7b5-d932f73a3ccd"],
 " and ",
 Cell[BoxData["\<\"9dk\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8b774c15-7f31-4b5b-9a3f-6f05e4b781fd"],
 " classify."
}], "Notes",ExpressionUUID->"04a2a6cc-3ad6-4288-b770-a47810cfb962"],

Cell[TextData[{
 "The order of the tests is Electrum's: version 1 first, then the version 2 \
prefixes in the order ",
 Cell[BoxData["\<\"01\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "33b1c38f-5e51-4d85-8815-6097b6732243"],
 ", ",
 Cell[BoxData["\<\"100\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "af31f166-c6f0-4ed4-b899-6dfcb2fde211"],
 ", ",
 Cell[BoxData["\<\"101\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7b669d21-d89b-4693-85b2-5e5822145825"],
 ", ",
 Cell[BoxData["\<\"102\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "714f8efc-4a6a-4f80-b274-0f94dec3ea7b"],
 "."
}], "Notes",ExpressionUUID->"4fd81e3f-ba10-43a3-b0bd-36a26fc22480"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"03620008-b4be-4e02-b7ce-300f70abb5c9"],

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->"6fa877dd-c9e5-4545-936b-19501c7efcc7"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"99dd675e-ea9c-4e22-9d21-9cbb2267ce2c"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(14)", "ExampleCount",ExpressionUUID->
  "9704bf66-887b-4681-b633-eae4a969fd89"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1172030310,ExpressionUUID->"20020595-1a5c-472d-acd1-64eb55f12b59"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"85fb4973-7c87-4965-9f85-466389e5b1b8"],

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->
  "94caf2f7-a9e3-4b47-a8c0-31884a9da14b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d8181012-441b-4137-aba0-b51150894d92"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "775ffb0d-e7a5-4897-9003-2fbe60c8d01a"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1593409886,ExpressionUUID->"3e4e7d5f-8d12-412d-9c42-aca278325594"],

Cell["\<\
The Electrum test suite's English version 2 seed is a segwit seed:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"96acc590-7d38-4f3e-aa68-91d634065579"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumSeedVersion", 
  "[", "\"\<wild father tree among universe such mobile favorite target \
dynamic credit identify\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b63aa960-d748-4ae0-bcdd-c8b1a145feb3"],

Cell[BoxData["\<\"Segwit\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6ebfd4ae-08c1-4b85-a312-6fa9cc20d95f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "951315b0-e7f7-4492-a88b-b42cabfbd0ef"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b9495880-0a62-430b-\
bf2f-0e4031d6dc35"],

Cell[TextData[{
 "A legacy phrase from the version 1 wordlist is ",
 Cell[BoxData["\<\"Old\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "fbcaae9d-3b89-4d0d-a37f-93fc51ddaf0d"],
 ":"
}], "ExampleText",ExpressionUUID->"10c46fe8-b5d5-4db9-89e1-c7c73ba72b89"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumSeedVersion", 
  "[", "\"\<powerful random nobody notice nothing important anyway look away \
hidden message over\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"56edb198-5639-4bb9-aa86-48f2b84ac7be"],

Cell[BoxData["\<\"Old\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"39c0803d-1b62-4ff3-8aac-32caa5a87893"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7099e291-5313-4303-af22-d8df32e02ef6"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"04cf7cfb-28d1-4183-\
9b56-d84771530a19"],

Cell[TextData[{
 "A sentence that is no kind of Electrum seed gives ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["None"]], "paclet:ref/None"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "196f3322-5544-407c-aa12-95b092846119"],
 ":"
}], "ExampleText",ExpressionUUID->"6a9aa12f-8912-4c5e-b8a3-0a0cd006a694"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumSeedVersion", "[", "\"\<hello world\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9748ae50-4a48-4d0f-b963-6ababea153b1"],

Cell[BoxData["None"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f5c6e33b-8021-4404-8af8-262971da28e9"]
}, 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->
  "9c2b401c-76f7-4503-ba89-0e2f7e724c0a"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c9921712-9b20-4a86-90b7-698eaf5b38bc"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "a77dc170-7ae3-4ff7-a973-787fe41b4c27"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"1d67dfb8-e3c0-4e55-adad-206c27053454"],

Cell["\<\
Each of the four version 2 kinds, on the phrases the Electrum test suite pins \
them to:\
\>", "ExampleText",ExpressionUUID->"31fcfd2f-51d5-431e-9e42-c4fa4cf7f4e2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Column", "[", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{"Function", "[", 
     RowBox[{"m", ",", " ", 
      RowBox[{"m", " ", "->", " ", 
       RowBox[{"ElectrumSeedVersion", "[", "m", "]"}]}]}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"\"\<cram swing cover prefer miss modify ritual silly deliver \
chunk behind inform able\>\"", ",", 
      " ", "\"\<frost pig brisk excite novel report camera enlist axis nation \
novel desert\>\"", ",", 
      " ", "\"\<science dawn member doll dutch real can brick knife deny \
drive list\>\"", ",", " ", "\"\<agree install\>\""}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"69d2b1e9-fe6a-4a33-a911-3a45c8c5c891"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"\<\"cram swing cover prefer miss modify ritual silly deliver \
chunk behind inform able\"\>", "\[Rule]", "\<\"Standard\"\>"}]},
    {
     RowBox[{"\<\"frost pig brisk excite novel report camera enlist axis \
nation novel desert\"\>", "\[Rule]", "\<\"Segwit\"\>"}]},
    {
     RowBox[{"\<\"science dawn member doll dutch real can brick knife deny \
drive list\"\>", "\[Rule]", "\<\"2FA\"\>"}]},
    {
     RowBox[{"\<\"agree install\"\>", "\[Rule]", "\<\"2FASegwit\"\>"}]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b95c454b-1131-40d3-b248-2981b2560fe5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "478a6801-342c-4270-8d3d-950e2231812f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f82ed3cf-82db-4209-\
adf0-8b4b78c4ee69"],

Cell["\<\
The version 2 test is a hash prefix, so a two-character string can be a valid \
seed:\
\>", "ExampleText",ExpressionUUID->"452a8924-aef6-4a84-9b44-61e6718dd508"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ElectrumSeedVersion", "[", "\"\<x8\>\"", "]"}], ",", " ", 
   RowBox[{"ElectrumSeedVersion", "[", "\"\<9dk\>\"", "]"}], ",", " ", 
   RowBox[{"ElectrumSeedVersion", "[", "\"\<6vs\>\"", "]"}]}], "}"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9421b97b-86f3-4023-a8f0-87edd083143b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Standard\"\>", ",", "\<\"Segwit\"\>", 
   ",", "\<\"2FASegwit\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"72d2084f-4f0b-430b-9ae0-d113a08ed6ab"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "36e923eb-fe0f-4a81-8485-ef69308baba9"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"087767ee-78ad-404e-\
ac71-8d5499ee3ec7"],

Cell["\<\
A bare hexadecimal string of 32 digits is an old seed, as Electrum has it:\
\>", "ExampleText",ExpressionUUID->"62782946-d8f6-45e8-8339-a9a88c33a57c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumSeedVersion", 
  "[", "\"\<acb740e454c3134901d7c8f16497cc1c\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c82b7e7a-63eb-45c0-b3a2-577847f29824"],

Cell[BoxData["\<\"Old\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2b11cb17-554d-4642-993d-4ff3d9464b13"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "e3b6533b-0a2f-4ae8-983c-70ac8f284531"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"793b7cf6-60bf-41e5-\
85f3-ef0015a88525"],

Cell["\<\
Case and spacing are normalized away, so a transcription in capitals \
classifies the same:\
\>", "ExampleText",ExpressionUUID->"35ac2935-7e98-43f4-b4ab-831683296eae"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumSeedVersion", 
  "[", "\"\<   oStRiCh sEcUrItY DeEr aUnT ClImB       InNeR AlPhA ArM MuTuAl \
mArBlE   SoLiD TaSk  \>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"74c247ed-3dde-42f6-9d2e-c10cc38db918"],

Cell[BoxData["\<\"Standard\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5174fe74-2b4a-41dc-8baa-16e1b3cf72bc"]
}, 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->
  "679567f1-12ca-41de-a0d5-3ce4875cd800"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"eeb0d0f8-c7b5-4093-a4c0-d7ae3d6bc032"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "6255a85c-7fec-44b9-96aa-9bd87e92d6e8"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"1eea97cc-1ddf-40f0-a6a0-aa203f8fa7b5"],

Cell["Sorting a pile of recovered phrases by scheme is a map:", "ExampleText",ExpressionUUID->"387e6360-4c1e-456d-8a8b-922ede063f7e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dataset", "[", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{"Function", "[", 
     RowBox[{"m", ",", " ", 
      RowBox[{"<|", 
       RowBox[{
        RowBox[{"\"\<phrase\>\"", " ", "->", " ", 
         RowBox[{"StringTake", "[", 
          RowBox[{"m", ",", " ", 
           RowBox[{"UpTo", "[", "28", "]"}]}], "]"}]}], ",", " ", 
        RowBox[{"\"\<electrum\>\"", " ", "->", " ", 
         RowBox[{"ElectrumSeedVersion", "[", "m", "]"}]}], ",", " ", 
        RowBox[{"\"\<bip39\>\"", " ", "->", " ", 
         RowBox[{"BIP39MnemonicQ", "[", "m", "]"}]}]}], "|>"}]}], "]"}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"\"\<wild father tree among universe such mobile favorite target \
dynamic credit identify\>\"", ",", 
      " ", "\"\<abandon abandon abandon abandon abandon abandon abandon \
abandon abandon abandon abandon about\>\"", ",", 
      " ", "\"\<hardly point goal hallway patience key stone difference ready \
caught listen fact\>\"", ",", " ", "\"\<hello world\>\""}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5006458c-e85f-4530-9216-eb42eaf6fc92"],

Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = <|
    "InitialData" -> {<|
       "phrase" -> "wild father tree among unive", "electrum" -> "Segwit", 
        "bip39" -> False|>, <|
       "phrase" -> "abandon abandon abandon aban", "electrum" -> None, 
        "bip39" -> True|>, <|
       "phrase" -> "hardly point goal hallway pa", "electrum" -> "Old", 
        "bip39" -> False|>, <|
       "phrase" -> "hello world", "electrum" -> None, "bip39" -> False|>}, 
     "AllowEmbedding" -> True, "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "phrase"} -> 
        1, {All, "electrum"} -> 1, {All, "bip39"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          
          TypeSystem`PackageScope`RowShape[<|
           "phrase" -> TypeSystem`PackageScope`AtomShape[313.6], "electrum" -> 
            TypeSystem`PackageScope`UnknownShape[False], "bip39" -> 
            TypeSystem`PackageScope`AtomShape[36]|>], 
          DirectedInfinity[1], 3, {All}]], 4, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Struct[{"phrase", "electrum", "bip39"}, {
         TypeSystem`Atom[String], TypeSystem`AnyType, 
         TypeSystem`Atom[TypeSystem`Boolean]}], 4], "Meta" -> <||>, 
     "RowTarget" -> 20, "ColumnTarget" -> 10, "Shape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "phrase"} -> 
        1, {All, "electrum"} -> 1, {All, "bip39"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          
          TypeSystem`PackageScope`RowShape[<|
           "phrase" -> TypeSystem`PackageScope`AtomShape[313.6], "electrum" -> 
            TypeSystem`PackageScope`UnknownShape[False], "bip39" -> 
            TypeSystem`PackageScope`AtomShape[36]|>], 
          DirectedInfinity[1], 3, {All}]], 4, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[
       TypeSystem`Struct[{"phrase", "electrum", "bip39"}, {
         TypeSystem`Atom[String], TypeSystem`AnyType, 
         TypeSystem`Atom[TypeSystem`Boolean]}], 4], "Path" -> {}, 
     "DisplayedRowCount" -> 4, "DisplayedColumnCount" -> 3, "DataRowCount" -> 
     4, "DataColumnCount" -> 3, "SortPaths" -> {}, "SortDirections" -> {}, 
     "HiddenItemsMap" -> Null, "UpdateType" -> 1|>, 
    TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{
     TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["phrase", 
                  Style[
                  "phrase", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "phrase"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "phrase"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["electrum", 
                  Style[
                  "electrum", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "electrum"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "electrum"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["bip39", 
                  Style[
                  "bip39", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "bip39"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "bip39"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation["wild father tree among unive", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["phrase"]}, "Item", False], "Mouse"], 
              ImageSize -> {{313.6, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Segwit", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["electrum"]}, "Item", False], "Mouse"], 
              ImageSize -> {{67.2, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["False"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["bip39"]}, "Item", False], "Mouse"], 
              ImageSize -> {{36, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["abandon abandon abandon aban", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["phrase"]}, "Item", False], "Mouse"], 
              ImageSize -> {{313.6, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["None", FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["electrum"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["True"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["bip39"]}, "Item", False], "Mouse"], 
              ImageSize -> {{36, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["hardly point goal hallway pa", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["phrase"]}, "Item", False], "Mouse"], 
              ImageSize -> {{313.6, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Old", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["electrum"]}, "Item", False], "Mouse"], 
              ImageSize -> {{33.6, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["False"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["bip39"]}, "Item", False], "Mouse"], 
              ImageSize -> {{36, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["hello world", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["phrase"]}, "Item", False], "Mouse"], 
              ImageSize -> {{313.6, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["None", FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["electrum"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["False"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["bip39"]}, "Item", False], "Mouse"], 
              ImageSize -> {{36, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`headerHidden$ = And[
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    Alternatives["RowHeader", "ColumnHeader"]], 
                    TypeSystem`NestedGrid`PackagePrivate`headerHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    "Show " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$, 
                    And[
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`headerHidden$]], 
                    Nothing, 
                    MenuItem[
                    "Hide " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], Nothing]}]]]]], FontFamily -> 
            "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}, Dividers -> 
          All, FrameStyle -> 
          RGBColor[0.749003690406716, 0.749003690406716, 0.749003690406716], 
          Spacings -> {0, 0}, Alignment -> Left, 
          BaseStyle -> {
           FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
            Plain}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> 
         False, ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         TypeSystem`NestedGrid`PackagePrivate`renderedGrid]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Dynamic[
     Replace[
      Replace[
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
       TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
          Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
          Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
           Blank[]]] :> (
         Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
          TypeSystem`NestedGrid`PackagePrivate`path$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
          TypeSystem`NestedGrid`PackagePrivate`pathType$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
          TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
          TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
         TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
          TypeSystem`NestedGrid`PackagePrivate`path$, 
           TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
        Spacer[10], Blank[] :> Spacer[10]}], 
      Pattern[TypeSystem`NestedGrid`PackagePrivate`bar, 
        Except[
         Alternatives[
          Blank[Spacer], ""]]] :> 
      TypeSystem`NestedGrid`PackagePrivate`makeFramedPathbar[
       TypeSystem`NestedGrid`PackagePrivate`bar]], 
     TrackedSymbols :> {
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       2, "Path" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$path$$], 
        "Grid" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$state$$], "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$topBar$$], "BottomBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$], "OutputID" -> 
        Hold[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]], StandardForm],
      ImageSizeCache->{441.8, {64.34928688406944, 69.64030250906944}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{441.8, {64.34928688406944, 69.64030250906944}}],
    BaseStyle->{
     LineBreakWithin -> False, 
      LightDarkAutoColorRules -> <|"MarkedColors" -> True|>},
    DynamicModuleValues:>{},
    Initialization:>(TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = 
     CreateUUID[]),
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"87b16fd4-0af8-4ce7-b58f-aaf95e28ced8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "079857c7-9121-4eda-a650-dede98cd8013"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"44479f42-771c-4c97-\
ac60-f875d8e1a53f"],

Cell["\<\
Only about one sentence in 256 is a standard version 2 seed by chance, since \
the prefix is two hexadecimal digits:\
\>", "ExampleText",ExpressionUUID->"68730f69-37b3-4748-9979-680016ff3653"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Count", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ElectrumSeedVersion", "[", 
      RowBox[{"StringRiffle", "[", 
       RowBox[{"RandomChoice", "[", 
        RowBox[{"$BIP39EnglishWords", ",", " ", "12"}], "]"}], "]"}], "]"}], ",",
      " ", "2000"}], "]"}], ",", " ", "\"\<Standard\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"38013e69-1004-4759-9825-dcfa5b7c41b3"],

Cell[BoxData["6"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d9c75617-6d38-443d-8e04-1d425612faef"]
}, 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->
  "4420dd1d-39a6-450a-88cd-efcb964fc501"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e17f2c83-738c-4a27-aabb-df27f2d38439"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "511306e9-52d3-4437-8256-cf1e203924ed"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"dc83f3d0-a1e2-4cd1-a433-323e3da47397"],

Cell[TextData[{
 "The version 2 test is one call to ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["HMACHash"]], "paclet:WolframInstitute/Puzzles/ref/HMACHash", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9d28d936-5f85-4c82-afa5-62081f387b1d"],
 ":"
}], "ExampleText",ExpressionUUID->"9b5b09ae-3e33-4975-a7cf-915d1cd3bbcf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringTake", "[", 
  RowBox[{
   RowBox[{"ByteListToHexString", "[", 
    RowBox[{"HMACHash", "[", 
     RowBox[{"\"\<Seed version\>\"", ",", 
      " ", "\"\<wild father tree among universe such mobile favorite target \
dynamic credit identify\>\"", ",", " ", "\"\<SHA512\>\""}], "]"}], "]"}], ",",
    " ", "3"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f2a9a9bf-b46e-4844-9d66-ea82df482cb0"],

Cell[BoxData["\<\"100\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"76cfe52b-0358-4a4c-9eb3-2e71198cb72f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "4e0a3746-674b-4e95-b53c-a8a1abd4e573"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ab1fa676-ffc9-440e-\
b2e9-98169729fc24"],

Cell["\<\
Electrum version 2 and BIP39 are independent tests, and a phrase can pass \
one, both or neither:\
\>", "ExampleText",ExpressionUUID->"a39eca68-c6d7-4c0f-95d9-c7d9b881074d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
   "ElectrumSeedVersion", 
    "[", "\"\<wild father tree among universe such mobile favorite target \
dynamic credit identify\>\"", "]"}], ",", " ", 
   RowBox[{
   "BIP39MnemonicQ", 
    "[", "\"\<wild father tree among universe such mobile favorite target \
dynamic credit identify\>\"", "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9d9ea3f0-a5b6-4714-b3cc-4f9a2d0ae02b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Segwit\"\>", ",", "False"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c80e2b45-b43e-4f5a-adbc-f3b82ee92ca0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "f49258ef-445d-4fcd-811c-d8964e39dcfb"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e349c712-118c-4ae4-\
aac7-a2266602eb77"],

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->
  "b32948b3-a05a-4dd7-a778-52961cb0548a"],
 " is the word branch of the ",
 Cell[BoxData["\<\"Old\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9a24d940-70de-4309-95b5-ab7c6bface54"],
 " case:"
}], "ExampleText",ExpressionUUID->"84b09fe1-c5bd-4238-a586-e6be36edf645"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
   "ElectrumV1MnemonicQ", 
    "[", "\"\<hardly point goal hallway patience key stone difference ready \
caught listen fact\>\"", "]"}], ",", " ", 
   RowBox[{
   "ElectrumSeedVersion", 
    "[", "\"\<hardly point goal hallway patience key stone difference ready \
caught listen fact\>\"", "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8c0004b5-2769-4c48-938e-95247e1ab339"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "\<\"Old\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"713a6d47-3fe7-44e6-8de5-77fdb6f81fdb"]
}, 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->
  "61669681-c06d-4ebc-814b-e35950b9b853"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c2c37068-4493-435a-81a5-40d35b7087bc"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "7fd9a891-f96d-4a5d-93d2-a39a1a8f90a1"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"638ea1b6-ea1e-4857-8d5b-6696b971055e"],

Cell[TextData[{
 "The version 1 test comes first, so a phrase of version 1 words that would \
also pass a version 2 prefix is reported as ",
 Cell[BoxData["\<\"Old\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "76eb4ba0-71fb-4c2d-a28d-3dcbb5dbfad0"],
 ":"
}], "ExampleText",ExpressionUUID->"491edeb1-6ad7-4c2f-b742-6d09b31ef02c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumSeedVersion", "[", 
  RowBox[{"StringRiffle", "[", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"\"\<like\>\"", ",", " ", "12"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f8b3df14-f6b3-4dd3-a44b-1282b9042f09"],

Cell[BoxData["\<\"Old\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c3db20f7-328e-488b-806d-ef4b9f8532fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "b2ad7730-4093-4dff-96b2-f3e6099195dc"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"33d4fb2e-f371-4e7d-\
ad41-37f573f5e1c0"],

Cell["\<\
A valid version is not evidence that the phrase was ever a wallet; it is a \
one-in-256 or one-in-4096 hash coincidence away:\
\>", "ExampleText",ExpressionUUID->"d23b2845-fc79-404f-8b19-45aec8bd7cee"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectrumSeedVersion", "[", "\"\<9dk\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6ed64c8f-94df-4b4f-8cd3-8256e86bac08"],

Cell[BoxData["\<\"Segwit\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"17668ea3-78a5-4789-8183-83bfe26d8349"]
}, 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["ElectrumV2Seed"]], 
           "paclet:WolframInstitute/Puzzles/ref/ElectrumV2Seed", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "b5097231-1c30-4387-b596-f6d7b904a350"],
        "\[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->
         "af4de33e-9657-4a7d-973f-01abf07e644d"],
        "\[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->
         "8de6aa2c-4634-45ba-96c7-725e382ee357"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["HMACHash"]], 
           "paclet:WolframInstitute/Puzzles/ref/HMACHash", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "3d11d259-386e-4cc0-954f-98d8db253418"],
        "\[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->
         "60878630-b491-4f01-881f-7e155d6249ee"]
       }], "SeeAlso",ExpressionUUID->"30b9f6ed-83e7-4590-99e6-afa1b03f54e8"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"9bbdbebf-d772-4dd8-bf34-\
82e4b2488507"],

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->
         "2cf9d995-b5a1-4067-82ad-12ebadb76dff"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"2b1e3953-2c2d-4cb3-85b6-\
9fa8c53c5661"],

Cell[" ", "FooterCell",ExpressionUUID->"ff87c381-b6a9-4168-9099-9cfce4cb65db"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ElectrumSeedVersion",
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, 35.915637}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ElectrumSeedVersion, paclet : \
WolframInstitute/Puzzles/ref/ElectrumSeedVersion, WolframInstitute/Puzzles \
Package Symbol][mnemonic] gives the kind of Electrum seed the sentence \
mnemonic is, or None if it is not one. PackageLink[ElectrumSeedVersion, \
paclet : WolframInstitute/Puzzles/ref/ElectrumSeedVersion, \
WolframInstitute/Puzzles Package Symbol][{word_ 1 $, word_ 2 $, ...}] takes \
the sentence as a list of words.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "ElectrumSeedVersion", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "ElectrumSeedVersion", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/ElectrumSeedVersion", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"3760ad78-eb4d-4690-8ff7-ad409ddb5868"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[19989, 540, 184, 4, 70, "ExampleText",ExpressionUUID->"96acc590-7d38-4f3e-aa68-91d634065579",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 79207, 1895}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[587, 21, 5817, 142, 70, "AnchorBarGrid",ExpressionUUID->"dac09b82-9b4f-46e2-aa03-5eca3a48e01f",
 CellID->1],
Cell[6407, 165, 107, 0, 70, "ContextNameCell",ExpressionUUID->"36562a1d-29dc-48fe-ab5f-61c8062218b5"],
Cell[CellGroupData[{
Cell[6539, 169, 562, 14, 70, "ObjectNameGrid",ExpressionUUID->"761b1346-f3ff-499d-849e-9ca4fbd708ba"],
Cell[7104, 185, 2059, 56, 70, "Usage",ExpressionUUID->"ae6ea1fc-f249-4690-809e-c34b5e380090"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9200, 246, 1443, 34, 70, "NotesSection",ExpressionUUID->"50c467d3-f4bf-4c80-a91f-17c4ecb49077",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->329724510],
Cell[10646, 282, 1236, 36, 70, "Notes",ExpressionUUID->"a58d1e88-ca89-41b4-a4f9-6c82704cd20c"],
Cell[11885, 320, 725, 18, 70, "Notes",ExpressionUUID->"386917c7-31a8-4a47-a033-693f0df7d007"],
Cell[12613, 340, 2074, 56, 70, "Notes",ExpressionUUID->"503a63d7-bfc8-4371-9a07-f379bf831b43"],
Cell[14690, 398, 457, 8, 70, "Notes",ExpressionUUID->"d0b724fa-8ba9-4af6-ad75-9dc7ececa219"],
Cell[15150, 408, 381, 5, 70, "Notes",ExpressionUUID->"1ae4bbef-8fa5-47d8-a8bb-55048c935ad3"],
Cell[15534, 415, 572, 13, 70, "Notes",ExpressionUUID->"04a2a6cc-3ad6-4288-b770-a47810cfb962"],
Cell[16109, 430, 875, 23, 70, "Notes",ExpressionUUID->"4fd81e3f-ba10-43a3-b0bd-36a26fc22480"]
}, Closed]],
Cell[16999, 456, 80, 0, 70, "PageDelimiter",ExpressionUUID->"03620008-b4be-4e02-b7ce-300f70abb5c9"],
Cell[CellGroupData[{
Cell[17104, 460, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"20020595-1a5c-472d-acd1-64eb55f12b59",
 CellID->1172030310],
Cell[18509, 499, 216, 4, 70, "Input",ExpressionUUID->"85fb4973-7c87-4965-9f85-466389e5b1b8",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[18750, 507, 1236, 31, 70, "ExampleSection",ExpressionUUID->"3e4e7d5f-8d12-412d-9c42-aca278325594",
 CellID->1593409886],
Cell[19989, 540, 184, 4, 70, "ExampleText",ExpressionUUID->"96acc590-7d38-4f3e-aa68-91d634065579",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[20198, 548, 294, 5, 70, "Input",ExpressionUUID->"b63aa960-d748-4ae0-bcdd-c8b1a145feb3"],
Cell[20495, 555, 120, 1, 70, "Output",ExpressionUUID->"6ebfd4ae-08c1-4b85-a312-6fa9cc20d95f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20652, 561, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b9495880-0a62-430b-bf2f-0e4031d6dc35"],
Cell[20879, 568, 312, 7, 70, "ExampleText",ExpressionUUID->"10c46fe8-b5d5-4db9-89e1-c7c73ba72b89"],
Cell[CellGroupData[{
Cell[21216, 579, 295, 5, 70, "Input",ExpressionUUID->"56edb198-5639-4bb9-aa86-48f2b84ac7be"],
Cell[21514, 586, 117, 1, 70, "Output",ExpressionUUID->"39c0803d-1b62-4ff3-8aac-32caa5a87893"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21680, 593, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"04cf7cfb-28d1-4183-9b56-d84771530a19"],
Cell[21907, 600, 390, 11, 70, "ExampleText",ExpressionUUID->"6a9aa12f-8912-4c5e-b8a3-0a0cd006a694"],
Cell[CellGroupData[{
Cell[22322, 615, 217, 3, 70, "Input",ExpressionUUID->"9748ae50-4a48-4d0f-b963-6ababea153b1"],
Cell[22542, 620, 110, 1, 70, "Output",ExpressionUUID->"f5c6e33b-8021-4404-8af8-262971da28e9"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22713, 628, 1227, 31, 70, "ExampleSection",ExpressionUUID->"1d67dfb8-e3c0-4e55-adad-206c27053454",
 CellID->1293636265],
Cell[23943, 661, 174, 3, 70, "ExampleText",ExpressionUUID->"31fcfd2f-51d5-431e-9e42-c4fa4cf7f4e2"],
Cell[CellGroupData[{
Cell[24142, 668, 774, 17, 70, "Input",ExpressionUUID->"69d2b1e9-fe6a-4a33-a911-3a45c8c5c891"],
Cell[24919, 687, 787, 18, 70, "Output",ExpressionUUID->"b95c454b-1131-40d3-b248-2981b2560fe5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25743, 710, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f82ed3cf-82db-4209-adf0-8b4b78c4ee69"],
Cell[25970, 717, 171, 3, 70, "ExampleText",ExpressionUUID->"452a8924-aef6-4a84-9b44-61e6718dd508"],
Cell[CellGroupData[{
Cell[26166, 724, 391, 8, 70, "Input",ExpressionUUID->"9421b97b-86f3-4023-a8f0-87edd083143b"],
Cell[26560, 734, 210, 4, 70, "Output",ExpressionUUID->"72d2084f-4f0b-430b-9ae0-d113a08ed6ab"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[26819, 744, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"087767ee-78ad-404e-ac71-8d5499ee3ec7"],
Cell[27046, 751, 160, 2, 70, "ExampleText",ExpressionUUID->"62782946-d8f6-45e8-8339-a9a88c33a57c"],
Cell[CellGroupData[{
Cell[27231, 757, 241, 4, 70, "Input",ExpressionUUID->"c82b7e7a-63eb-45c0-b3a2-577847f29824"],
Cell[27475, 763, 117, 1, 70, "Output",ExpressionUUID->"2b11cb17-554d-4642-993d-4ff3d9464b13"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27641, 770, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"793b7cf6-60bf-41e5-85f3-ef0015a88525"],
Cell[27868, 777, 177, 3, 70, "ExampleText",ExpressionUUID->"35ac2935-7e98-43f4-b4ab-831683296eae"],
Cell[CellGroupData[{
Cell[28070, 784, 297, 5, 70, "Input",ExpressionUUID->"74c247ed-3dde-42f6-9d2e-c10cc38db918"],
Cell[28370, 791, 122, 1, 70, "Output",ExpressionUUID->"5174fe74-2b4a-41dc-8baa-16e1b3cf72bc"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[28553, 799, 1233, 31, 70, "ExampleSection",ExpressionUUID->"1eea97cc-1ddf-40f0-a6a0-aa203f8fa7b5",
 CellID->258228157],
Cell[29789, 832, 133, 0, 70, "ExampleText",ExpressionUUID->"387e6360-4c1e-456d-8a8b-922ede063f7e"],
Cell[CellGroupData[{
Cell[29947, 836, 1182, 26, 70, "Input",ExpressionUUID->"5006458c-e85f-4530-9216-eb42eaf6fc92"],
Cell[31132, 864, 32696, 600, 70, "Output",ExpressionUUID->"87b16fd4-0af8-4ce7-b58f-aaf95e28ced8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63865, 1469, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"44479f42-771c-4c97-ac60-f875d8e1a53f"],
Cell[64092, 1476, 202, 3, 70, "ExampleText",ExpressionUUID->"68730f69-37b3-4748-9979-680016ff3653"],
Cell[CellGroupData[{
Cell[64319, 1483, 488, 11, 70, "Input",ExpressionUUID->"38013e69-1004-4759-9825-dcfa5b7c41b3"],
Cell[64810, 1496, 107, 1, 70, "Output",ExpressionUUID->"d9c75617-6d38-443d-8e04-1d425612faef"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[64978, 1504, 1244, 31, 70, "ExampleSection",ExpressionUUID->"dc83f3d0-a1e2-4cd1-a433-323e3da47397",
 CellID->2123667759],
Cell[66225, 1537, 486, 13, 70, "ExampleText",ExpressionUUID->"9b5b09ae-3e33-4975-a7cf-915d1cd3bbcf"],
Cell[CellGroupData[{
Cell[66736, 1554, 483, 10, 70, "Input",ExpressionUUID->"f2a9a9bf-b46e-4844-9d66-ea82df482cb0"],
Cell[67222, 1566, 117, 1, 70, "Output",ExpressionUUID->"76cfe52b-0358-4a4c-9eb3-2e71198cb72f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67376, 1572, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ab1fa676-ffc9-440e-b2e9-98169729fc24"],
Cell[67603, 1579, 183, 3, 70, "ExampleText",ExpressionUUID->"a39eca68-c6d7-4c0f-95d9-c7d9b881074d"],
Cell[CellGroupData[{
Cell[67811, 1586, 495, 12, 70, "Input",ExpressionUUID->"9d9ea3f0-a5b6-4714-b3cc-4f9a2d0ae02b"],
Cell[68309, 1600, 169, 3, 70, "Output",ExpressionUUID->"c80e2b45-b43e-4f5a-adbc-f3b82ee92ca0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[68527, 1609, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e349c712-118c-4ae4-aac7-a2266602eb77"],
Cell[68754, 1616, 677, 18, 70, "ExampleText",ExpressionUUID->"84b09fe1-c5bd-4238-a586-e6be36edf645"],
Cell[CellGroupData[{
Cell[69456, 1638, 494, 12, 70, "Input",ExpressionUUID->"8c0004b5-2769-4c48-938e-95247e1ab339"],
Cell[69953, 1652, 165, 3, 70, "Output",ExpressionUUID->"713a6d47-3fe7-44e6-8de5-77fdb6f81fdb"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[70179, 1662, 1237, 31, 70, "ExampleSection",ExpressionUUID->"638ea1b6-ea1e-4857-8d5b-6696b971055e",
 CellID->1305812373],
Cell[71419, 1695, 385, 8, 70, "ExampleText",ExpressionUUID->"491edeb1-6ad7-4c2f-b742-6d09b31ef02c"],
Cell[CellGroupData[{
Cell[71829, 1707, 321, 6, 70, "Input",ExpressionUUID->"f8b3df14-f6b3-4dd3-a44b-1282b9042f09"],
Cell[72153, 1715, 117, 1, 70, "Output",ExpressionUUID->"c3db20f7-328e-488b-806d-ef4b9f8532fc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72307, 1721, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"33d4fb2e-f371-4e7d-ad41-37f573f5e1c0"],
Cell[72534, 1728, 211, 3, 70, "ExampleText",ExpressionUUID->"d23b2845-fc79-404f-8b19-45aec8bd7cee"],
Cell[CellGroupData[{
Cell[72770, 1735, 209, 3, 70, "Input",ExpressionUUID->"6ed64c8f-94df-4b4f-8cd3-8256e86bac08"],
Cell[72982, 1740, 120, 1, 70, "Output",ExpressionUUID->"17668ea3-78a5-4789-8183-83bfe26d8349"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[73153, 1747, 3184, 83, 70, "SeeAlsoSection",ExpressionUUID->"9bbdbebf-d772-4dd8-bf34-82e4b2488507"],
Cell[76340, 1832, 726, 18, 70, "MoreAboutSection",ExpressionUUID->"2b1e3953-2c2d-4cb3-85b6-9fa8c53c5661"],
Cell[77069, 1852, 78, 0, 70, "FooterCell",ExpressionUUID->"ff87c381-b6a9-4168-9099-9cfce4cb65db"]
}
]
*)

(* End of internal cache information *)

