(* 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[     54898,       1416]
NotebookOptionsPosition[     44626,       1228]
NotebookOutlinePosition[     46884,       1280]
CellTagsIndexPosition[     46806,       1275]
WindowTitle->ByteArrayStrings
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->
           "0187d26e-4950-447a-8d80-21d34386c7af"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "0236d695-c06f-4a02-9170-c3523e324abe"],
        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->
           "575a9e7e-8a33-4c50-8a87-8f7324386475"]
         }],ExpressionUUID->"e9fe2a99-0379-41d8-96f8-fed4620dd643"],
         StripOnInput->False],{
        StyleBox[
          "\"ByteArrayToString\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/ByteArrayToString"], 
         StyleBox["\"StringCases\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/StringCases"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"ImageBitStreamBytes\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ImageBitStreamBytes"], 
         StyleBox[
          StyleBox[
           "\"ImageAppendedData\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ImageAppendedData"], 
         StyleBox[
          StyleBox[
           "\"ImageBitPlaneScan\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ImageBitPlaneScan"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "f0bbe192-d5cf-4701-89b7-35cf44e2f665"],
     "\[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->
           "75d17c46-418c-477a-b725-503eb3a315eb"]
         }],ExpressionUUID->"86249612-f141-4735-87d7-38780e01c03d"],
         StripOnInput->False],{
        "\"Steganography\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Steganography"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "6090b579-1922-4fd0-bbbe-6b4c4b6e1ab7"],
     "\[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->
           "101487ed-0e54-4aab-8989-0175c9912263"]
         }],ExpressionUUID->"c0abba3c-c372-4581-bf05-f2d5eb54ed79"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ByteArrayStrings\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/ByteArrayStrings"], 
         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/ByteArrayStrings.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/ByteArrayStrings" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "0cbca3de-ee48-4aaa-9a3a-18a4204dcfbf"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "08a866e3-21ae-46a6-ad45-d72277494490"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"22d2e980-2304-45fa-a9fe-adbde420678c"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"6aa9dafe-5b96-4ef3-a2aa-3bd196cff12a"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ByteArrayStrings", "ObjectName",ExpressionUUID->
      "d6b9c96d-daaf-4d15-bac6-ddad038cc2ea"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"25cf6003-fd01-4e84-a0a2-22d00990b4ff"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "72ece3de-99e3-484e-8c86-1a8a9558d5f4"]
    }],ExpressionUUID->"3105225e-63e8-47cf-885f-0297886ddb0e"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"8396be76-a10c-4699-98cd-\
902f68e56663"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ByteArrayStrings"]], 
         "paclet:WolframInstitute/Puzzles/ref/ByteArrayStrings", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["source", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "a3918e9a-b3d1-45c2-8f0c-9495709ebd07"],
     "\[LineSeparator]",
     "gives the runs of printable US-ASCII text in ",
     StyleBox["source", "TI"],
     ", four characters or longer, as a list of strings."
    }],ExpressionUUID->"2568525e-bdd3-4abd-8d94-7d1873e2d9c6"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ByteArrayStrings"]], 
         "paclet:WolframInstitute/Puzzles/ref/ByteArrayStrings", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["source", "TI"], ",", " ", 
        StyleBox["opts", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "3d1a8712-d487-4160-a080-8f1dbc314039"],
     "\[LineSeparator]",
     "sets how short a run may be."
    }],ExpressionUUID->"db998725-8582-4ab3-9686-f79133269f57"]}
  }]], "Usage",ExpressionUUID->"b64b07b3-4973-4592-819c-23d0a1cd2c96"]
}, 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->"4c3ccc69-9f84-4394-9419-2c457fc11a84"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"567180f3-e7c9-4da8-bb11-d6a8ace0d399"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "52e503ae-ef50-4f5d-9c68-5ce32b2c9a56"]],ExpressionUUID->"fd2eda51-9c42-\
4c5c-bd52-e431ec263f2d"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->901804944,ExpressionUUID->"e148fbfd-11d2-4ca2-9bf1-976bd1902fe8"],

Cell[TextData[{
 StyleBox["source", "TI"],
 " is a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["File"]], "paclet:ref/File"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "12d00b37-0d72-4c8a-b352-50f85b795df9"],
 ", a file path, or a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "6e87406b-0652-4aa0-82e0-0389137cbf16"],
 "."
}], "Notes",ExpressionUUID->"3b95031f-7f42-402f-a276-964240749abe"],

Cell["\<\
Printable means byte 9, the tab, or bytes 32 through 126. Every other byte, \
the newline included, ends a run.\
\>", "Notes",ExpressionUUID->"402828f3-f8df-4ce4-8eee-c0f964de5ca6"],

Cell["Runs are maximal and reported in the order they occur.", "Notes",ExpressionUUID->"28d4a724-d329-4ed7-ae0c-766db6f24661"],

Cell["\<\
This is the behaviour of the strings utility, whose default minimum length of \
four is also the default here.\
\>", "Notes",ExpressionUUID->"7457d2fb-6a55-4457-b271-9a2d57831d86"],

Cell[BoxData[GridBox[{
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "da1dc28d-efad-4d6a-99a9-f31642d91cf7"], Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"186070a3-9e24-45cd-afd2-9aa800841141"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"71c4ae0e-1608-456b-8992-709b22c6acac"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"4bfc8f27-0ae8-4995-a38c-b8b65b1a7e3c"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "6a9f6bd3-d01c-48f5-bd3b-dc6b0e059839"], Cell[TextData[Cell[
    BoxData["\"\<MinimumLength\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "342d4274-5f60-4df4-9970-a5802cd560b5"]], "TableText",ExpressionUUID->
     "46e6c6ff-5f90-472b-a7fe-f3a65dbe5ca0"], Cell[TextData[Cell[BoxData[
    "4"], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "f557e327-fce7-45a3-98dc-1c54b7612fc6"]], "TableText",ExpressionUUID->
     "3c3d15a7-a08b-40da-8ff8-2e1c19219a1d"], Cell[
    "shortest run reported, a positive integer", "TableText",ExpressionUUID->
     "dd4176bb-1282-45db-93a0-85dbaf67f699"]}
  }]], "3ColumnTableMod",
 GridBoxOptions->{
 GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {None, {None}}},
 GridBoxDividers->{
  "Rows" -> {{
     True, True, 
      True}}}},ExpressionUUID->"6b0c8078-13d5-46d2-a816-2aa0298df85f"],

Cell["\<\
Wide-character text is not recognised: a UTF-16 payload reads as single \
letters separated by null bytes and no run survives the minimum length.\
\>", "Notes",ExpressionUUID->"67e310e8-c7c6-4aa0-a170-b59ab4998b07"],

Cell["\<\
A minimum length that is not a positive integer, or a first argument that is \
not a source, matches no definition and the call is returned unevaluated.\
\>", "Notes",ExpressionUUID->"f4ec5393-1ae4-49a6-9323-0ef97f7bedae"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"40c1bc95-d80b-4d16-8077-9eea6c3beb18"],

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->"c21da765-7349-4d9b-8d88-644a0c6d1ecb"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"007ab579-b0a4-40ee-bb27-11a7897d905b"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(13)", "ExampleCount",ExpressionUUID->
  "3cd32103-deb6-493c-9d70-82f98fbd932d"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1843596929,ExpressionUUID->"6581144d-34fd-4411-8742-bf5128593856"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"de2f6674-f22b-4ba7-a9c7-60d92dc6b316"],

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->
  "3f84473b-5d85-4b53-8fe0-29751aae1676"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"24869368-9225-465f-a2f2-c666f47f2cd7"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "33a4811a-e798-4c10-9346-5eca2d0bc677"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1439526787,ExpressionUUID->"76244d47-29d5-4b16-81cb-7d966a766217"],

Cell["\<\
The printable runs in a byte array, with the two-character run dropped:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"bee59fde-34bb-4896-b204-94e31d9b654f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteArrayStrings", "[", 
  RowBox[{"ByteArray", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"ToCharacterCode", "[", "\"\<ok\>\"", "]"}], ",", " ", 
     RowBox[{"{", "0", "}"}], ",", " ", 
     RowBox[{"ToCharacterCode", "[", "\"\<hidden\>\"", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "255"}], "}"}]}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"bdf62e66-f636-4c0c-abcb-195e0d3b2a33"],

Cell[BoxData[
 RowBox[{"{", "\<\"hidden\"\>", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"af269784-94e1-4136-b570-36844d1e1fdb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "08634333-695b-4a28-9400-6e32aa94b8bc"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"4d147839-3158-4748-\
9c5f-c4f2aee7361c"],

Cell["Lowering the minimum keeps the short one too:", "ExampleText",ExpressionUUID->"e27dbbe1-6039-4611-b64c-05bbe30fbc11"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteArrayStrings", "[", 
  RowBox[{
   RowBox[{"ByteArray", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "1"}], "}"}], ",", " ", 
      RowBox[{"ToCharacterCode", "[", "\"\<ok\>\"", "]"}], ",", " ", 
      RowBox[{"{", "0", "}"}], ",", " ", 
      RowBox[{"ToCharacterCode", "[", "\"\<hidden\>\"", "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "255"}], "}"}]}], "]"}], "]"}], ",", " ", 
   RowBox[{"\"\<MinimumLength\>\"", " ", "->", " ", "2"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2a2f5868-2846-43c8-8d53-fc596feb41b5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"ok\"\>", ",", "\<\"hidden\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"630deb08-b099-4e00-a68d-615a4e18065b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "704270b3-c3a2-466d-9167-2423f05f6b36"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f368ac26-7e7b-45c1-\
b56c-27e260718704"],

Cell["\<\
The longest strings inside a PNG the kernel wrote are the metadata it stamped \
in:\
\>", "ExampleText",ExpressionUUID->"ab4f520c-bda3-4a54-aee7-081e348d3b4b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "[", 
  RowBox[{"ByteArrayStrings", "[", 
   RowBox[{
    RowBox[{"ExportByteArray", "[", 
     RowBox[{
      RowBox[{"Image", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", " ", "j", ",", " ", "128"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"i", ",", " ", "16"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"j", ",", " ", "16"}], "}"}]}], "]"}], ",", 
        " ", "\"\<Byte\>\""}], "]"}], ",", " ", "\"\<PNG\>\""}], "]"}], ",", 
    " ", 
    RowBox[{"\"\<MinimumLength\>\"", " ", "->", " ", "20"}]}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"16e06eec-d04d-4d6e-9fcf-c51ae4eee68f"],

Cell[BoxData["\<\"Created with the Wolfram Language : www.wolfram.com\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ee80079c-2378-43b5-a1b3-53ce114efc8c"]
}, 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->
  "35bf4ccf-a6a5-478e-8398-f7549e76361e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"7af8f207-1658-4dc3-ac9b-5911a02d1032"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "3f5c9b94-5982-461d-8e75-fbe724b4f92d"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"b949496a-d943-47b1-8f40-20f0afd504ef"],

Cell["\<\
A tab is printable and does not break a run; a newline is not and does:\
\>", "ExampleText",ExpressionUUID->"c0317002-9261-4a91-84f2-070aa677e327"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteArrayStrings", "[", 
  RowBox[{"ByteArray", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"ToCharacterCode", "[", "\"\<left\>\"", "]"}], ",", " ", 
     RowBox[{"{", "9", "}"}], ",", " ", 
     RowBox[{"ToCharacterCode", "[", "\"\<right\>\"", "]"}], ",", " ", 
     RowBox[{"{", "10", "}"}], ",", " ", 
     RowBox[{"ToCharacterCode", "[", "\"\<below\>\"", "]"}]}], "]"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"313cd9f0-5ea7-40bb-bd96-0fd155295336"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"left\\tright\"\>", ",", "\<\"below\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fa297a9d-7144-4ec8-817a-cb7f5450462a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "dda11771-e24c-49ae-8a10-c9a6019a9827"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d071a523-1714-4a86-\
b044-169311db6522"],

Cell["A file path is read straight from disk:", "ExampleText",ExpressionUUID->"61156c30-6207-43e9-a029-e71a8be654d9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteArrayStrings", "[", 
  RowBox[{
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
       "$TemporaryDirectory", ",", 
        " ", "\"\<puzzles-strings-example.bin\>\""}], "}"}], "]"}], ",", " ", 
     
     RowBox[{"ByteArray", "[", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", 
        RowBox[{"ToCharacterCode", "[", "\"\<from a file on disk\>\"", "]"}], 
        ",", " ", 
        RowBox[{"{", "0", "}"}]}], "]"}], "]"}], ",", " ", "\"\<Binary\>\""}],
     "]"}], ",", " ", 
   RowBox[{"\"\<MinimumLength\>\"", " ", "->", " ", "8"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"81448192-8ec8-4cb6-a42f-1f27304f7cdd"],

Cell[BoxData[
 RowBox[{"{", "\<\"from a file on disk\"\>", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9b9c0b75-c1d2-48fc-b659-e4c3ad62d3e8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "34567539-8d39-4883-86ff-008900b878e2"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"bc132b96-cb52-4a7b-\
9fb6-8358d46a5587"],

Cell["Bytes with nothing printable in them give an empty list:", "ExampleText",ExpressionUUID->"a7ded551-3fee-404a-99a9-e10bb2e8207c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteArrayStrings", "[", 
  RowBox[{"ByteArray", "[", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", " ", "64"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9bd8a832-83f4-4058-b0a8-ff5451818506"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"73102d45-9507-4e2a-bb5f-17ebccc2bb2b"]
}, 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->
  "52859e1c-2a07-4d30-8661-3bd40674100f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"4038ab7a-ff65-4107-8d46-f7366bef70e1"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "1bb23c78-cdca-4548-a3bd-60eebad372f0"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"18222ad3-fa19-4d7b-9810-44432d8d9aac"],

Cell["\<\
The runs recovered from the low bit plane of a carrier, which is what makes a \
payload visible:\
\>", "ExampleText",ExpressionUUID->"d9b05e35-bc0e-43b1-8c97-90eeff4eceeb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteArrayStrings", "[", 
  RowBox[{
   RowBox[{"ImageBitStreamBytes", "[", 
    RowBox[{"Image", "[", 
     RowBox[{
      RowBox[{"Partition", "[", 
       RowBox[{
        RowBox[{"MapIndexed", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"BitOr", "[", 
            RowBox[{
             RowBox[{"BitAnd", "[", 
              RowBox[{"200", ",", " ", "254"}], "]"}], ",", " ", "#1"}], 
            "]"}], " ", "&"}], ",", " ", 
          RowBox[{"Flatten", "[", 
           RowBox[{"IntegerDigits", "[", 
            RowBox[{
             RowBox[{
             "ToCharacterCode", "[", "\"\<ten four good buddy\>\"", "]"}], ",",
              " ", "2", ",", " ", "8"}], "]"}], "]"}]}], "]"}], ",", " ", 
        "8"}], "]"}], ",", " ", "\"\<Byte\>\""}], "]"}], "]"}], ",", " ", 
   RowBox[{"\"\<MinimumLength\>\"", " ", "->", " ", "8"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5e9c9743-90f9-49b6-a7bc-746b9d1bf4b5"],

Cell[BoxData[
 RowBox[{"{", "\<\"ten four good buddy\"\>", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"40c3c375-ebe9-4f8d-9987-c46d40133014"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2f818932-fd97-48da-9953-3f4cc75a7f54"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b5b274eb-c6c9-44d6-\
bf49-22df85a11827"],

Cell["The runs in whatever was appended past a container's end:", \
"ExampleText",ExpressionUUID->"7e8b541f-3650-4f04-9c3c-2ef050825a50"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteArrayStrings", "[", 
  RowBox[{
   RowBox[{"ImageAppendedData", "[", 
    RowBox[{"ByteArray", "[", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Normal", "[", 
        RowBox[{"ExportByteArray", "[", 
         RowBox[{
          RowBox[{"Image", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"i", ",", " ", "j", ",", " ", "128"}], "}"}], ",", " ", 
              RowBox[{"{", 
               RowBox[{"i", ",", " ", "16"}], "}"}], ",", " ", 
              RowBox[{"{", 
               RowBox[{"j", ",", " ", "16"}], "}"}]}], "]"}], ",", 
            " ", "\"\<Byte\>\""}], "]"}], ",", " ", "\"\<PNG\>\""}], "]"}], 
        "]"}], ",", " ", 
       RowBox[{
       "ToCharacterCode", "[", "\"\<PK\.03\.04 the archive name\>\"", "]"}]}],
       "]"}], "]"}], "]"}], ",", " ", 
   RowBox[{"\"\<MinimumLength\>\"", " ", "->", " ", "8"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7f965138-b810-473a-8b00-6f69f8b8cd3c"],

Cell[BoxData[
 RowBox[{"{", "\<\" the archive name\"\>", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6dbada40-18f5-497e-a205-4c59b7e30546"]
}, 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->
  "3f26be4e-9caf-4801-bee1-0aab9ba3b4b2"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e778398e-afa3-46e8-903e-13e5c4529922"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "5d2aa513-0d4c-4b2c-9f04-abb351c52dae"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"46ff0bbe-d460-4654-bb11-db7839c2c6c1"],

Cell[TextData[{
 "The result is what ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["StringCases"]], "paclet:ref/StringCases"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "41c4c7f9-b2fa-483a-91c5-ec0fbbe12a94"],
 " finds with the same character class over a Latin-1 reading of the bytes:"
}], "ExampleText",ExpressionUUID->"3943b7ad-06be-4b05-a8f6-f182bc9d8b57"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ByteArrayStrings", "[", 
   RowBox[{"ByteArray", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", "0", "}"}], ",", " ", 
      RowBox[{"ToCharacterCode", "[", "\"\<visible\>\"", "]"}], ",", " ", 
      RowBox[{"{", "0", "}"}]}], "]"}], "]"}], "]"}], " ", "===", " ", 
  RowBox[{"StringCases", "[", 
   RowBox[{
    RowBox[{"ByteArrayToString", "[", 
     RowBox[{
      RowBox[{"ByteArray", "[", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"{", "0", "}"}], ",", " ", 
         RowBox[{"ToCharacterCode", "[", "\"\<visible\>\"", "]"}], ",", " ", 
         RowBox[{"{", "0", "}"}]}], "]"}], "]"}], ",", 
      " ", "\"\<ISOLatin1\>\""}], "]"}], ",", " ", 
    RowBox[{
    "RegularExpression", "[", "\"\<[\\\\x09\\\\x20-\\\\x7e]{4,}\>\"", "]"}]}],
    "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1ab12594-6a9c-4731-adbc-51eb47b87439"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ae6b4b66-96eb-4bee-8261-fd93f1515438"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "4fa03d98-8f88-4f1e-8824-191b08760710"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"4a2cb093-2845-4865-\
b6b9-d9c853c8ab07"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ImageBitPlaneScan"]], 
    "paclet:WolframInstitute/Puzzles/ref/ImageBitPlaneScan", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "19ee1841-aaa9-485c-9078-5fc794e7b9fe"],
 " is this function run over every traversal of a carrier, with a cutoff \
chosen from the carrier's size:"
}], "ExampleText",ExpressionUUID->"18528ae8-ed5c-4bf6-b149-b34141b4471a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"First", "[", 
   RowBox[{"ImageBitPlaneScan", "[", 
    RowBox[{"Image", "[", 
     RowBox[{
      RowBox[{"Partition", "[", 
       RowBox[{
        RowBox[{"MapIndexed", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"BitOr", "[", 
            RowBox[{
             RowBox[{"BitAnd", "[", 
              RowBox[{"200", ",", " ", "254"}], "]"}], ",", " ", "#1"}], 
            "]"}], " ", "&"}], ",", " ", 
          RowBox[{"Flatten", "[", 
           RowBox[{"IntegerDigits", "[", 
            RowBox[{
             RowBox[{
             "ToCharacterCode", "[", "\"\<ten four good buddy\>\"", "]"}], ",",
              " ", "2", ",", " ", "8"}], "]"}], "]"}]}], "]"}], ",", " ", 
        "8"}], "]"}], ",", " ", "\"\<Byte\>\""}], "]"}], "]"}], "]"}], 
  "[", "\"\<Strings\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"641e0018-364a-454f-8f1c-00077fc3b932"],

Cell[BoxData[
 RowBox[{"{", "\<\"ten four good buddy\"\>", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e07b287f-2859-43d6-b964-88bd844bf59d"]
}, 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->
  "2244f784-8e80-4cc5-97b2-58a1bac7078f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ef6f8596-65db-4a9d-b597-bfd4ed9715ce"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "132df8d2-b759-4c07-a1c7-5019e17ed813"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"f80ed566-9c5e-4fca-9049-78a4f149891e"],

Cell["\<\
A wide-character payload leaves no run long enough to report, because every \
other byte is a null:\
\>", "ExampleText",ExpressionUUID->"6b7aed6b-1867-4c81-bdaf-ba637673de68"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteArrayStrings", "[", 
  RowBox[{"ByteArray", "[", 
   RowBox[{"Riffle", "[", 
    RowBox[{
     RowBox[{"ToCharacterCode", "[", "\"\<wide characters here\>\"", "]"}], ",",
      " ", "0"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fbebfc83-891d-407d-b090-54a6a3948512"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e32db8cb-1dea-425f-9ee0-9da247132fda"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "cf3e4e50-a8bb-4c67-ac8b-5bc462ce002b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"45572b36-2540-42d9-\
8f86-98c6735f1ead"],

Cell["\<\
A short minimum length turns any large file into noise. Four printable bytes \
in a row start at about one position in fifty of uniformly random data, so \
ten kilobytes of it carry over a hundred runs:\
\>", "ExampleText",ExpressionUUID->"2426d0fa-ccc2-4745-906f-ec91159ba67a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"ByteArrayStrings", "[", 
   RowBox[{"ByteArray", "[", 
    RowBox[{"Take", "[", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"IntegerDigits", "[", 
          RowBox[{
           RowBox[{"Hash", "[", 
            RowBox[{"k", ",", " ", "\"\<SHA256\>\""}], "]"}], ",", " ", "256",
            ",", " ", "32"}], "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"k", ",", " ", "400"}], "}"}]}], "]"}], "]"}], ",", " ", 
      "10000"}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e60fd4a8-4230-40e3-a801-4416df24ce6e"],

Cell[BoxData["131"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c73e8b45-ec28-4222-8d21-119a5b5e63fd"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "273186df-cf6f-4096-81b5-de2da9091382"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"fbed03eb-8e63-484a-\
844e-3898f6a36053"],

Cell["\<\
A minimum length of zero matches no definition and is returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"ca903880-9af4-4df3-8627-ac8e7cf1ae93"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteArrayStrings", "[", 
  RowBox[{
   RowBox[{"ByteArray", "[", 
    RowBox[{"{", 
     RowBox[{"65", ",", " ", "66", ",", " ", "67", ",", " ", "68"}], "}"}], 
    "]"}], ",", " ", 
   RowBox[{"\"\<MinimumLength\>\"", " ", "->", " ", "0"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0a88182e-ca9e-4d3b-bb18-291b5dbb9fe0"],

Cell[BoxData[
 RowBox[{"ByteArrayStrings", "[", 
  RowBox[{
   InterpretationBox[
    RowBox[{
     TagBox["ByteArray",
      "SummaryHead"], "[", 
     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
      "Ready"}, 
      TemplateBox[{
        PaneSelectorBox[{False -> GridBox[{{
              GridBox[{{
                 TagBox["\"4 bytes\"", "SummaryItem"]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              GridBox[{{
                 TagBox["\"4 bytes\"", "SummaryItem"]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
       "SummaryPanel"],
      DynamicModuleValues:>{}], "]"}],
    ByteArray[{65, 66, 67, 68}],
    Editable->False,
    SelectWithContents->True,
    Selectable->False], ",", 
   RowBox[{"\<\"MinimumLength\"\>", "\[Rule]", "0"}]}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"565426f8-6251-43eb-963d-a0e9353e8be1"]
}, 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["ImageBitStreamBytes"]], 
           "paclet:WolframInstitute/Puzzles/ref/ImageBitStreamBytes", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "31cfa1cf-f442-47ae-a607-8c6604a15849"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ImageAppendedData"]], 
           "paclet:WolframInstitute/Puzzles/ref/ImageAppendedData", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "05f47470-8cd9-45dc-854f-094d0fa1ce28"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ImageBitPlaneScan"]], 
           "paclet:WolframInstitute/Puzzles/ref/ImageBitPlaneScan", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "9794632b-def2-4b73-abbf-afc1d8354d0a"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteArrayToString"]], "paclet:ref/ByteArrayToString"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "ab5dbd9f-266b-4852-af3f-e7b345a6afc6"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["StringCases"]], "paclet:ref/StringCases"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "537ccf0b-4486-4170-be6a-2a808e53e625"]
       }], "SeeAlso",ExpressionUUID->"a3918c87-c7db-4481-ac0d-679b2ba685be"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"a4d6eb52-9b4e-4f12-91ed-\
7352aeedf20e"],

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["Steganography"]], 
           "paclet:WolframInstitute/Puzzles/guide/Steganography"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "8fe9426b-9fca-4332-9b69-97bf0f26e0c3"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"e3cfc649-1b19-4912-b0d7-\
7c9ad9b9b915"],

Cell[" ", "FooterCell",ExpressionUUID->"54414809-64de-486e-bee2-4fb4a1caa938"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ByteArrayStrings",
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, 16.776877}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ByteArrayStrings, paclet : \
WolframInstitute/Puzzles/ref/ByteArrayStrings, WolframInstitute/Puzzles \
Package Symbol][source] gives the runs of printable US-ASCII text in source, \
four characters or longer, as a list of strings. \
PackageLink[ByteArrayStrings, paclet : \
WolframInstitute/Puzzles/ref/ByteArrayStrings, WolframInstitute/Puzzles \
Package Symbol][source, opts] sets how short a run may be.", "synonyms" -> {},
     "tabletags" -> {}, "title" -> "ByteArrayStrings", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "ByteArrayStrings", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/ByteArrayStrings", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"8cde5d3b-a207-4a56-a078-93a8b0b7c211"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[16597, 433, 189, 4, 70, "ExampleText",ExpressionUUID->"bee59fde-34bb-4896-b204-94e31d9b654f",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 46649, 1269}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[584, 21, 6232, 150, 70, "AnchorBarGrid",ExpressionUUID->"22d2e980-2304-45fa-a9fe-adbde420678c",
 CellID->1],
Cell[6819, 173, 107, 0, 70, "ContextNameCell",ExpressionUUID->"6aa9dafe-5b96-4ef3-a2aa-3bd196cff12a"],
Cell[CellGroupData[{
Cell[6951, 177, 559, 14, 70, "ObjectNameGrid",ExpressionUUID->"8396be76-a10c-4699-98cd-902f68e56663"],
Cell[7513, 193, 1533, 39, 70, "Usage",ExpressionUUID->"b64b07b3-4973-4592-819c-23d0a1cd2c96"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9083, 237, 1443, 34, 70, "NotesSection",ExpressionUUID->"e148fbfd-11d2-4ca2-9bf1-976bd1902fe8",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->901804944],
Cell[10529, 273, 643, 21, 70, "Notes",ExpressionUUID->"3b95031f-7f42-402f-a276-964240749abe"],
Cell[11175, 296, 191, 3, 70, "Notes",ExpressionUUID->"402828f3-f8df-4ce4-8eee-c0f964de5ca6"],
Cell[11369, 301, 126, 0, 70, "Notes",ExpressionUUID->"28d4a724-d329-4ed7-ae0c-766db6f24661"],
Cell[11498, 303, 190, 3, 70, "Notes",ExpressionUUID->"7457d2fb-6a55-4457-b271-9a2d57831d86"],
Cell[11691, 308, 1438, 28, 70, "3ColumnTableMod",ExpressionUUID->"6b0c8078-13d5-46d2-a816-2aa0298df85f"],
Cell[13132, 338, 225, 3, 70, "Notes",ExpressionUUID->"67e310e8-c7c6-4aa0-a170-b59ab4998b07"],
Cell[13360, 343, 232, 3, 70, "Notes",ExpressionUUID->"f4ec5393-1ae4-49a6-9323-0ef97f7bedae"]
}, Closed]],
Cell[13607, 349, 80, 0, 70, "PageDelimiter",ExpressionUUID->"40c1bc95-d80b-4d16-8077-9eea6c3beb18"],
Cell[CellGroupData[{
Cell[13712, 353, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"6581144d-34fd-4411-8742-bf5128593856",
 CellID->1843596929],
Cell[15117, 392, 216, 4, 70, "Input",ExpressionUUID->"de2f6674-f22b-4ba7-a9c7-60d92dc6b316",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[15358, 400, 1236, 31, 70, "ExampleSection",ExpressionUUID->"76244d47-29d5-4b16-81cb-7d966a766217",
 CellID->1439526787],
Cell[16597, 433, 189, 4, 70, "ExampleText",ExpressionUUID->"bee59fde-34bb-4896-b204-94e31d9b654f",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[16811, 441, 595, 13, 70, "Input",ExpressionUUID->"bdf62e66-f636-4c0c-abcb-195e0d3b2a33"],
Cell[17409, 456, 142, 2, 70, "Output",ExpressionUUID->"af269784-94e1-4136-b570-36844d1e1fdb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17588, 463, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"4d147839-3158-4748-9c5f-c4f2aee7361c"],
Cell[17815, 470, 123, 0, 70, "ExampleText",ExpressionUUID->"e27dbbe1-6039-4611-b64c-05bbe30fbc11"],
Cell[CellGroupData[{
Cell[17963, 474, 688, 15, 70, "Input",ExpressionUUID->"2a2f5868-2846-43c8-8d53-fc596feb41b5"],
Cell[18654, 491, 174, 3, 70, "Output",ExpressionUUID->"630deb08-b099-4e00-a68d-615a4e18065b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18877, 500, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f368ac26-7e7b-45c1-b56c-27e260718704"],
Cell[19104, 507, 169, 3, 70, "ExampleText",ExpressionUUID->"ab4f520c-bda3-4a54-aee7-081e348d3b4b"],
Cell[CellGroupData[{
Cell[19298, 514, 807, 21, 70, "Input",ExpressionUUID->"16e06eec-d04d-4d6e-9fcf-c51ae4eee68f"],
Cell[20108, 537, 167, 2, 70, "Output",ExpressionUUID->"ee80079c-2378-43b5-a1b3-53ce114efc8c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20336, 546, 1227, 31, 70, "ExampleSection",ExpressionUUID->"b949496a-d943-47b1-8f40-20f0afd504ef",
 CellID->1293636265],
Cell[21566, 579, 157, 2, 70, "ExampleText",ExpressionUUID->"c0317002-9261-4a91-84f2-070aa677e327"],
Cell[CellGroupData[{
Cell[21748, 585, 565, 12, 70, "Input",ExpressionUUID->"313cd9f0-5ea7-40bb-bd96-0fd155295336"],
Cell[22316, 599, 183, 3, 70, "Output",ExpressionUUID->"fa297a9d-7144-4ec8-817a-cb7f5450462a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22536, 607, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d071a523-1714-4a86-b044-169311db6522"],
Cell[22763, 614, 117, 0, 70, "ExampleText",ExpressionUUID->"61156c30-6207-43e9-a029-e71a8be654d9"],
Cell[CellGroupData[{
Cell[22905, 618, 851, 22, 70, "Input",ExpressionUUID->"81448192-8ec8-4cb6-a42f-1f27304f7cdd"],
Cell[23759, 642, 155, 2, 70, "Output",ExpressionUUID->"9b9c0b75-c1d2-48fc-b659-e4c3ad62d3e8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23963, 650, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"bc132b96-cb52-4a7b-9fb6-8358d46a5587"],
Cell[24190, 657, 134, 0, 70, "ExampleText",ExpressionUUID->"a7ded551-3fee-404a-99a9-e10bb2e8207c"],
Cell[CellGroupData[{
Cell[24349, 661, 304, 6, 70, "Input",ExpressionUUID->"9bd8a832-83f4-4058-b0a8-ff5451818506"],
Cell[24656, 669, 124, 2, 70, "Output",ExpressionUUID->"73102d45-9507-4e2a-bb5f-17ebccc2bb2b"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24841, 678, 1233, 31, 70, "ExampleSection",ExpressionUUID->"18222ad3-fa19-4d7b-9810-44432d8d9aac",
 CellID->258228157],
Cell[26077, 711, 182, 3, 70, "ExampleText",ExpressionUUID->"d9b05e35-bc0e-43b1-8c97-90eeff4eceeb"],
Cell[CellGroupData[{
Cell[26284, 718, 1025, 25, 70, "Input",ExpressionUUID->"5e9c9743-90f9-49b6-a7bc-746b9d1bf4b5"],
Cell[27312, 745, 155, 2, 70, "Output",ExpressionUUID->"40c3c375-ebe9-4f8d-9987-c46d40133014"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27504, 752, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b5b274eb-c6c9-44d6-bf49-22df85a11827"],
Cell[27731, 759, 137, 1, 70, "ExampleText",ExpressionUUID->"7e8b541f-3650-4f04-9c3c-2ef050825a50"],
Cell[CellGroupData[{
Cell[27893, 764, 1108, 27, 70, "Input",ExpressionUUID->"7f965138-b810-473a-8b00-6f69f8b8cd3c"],
Cell[29004, 793, 153, 2, 70, "Output",ExpressionUUID->"6dbada40-18f5-497e-a205-4c59b7e30546"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[29218, 802, 1244, 31, 70, "ExampleSection",ExpressionUUID->"46ff0bbe-d460-4654-bb11-db7839c2c6c1",
 CellID->2123667759],
Cell[30465, 835, 472, 12, 70, "ExampleText",ExpressionUUID->"3943b7ad-06be-4b05-a8f6-f182bc9d8b57"],
Cell[CellGroupData[{
Cell[30962, 851, 966, 24, 70, "Input",ExpressionUUID->"1ab12594-6a9c-4731-adbc-51eb47b87439"],
Cell[31931, 877, 110, 1, 70, "Output",ExpressionUUID->"ae6b4b66-96eb-4bee-8261-fd93f1515438"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32078, 883, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"4a2cb093-2845-4865-b6b9-d9c853c8ab07"],
Cell[32305, 890, 573, 14, 70, "ExampleText",ExpressionUUID->"18528ae8-ed5c-4bf6-b149-b34141b4471a"],
Cell[CellGroupData[{
Cell[32903, 908, 974, 25, 70, "Input",ExpressionUUID->"641e0018-364a-454f-8f1c-00077fc3b932"],
Cell[33880, 935, 155, 2, 70, "Output",ExpressionUUID->"e07b287f-2859-43d6-b964-88bd844bf59d"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[34096, 944, 1237, 31, 70, "ExampleSection",ExpressionUUID->"f80ed566-9c5e-4fca-9049-78a4f149891e",
 CellID->1305812373],
Cell[35336, 977, 185, 3, 70, "ExampleText",ExpressionUUID->"6b7aed6b-1867-4c81-bdaf-ba637673de68"],
Cell[CellGroupData[{
Cell[35546, 984, 374, 8, 70, "Input",ExpressionUUID->"fbebfc83-891d-407d-b090-54a6a3948512"],
Cell[35923, 994, 124, 2, 70, "Output",ExpressionUUID->"e32db8cb-1dea-425f-9ee0-9da247132fda"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36084, 1001, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"45572b36-2540-42d9-8f86-98c6735f1ead"],
Cell[36311, 1008, 288, 4, 70, "ExampleText",ExpressionUUID->"2426d0fa-ccc2-4745-906f-ec91159ba67a"],
Cell[CellGroupData[{
Cell[36624, 1016, 722, 18, 70, "Input",ExpressionUUID->"e60fd4a8-4230-40e3-a801-4416df24ce6e"],
Cell[37349, 1036, 109, 1, 70, "Output",ExpressionUUID->"c73e8b45-ec28-4222-8d21-119a5b5e63fd"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37507, 1043, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"fbed03eb-8e63-484a-844e-3898f6a36053"],
Cell[37734, 1050, 161, 2, 70, "ExampleText",ExpressionUUID->"ca903880-9af4-4df3-8627-ac8e7cf1ae93"],
Cell[CellGroupData[{
Cell[37920, 1056, 411, 9, 70, "Input",ExpressionUUID->"0a88182e-ca9e-4d3b-bb18-291b5dbb9fe0"],
Cell[38334, 1067, 2383, 51, 70, "Output",ExpressionUUID->"565426f8-6251-43eb-963d-a0e9353e8be1"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[40768, 1124, 3016, 79, 70, "SeeAlsoSection",ExpressionUUID->"a4d6eb52-9b4e-4f12-91ed-7352aeedf20e"],
Cell[43787, 1205, 754, 19, 70, "MoreAboutSection",ExpressionUUID->"e3cfc649-1b19-4912-b0d7-7c9ad9b9b915"],
Cell[44544, 1226, 78, 0, 70, "FooterCell",ExpressionUUID->"54414809-64de-486e-bee2-4fb4a1caa938"]
}
]
*)

(* End of internal cache information *)

