(* 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[     54313,       1436]
NotebookOptionsPosition[     43562,       1241]
NotebookOutlinePosition[     46309,       1300]
CellTagsIndexPosition[     46231,       1295]
WindowTitle->WordlistCandidates
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->
           "ceaf9bc5-a323-4c22-b30e-b60318dd0cb6"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "3be53f38-06a4-4f63-a46e-f4ac2d4c8111"],
        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->
           "e1102b41-1b85-41de-b1fb-246e7d1663d4"]
         }],ExpressionUUID->"d2b9c24e-02fc-4493-9531-b72240166876"],
         StripOnInput->False],{
        StyleBox["\"Tuples\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/Tuples"], 
         StyleBox[
          "\"StringRiffle\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/StringRiffle"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"CandidateEnumeration\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/CandidateEnumeration"], 
         StyleBox[
          StyleBox[
           "\"SubsetCandidates\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/SubsetCandidates"], 
         StyleBox[
          StyleBox[
           "\"PermutationCandidates\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/PermutationCandidates"], 
         StyleBox[
          StyleBox[
           "\"CandidateSweep\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/CandidateSweep"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "89120e9d-002b-4ecb-88b6-88b7ea07c1c3"],
     "\[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->
           "f7a16e85-3dc5-46bd-9455-314b6244f2a4"]
         }],ExpressionUUID->"79c5b5cc-4fbd-414f-a169-2103bab5e202"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "70f236c3-2fa5-4fdd-b58d-3d04ab594bc6"],
     "\[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->
           "71e4ed8f-445f-4622-8452-236412079b02"]
         }],ExpressionUUID->"5afd5ac4-8760-4faa-aae1-2bdc7c6f9f22"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/WordlistCandidates\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/WordlistCandidates"], 
         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/WordlistCandidates.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/WordlistCandidates" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "bfe34a5c-400f-4bbe-8255-3875959b11dd"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "cfa8207f-782e-4ea0-a46c-0d5b68d720a4"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"eef49530-0809-4519-a77e-44e15d3d0e44"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"35faa04f-2360-4e45-8628-04ae5704c28e"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "WordlistCandidates", "ObjectName",ExpressionUUID->
      "17ee774a-3f97-4bbe-9f52-5e2f29564997"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"cf71a354-faa6-4d4c-952d-2203104d8437"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "e135a426-59bf-4eb2-805b-9ec334aa4154"]
    }],ExpressionUUID->"5a4ccbc2-e61a-4cda-b401-0ab41fae06c1"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"ac4a04fc-9dba-4e0e-834e-\
426ecc89361c"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["WordlistCandidates"]], 
         "paclet:WolframInstitute/Puzzles/ref/WordlistCandidates", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{"{", 
        RowBox[{
         StyleBox["list\:2081", "TI"], ",", " ", 
         StyleBox["list\:2082", "TI"], ",", " ", "\[Ellipsis]"}], "}"}], 
       "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "54448ffe-6590-4e33-b589-a4a930f192a3"],
     "\[LineSeparator]",
     "gives a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["CandidateEnumeration"]], 
        "paclet:WolframInstitute/Puzzles/ref/CandidateEnumeration", 
        "WolframInstitute/Puzzles Package Symbol"},
       "PackageLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "100e7ad8-8c58-4607-90e4-ce4820172364"],
     " of the cross product of the word lists, each candidate being the \
chosen words joined by a space, in the order of ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Tuples"]], "paclet:ref/Tuples"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "a460efd9-edbe-4503-99fa-faceb0e13ed6"],
     "."
    }],ExpressionUUID->"af54a7b1-7df3-48ec-bc78-6226039343b4"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["WordlistCandidates"]], 
         "paclet:WolframInstitute/Puzzles/ref/WordlistCandidates", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          StyleBox["list\:2081", "TI"], ",", " ", 
          StyleBox["list\:2082", "TI"], ",", " ", "\[Ellipsis]"}], "}"}], ",",
         " ", "\"\<\!\(\*StyleBox[\"sep\", \"TI\"]\)\>\""}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "c6aebe2c-8a45-4754-b041-59b417295417"],
     "\[LineSeparator]",
     "joins the chosen words with \"",
     StyleBox["sep", "TI"],
     "\" instead."
    }],ExpressionUUID->"25e56687-cf09-4a29-9f10-e706872001c0"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["WordlistCandidates"]], 
         "paclet:WolframInstitute/Puzzles/ref/WordlistCandidates", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          StyleBox["list\:2081", "TI"], ",", " ", 
          StyleBox["list\:2082", "TI"], ",", " ", "\[Ellipsis]"}], "}"}], ",",
         " ", 
        TemplateBox[{
          Cell[
           TextData["None"]], "paclet:ref/None"},
         "RefLink",
         BaseStyle->{"InlineFormula"}]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "ae47bbc5-db30-4446-a93e-413955cf799b"],
     "\[LineSeparator]",
     "gives each candidate as the list of chosen words rather than a string."
    }],ExpressionUUID->"62866758-77ad-4c86-8b37-4d93d706b8ff"]}
  }]], "Usage",ExpressionUUID->"5f4de1b9-5762-430b-8179-a5d4b221813b"]
}, 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->"e03cb760-e0be-401e-ab5f-fa9375bd41c6"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"0aa9fdb1-ebbe-45c9-9864-337c85239b17"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "5b039911-66fc-4db6-8b90-9fd138316543"]],ExpressionUUID->"e0ecdc87-7977-\
432d-8b26-794f42624aa8"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->842173086,ExpressionUUID->"043bee49-4f4b-4f37-8e20-f219f8a6553e"],

Cell["\<\
Each argument list holds the candidate words for one position. A position \
that is known has a one-element list; a position that is unknown has as many \
words as it could be.\
\>", "Notes",ExpressionUUID->"dbaa7e29-cb00-4049-b76f-abdd03ea3976"],

Cell[TextData[{
 "The enumeration order is exactly that of ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Tuples"]], "paclet:ref/Tuples"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cc2d13c3-6b1b-41cc-bf61-cda735baaea9"],
 ": the last list varies fastest. The ",
 StyleBox["i", "TI"],
 "-th candidate is read off the mixed-radix expansion of ",
 StyleBox["i", "TI"],
 " - 1 with the list lengths as bases, so nothing before it is produced."
}], "Notes",ExpressionUUID->"deadf6da-894d-490d-94fa-24c0527fdec9"],

Cell["The count is the product of the list lengths.", "Notes",ExpressionUUID->"47e49bc4-ad4b-442d-bced-beeb10408539"],

Cell["\<\
The default separator is a single space, which is the separator a BIP-0039 \
mnemonic uses.\
\>", "Notes",ExpressionUUID->"28ea4456-2076-487c-a3f2-106f7e22fef0"],

Cell[TextData[{
 "With separator ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["None"]], "paclet:ref/None"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7c84f69b-b3ba-4854-97fe-d8cf4f652a71"],
 " a candidate is the list of chosen words, which is the form to use when the \
consumer wants the words rather than the sentence."
}], "Notes",ExpressionUUID->"11221925-614a-4453-9bd9-a1312cd79038"],

Cell["\<\
Every list must be a nonempty list of strings; anything else matches no \
definition and the call is returned unevaluated.\
\>", "Notes",ExpressionUUID->"8cfbaf0c-2519-46fb-865a-68cb95daa7cc"],

Cell["\<\
One unknown position over the 2048-word BIP-0039 wordlist is 2048 candidates; \
two unknown positions are 4194304, which is still an ordinary sweep.\
\>", "Notes",ExpressionUUID->"05e23e12-6f9c-46fb-8a9e-2d32c8ba7d2d"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"fb35aefa-925b-4dea-affe-8db83678f69a"],

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->"74db659a-c691-4e51-8cf8-33ed3f6993ce"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e65eff9a-52e8-4880-80bb-bc2de7505917"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(13)", "ExampleCount",ExpressionUUID->
  "9043b907-ca83-46e8-92b8-9fdef4f34439"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->338339025,ExpressionUUID->"a816ff6e-868a-4fe7-beb6-74cfd35acbd8"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"9489830d-ea5b-4e82-8114-29986243affe"],

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->
  "cc512ac5-7c3d-4881-bd2e-92bd696f9c73"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ea50ebaf-de71-4798-bb52-48de9a09246c"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "b3a65e5d-36d0-4fb8-9bcb-4ae571cd23c1"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2074779566,ExpressionUUID->"2aaaf42a-b270-4a3e-9eaf-06f12249a887"],

Cell["Eleven known words and three candidates for the twelfth:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"3eeaf877-0e27-4cf1-8f1e-0d5296e6dd38"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"WordlistCandidates", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "\"\<abandon\>\"", "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<ability\>\"", ",", " ", "\"\<able\>\"", ",", 
       " ", "\"\<about\>\""}], "}"}]}], "}"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"acca9394-3050-4e28-a483-c8318fce59e5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"abandon ability\"\>", ",", "\<\"abandon able\"\>", 
   ",", "\<\"abandon about\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3cbcfe27-a9eb-48c2-980d-cf4cd4612365"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ce1591b9-749c-415f-a484-a3b30671b344"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2e89393f-e57d-4d05-\
825a-0f6f69660199"],

Cell["The cross product of two positions:", "ExampleText",ExpressionUUID->"90412c78-367a-45f5-aedf-1553623d0a13"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"WordlistCandidates", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<red\>\"", ",", " ", "\"\<blue\>\""}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<fish\>\"", ",", " ", "\"\<bird\>\""}], "}"}]}], "}"}], 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b6a4c66b-40b1-49ad-872c-3a0f25807466"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"red fish\"\>", ",", "\<\"red bird\"\>", 
   ",", "\<\"blue fish\"\>", ",", "\<\"blue bird\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"110c9e30-a75b-48df-9eeb-0a797da5d798"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a44ec8e8-516d-4a56-989f-35c09409eefb"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"eec6122c-a133-4d74-\
98ee-4c8276eef06c"],

Cell["\<\
The count of a space with two unknown positions over the 2048-word BIP-0039 \
wordlist:\
\>", "ExampleText",ExpressionUUID->"ba13c10c-695a-4afd-a11a-cb2dbb37ebf6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"WordlistCandidates", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"\"\<w\>\"", " ", "<>", " ", 
        RowBox[{"IntegerString", "[", "i", "]"}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "2048"}], "}"}]}], "]"}], ",", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"\"\<w\>\"", " ", "<>", " ", 
        RowBox[{"IntegerString", "[", "i", "]"}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "2048"}], "}"}]}], "]"}]}], "}"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7631f2f6-1ba5-4e38-8b0e-c041090636f0"],

Cell[BoxData["4194304"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0ff7dd4f-6b3a-4463-ba13-19972662af92"]
}, 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->
  "67354d35-9dad-4140-a056-fed24547769c"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"20df61ee-cb36-483c-8af0-fcd5a3fa0991"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "a6dcc83a-2b37-46d5-b38c-4ebee5f05dc4"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"84ffaeed-17cf-41e4-bc4d-1dfbe9a2e263"],

Cell["\<\
A different separator suits a template that is not a sentence:\
\>", "ExampleText",ExpressionUUID->"4d5d4e4c-4c3e-4cd8-9ceb-aacdf56001e2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"WordlistCandidates", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<admin\>\"", ",", " ", "\"\<root\>\""}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<2019\>\"", ",", " ", "\"\<2020\>\""}], "}"}]}], "}"}], ",",
     " ", "\"\<-\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"32eadd42-0f1d-4c81-bb78-590375e58d50"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"admin-2019\"\>", ",", "\<\"admin-2020\"\>", 
   ",", "\<\"root-2019\"\>", ",", "\<\"root-2020\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8cd49d45-bf96-4a80-b066-9172e33a06f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ba559047-93c9-481a-81e3-aed7b45bcfda"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"0aafa5b8-03a6-4836-\
a0e7-8a8eb1ec750e"],

Cell["An empty separator concatenates the words:", "ExampleText",ExpressionUUID->"e92feaf8-fa2e-4936-af4d-d555cdc45585"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"WordlistCandidates", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "\"\<pass\>\"", "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<word\>\"", ",", " ", "\"\<phrase\>\""}], "}"}]}], "}"}], ",",
     " ", "\"\<\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a31822ba-ec17-4487-b208-86e4efe39838"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"password\"\>", ",", "\<\"passphrase\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5c4d8425-8672-4235-8609-6d75fe4f70b7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "92cb8033-37ce-4dac-95a2-59f6becefac8"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"864170f3-ae47-465e-\
96df-1723635d219b"],

Cell[TextData[{
 "With separator ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["None"]], "paclet:ref/None"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "dac58c51-f1b3-42d7-b30c-868c43237406"],
 " each candidate is the list of chosen words:"
}], "ExampleText",ExpressionUUID->"8df60901-3f15-41be-ba70-6d8797fce2a1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"WordlistCandidates", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\""}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<x\>\"", ",", " ", "\"\<y\>\""}], "}"}]}], "}"}], ",", " ",
     "None"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"26a64e5b-b417-4307-9616-769e60885440"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"a\"\>", ",", "\<\"x\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"a\"\>", ",", "\<\"y\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"b\"\>", ",", "\<\"x\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"b\"\>", ",", "\<\"y\"\>"}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1a7500a5-1118-465a-9836-a6e24128c97e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "36e4e14b-f873-4fe5-b74e-1e458156c82e"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"474d0327-2d01-4386-\
8dba-09f022c7f9c6"],

Cell["\<\
A candidate deep inside a space of millions is one call away:\
\>", "ExampleText",ExpressionUUID->"3fe6f175-1337-48ed-88c9-184365f1bfe8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"WordlistCandidates", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"\"\<w\>\"", " ", "<>", " ", 
        RowBox[{"IntegerString", "[", "i", "]"}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "2048"}], "}"}]}], "]"}], ",", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"\"\<w\>\"", " ", "<>", " ", 
        RowBox[{"IntegerString", "[", "i", "]"}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "2048"}], "}"}]}], "]"}]}], "}"}], "]"}], "[", 
  "3141592", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a76e4793-285b-44a4-9c8a-91580d2146f0"],

Cell[BoxData["\<\"w1534 w2008\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"00836b59-74c5-48d4-b4ef-abbe38c1ecb9"]
}, 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->
  "aad4bed3-4d6e-4bc5-b8e2-7b6560742fb7"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"071a0b86-565e-4508-9182-5d965b649148"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "739546af-4a6b-458d-b452-c2966b78d82b"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"cfc8f13e-6dcd-4ac3-a5dc-6f75a4a302f6"],

Cell[TextData[{
 "The BIP-0039 official test vector for entropy ",
 Cell[BoxData["\<\"00000000000000000000000000000000\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c33f00cb-1291-4954-b057-75722f5c83ae"],
 " is recovered when the twelfth word is swept:"
}], "ExampleText",ExpressionUUID->"162f7d1b-5782-4cf3-99ca-207a1f4a6267"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"WordlistCandidates", "[", 
   RowBox[{"Append", "[", 
    RowBox[{
     RowBox[{"ConstantArray", "[", 
      RowBox[{
       RowBox[{"{", "\"\<abandon\>\"", "}"}], ",", " ", "11"}], "]"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"\"\<ability\>\"", ",", " ", "\"\<able\>\"", ",", 
       " ", "\"\<about\>\""}], "}"}]}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0c537cc9-3d1b-4c1c-9825-ae484087a86d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"abandon abandon abandon abandon abandon abandon abandon \
abandon abandon abandon abandon ability\"\>", 
   ",", "\<\"abandon abandon abandon abandon abandon abandon abandon abandon \
abandon abandon abandon able\"\>", 
   ",", "\<\"abandon abandon abandon abandon abandon abandon abandon abandon \
abandon abandon abandon about\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d2cfb8be-6057-4fad-a994-1a7b00b9e48c"]
}, 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->
  "0c23ad5e-03aa-4c5a-ae0a-800fb2790889"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"fdf77ccf-a8fc-4cfc-947e-c5c29a56192e"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "1223a645-97dd-4b3c-be71-848c01bae183"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"fa8497e2-5757-45b6-bf79-b53def1a6af7"],

Cell[TextData[{
 "The enumeration is ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Tuples"]], "paclet:ref/Tuples"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e6c2b18e-bd43-4e5a-a073-5e07e02d81be"],
 " joined by the separator:"
}], "ExampleText",ExpressionUUID->"18f528f6-95f4-4e92-a5ed-efc597a92f58"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Normal", "[", 
   RowBox[{"WordlistCandidates", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\""}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<x\>\"", ",", " ", "\"\<y\>\"", ",", " ", "\"\<z\>\""}], 
       "}"}]}], "}"}], "]"}], "]"}], " ", "===", " ", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"StringRiffle", "[", 
      RowBox[{"#", ",", " ", "\"\< \>\""}], "]"}], " ", "&"}], ",", " ", 
    RowBox[{"Tuples", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\""}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"\"\<x\>\"", ",", " ", "\"\<y\>\"", ",", " ", "\"\<z\>\""}], 
        "}"}]}], "}"}], "]"}]}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"95967a91-3d9f-4ed3-b80a-ff4ea988ad15"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9ad67e00-65d2-458a-9ec7-b92b15c1ca3c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2b40adba-b792-4619-a453-dfebb80ab576"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"831672c8-8b59-426a-\
9e85-b00c9519a3a0"],

Cell[TextData[{
 "With separator ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["None"]], "paclet:ref/None"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "20b912d1-aa70-4589-aeef-8f694d3d16c2"],
 " it is ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Tuples"]], "paclet:ref/Tuples"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d359333d-f0c8-4c6e-91d6-330244720b55"],
 " itself:"
}], "ExampleText",ExpressionUUID->"5e56e900-e83f-4d07-b69e-5eb6069d1c86"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Normal", "[", 
   RowBox[{"WordlistCandidates", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\""}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"\"\<x\>\"", ",", " ", "\"\<y\>\""}], "}"}]}], "}"}], ",", 
     " ", "None"}], "]"}], "]"}], " ", "===", " ", 
  RowBox[{"Tuples", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\""}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<x\>\"", ",", " ", "\"\<y\>\""}], "}"}]}], "}"}], 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"40244242-4f4a-4999-bada-67048779c896"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fc21399e-1212-4847-906f-e4a778812ed8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "95cc1d4b-f97c-49f6-b3d6-e34140e8dd13"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"0220b2af-c926-4f19-\
aa4c-cc80c455b02b"],

Cell["The count is the product of the list lengths:", "ExampleText",ExpressionUUID->"fa273d97-8375-48a9-bf47-e8aa74363934"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"WordlistCandidates", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\"", ",", " ", "\"\<c\>\""}], 
      "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<x\>\"", ",", " ", "\"\<y\>\""}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<p\>\"", ",", " ", "\"\<q\>\"", ",", " ", "\"\<r\>\"", ",", 
       " ", "\"\<s\>\""}], "}"}]}], "}"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"484d6fa9-79be-4267-8b69-45c8a50ea44c"],

Cell[BoxData["24"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d6a74642-bcb7-4f82-931d-86e09f8beba9"]
}, 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->
  "497cf045-86d3-4eb1-9e12-96f6049c4207"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6a7d0381-c2fb-4e7c-95d0-af8362a2acab"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "a9895320-2a1e-4101-966a-b0ee36b2660f"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"a4432b17-5550-41b6-bf05-dd0faa2e5901"],

Cell["\<\
A position with no candidate words leaves the space undefined, and the call \
is returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"4b168e90-2968-4856-8848-5a49df78a3dc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WordlistCandidates", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", "\"\<a\>\"", "}"}], ",", " ", 
    RowBox[{"{", "}"}]}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ac9315c0-91de-4f0c-90a0-6a7f63776fd9"],

Cell[BoxData[
 RowBox[{"WordlistCandidates", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", "\<\"a\"\>", "}"}], ",", 
    RowBox[{"{", "}"}]}], "}"}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d7b89efb-3123-430c-959f-d35dbee5400a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ade60441-e77b-4247-bfac-16efbe8eb972"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7740f804-4192-485a-\
9119-013e31f7e54a"],

Cell["Words must be strings:", "ExampleText",ExpressionUUID->"232130cc-dba1-43ed-8314-edaf0766c916"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WordlistCandidates", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"3", ",", " ", "4"}], "}"}]}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"edd99607-5191-4cb7-9629-285f9e7aab37"],

Cell[BoxData[
 RowBox[{"WordlistCandidates", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4"}], "}"}]}], "}"}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"429f5f2b-8791-4028-83b4-754461dde23f"]
}, 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["CandidateEnumeration"]], 
           "paclet:WolframInstitute/Puzzles/ref/CandidateEnumeration", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "577c246b-2c13-4006-9333-616f5b43a426"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["SubsetCandidates"]], 
           "paclet:WolframInstitute/Puzzles/ref/SubsetCandidates", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "0f46e2a3-8cde-43a6-8d79-900282928ff0"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["PermutationCandidates"]], 
           "paclet:WolframInstitute/Puzzles/ref/PermutationCandidates", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "719f1086-2a32-410d-b414-52dd225f18f1"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["CandidateSweep"]], 
           "paclet:WolframInstitute/Puzzles/ref/CandidateSweep", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "52e0c336-2e7c-43d6-9072-7fc4008b9fb7"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Tuples"]], "paclet:ref/Tuples"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "814250ac-3f7a-4a9e-b917-5f4a8cc60652"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["StringRiffle"]], "paclet:ref/StringRiffle"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "fbe5fc5d-eb0d-4c42-9a93-63a1320dc907"]
       }], "SeeAlso",ExpressionUUID->"f32c5073-228c-40c4-b420-68fafe576a09"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"a351e894-4221-4c76-9f94-\
3cf9b2080a39"],

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["Search"]], 
           "paclet:WolframInstitute/Puzzles/guide/Search"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "a260977d-8b91-49c1-81d3-b46fa3a3acd3"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"b3660d8f-db6c-467a-b2d8-\
8f5b04055c20"],

Cell[" ", "FooterCell",ExpressionUUID->"7b4f276b-5f6a-40ca-9354-c6062d64818b"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"WordlistCandidates",
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, 59.659811}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[WordlistCandidates, paclet : \
WolframInstitute/Puzzles/ref/WordlistCandidates, WolframInstitute/Puzzles \
Package Symbol][{list\:2081, list\:2082, ...}] gives a \
PackageLink[CandidateEnumeration, paclet : \
WolframInstitute/Puzzles/ref/CandidateEnumeration, WolframInstitute/Puzzles \
Package Symbol] of the cross product of the word lists, each candidate being \
the chosen words joined by a space, in the order of Tuples. \
PackageLink[WordlistCandidates, paclet : \
WolframInstitute/Puzzles/ref/WordlistCandidates, WolframInstitute/Puzzles \
Package Symbol][{list\:2081, list\:2082, ...},  sep] joins the chosen words \
with sep instead. PackageLink[WordlistCandidates, paclet : \
WolframInstitute/Puzzles/ref/WordlistCandidates, WolframInstitute/Puzzles \
Package Symbol][{list\:2081, list\:2082, ...}, None] gives each candidate as \
the list of chosen words rather than a string.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "WordlistCandidates", "titlemodifier" -> "",
     "metadescription" -> "", "windowtitle" -> "WordlistCandidates", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/WordlistCandidates", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"ea906491-1bd8-49fb-9f74-0a7f2ecaecd5"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[18002, 478, 166, 2, 70, "ExampleText",ExpressionUUID->"3eeaf877-0e27-4cf1-8f1e-0d5296e6dd38",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 46074, 1289}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[586, 21, 6487, 156, 70, "AnchorBarGrid",ExpressionUUID->"eef49530-0809-4519-a77e-44e15d3d0e44",
 CellID->1],
Cell[7076, 179, 107, 0, 70, "ContextNameCell",ExpressionUUID->"35faa04f-2360-4e45-8628-04ae5704c28e"],
Cell[CellGroupData[{
Cell[7208, 183, 561, 14, 70, "ObjectNameGrid",ExpressionUUID->"ac4a04fc-9dba-4e0e-834e-426ecc89361c"],
Cell[7772, 199, 3628, 97, 70, "Usage",ExpressionUUID->"5f4de1b9-5762-430b-8179-a5d4b221813b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11437, 301, 1443, 34, 70, "NotesSection",ExpressionUUID->"043bee49-4f4b-4f37-8e20-f219f8a6553e",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->842173086],
Cell[12883, 337, 256, 4, 70, "Notes",ExpressionUUID->"dbaa7e29-cb00-4049-b76f-abdd03ea3976"],
Cell[13142, 343, 620, 16, 70, "Notes",ExpressionUUID->"deadf6da-894d-490d-94fa-24c0527fdec9"],
Cell[13765, 361, 117, 0, 70, "Notes",ExpressionUUID->"47e49bc4-ad4b-442d-bced-beeb10408539"],
Cell[13885, 363, 171, 3, 70, "Notes",ExpressionUUID->"28ea4456-2076-487c-a3f2-106f7e22fef0"],
Cell[14059, 368, 503, 13, 70, "Notes",ExpressionUUID->"11221925-614a-4453-9bd9-a1312cd79038"],
Cell[14565, 383, 202, 3, 70, "Notes",ExpressionUUID->"8cfbaf0c-2519-46fb-865a-68cb95daa7cc"],
Cell[14770, 388, 228, 3, 70, "Notes",ExpressionUUID->"05e23e12-6f9c-46fb-8a9e-2d32c8ba7d2d"]
}, Closed]],
Cell[15013, 394, 80, 0, 70, "PageDelimiter",ExpressionUUID->"fb35aefa-925b-4dea-affe-8db83678f69a"],
Cell[CellGroupData[{
Cell[15118, 398, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"a816ff6e-868a-4fe7-beb6-74cfd35acbd8",
 CellID->338339025],
Cell[16522, 437, 216, 4, 70, "Input",ExpressionUUID->"9489830d-ea5b-4e82-8114-29986243affe",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[16763, 445, 1236, 31, 70, "ExampleSection",ExpressionUUID->"2aaaf42a-b270-4a3e-9eaf-06f12249a887",
 CellID->2074779566],
Cell[18002, 478, 166, 2, 70, "ExampleText",ExpressionUUID->"3eeaf877-0e27-4cf1-8f1e-0d5296e6dd38",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[18193, 484, 443, 10, 70, "Input",ExpressionUUID->"acca9394-3050-4e28-a483-c8318fce59e5"],
Cell[18639, 496, 227, 4, 70, "Output",ExpressionUUID->"3cbcfe27-a9eb-48c2-980d-cf4cd4612365"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18903, 505, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2e89393f-e57d-4d05-825a-0f6f69660199"],
Cell[19130, 512, 113, 0, 70, "ExampleText",ExpressionUUID->"90412c78-367a-45f5-aedf-1553623d0a13"],
Cell[CellGroupData[{
Cell[19268, 516, 448, 11, 70, "Input",ExpressionUUID->"b6a4c66b-40b1-49ad-872c-3a0f25807466"],
Cell[19719, 529, 238, 4, 70, "Output",ExpressionUUID->"110c9e30-a75b-48df-9eeb-0a797da5d798"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20006, 539, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"eec6122c-a133-4d74-98ee-4c8276eef06c"],
Cell[20233, 546, 173, 3, 70, "ExampleText",ExpressionUUID->"ba13c10c-695a-4afd-a11a-cb2dbb37ebf6"],
Cell[CellGroupData[{
Cell[20431, 553, 738, 19, 70, "Input",ExpressionUUID->"7631f2f6-1ba5-4e38-8b0e-c041090636f0"],
Cell[21172, 574, 113, 1, 70, "Output",ExpressionUUID->"0ff7dd4f-6b3a-4463-ba13-19972662af92"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21346, 582, 1227, 31, 70, "ExampleSection",ExpressionUUID->"84ffaeed-17cf-41e4-bc4d-1dfbe9a2e263",
 CellID->1293636265],
Cell[22576, 615, 148, 2, 70, "ExampleText",ExpressionUUID->"4d5d4e4c-4c3e-4cd8-9ceb-aacdf56001e2"],
Cell[CellGroupData[{
Cell[22749, 621, 494, 12, 70, "Input",ExpressionUUID->"32eadd42-0f1d-4c81-bb78-590375e58d50"],
Cell[23246, 635, 242, 4, 70, "Output",ExpressionUUID->"8cd49d45-bf96-4a80-b066-9172e33a06f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23525, 644, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"0aafa5b8-03a6-4836-a0e7-8a8eb1ec750e"],
Cell[23752, 651, 120, 0, 70, "ExampleText",ExpressionUUID->"e92feaf8-fa2e-4936-af4d-d555cdc45585"],
Cell[CellGroupData[{
Cell[23897, 655, 450, 11, 70, "Input",ExpressionUUID->"a31822ba-ec17-4487-b208-86e4efe39838"],
Cell[24350, 668, 184, 3, 70, "Output",ExpressionUUID->"5c4d8425-8672-4235-8609-6d75fe4f70b7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24583, 677, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"864170f3-ae47-465e-96df-1723635d219b"],
Cell[24810, 684, 425, 12, 70, "ExampleText",ExpressionUUID->"8df60901-3f15-41be-ba70-6d8797fce2a1"],
Cell[CellGroupData[{
Cell[25260, 700, 476, 12, 70, "Input",ExpressionUUID->"26a64e5b-b417-4307-9616-769e60885440"],
Cell[25739, 714, 432, 11, 70, "Output",ExpressionUUID->"1a7500a5-1118-465a-9836-a6e24128c97e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[26220, 731, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"474d0327-2d01-4386-8dba-09f022c7f9c6"],
Cell[26447, 738, 147, 2, 70, "ExampleText",ExpressionUUID->"3fe6f175-1337-48ed-88c9-184365f1bfe8"],
Cell[CellGroupData[{
Cell[26619, 744, 739, 19, 70, "Input",ExpressionUUID->"a76e4793-285b-44a4-9c8a-91580d2146f0"],
Cell[27361, 765, 125, 1, 70, "Output",ExpressionUUID->"00836b59-74c5-48d4-b4ef-abbe38c1ecb9"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[27547, 773, 1233, 31, 70, "ExampleSection",ExpressionUUID->"cfc8f13e-6dcd-4ac3-a5dc-6f75a4a302f6",
 CellID->258228157],
Cell[28783, 806, 384, 7, 70, "ExampleText",ExpressionUUID->"162f7d1b-5782-4cf3-99ca-207a1f4a6267"],
Cell[CellGroupData[{
Cell[29192, 817, 537, 13, 70, "Input",ExpressionUUID->"0c537cc9-3d1b-4c1c-9825-ae484087a86d"],
Cell[29732, 832, 477, 8, 70, "Output",ExpressionUUID->"d2cfb8be-6057-4fad-a994-1a7b00b9e48c"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[30258, 846, 1244, 31, 70, "ExampleSection",ExpressionUUID->"fa8497e2-5757-45b6-bf79-b53def1a6af7",
 CellID->2123667759],
Cell[31505, 879, 414, 12, 70, "ExampleText",ExpressionUUID->"18f528f6-95f4-4e92-a5ed-efc597a92f58"],
Cell[CellGroupData[{
Cell[31944, 895, 953, 25, 70, "Input",ExpressionUUID->"95967a91-3d9f-4ed3-b80a-ff4ea988ad15"],
Cell[32900, 922, 110, 1, 70, "Output",ExpressionUUID->"9ad67e00-65d2-458a-9ec7-b92b15c1ca3c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33047, 928, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"831672c8-8b59-426a-9e85-b00c9519a3a0"],
Cell[33274, 935, 673, 22, 70, "ExampleText",ExpressionUUID->"5e56e900-e83f-4d07-b69e-5eb6069d1c86"],
Cell[CellGroupData[{
Cell[33972, 961, 759, 21, 70, "Input",ExpressionUUID->"40244242-4f4a-4999-bada-67048779c896"],
Cell[34734, 984, 110, 1, 70, "Output",ExpressionUUID->"fc21399e-1212-4847-906f-e4a778812ed8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[34893, 991, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"0220b2af-c926-4f19-aa4c-cc80c455b02b"],
Cell[35120, 998, 123, 0, 70, "ExampleText",ExpressionUUID->"fa273d97-8375-48a9-bf47-e8aa74363934"],
Cell[CellGroupData[{
Cell[35268, 1002, 606, 14, 70, "Input",ExpressionUUID->"484d6fa9-79be-4267-8b69-45c8a50ea44c"],
Cell[35877, 1018, 108, 1, 70, "Output",ExpressionUUID->"d6a74642-bcb7-4f82-931d-86e09f8beba9"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[36046, 1026, 1237, 31, 70, "ExampleSection",ExpressionUUID->"a4432b17-5550-41b6-bf05-dd0faa2e5901",
 CellID->1305812373],
Cell[37286, 1059, 188, 3, 70, "ExampleText",ExpressionUUID->"4b168e90-2968-4856-8848-5a49df78a3dc"],
Cell[CellGroupData[{
Cell[37499, 1066, 303, 7, 70, "Input",ExpressionUUID->"ac9315c0-91de-4f0c-90a0-6a7f63776fd9"],
Cell[37805, 1075, 251, 6, 70, "Output",ExpressionUUID->"d7b89efb-3123-430c-959f-d35dbee5400a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38093, 1086, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7740f804-4192-485a-9119-013e31f7e54a"],
Cell[38320, 1093, 100, 0, 70, "ExampleText",ExpressionUUID->"232130cc-dba1-43ed-8314-edaf0766c916"],
Cell[CellGroupData[{
Cell[38445, 1097, 362, 9, 70, "Input",ExpressionUUID->"edd99607-5191-4cb7-9629-285f9e7aab37"],
Cell[38810, 1108, 300, 8, 70, "Output",ExpressionUUID->"429f5f2b-8791-4028-83b4-754461dde23f"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[39161, 1122, 3573, 94, 70, "SeeAlsoSection",ExpressionUUID->"a351e894-4221-4c76-9f94-3cf9b2080a39"],
Cell[42737, 1218, 740, 19, 70, "MoreAboutSection",ExpressionUUID->"b3660d8f-db6c-467a-b2d8-8f5b04055c20"],
Cell[43480, 1239, 78, 0, 70, "FooterCell",ExpressionUUID->"7b4f276b-5f6a-40ca-9354-c6062d64818b"]
}
]
*)

(* End of internal cache information *)

