(* 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[     60820,       1576]
NotebookOptionsPosition[     48110,       1349]
NotebookOutlinePosition[     50591,       1404]
CellTagsIndexPosition[     50513,       1399]
WindowTitle->TextVariants
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->
           "cd7da1d3-1823-4939-8183-12cb93ed8376"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "fc741a3c-4b04-470a-b4b4-a68b0bac09f5"],
        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->
           "b182836b-8fd8-44bb-a0e4-6cd9716690d8"]
         }],ExpressionUUID->"289a6296-888c-4d14-b160-7c6d1cae2dea"],
         StripOnInput->False],{
        StyleBox[
          "\"CharacterNormalize\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/CharacterNormalize"], 
         StyleBox["\"StringTrim\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/StringTrim"], 
         StyleBox["\"Capitalize\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/Capitalize"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"EditVariants\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/EditVariants"], 
         StyleBox[
          StyleBox[
           "\"CandidateEnumeration\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/CandidateEnumeration"], 
         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->
      "5d0e10f6-b227-499b-8c54-896783a18bf3"],
     "\[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->
           "8f9be2f3-c57c-4d63-8863-39713c9ee14a"]
         }],ExpressionUUID->"bafb2483-a900-40bb-8337-110c083a1cb8"],
         StripOnInput->False],{
        "\"Search\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Search"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "c1d4191a-e7ff-4190-91b4-7094938d4b56"],
     "\[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->
           "10227f07-7230-46bf-b553-6b25b3f9cbb3"]
         }],ExpressionUUID->"908ac61d-9931-4831-bcbf-b4f556ccb2d7"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/TextVariants\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/TextVariants"], 
         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/TextVariants.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/TextVariants" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "49b55c3a-2f9c-43b7-b0a6-84844eddabc7"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "3d5e761b-9ad3-4e43-8cd1-0336b56dfe50"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"711fd360-cd7a-4742-80b3-87e0b6fa1ea6"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"13e37062-671d-415d-9758-fc61d9f007ae"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "TextVariants", "ObjectName",ExpressionUUID->
      "4fc9db97-e688-4530-8cab-ea629666f591"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"0ebc6b19-2d4e-4dfb-944d-685249a4bb45"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "33e94eb8-2c9b-4ca8-a4d2-3ae64005cb56"]
    }],ExpressionUUID->"ae978b49-a377-428b-8c12-a538202019ae"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"a446c642-7bb4-45d8-add9-\
529c5a7fedbf"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["TextVariants"]], 
         "paclet:WolframInstitute/Puzzles/ref/TextVariants", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], 
       "[", "\"\<\!\(\*StyleBox[\"text\", \"TI\"]\)\>\"", "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "10accf91-10d4-4af7-bf65-367d3d7e433d"],
     "\[LineSeparator]",
     "gives the distinct strings obtained from \"",
     StyleBox["text", "TI"],
     "\" by composing one transformation from each of the axes ",
     Cell[BoxData["\"\<HTMLEntities\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "141d3de0-a358-47e2-8404-d17186adaf19"],
     ", ",
     Cell[BoxData["\"\<LineEndings\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "45d83fcf-af20-4e85-9f25-e84c5849370c"],
     ", ",
     Cell[BoxData["\"\<Whitespace\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "da8fb1e0-6e1c-4881-b3e0-f356dd5d9db7"],
     ", ",
     Cell[BoxData["\"\<Case\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "bfe11f3d-86af-4af1-b15f-de37df7b13d2"],
     " and ",
     Cell[BoxData["\"\<Normalization\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "0d59609b-c969-4e8d-b399-ca3e29da8608"],
     ", with \"",
     StyleBox["text", "TI"],
     "\" itself first."
    }],ExpressionUUID->"3553aa30-1215-4f5e-9c4b-64ce33ab7cd4"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["TextVariants"]], 
         "paclet:WolframInstitute/Puzzles/ref/TextVariants", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{"\"\<\!\(\*StyleBox[\"text\", \"TI\"]\)\>\"", ",", " ", 
        RowBox[{"{", 
         RowBox[{"\"\<\!\(\*StyleBox[\"axis\:2081\", \"TI\"]\)\>\"", ",", " ",
           "\[Ellipsis]"}], "}"}]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "91ad48cd-daa5-4778-9280-ff0c646d21f7"],
     "\[LineSeparator]",
     "uses only the axes listed."
    }],ExpressionUUID->"523ec63e-14c6-4ccb-932e-d64dcea33945"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["TextVariants"]], 
         "paclet:WolframInstitute/Puzzles/ref/TextVariants", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "32bed0c5-3250-449c-8c20-154ec8e26fef"],
     "\[LineSeparator]",
     "gives the list of available axis names."
    }],ExpressionUUID->"12fc9a5e-be3c-464d-97d3-a15bc9c588ac"]}
  }]], "Usage",ExpressionUUID->"63029f53-0b65-4eca-9329-e3553ede447b"]
}, 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->"a5dc2797-a3c3-4e56-ac92-151f0d02afca"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"516d9d38-9677-4256-bc12-b15309f4ef72"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "30464a48-b360-4a81-9ffc-188d79eccd49"]],ExpressionUUID->"22d9cadb-7550-\
4f1a-847e-6f68cd50fbf5"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1550380840,ExpressionUUID->"b0a51f8c-4b70-47d0-baf4-48c1c8adf4cc"],

Cell["\<\
The axes are applied in a fixed order: character references are decoded, then \
line endings are unified, then whitespace is folded, then case is mapped, \
then Unicode normalisation is applied.\
\>", "Notes",ExpressionUUID->"8d2b288a-93e5-439b-bfa9-fc56e1a024ed"],

Cell[TextData[{
 "The ",
 Cell[BoxData["\<\"HTMLEntities\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3eb61c21-48a4-4c04-9ae4-246d98c7058f"],
 " axis has two settings: the text unchanged, and the text with character \
references decoded."
}], "Notes",ExpressionUUID->"48f6a5bc-b0da-4363-b288-7f5d450dc323"],

Cell[TextData[{
 "The ",
 Cell[BoxData["\<\"LineEndings\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "295aa38f-1d85-48d5-b179-9cfc96d6c8a6"],
 " axis has four settings: unchanged, all line breaks as ",
 Cell[BoxData["\<\"\\n\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4152db77-41c7-447f-b729-3b2d245bedb4"],
 ", all as ",
 Cell[BoxData["\<\"\\r\\n\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f79676d1-b22c-4a62-a6bb-8ccd706ad05a"],
 ", and all as ",
 Cell[BoxData["\<\"\\r\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "dbb1c5a0-86c0-4a76-8ecd-e0c121987a89"],
 "."
}], "Notes",ExpressionUUID->"f5601dcb-757b-4003-9cfb-9ccbd6992922"],

Cell[TextData[{
 "The ",
 Cell[BoxData["\<\"Whitespace\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3b844f0a-e471-45a4-80ba-e7290f15914d"],
 " axis has four settings: unchanged, trimmed, internal runs collapsed to one \
space and trimmed, and all whitespace removed."
}], "Notes",ExpressionUUID->"f449525b-3596-4f7a-874d-ca6cd43baa44"],

Cell[TextData[{
 "The ",
 Cell[BoxData["\<\"Case\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6afabb0e-e40a-4863-adbb-c13987b4571c"],
 " axis has four settings: unchanged, ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ToLowerCase"]], "paclet:ref/ToLowerCase"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "aa1164e4-dd66-4ae5-8f38-336b143b26b7"],
 ", ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ToUpperCase"]], "paclet:ref/ToUpperCase"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e0314aee-d1aa-4a27-8fd8-140e71a37b4c"],
 ", and ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Capitalize"]], "paclet:ref/Capitalize"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2af9b6de-b45d-4bba-a4be-49547d1738dc"],
 " of all words."
}], "Notes",ExpressionUUID->"71d30b58-5947-4015-be72-3abdb5f8c17e"],

Cell[TextData[{
 "The ",
 Cell[BoxData["\<\"Normalization\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "61c7e28f-986a-44fb-a53f-feae4470afbc"],
 " axis has five settings: unchanged, and the four Unicode normalisation \
forms NFC, NFD, NFKC and NFKD, through ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["CharacterNormalize"]], "paclet:ref/CharacterNormalize"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "422ddffd-5fef-40d5-960f-3935058e2c61"],
 "."
}], "Notes",ExpressionUUID->"92ee6ee2-0413-41de-b8d9-4be505037ac4"],

Cell["\<\
The full product is at most 640 combinations, and duplicates are removed, so \
the result is usually far shorter. The original text is always first.\
\>", "Notes",ExpressionUUID->"dc0fb07c-5b02-4eea-b400-9a3c4912eea6"],

Cell[TextData[{
 "Character reference decoding covers numeric references in decimal (",
 Cell[BoxData["\<\"&#65;\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d4754e3c-fa57-4945-be50-4bb605c2cc46"],
 ") and hexadecimal (",
 Cell[BoxData["\<\"&#x41;\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d29d29ea-6ea4-42b2-a538-83d05fadb32a"],
 "), the five XML 1.0 predefined entities ",
 Cell[BoxData["\<\"&amp;\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "05e480fd-87b6-4e2e-92f0-1ad91cfc8ac5"],
 ", ",
 Cell[BoxData["\<\"&lt;\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "097e8eca-83c7-4c41-a35c-44f1bf13071e"],
 ", ",
 Cell[BoxData["\<\"&gt;\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a178aebd-30e1-4af1-baf4-be5862e0b9af"],
 ", ",
 Cell[BoxData["\<\"&quot;\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "92b8ed5b-daf1-433d-805a-e090e4b78d6b"],
 " and ",
 Cell[BoxData["\<\"&apos;\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a7857370-9337-4e58-a6ed-0cab34b7114e"],
 ", and ",
 Cell[BoxData["\<\"&nbsp;\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "429580e8-c1f4-4940-a329-7ad8aaa29b13"],
 ". The full HTML named-reference table is not covered, and a reference \
without its trailing semicolon is not decoded."
}], "Notes",ExpressionUUID->"ee43fabc-aa42-4a13-bde9-abc6d4fd3b0f"],

Cell[TextData[{
 "Decoding is a single pass, so ",
 Cell[BoxData["\<\"&amp;lt;\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2c48d735-1ee0-4683-92f4-209424a5fe9f"],
 " decodes to ",
 Cell[BoxData["\<\"&lt;\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9dffc4a8-cb4a-452d-b5d8-150fb4f29a6a"],
 " and not to ",
 Cell[BoxData["\<\"<\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "587e3902-d487-4fb6-b588-6521d9662189"],
 ", as the specifications require."
}], "Notes",ExpressionUUID->"52bd7869-5b39-48c7-9751-deb95d01fa94"],

Cell["\<\
An axis name outside the five matches no definition and the call is returned \
unevaluated.\
\>", "Notes",ExpressionUUID->"7aaef84b-b127-473c-83be-e373665ed968"],

Cell["\<\
The axis-name query takes no argument, so every string argument is treated as \
text: the variants of a text spelled like an axis name are asked for in the \
ordinary way.\
\>", "Notes",ExpressionUUID->"6fb250af-42d8-4dfe-8f32-910a30271c99"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"837dfa56-9218-4db1-a782-8f43b06d7bf2"],

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->"937c3496-f4c1-47ed-83f7-87c5f95124e0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6b87ef38-ed52-4c64-bc0c-0803a5b411dc"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(17)", "ExampleCount",ExpressionUUID->
  "b278b7d8-80ae-4754-bb1d-667e145370df"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1831688829,ExpressionUUID->"73b5f7a5-59f5-47e5-bc42-79e3d80a2a77"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"80a54614-ccf1-40b5-89d2-212ce24af938"],

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->
  "5b8a8b34-f647-46ce-8e3b-23a35413faaf"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"301f1630-86ac-43ba-90fe-d60b9b2b6769"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "7e3f0b22-44d8-4b23-8840-bb5a293c9425"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1016069258,ExpressionUUID->"59d33045-d0c8-440b-a899-65cd75adaca3"],

Cell["The variants of a passphrase copied out of a web page:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"dedc7310-c85a-41aa-b745-1448edaded65"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TextVariants", "[", "\"\<Correct Horse &amp; Battery Staple\>\"", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3b822302-5b08-4e22-ae88-00cabe4ec9b7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Correct Horse &amp; Battery Staple\"\>", 
   ",", "\<\"correct horse &amp; battery staple\"\>", 
   ",", "\<\"CORRECT HORSE &AMP; BATTERY STAPLE\"\>", 
   ",", "\<\"Correct Horse &Amp; Battery Staple\"\>", 
   ",", "\<\"CorrectHorse&amp;BatteryStaple\"\>", 
   ",", "\<\"correcthorse&amp;batterystaple\"\>", 
   ",", "\<\"CORRECTHORSE&AMP;BATTERYSTAPLE\"\>", 
   ",", "\<\"CorrectHorse&Amp;BatteryStaple\"\>", 
   ",", "\<\"Correct Horse & Battery Staple\"\>", 
   ",", "\<\"correct horse & battery staple\"\>", 
   ",", "\<\"CORRECT HORSE & BATTERY STAPLE\"\>", 
   ",", "\<\"CorrectHorse&BatteryStaple\"\>", 
   ",", "\<\"correcthorse&batterystaple\"\>", 
   ",", "\<\"CORRECTHORSE&BATTERYSTAPLE\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fdccb18c-99e6-4c66-87ae-c5eadbfc4391"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2d8ba2e3-92b7-4691-b51d-f86f9c942fa7"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2f9492a5-04e7-4809-\
a5ac-094ac1e66ce3"],

Cell["The available axis names:", "ExampleText",ExpressionUUID->"98a68c6d-ffa9-43f7-9f9a-e71dd395e24d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TextVariants", "[", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a81ca47f-d623-4944-a3e9-434e65696775"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"HTMLEntities\"\>", ",", "\<\"LineEndings\"\>", 
   ",", "\<\"Whitespace\"\>", ",", "\<\"Case\"\>", 
   ",", "\<\"Normalization\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1d0b574e-b049-4cb2-b9fc-ee776d772a20"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0b3ae379-b581-4de4-8270-d6edd0f003a5"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f236602d-6ff8-4ee0-\
8411-a9f28d36f83a"],

Cell["One axis at a time, when only one thing is in doubt:", "ExampleText",ExpressionUUID->"8e2cd0f0-54e1-4913-9dc9-4826b64ca18b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TextVariants", "[", 
  RowBox[{"\"\<Hello There\>\"", ",", " ", 
   RowBox[{"{", "\"\<Case\>\"", "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f23c12bf-6cff-4387-abaf-c51cc46e9f11"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Hello There\"\>", ",", "\<\"hello there\"\>", 
   ",", "\<\"HELLO THERE\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c0ba0e25-8f64-4462-943a-6e529191d61a"]
}, 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->
  "2ce65a91-4855-4859-bdef-abd3f2f6ca75"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b31e119e-c172-4e3f-b52e-65b9509cd97e"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(7)", "ExampleCount",ExpressionUUID->
  "ccfff1f2-984b-44e6-9b4e-c2410cba9fe8"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"19e4f5fc-8146-41c0-bbd0-70cd8994d260"],

Cell["\<\
Leading and trailing whitespace, internal runs, and all whitespace:\
\>", "ExampleText",ExpressionUUID->"e5e5bf46-8b81-4faf-a49d-7a4ae2206c35"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TextVariants", "[", 
  RowBox[{"\"\<  correct   horse  \>\"", ",", " ", 
   RowBox[{"{", "\"\<Whitespace\>\"", "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"43a8c85a-ebad-4657-bb91-3da81c8e5d74"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"  correct   horse  \"\>", ",", "\<\"correct   horse\"\>", 
   ",", "\<\"correct horse\"\>", ",", "\<\"correcthorse\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ab3537f8-0f5f-4363-af37-cb9624243529"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "42c870ec-2ae2-459f-aff7-dab81da5c020"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7c841cac-b98d-4e2b-\
a730-d79cd4a27d6c"],

Cell["The three line-ending conventions:", "ExampleText",ExpressionUUID->"af1a5054-2689-4002-a3c1-668ed6a01d11"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TextVariants", "[", 
  RowBox[{"\"\<line one\\r\\nline two\>\"", ",", " ", 
   RowBox[{"{", "\"\<LineEndings\>\"", "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"259a32f0-d170-4eed-bde9-d018452f663f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"line one\\r\\nline two\"\>", 
   ",", "\<\"line one\\nline two\"\>", ",", "\<\"line one\\rline two\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"956b0d9d-eec1-43a0-a3f9-44b328da2b92"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "38482076-4d9f-46fc-8460-48cfc23c4629"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"97376679-4f85-4954-\
b542-984f28263207"],

Cell["Numeric character references, decimal and hexadecimal:", "ExampleText",ExpressionUUID->"7286deb4-a5d1-40fe-b367-158fb8534c08"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TextVariants", "[", 
  RowBox[{"\"\<&#72;&#101;&#x6C;&#x6C;&#111;\>\"", ",", " ", 
   RowBox[{"{", "\"\<HTMLEntities\>\"", "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6aa9c4b3-a284-42c0-aba1-72f7c025834d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"&#72;&#101;&#x6C;&#x6C;&#111;\"\>", ",", "\<\"Hello\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"200d8b21-c766-4852-9e5e-ab2682f3a484"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2f94efc8-23a4-46e8-8ffd-f4b8c7b85bc5"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"14f88aa1-c098-42ed-\
a606-d066c36fccc0"],

Cell["The five XML 1.0 predefined entities:", "ExampleText",ExpressionUUID->"0b0307a9-b0e2-4cde-9f35-1fa50ef1f1d7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TextVariants", "[", 
  RowBox[{"\"\<&amp;&lt;&gt;&quot;&apos;\>\"", ",", " ", 
   RowBox[{"{", "\"\<HTMLEntities\>\"", "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2ab9a189-9260-4854-8687-5fb3088a8136"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"&amp;&lt;&gt;&quot;&apos;\"\>", ",", "\<\"&<>\\\"'\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"61525dcf-b1d8-4835-a71a-a2d31a2190b8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7d42e9b2-76fb-414f-b806-f23e09fffa49"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e91a8060-f080-4ac5-\
bdd4-228875a821e8"],

Cell["\<\
An accented character has a composed and a decomposed spelling, and both hash \
differently:\
\>", "ExampleText",ExpressionUUID->"c411d695-fe08-44ec-a189-7b5e65db446e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{"ToCharacterCode", ",", " ", 
   RowBox[{"TextVariants", "[", 
    RowBox[{
     RowBox[{"FromCharacterCode", "[", 
      RowBox[{"{", 
       RowBox[{
       "16^^0063", ",", " ", "16^^0061", ",", " ", "16^^0066", ",", " ", 
        "16^^00E9"}], "}"}], "]"}], ",", " ", 
     RowBox[{"{", "\"\<Normalization\>\"", "}"}]}], "]"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6aef1737-2d9f-4bfa-a24a-584b76bd6b94"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"99", ",", "97", ",", "102", ",", "233"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"99", ",", "97", ",", "102", ",", "101", ",", "769"}], "}"}]}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0b58e5c3-5168-41b6-9000-07da168786b8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "24661b03-3059-4143-8d03-edef409f4e1d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d7211f43-c9e0-4cfd-\
98a2-145e98eda088"],

Cell["A compatibility ligature is folded only by the K forms:", "ExampleText",ExpressionUUID->"118d4f0a-5a1c-44b4-b870-536aafb7d294"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TextVariants", "[", 
  RowBox[{
   RowBox[{"FromCharacterCode", "[", 
    RowBox[{"{", "16^^FB01", "}"}], "]"}], ",", " ", 
   RowBox[{"{", "\"\<Normalization\>\"", "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4229355c-d473-42a6-9608-e45494a80363"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"\[FiLigature]\"\>", ",", "\<\"fi\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"07779b32-bff1-467f-aa1b-7e63c543b03c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "f1210c37-9d9d-468f-ace1-9f805dbc832c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e0a5e79d-c3c3-4258-\
bd06-958f0e58f080"],

Cell["Two axes compose, and the result is deduplicated:", "ExampleText",ExpressionUUID->"fa5e88a8-709d-4341-b9f9-cef35a597d34"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TextVariants", "[", 
  RowBox[{"\"\<  Hello  \>\"", ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Whitespace\>\"", ",", " ", "\"\<Case\>\""}], "}"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1480f6eb-9490-4b9f-b8c9-98805ac722c0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"  Hello  \"\>", ",", "\<\"  hello  \"\>", 
   ",", "\<\"  HELLO  \"\>", ",", "\<\"Hello\"\>", ",", "\<\"hello\"\>", 
   ",", "\<\"HELLO\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ce8ef135-93e8-4a5e-a5bf-422116145538"]
}, 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->
  "9deaf4d5-f9a0-4d16-8327-1dea1d32c054"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e9d54603-9e5d-4fe0-ac18-0e9b0ec4e6a1"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "040ef8b3-9a4c-473e-82ab-7270d78d4046"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"fc0a63bf-0e5a-472c-beea-c0dafa8b1f90"],

Cell["\<\
Feeding the variants of a remembered passphrase to a sweep is the usual use:\
\>", "ExampleText",ExpressionUUID->"631c6acb-470e-4644-b887-980822d7218d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
  "TextVariants", "[", "\"\<  Correct Horse &amp; Battery Staple \n\n \>\"", 
   "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"cdfed9a5-8bba-4380-a2c7-2c5ec317c6e5"],

Cell[BoxData["32"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c7266662-0bb9-4ccf-97a4-aa6f50b5a4e9"]
}, 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->
  "45873ae7-e804-4a4d-bfbf-8f9e24c295ca"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"456dbb2b-dd37-4229-981d-8c057c1ea15e"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "92c25344-e46e-421e-b4fd-855e4eedd0ce"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"b4dea807-8e2e-4e1d-8f4e-fb44b16a26c9"],

Cell[TextData[{
 "The normalisation axis is ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["CharacterNormalize"]], "paclet:ref/CharacterNormalize"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "de09ed17-26c7-43b3-bb1b-1eb3ab0f0c9c"],
 " in its four forms:"
}], "ExampleText",ExpressionUUID->"a39a0561-df47-4c9b-893c-6a05ed74ddca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"TextVariants", "[", 
   RowBox[{
    RowBox[{"FromCharacterCode", "[", 
     RowBox[{"{", "16^^1E0A", "}"}], "]"}], ",", " ", 
    RowBox[{"{", "\"\<Normalization\>\"", "}"}]}], "]"}], " ", "===", " ", 
  RowBox[{"DeleteDuplicates", "[", 
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"CharacterNormalize", "[", 
         RowBox[{
          RowBox[{"FromCharacterCode", "[", 
           RowBox[{"{", "16^^1E0A", "}"}], "]"}], ",", " ", "#"}], "]"}], " ",
         "&"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"\"\<NFC\>\"", ",", " ", "\"\<NFD\>\"", ",", 
         " ", "\"\<NFKC\>\"", ",", " ", "\"\<NFKD\>\""}], "}"}]}], "]"}], ",",
      " ", 
     RowBox[{"FromCharacterCode", "[", 
      RowBox[{"{", "16^^1E0A", "}"}], "]"}]}], "]"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a0290174-fea5-4ec0-88d5-aef4eb3dbf22"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"05f57d23-e129-441d-b9ef-25decabaef20"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "1c88bebb-7bb4-4c82-b174-803d07ae61af"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"77b68398-0043-4d43-\
8de5-3fe78d6305ba"],

Cell["The original text is always the first variant:", "ExampleText",ExpressionUUID->"114a9f13-d117-4036-8669-63ad162cd04d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"First", "[", 
   RowBox[{"TextVariants", "[", "\"\<  spaced out  \>\"", "]"}], "]"}], " ", "===",
   " ", "\"\<  spaced out  \>\""}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"6d0be9ec-8bdd-44f6-8df0-e5d918580534"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c9fa54d3-a515-466c-b429-a3b6a0df6b01"]
}, 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->
  "0957c160-c95e-404d-a241-0ecf6e7df1c9"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"f95d7a9a-8c29-4d20-9d18-782790517edc"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "d8bfbb23-a911-4435-909b-a299ef89525b"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"a2d87611-6246-476f-8e43-6d5553519035"],

Cell["\<\
Decoding is a single pass, so a doubly-escaped reference decodes only once:\
\>", "ExampleText",ExpressionUUID->"599e6e9e-5c87-4509-b8d1-52eded0ecf94"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TextVariants", "[", 
  RowBox[{"\"\<&amp;lt;\>\"", ",", " ", 
   RowBox[{"{", "\"\<HTMLEntities\>\"", "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"86e17eb3-3a72-40a5-9549-5cb01dac3f0c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"&amp;lt;\"\>", ",", "\<\"&lt;\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"cdf05a8c-cb52-40cd-b297-9f61e36bbaa4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7cfe150d-cb11-482a-8e34-c6530a45fa6b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"77087b5e-8891-4d3e-\
a9f5-d86a264a8a59"],

Cell["A named reference outside the six covered is left alone:", "ExampleText",ExpressionUUID->"3e25dbfd-9f6f-4427-bbc6-0ae6631594ac"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TextVariants", "[", 
  RowBox[{"\"\<caf&eacute;\>\"", ",", " ", 
   RowBox[{"{", "\"\<HTMLEntities\>\"", "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"71d98f7f-26a9-4438-8002-a4cf430d0fbc"],

Cell[BoxData[
 RowBox[{"{", "\<\"caf&eacute;\"\>", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5c1c113d-6d46-4a82-8f26-c7af211f372a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "e367382a-d98b-4c52-9757-c39736cac93e"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"10744463-8b5a-4b9d-\
b316-1c193b8a2acd"],

Cell["\<\
A text spelled like an axis name is still a text, since the query form takes \
no argument:\
\>", "ExampleText",ExpressionUUID->"10c58b81-922d-486c-9916-f6a191cf8cc3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TextVariants", "[", 
  RowBox[{"\"\<Case\>\"", ",", " ", 
   RowBox[{"{", "\"\<Case\>\"", "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d4875436-8804-4ada-8f74-a526a957dfc5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Case\"\>", ",", "\<\"case\"\>", ",", "\<\"CASE\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"780012db-5996-4ab0-b578-81f807d2218d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c468bbff-9873-473e-86da-1e04546e8881"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"94a27cdc-f419-4add-\
b411-1ae83b926caf"],

Cell["\<\
An axis name that is not one of the five matches no definition:\
\>", "ExampleText",ExpressionUUID->"5ffdd57a-fe58-4574-a44b-6d4e5f243bb3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TextVariants", "[", 
  RowBox[{"\"\<some text\>\"", ",", " ", 
   RowBox[{"{", "\"\<Rot13\>\"", "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9c0fd37d-afc3-455f-8b3a-de2a60907570"],

Cell[BoxData[
 RowBox[{"TextVariants", "[", 
  RowBox[{"\<\"some text\"\>", ",", 
   RowBox[{"{", "\<\"Rot13\"\>", "}"}]}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8df34666-3719-4a75-bf11-179053b4bd83"]
}, 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["EditVariants"]], 
           "paclet:WolframInstitute/Puzzles/ref/EditVariants", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "7e953d83-7400-49cc-be09-85b093dba782"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["CandidateEnumeration"]], 
           "paclet:WolframInstitute/Puzzles/ref/CandidateEnumeration", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "309b47f2-7ee6-4260-8e74-6e8e88f376cb"],
        "\[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->
         "d98d0125-0845-4295-8cea-5cfaeb3fe18a"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["CharacterNormalize"]], "paclet:ref/CharacterNormalize"},
          
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "3090ed1b-640b-4b30-9b1c-96ff0b9da349"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["StringTrim"]], "paclet:ref/StringTrim"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "9b2bbc39-d028-4f14-bdcf-61d66d462d65"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Capitalize"]], "paclet:ref/Capitalize"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "268cb62b-4e7a-4b47-82b6-2368b2b45be7"]
       }], "SeeAlso",ExpressionUUID->"9b80f2af-36db-454f-b217-c146bddacf2c"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"47e62035-6ebf-46aa-babd-\
021591302ab8"],

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->
         "2d6441c2-caa8-46b3-a12d-f92dc9f6fcbf"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"f804a91a-cea5-4150-bf86-\
70d8d398fdc3"],

Cell[" ", "FooterCell",ExpressionUUID->"166bc519-1005-44b5-882b-13aa97b3fb62"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"TextVariants",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "", "LinkTrails" -> "", 
  "ExampleCounter" -> 1, 
  "Openers" -> {
   "PrimaryExamplesSection" -> Open, "ExampleSection" -> {"0" -> Open}, 
    "AllOptsTable" -> Closed}, "NewStyles" -> True, 
  "CitationPopupData" -> $Failed, "ShowCitation" -> False, "HasOptions" -> 
  True, "RootCaptions" -> "", "HeaderCoreAreaLink" -> {}, 
  "Metadata" -> {
   "built" -> "{2026, 8, 27, 0, 12, 1.670973}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[TextVariants,paclet : \
WolframInstitute/Puzzles/ref/TextVariants, WolframInstitute/Puzzles Package \
Symbol][text] gives the distinct strings obtained from text by composing one \
transformation from each of the axes HTMLEntities, LineEndings, Whitespace, \
Case and Normalization, with text itself first. \
PackageLink[TextVariants,paclet : WolframInstitute/Puzzles/ref/TextVariants, \
WolframInstitute/Puzzles Package Symbol][text, {axis\:2081, ...}] uses only \
the axes listed. PackageLink[TextVariants,paclet : \
WolframInstitute/Puzzles/ref/TextVariants, WolframInstitute/Puzzles Package \
Symbol][] gives the list of available axis names.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "TextVariants", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "TextVariants", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/TextVariants", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"50d7c01c-6685-4849-904a-75795727af78"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[22286, 594, 164, 2, 70, "ExampleText",ExpressionUUID->"dedc7310-c85a-41aa-b745-1448edaded65",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 50356, 1393}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[580, 21, 6330, 152, 70, "AnchorBarGrid",ExpressionUUID->"711fd360-cd7a-4742-80b3-87e0b6fa1ea6",
 CellID->1],
Cell[6913, 175, 107, 0, 70, "ContextNameCell",ExpressionUUID->"13e37062-671d-415d-9758-fc61d9f007ae"],
Cell[CellGroupData[{
Cell[7045, 179, 555, 14, 70, "ObjectNameGrid",ExpressionUUID->"a446c642-7bb4-45d8-add9-529c5a7fedbf"],
Cell[7603, 195, 3329, 84, 70, "Usage",ExpressionUUID->"63029f53-0b65-4eca-9329-e3553ede447b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10969, 284, 1444, 34, 70, "NotesSection",ExpressionUUID->"b0a51f8c-4b70-47d0-baf4-48c1c8adf4cc",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1550380840],
Cell[12416, 320, 274, 4, 70, "Notes",ExpressionUUID->"8d2b288a-93e5-439b-bfa9-fc56e1a024ed"],
Cell[12693, 326, 364, 8, 70, "Notes",ExpressionUUID->"48f6a5bc-b0da-4363-b288-7f5d450dc323"],
Cell[13060, 336, 864, 22, 70, "Notes",ExpressionUUID->"f5601dcb-757b-4003-9cfb-9ccbd6992922"],
Cell[13927, 360, 393, 8, 70, "Notes",ExpressionUUID->"f449525b-3596-4f7a-874d-ca6cd43baa44"],
Cell[14323, 370, 1180, 37, 70, "Notes",ExpressionUUID->"71d30b58-5947-4015-be72-3abdb5f8c17e"],
Cell[15506, 409, 686, 18, 70, "Notes",ExpressionUUID->"92ee6ee2-0413-41de-b8d9-4be505037ac4"],
Cell[16195, 429, 228, 3, 70, "Notes",ExpressionUUID->"dc0fb07c-5b02-4eea-b400-9a3c4912eea6"],
Cell[16426, 434, 1734, 43, 70, "Notes",ExpressionUUID->"ee43fabc-aa42-4a13-bde9-abc6d4fd3b0f"],
Cell[18163, 479, 690, 17, 70, "Notes",ExpressionUUID->"52bd7869-5b39-48c7-9751-deb95d01fa94"],
Cell[18856, 498, 171, 3, 70, "Notes",ExpressionUUID->"7aaef84b-b127-473c-83be-e373665ed968"],
Cell[19030, 503, 251, 4, 70, "Notes",ExpressionUUID->"6fb250af-42d8-4dfe-8f32-910a30271c99"]
}, Closed]],
Cell[19296, 510, 80, 0, 70, "PageDelimiter",ExpressionUUID->"837dfa56-9218-4db1-a782-8f43b06d7bf2"],
Cell[CellGroupData[{
Cell[19401, 514, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"73b5f7a5-59f5-47e5-bc42-79e3d80a2a77",
 CellID->1831688829],
Cell[20806, 553, 216, 4, 70, "Input",ExpressionUUID->"80a54614-ccf1-40b5-89d2-212ce24af938",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[21047, 561, 1236, 31, 70, "ExampleSection",ExpressionUUID->"59d33045-d0c8-440b-a899-65cd75adaca3",
 CellID->1016069258],
Cell[22286, 594, 164, 2, 70, "ExampleText",ExpressionUUID->"dedc7310-c85a-41aa-b745-1448edaded65",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[22475, 600, 236, 4, 70, "Input",ExpressionUUID->"3b822302-5b08-4e22-ae88-00cabe4ec9b7"],
Cell[22714, 606, 846, 16, 70, "Output",ExpressionUUID->"fdccb18c-99e6-4c66-87ae-c5eadbfc4391"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23597, 627, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2f9492a5-04e7-4809-a5ac-094ac1e66ce3"],
Cell[23824, 634, 103, 0, 70, "ExampleText",ExpressionUUID->"98a68c6d-ffa9-43f7-9f9a-e71dd395e24d"],
Cell[CellGroupData[{
Cell[23952, 638, 187, 3, 70, "Input",ExpressionUUID->"a81ca47f-d623-4944-a3e9-434e65696775"],
Cell[24142, 643, 275, 5, 70, "Output",ExpressionUUID->"1d0b574e-b049-4cb2-b9fc-ee776d772a20"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24466, 654, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f236602d-6ff8-4ee0-8411-a9f28d36f83a"],
Cell[24693, 661, 130, 0, 70, "ExampleText",ExpressionUUID->"8e2cd0f0-54e1-4913-9dc9-4826b64ca18b"],
Cell[CellGroupData[{
Cell[24848, 665, 273, 5, 70, "Input",ExpressionUUID->"f23c12bf-6cff-4387-abaf-c51cc46e9f11"],
Cell[25124, 672, 220, 4, 70, "Output",ExpressionUUID->"c0ba0e25-8f64-4462-943a-6e529191d61a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25405, 683, 1227, 31, 70, "ExampleSection",ExpressionUUID->"19e4f5fc-8146-41c0-bbd0-70cd8994d260",
 CellID->1293636265],
Cell[26635, 716, 153, 2, 70, "ExampleText",ExpressionUUID->"e5e5bf46-8b81-4faf-a49d-7a4ae2206c35"],
Cell[CellGroupData[{
Cell[26813, 722, 287, 5, 70, "Input",ExpressionUUID->"43a8c85a-ebad-4657-bb91-3da81c8e5d74"],
Cell[27103, 729, 266, 5, 70, "Output",ExpressionUUID->"ab3537f8-0f5f-4363-af37-cb9624243529"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27406, 739, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7c841cac-b98d-4e2b-a730-d79cd4a27d6c"],
Cell[27633, 746, 112, 0, 70, "ExampleText",ExpressionUUID->"af1a5054-2689-4002-a3c1-668ed6a01d11"],
Cell[CellGroupData[{
Cell[27770, 750, 291, 5, 70, "Input",ExpressionUUID->"259a32f0-d170-4eed-bde9-d018452f663f"],
Cell[28064, 757, 250, 5, 70, "Output",ExpressionUUID->"956b0d9d-eec1-43a0-a3f9-44b328da2b92"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28363, 768, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"97376679-4f85-4954-b542-984f28263207"],
Cell[28590, 775, 132, 0, 70, "ExampleText",ExpressionUUID->"7286deb4-a5d1-40fe-b367-158fb8534c08"],
Cell[CellGroupData[{
Cell[28747, 779, 299, 5, 70, "Input",ExpressionUUID->"6aa9c4b3-a284-42c0-aba1-72f7c025834d"],
Cell[29049, 786, 203, 4, 70, "Output",ExpressionUUID->"200d8b21-c766-4852-9e5e-ab2682f3a484"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29301, 796, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"14f88aa1-c098-42ed-a606-d066c36fccc0"],
Cell[29528, 803, 115, 0, 70, "ExampleText",ExpressionUUID->"0b0307a9-b0e2-4cde-9f35-1fa50ef1f1d7"],
Cell[CellGroupData[{
Cell[29668, 807, 295, 5, 70, "Input",ExpressionUUID->"2ab9a189-9260-4854-8687-5fb3088a8136"],
Cell[29966, 814, 202, 4, 70, "Output",ExpressionUUID->"61525dcf-b1d8-4835-a71a-a2d31a2190b8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[30217, 824, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e91a8060-f080-4ac5-bdd4-228875a821e8"],
Cell[30444, 831, 178, 3, 70, "ExampleText",ExpressionUUID->"c411d695-fe08-44ec-a189-7b5e65db446e"],
Cell[CellGroupData[{
Cell[30647, 838, 523, 12, 70, "Input",ExpressionUUID->"6aef1737-2d9f-4bfa-a24a-584b76bd6b94"],
Cell[31173, 852, 317, 8, 70, "Output",ExpressionUUID->"0b58e5c3-5168-41b6-9000-07da168786b8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31539, 866, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d7211f43-c9e0-4cfd-98a2-145e98eda088"],
Cell[31766, 873, 133, 0, 70, "ExampleText",ExpressionUUID->"118d4f0a-5a1c-44b4-b870-536aafb7d294"],
Cell[CellGroupData[{
Cell[31924, 877, 341, 7, 70, "Input",ExpressionUUID->"4229355c-d473-42a6-9608-e45494a80363"],
Cell[32268, 886, 181, 3, 70, "Output",ExpressionUUID->"07779b32-bff1-467f-aa1b-7e63c543b03c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32498, 895, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e0a5e79d-c3c3-4258-bd06-958f0e58f080"],
Cell[32725, 902, 127, 0, 70, "ExampleText",ExpressionUUID->"fa5e88a8-709d-4341-b9f9-cef35a597d34"],
Cell[CellGroupData[{
Cell[32877, 906, 321, 7, 70, "Input",ExpressionUUID->"1480f6eb-9490-4b9f-b8c9-98805ac722c0"],
Cell[33201, 915, 284, 5, 70, "Output",ExpressionUUID->"ce8ef135-93e8-4a5e-a5bf-422116145538"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[33546, 927, 1233, 31, 70, "ExampleSection",ExpressionUUID->"fc0a63bf-0e5a-472c-beea-c0dafa8b1f90",
 CellID->258228157],
Cell[34782, 960, 162, 2, 70, "ExampleText",ExpressionUUID->"631c6acb-470e-4644-b887-980822d7218d"],
Cell[CellGroupData[{
Cell[34969, 966, 281, 6, 70, "Input",ExpressionUUID->"cdfed9a5-8bba-4380-a2c7-2c5ec317c6e5"],
Cell[35253, 974, 108, 1, 70, "Output",ExpressionUUID->"c7266662-0bb9-4ccf-97a4-aa6f50b5a4e9"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[35410, 981, 1244, 31, 70, "ExampleSection",ExpressionUUID->"b4dea807-8e2e-4e1d-8f4e-fb44b16a26c9",
 CellID->2123667759],
Cell[36657, 1014, 439, 12, 70, "ExampleText",ExpressionUUID->"a39a0561-df47-4c9b-893c-6a05ed74ddca"],
Cell[CellGroupData[{
Cell[37121, 1030, 998, 25, 70, "Input",ExpressionUUID->"a0290174-fea5-4ec0-88d5-aef4eb3dbf22"],
Cell[38122, 1057, 110, 1, 70, "Output",ExpressionUUID->"05f57d23-e129-441d-b9ef-25decabaef20"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38269, 1063, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"77b68398-0043-4d43-8de5-3fe78d6305ba"],
Cell[38496, 1070, 124, 0, 70, "ExampleText",ExpressionUUID->"114a9f13-d117-4036-8669-63ad162cd04d"],
Cell[CellGroupData[{
Cell[38645, 1074, 305, 6, 70, "Input",ExpressionUUID->"6d0be9ec-8bdd-44f6-8df0-e5d918580534"],
Cell[38953, 1082, 110, 1, 70, "Output",ExpressionUUID->"c9fa54d3-a515-466c-b429-a3b6a0df6b01"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[39124, 1090, 1237, 31, 70, "ExampleSection",ExpressionUUID->"a2d87611-6246-476f-8e43-6d5553519035",
 CellID->1305812373],
Cell[40364, 1123, 161, 2, 70, "ExampleText",ExpressionUUID->"599e6e9e-5c87-4509-b8d1-52eded0ecf94"],
Cell[CellGroupData[{
Cell[40550, 1129, 278, 5, 70, "Input",ExpressionUUID->"86e17eb3-3a72-40a5-9549-5cb01dac3f0c"],
Cell[40831, 1136, 178, 3, 70, "Output",ExpressionUUID->"cdf05a8c-cb52-40cd-b297-9f61e36bbaa4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41046, 1144, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"77087b5e-8891-4d3e-a9f5-d86a264a8a59"],
Cell[41273, 1151, 134, 0, 70, "ExampleText",ExpressionUUID->"3e25dbfd-9f6f-4427-bbc6-0ae6631594ac"],
Cell[CellGroupData[{
Cell[41432, 1155, 281, 5, 70, "Input",ExpressionUUID->"71d98f7f-26a9-4438-8002-a4cf430d0fbc"],
Cell[41716, 1162, 147, 2, 70, "Output",ExpressionUUID->"5c1c113d-6d46-4a82-8f26-c7af211f372a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[41912, 1170, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"10744463-8b5a-4b9d-b316-1c193b8a2acd"],
Cell[42139, 1177, 177, 3, 70, "ExampleText",ExpressionUUID->"10c58b81-922d-486c-9916-f6a191cf8cc3"],
Cell[CellGroupData[{
Cell[42341, 1184, 266, 5, 70, "Input",ExpressionUUID->"d4875436-8804-4ada-8f74-a526a957dfc5"],
Cell[42610, 1191, 198, 4, 70, "Output",ExpressionUUID->"780012db-5996-4ab0-b578-81f807d2218d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42857, 1201, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"94a27cdc-f419-4add-b411-1ae83b926caf"],
Cell[43084, 1208, 149, 2, 70, "ExampleText",ExpressionUUID->"5ffdd57a-fe58-4574-a44b-6d4e5f243bb3"],
Cell[CellGroupData[{
Cell[43258, 1214, 272, 5, 70, "Input",ExpressionUUID->"9c0fd37d-afc3-455f-8b3a-de2a60907570"],
Cell[43533, 1221, 220, 4, 70, "Output",ExpressionUUID->"8df34666-3719-4a75-bf11-179053b4bd83"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[43804, 1231, 3478, 93, 70, "SeeAlsoSection",ExpressionUUID->"47e62035-6ebf-46aa-babd-021591302ab8"],
Cell[47285, 1326, 740, 19, 70, "MoreAboutSection",ExpressionUUID->"f804a91a-cea5-4150-bf86-70d8d398fdc3"],
Cell[48028, 1347, 78, 0, 70, "FooterCell",ExpressionUUID->"166bc519-1005-44b5-882b-13aa97b3fb62"]
}
]
*)

(* End of internal cache information *)

