(* 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[     19044,        486]
NotebookOptionsPosition[     15049,        409]
NotebookOutlinePosition[     17176,        456]
CellTagsIndexPosition[     17133,        453]
WindowTitle->RailFenceCipher
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->
           "99316f1f-c06b-44bd-9259-56b907914d9b"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "bc327b9b-a707-44e5-8e2d-f6989d0b2b24"],
        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->
           "f28d21aa-58c5-41b4-aa56-effe488b09de"]
         }],ExpressionUUID->"2932267d-594e-4c27-b784-197e6597d189"],
         StripOnInput->False],{
        StyleBox[
          "\"ColumnarTransposition\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ColumnarTransposition"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "1f81da3f-09cc-444f-a9cb-be214b0a1999"],
     "\[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->
           "654145d6-c5bd-4552-a893-92c8a1d6b4be"]
         }],ExpressionUUID->"1043ec09-2ede-49e7-89f6-113600982f4e"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "ff5a4f13-029e-4db7-ad2f-7889c95fe571"],
     "\[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->
           "fdee8b47-45b7-475e-8e57-4bae77c0c2af"]
         }],ExpressionUUID->"7fb9fd56-1282-4b2e-8e0d-41750e826f59"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/RailFenceCipher\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/RailFenceCipher"], 
         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/RailFenceCipher.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/RailFenceCipher" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "57395f9f-83da-4000-8f1d-bbdfbf530e7b"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "3476bde4-54d9-4cd8-9081-e7b8d0fccb79"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"967637e8-23c0-4f03-97d9-0cc60dbc9d1e"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"78be503f-898a-47bf-a9f1-2917ee6168be"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "RailFenceCipher", "ObjectName",ExpressionUUID->
      "314fc51d-5b98-4310-b341-ce6876e425af"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"5eef44e3-f0f7-44a6-834d-84945df60cc2"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "d6962920-21b4-4664-a437-e395aa3364d5"]
    }],ExpressionUUID->"0491c66f-3a19-4a65-8a7e-d69c15aa9fd3"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"e9159535-b1cc-4683-b127-\
b414aa09a5d9"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["RailFenceCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/RailFenceCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["rails", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "3688ffb1-a2e2-4346-be68-92b07cd75837"],
     "\[LineSeparator]",
     "enciphers text with the rail-fence (zigzag) transposition: the letters \
are written diagonally down and up across ",
     StyleBox["rails", "TI"],
     " rows and then read off row by row."
    }],ExpressionUUID->"1b601359-e5f3-4e49-8422-6ced418443ea"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["RailFenceCipher"]], 
         "paclet:WolframInstitute/Puzzles/ref/RailFenceCipher", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["text", "TI"], ",", " ", 
        StyleBox["rails", "TI"], ",", " ", "\"\<Decrypt\>\""}], "]"}]], 
      "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "cf44e901-e3ea-43a5-af75-a99180ecc7e1"],
     "\[LineSeparator]",
     "inverts the transposition."
    }],ExpressionUUID->"b905ebb3-7fb9-4e54-b3b2-bbe9b122255e"]}
  }]], "Usage",ExpressionUUID->"a7479c69-f09e-479b-ba29-6cfd213de6ff"]
}, 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->"1084ca9c-8741-42b3-a0fe-5596842b129f"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"ca0e0737-5e17-4825-8404-08988b92d3bd"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "d50998ff-d793-4f1a-b2ed-5a454070cb39"]],ExpressionUUID->"e11a6bf6-2176-\
4b84-b2a1-521dc5de3130"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1038096533,ExpressionUUID->"bcc4f147-2ed9-40c8-bb62-46a714302bc7"],

Cell["\<\
A pure transposition: the ciphertext is a rearrangement of the plaintext \
letters, so it shares the plaintext's letter frequencies.\
\>", "Notes",ExpressionUUID->"fab0cd3a-3cf8-492b-bacf-3d36bb8c713b"],

Cell["Only letters are transposed; other characters are dropped.", "Notes",ExpressionUUID->"f39111ea-fd18-4082-927f-8172052c83b7"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"511284d6-1581-4f33-a9ec-61a9e747be88"],

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->"400f6556-3521-479c-b27b-51ecc1d7d59f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c35b6707-fcf3-4237-a5f2-837663cf11cb"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "0180496e-4aa6-49b3-a798-e3d638f0b611"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1131281903,ExpressionUUID->"48beae58-64c0-43e0-a735-192ea02e15f5"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"936a4f71-f074-4784-8ee9-80ccd6b3097e"],

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->
  "eb4f7754-a1df-4806-8fe1-34ea6fbb0a42"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c8604beb-416a-445c-9d51-b808902caa14"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "0f28bab4-5810-4de6-b3f9-d0c32385c82f"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1782216830,ExpressionUUID->"7b6267a9-7d31-49ea-8889-41c33ab96e03"],

Cell["The canonical three-rail example:", "ExampleText",ExpressionUUID->"15990394-d2dd-4d42-9f35-599f5ac1cf12"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RailFenceCipher", "[", 
  RowBox[{"\"\<WEAREDISCOVEREDFLEEATONCE\>\"", ",", " ", "3"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"28f14722-6d6b-4e2e-8936-d808ed5b8ce9"],

Cell[BoxData["\<\"WECRLTEERDSOEEFEAOCAIVDEN\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b6fc5bc1-e126-4c32-8da8-ca58d140e753"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[Cell[BoxData[
        TemplateBox[{
          Cell[
           TextData["ColumnarTransposition"]], 
          "paclet:WolframInstitute/Puzzles/ref/ColumnarTransposition", 
          "WolframInstitute/Puzzles Package Symbol"},
         "PackageLink",
         BaseStyle->"InlineFormula"]], "InlineFormula",
        FontFamily->"Source Sans Pro",ExpressionUUID->
        "2df334d4-48cf-4eea-919a-ade61a6c8a8f"]], "SeeAlso",ExpressionUUID->
        "006c5057-40da-4e92-a395-682d569acb43"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"afbda2a9-e7e9-498e-afaf-\
d41f8a296815"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedGuide.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "f7a2178a-9557-466e-83d7-789201413bf5"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"7b95ab80-fc0b-4802-8e3c-\
4af4c89de40b"],

Cell[" ", "FooterCell",ExpressionUUID->"a1157251-3320-43cb-9150-f8226114dab8"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"RailFenceCipher",
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, 48.757374}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[RailFenceCipher, paclet : \
WolframInstitute/Puzzles/ref/RailFenceCipher, WolframInstitute/Puzzles \
Package Symbol][text, rails] enciphers text with the rail-fence (zigzag) \
transposition: the letters are written diagonally down and up across rails \
rows and then read off row by row. PackageLink[RailFenceCipher, paclet : \
WolframInstitute/Puzzles/ref/RailFenceCipher, WolframInstitute/Puzzles \
Package Symbol][text, rails, Decrypt] inverts the transposition.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "RailFenceCipher", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "RailFenceCipher", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/RailFenceCipher", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"294ea906-f1b6-4eb4-a5d5-58d3dc9620c5"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[583, 21, 5050, 127, 70, "AnchorBarGrid",ExpressionUUID->"967637e8-23c0-4f03-97d9-0cc60dbc9d1e",
 CellID->1],
Cell[5636, 150, 107, 0, 70, "ContextNameCell",ExpressionUUID->"78be503f-898a-47bf-a9f1-2917ee6168be"],
Cell[CellGroupData[{
Cell[5768, 154, 558, 14, 70, "ObjectNameGrid",ExpressionUUID->"e9159535-b1cc-4683-b127-b414aa09a5d9"],
Cell[6329, 170, 1677, 43, 70, "Usage",ExpressionUUID->"a7479c69-f09e-479b-ba29-6cfd213de6ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8043, 218, 1444, 34, 70, "NotesSection",ExpressionUUID->"bcc4f147-2ed9-40c8-bb62-46a714302bc7",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1038096533],
Cell[9490, 254, 212, 3, 70, "Notes",ExpressionUUID->"fab0cd3a-3cf8-492b-bacf-3d36bb8c713b"],
Cell[9705, 259, 130, 0, 70, "Notes",ExpressionUUID->"f39111ea-fd18-4082-927f-8172052c83b7"]
}, Closed]],
Cell[9850, 262, 80, 0, 70, "PageDelimiter",ExpressionUUID->"511284d6-1581-4f33-a9ec-61a9e747be88"],
Cell[CellGroupData[{
Cell[9955, 266, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"48beae58-64c0-43e0-a735-192ea02e15f5",
 CellID->1131281903],
Cell[11359, 305, 216, 4, 70, "Input",ExpressionUUID->"936a4f71-f074-4784-8ee9-80ccd6b3097e",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[11600, 313, 1236, 31, 70, "ExampleSection",ExpressionUUID->"7b6267a9-7d31-49ea-8889-41c33ab96e03",
 CellID->1782216830],
Cell[12839, 346, 111, 0, 70, "ExampleText",ExpressionUUID->"15990394-d2dd-4d42-9f35-599f5ac1cf12"],
Cell[CellGroupData[{
Cell[12975, 350, 258, 5, 70, "Input",ExpressionUUID->"28f14722-6d6b-4e2e-8936-d808ed5b8ce9"],
Cell[13236, 357, 139, 1, 70, "Output",ExpressionUUID->"b6fc5bc1-e126-4c32-8da8-ca58d140e753"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[13414, 363, 849, 21, 70, "SeeAlsoSection",ExpressionUUID->"afbda2a9-e7e9-498e-afaf-d41f8a296815"],
Cell[14266, 386, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"7b95ab80-fc0b-4802-8e3c-4af4c89de40b"],
Cell[14967, 407, 78, 0, 70, "FooterCell",ExpressionUUID->"a1157251-3320-43cb-9150-f8226114dab8"]
}
]
*)

(* End of internal cache information *)

