(* 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[     39190,       1049]
NotebookOptionsPosition[     31245,        900]
NotebookOutlinePosition[     33258,        948]
CellTagsIndexPosition[     33181,        943]
WindowTitle->ByteListQ
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->
           "191d598a-3ba5-4410-9660-bf87a4246481"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "3da8d2b6-8c46-4937-8dd6-0a3d35e6b4c8"],
        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->
           "90d7dedd-3688-4c92-9562-71ab4255030b"]
         }],ExpressionUUID->"e150c5d1-327b-4968-8011-732313e19545"],
         StripOnInput->False],{
        StyleBox["\"ByteArray\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/ByteArray"], 
         StyleBox["\"ByteArrayQ\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/ByteArrayQ"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox["\"HexStringQ\"", "SeeAlsoRelated", StripOnInput -> False],
            "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HexStringQ"], 
         StyleBox[
          StyleBox[
           "\"HexStringToByteList\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HexStringToByteList"], 
         StyleBox[
          StyleBox[
           "\"ByteListToHexString\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "722f409b-c0cd-4ee0-a819-6eb9aa42d896"],
     "\[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->
           "9e848c4b-dca0-45ca-8914-7e781dac11b5"]
         }],ExpressionUUID->"c6d7769b-e4f6-49f9-a90e-c9b4020c5bf9"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "cfde9563-f8ef-4ba6-a835-5541f6e98f02"],
     "\[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->
           "3409d6a3-900c-4762-9897-29c16f8f8df3"]
         }],ExpressionUUID->"594006cc-6516-468c-b000-6f4f2ae00c33"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ByteListQ\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/ByteListQ"], 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/ByteListQ.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/ByteListQ" <> ".html"], None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "ea49f87a-104d-4c19-94e5-267f2cfa6c72"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "2686296c-a2dc-43ef-9dda-a0e42edbe13c"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"49f924f7-34ba-4b4e-b349-0860b85c2cdf"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"9798c663-aee6-4af4-9bb1-42f78edc0d47"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ByteListQ", "ObjectName",ExpressionUUID->
      "aa7ca5ca-785d-4111-8c8a-2b7c61bab303"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"c18ec8ee-9fcc-41bf-9673-494a44a12576"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "fc5d7c42-6ae0-42f6-a473-7cd9a8a41fcc"]
    }],ExpressionUUID->"503ef3fe-a2d3-40d0-8897-9979b6507396"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"34fed533-947a-4683-9e64-\
797d79f286f9"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ByteListQ"]], 
         "paclet:WolframInstitute/Puzzles/ref/ByteListQ", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["expr", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "1e9aec5c-298b-42ca-9555-7d3184dec978"],
     "\[LineSeparator]",
     "gives ",
     Cell[BoxData["True"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "5f3d95fc-11f3-4dcb-b204-944e31d9d47b"],
     " if ",
     StyleBox["expr", "TI"],
     " is a list of integers between 0 and 255, and ",
     Cell[BoxData["False"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "ad746d45-82ea-4204-b3bb-4e0880784d64"],
     " otherwise."
    }],ExpressionUUID->"1c4deb3d-27bc-454f-adcb-7c2dd9d6115e"]}
  }]], "Usage",ExpressionUUID->"c53986fe-4e67-40ed-add2-94310c715dc5"]
}, 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->"2663c92a-9f1b-44b8-bda3-9c397881c72d"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"c56127d4-57fd-4f11-8233-05e1272cca04"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "5f544044-a0df-4335-9dc1-4cb24cdcd800"]],ExpressionUUID->"4e7d99b4-1736-\
491c-8ffc-803f52650668"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->575942007,ExpressionUUID->"8fb40e9d-edc7-4db7-b2c1-ba54aae8391e"],

Cell[TextData[{
 "A byte list is the shape every codec in this paclet reads and writes: a \
plain ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["List"]], "paclet:ref/List"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "dcb1aec4-7900-40f7-8b3d-83b3ad9350e9"],
 " of integers in the range 0 through 255, most significant byte first where \
an order is implied."
}], "Notes",ExpressionUUID->"726f7bd2-6758-49e3-823f-fee59828295a"],

Cell["\<\
The empty list is a byte list, because the empty byte string is a legitimate \
payload.\
\>", "Notes",ExpressionUUID->"297009dd-8679-4219-9f13-f9a9da352f71"],

Cell[TextData[{
 "Anything that is not a list gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e104592c-ca9f-4076-861c-5d48443dd936"],
 ", including a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "1fc8e744-d46c-4887-8989-6bd233cf77a8"],
 " and a hexadecimal ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["String"]], "paclet:ref/String"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "07b68533-ed3f-4d4a-8596-3dd5f8d7ed9c"],
 "."
}], "Notes",ExpressionUUID->"1614df89-abb8-4c67-a1b1-f48883df4661"],

Cell[TextData[{
 "A real-valued element gives ",
 Cell[BoxData["False"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c4afaeea-43aa-4ac6-90be-73ec3b9485b5"],
 " even when its value is integral, so ",
 Cell[BoxData["1.0"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a531f615-43b1-42eb-8c78-403af5cfbba2"],
 " is not a byte."
}], "Notes",ExpressionUUID->"c569490d-9a6d-4446-82b5-8f167d0396c2"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   TemplateBox[{
     Cell[
      TextData["Normal"]], "paclet:ref/Normal"},
    "RefLink",
    BaseStyle->{"InlineFormula"}], "[", 
   StyleBox["byteArray", "TI"], "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4ce1c2b5-47e1-43a6-a4ee-44f6ec9a4842"],
 " converts a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "748b4fea-257f-450a-b381-58a820d54490"],
 " into a byte list."
}], "Notes",ExpressionUUID->"67f4f837-6671-465a-8cda-f434f7cc7492"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"6ad4f530-2a63-41e4-9585-59baf505889d"],

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->"248c8c66-07c8-42a0-984b-ac32531dbe95"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"5732b1d9-0fb8-441a-be8f-6f556f3cd8da"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(9)", "ExampleCount",ExpressionUUID->
  "984dcc76-679c-4fb8-97fe-458fbcce050b"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1148514620,ExpressionUUID->"d8a5c927-6ec4-42f6-9b1c-446e285b9953"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"65f41f6b-5837-48d0-98cc-a264cc17f7aa"],

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->
  "8334e86a-0c3c-4938-86ad-b3b6652c1665"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"7168b92b-b46f-499e-947a-5438b97b4c5e"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "091c50fa-3eac-4d9b-949d-099237743d4a"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1502199104,ExpressionUUID->"7e5e5886-1ca2-4262-8127-e5e6d825391d"],

Cell["A list of integers in 0 through 255 is a byte list:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"a5218f30-bc82-42b0-a65d-ba57184e9790"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListQ", "[", 
  RowBox[{"{", 
   RowBox[{"0", ",", " ", "127", ",", " ", "255"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f87ac942-cc4d-4195-85b7-805193481365"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c3148ae1-c61d-4565-8433-b62d4401ac00"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "144cff71-30ad-42c0-8974-3e585b8dbb3d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ca68556f-3eae-47bd-\
8d03-35adf7e439e9"],

Cell["256 is not a byte:", "ExampleText",ExpressionUUID->"5278f6d1-12a6-4619-963c-62df4cbfe9f2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListQ", "[", 
  RowBox[{"{", "256", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"65247ea6-135a-4869-833c-5510e713c2fd"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b36ce2d2-2508-4d74-a64e-341922276d6f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "b8b4acb1-d0fe-4936-875d-a49173542660"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f5d606a0-4bf2-470d-\
9d5e-b203900d818c"],

Cell["The empty list is a byte list:", "ExampleText",ExpressionUUID->"f82d198a-a7df-4e90-9714-adf460ca3ff3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListQ", "[", 
  RowBox[{"{", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9db18a9e-5447-4a29-9ea3-ebed92cde578"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"84b3324e-2df6-42d9-978f-fd4cd70d75d5"]
}, 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->
  "31dec40f-7fa8-4714-be19-312be4124f49"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"c31c7b16-6c8a-41aa-8206-985c8c911ff2"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "e766edac-71bb-44a0-a0cb-861eb19d6bde"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"07a4b6ac-50ad-42d5-80ee-58ce8e20d36f"],

Cell["\<\
A hexadecimal string is not a byte list, however byte-like it looks:\
\>", "ExampleText",ExpressionUUID->"dd4e7770-5fe3-45e0-8b62-65a86c79ef4b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListQ", "[", "\"\<deadbeef\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e1459b48-8018-48cb-be9e-3f8c1251bba0"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2be87d4c-2e26-455f-80d6-5bea9d46caf8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "bf200332-505d-445d-b019-ec1113e49e84"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c05d2d57-621a-4b5b-\
acce-57f5e247df5c"],

Cell[TextData[{
 "Nor is a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "f3677322-9796-4a7c-bf05-8d69d27698aa"],
 ", which carries the same bytes in packed form:"
}], "ExampleText",ExpressionUUID->"ca2f23d5-88fc-4852-b001-c440c0a325a9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListQ", "[", 
  RowBox[{"ByteArray", "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}], "]"}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ba98a27e-1ea7-40ef-9e97-8d40e7c4c333"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9f87f7b0-3fee-404c-9f0b-a01f0a2c921d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "198bd294-aa11-41ff-9df5-ee86a3dc26ae"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b43f144a-61db-4411-\
b4f4-96880edb6574"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Normal"]], "paclet:ref/Normal"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "8158ba10-6e86-48f2-9bf2-6eb1a8fb469e"],
 " unpacks a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "8bf18fb0-b237-498d-a89b-d4b749d2aa9a"],
 " into a list that does satisfy the predicate:"
}], "ExampleText",ExpressionUUID->"6dae091f-5b0c-479d-8dd5-3f6b28c83fc8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListQ", "[", 
  RowBox[{"Normal", "[", 
   RowBox[{"ByteArray", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d0331bba-68cb-4634-bca5-7fd4af598afd"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"76925935-f204-4cb7-9531-3b45097247b8"]
}, 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->
  "df012bd0-9d6a-448a-b7a5-860a44a4795b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"5ee6cc19-34d9-4f50-bf7b-aa4097ea4e11"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "a8e90f97-63a7-485a-917a-863272ea0632"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"8d731965-eb2f-4754-903d-2a0770dbf08a"],

Cell["\<\
A machine-precision real is not an integer, so it is not a byte:\
\>", "ExampleText",ExpressionUUID->"85ab5eff-1861-4ff5-84cf-796d0627eb82"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListQ", "[", 
  RowBox[{"{", 
   RowBox[{"1.0", ",", " ", "2.0"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1ba1feb6-f5c3-42bb-9f8e-d40b43fc8b73"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e6370d0d-5a6b-41dc-b526-01999a57f511"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "451a3d5b-3047-46b4-afbc-e54145c7a99b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ffb6198d-b86d-4804-\
923e-89e94fd810f7"],

Cell[TextData[{
 "Every byte list of length ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b022dac4-bb1b-47c1-ad89-a9f62a1187b8"],
 " round-trips through ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "4cd43f44-cfad-45cc-9e74-8d3a7168133b"],
 " and ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Normal"]], "paclet:ref/Normal"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "783d0d8b-33d8-4acc-921a-fa524b4446c0"],
 ":"
}], "ExampleText",ExpressionUUID->"a3613659-78d3-426d-8f0d-ee963ad37866"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Normal", "[", 
   RowBox[{"ByteArray", "[", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", " ", "255"}], "]"}], "]"}], "]"}], " ", "===", " ", 
  RowBox[{"Range", "[", 
   RowBox[{"0", ",", " ", "255"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9a029215-bdfd-49f5-bde7-1823a08bc484"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"23b23bad-505d-4e45-85a7-53115711e082"]
}, 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->
  "e4d3a064-6d8e-4057-9fc9-314bebeaac4c"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"737e4eda-60ff-46c4-83b6-d28569bc5082"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "97ce9607-63b5-4c14-a0fd-74192b57d7d8"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"5a9d89aa-40c2-41c5-9313-f18509ba582b"],

Cell["\<\
A negative integer is outside the byte range, so a two's-complement byte \
written as a signed value is rejected:\
\>", "ExampleText",ExpressionUUID->"dce9ed4a-51aa-4c20-829c-e4601ee8ff5c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListQ", "[", 
  RowBox[{"{", 
   RowBox[{"-", "1"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9e5c26ec-9623-462a-8f92-b32688ae8a50"],

Cell[BoxData["False"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d57e10a1-645c-4d87-be88-537169dd9d1a"]
}, 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["HexStringQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/HexStringQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "754b216c-f8a3-4a4c-802f-07ba42ff2c0a"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["HexStringToByteList"]], 
           "paclet:WolframInstitute/Puzzles/ref/HexStringToByteList", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "1d186941-e7f0-4fdd-a9d5-f014aefe5d07"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteListToHexString"]], 
           "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a24f3ca9-bf70-49bc-bcca-5f67bd6a9f96"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteArray"]], "paclet:ref/ByteArray"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "8cf64a5e-1010-4397-be18-e933341b4f06"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteArrayQ"]], "paclet:ref/ByteArrayQ"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "012d9f13-29af-4e4e-99c3-065159c53b5f"]
       }], "SeeAlso",ExpressionUUID->"025cf266-84ca-4257-b38a-316b1502759f"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"78174fe0-6ce6-4510-9513-\
d01d7fb44148"],

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["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "51f8dc5a-a45a-4812-912e-a88f222c2793"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"ec2cedf3-a3dd-4d48-9830-\
ce621c0050c7"],

Cell[" ", "FooterCell",ExpressionUUID->"f30098d8-8080-4b9f-bcbd-e85380188c34"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ByteListQ",
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, 20.669638}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ByteListQ,paclet : WolframInstitute/Puzzles/ref/ByteListQ, \
WolframInstitute/Puzzles Package Symbol][expr] gives True if expr is a list \
of integers between 0 and 255, and False otherwise.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "ByteListQ", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "ByteListQ", "type" -> "Symbol",
     "uri" -> "WolframInstitute/Puzzles/ref/ByteListQ", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"9fd22e16-c948-4351-9314-9b15558914e7"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15761, 431, 161, 2, 70, "ExampleText",ExpressionUUID->"a5218f30-bc82-42b0-a65d-ba57184e9790",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 33024, 937}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[577, 21, 6131, 147, 70, "AnchorBarGrid",ExpressionUUID->"49f924f7-34ba-4b4e-b349-0860b85c2cdf",
 CellID->1],
Cell[6711, 170, 107, 0, 70, "ContextNameCell",ExpressionUUID->"9798c663-aee6-4af4-9bb1-42f78edc0d47"],
Cell[CellGroupData[{
Cell[6843, 174, 552, 14, 70, "ObjectNameGrid",ExpressionUUID->"34fed533-947a-4683-9e64-797d79f286f9"],
Cell[7398, 190, 1158, 30, 70, "Usage",ExpressionUUID->"c53986fe-4e67-40ed-add2-94310c715dc5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8593, 225, 1443, 34, 70, "NotesSection",ExpressionUUID->"8fb40e9d-edc7-4db7-b2c1-ba54aae8391e",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->575942007],
Cell[10039, 261, 510, 13, 70, "Notes",ExpressionUUID->"726f7bd2-6758-49e3-823f-fee59828295a"],
Cell[10552, 276, 167, 3, 70, "Notes",ExpressionUUID->"297009dd-8679-4219-9f13-f9a9da352f71"],
Cell[10722, 281, 826, 25, 70, "Notes",ExpressionUUID->"1614df89-abb8-4c67-a1b1-f48883df4661"],
Cell[11551, 308, 495, 12, 70, "Notes",ExpressionUUID->"c569490d-9a6d-4446-82b5-8f167d0396c2"],
Cell[12049, 322, 708, 22, 70, "Notes",ExpressionUUID->"67f4f837-6671-465a-8cda-f434f7cc7492"]
}, Closed]],
Cell[12772, 347, 80, 0, 70, "PageDelimiter",ExpressionUUID->"6ad4f530-2a63-41e4-9585-59baf505889d"],
Cell[CellGroupData[{
Cell[12877, 351, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"d8a5c927-6ec4-42f6-9b1c-446e285b9953",
 CellID->1148514620],
Cell[14281, 390, 216, 4, 70, "Input",ExpressionUUID->"65f41f6b-5837-48d0-98cc-a264cc17f7aa",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14522, 398, 1236, 31, 70, "ExampleSection",ExpressionUUID->"7e5e5886-1ca2-4262-8127-e5e6d825391d",
 CellID->1502199104],
Cell[15761, 431, 161, 2, 70, "ExampleText",ExpressionUUID->"a5218f30-bc82-42b0-a65d-ba57184e9790",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15947, 437, 260, 5, 70, "Input",ExpressionUUID->"f87ac942-cc4d-4195-85b7-805193481365"],
Cell[16210, 444, 110, 1, 70, "Output",ExpressionUUID->"c3148ae1-c61d-4565-8433-b62d4401ac00"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16357, 450, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ca68556f-3eae-47bd-8d03-35adf7e439e9"],
Cell[16584, 457, 96, 0, 70, "ExampleText",ExpressionUUID->"5278f6d1-12a6-4619-963c-62df4cbfe9f2"],
Cell[CellGroupData[{
Cell[16705, 461, 214, 4, 70, "Input",ExpressionUUID->"65247ea6-135a-4869-833c-5510e713c2fd"],
Cell[16922, 467, 111, 1, 70, "Output",ExpressionUUID->"b36ce2d2-2508-4d74-a64e-341922276d6f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17082, 474, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f5d606a0-4bf2-470d-9d5e-b203900d818c"],
Cell[17309, 481, 108, 0, 70, "ExampleText",ExpressionUUID->"f82d198a-a7df-4e90-9714-adf460ca3ff3"],
Cell[CellGroupData[{
Cell[17442, 485, 207, 4, 70, "Input",ExpressionUUID->"9db18a9e-5447-4a29-9ea3-ebed92cde578"],
Cell[17652, 491, 110, 1, 70, "Output",ExpressionUUID->"84b3324e-2df6-42d9-978f-fd4cd70d75d5"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17823, 499, 1227, 31, 70, "ExampleSection",ExpressionUUID->"07a4b6ac-50ad-42d5-80ee-58ce8e20d36f",
 CellID->1293636265],
Cell[19053, 532, 154, 2, 70, "ExampleText",ExpressionUUID->"dd4e7770-5fe3-45e0-8b62-65a86c79ef4b"],
Cell[CellGroupData[{
Cell[19232, 538, 204, 3, 70, "Input",ExpressionUUID->"e1459b48-8018-48cb-be9e-3f8c1251bba0"],
Cell[19439, 543, 111, 1, 70, "Output",ExpressionUUID->"2be87d4c-2e26-455f-80d6-5bea9d46caf8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19587, 549, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c05d2d57-621a-4b5b-acce-57f5e247df5c"],
Cell[19814, 556, 404, 11, 70, "ExampleText",ExpressionUUID->"ca2f23d5-88fc-4852-b001-c440c0a325a9"],
Cell[CellGroupData[{
Cell[20243, 571, 296, 7, 70, "Input",ExpressionUUID->"ba98a27e-1ea7-40ef-9e97-8d40e7c4c333"],
Cell[20542, 580, 111, 1, 70, "Output",ExpressionUUID->"9f87f7b0-3fee-404c-9f0b-a01f0a2c921d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20702, 587, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b43f144a-61db-4411-b4f4-96880edb6574"],
Cell[20929, 594, 650, 19, 70, "ExampleText",ExpressionUUID->"6dae091f-5b0c-479d-8dd5-3f6b28c83fc8"],
Cell[CellGroupData[{
Cell[21604, 617, 333, 8, 70, "Input",ExpressionUUID->"d0331bba-68cb-4634-bca5-7fd4af598afd"],
Cell[21940, 627, 110, 1, 70, "Output",ExpressionUUID->"76925935-f204-4cb7-9531-3b45097247b8"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[22111, 635, 1244, 31, 70, "ExampleSection",ExpressionUUID->"8d731965-eb2f-4754-903d-2a0770dbf08a",
 CellID->2123667759],
Cell[23358, 668, 150, 2, 70, "ExampleText",ExpressionUUID->"85ab5eff-1861-4ff5-84cf-796d0627eb82"],
Cell[CellGroupData[{
Cell[23533, 674, 245, 5, 70, "Input",ExpressionUUID->"1ba1feb6-f5c3-42bb-9f8e-d40b43fc8b73"],
Cell[23781, 681, 111, 1, 70, "Output",ExpressionUUID->"e6370d0d-5a6b-41dc-b526-01999a57f511"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23929, 687, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ffb6198d-b86d-4804-923e-89e94fd810f7"],
Cell[24156, 694, 832, 26, 70, "ExampleText",ExpressionUUID->"a3613659-78d3-426d-8f0d-ee963ad37866"],
Cell[CellGroupData[{
Cell[25013, 724, 388, 9, 70, "Input",ExpressionUUID->"9a029215-bdfd-49f5-bde7-1823a08bc484"],
Cell[25404, 735, 110, 1, 70, "Output",ExpressionUUID->"23b23bad-505d-4e45-85a7-53115711e082"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25575, 743, 1237, 31, 70, "ExampleSection",ExpressionUUID->"5a9d89aa-40c2-41c5-9313-f18509ba582b",
 CellID->1305812373],
Cell[26815, 776, 199, 3, 70, "ExampleText",ExpressionUUID->"dce9ed4a-51aa-4c20-829c-e4601ee8ff5c"],
Cell[CellGroupData[{
Cell[27039, 783, 231, 5, 70, "Input",ExpressionUUID->"9e5c26ec-9623-462a-8f92-b32688ae8a50"],
Cell[27273, 790, 111, 1, 70, "Output",ExpressionUUID->"d57e10a1-645c-4d87-be88-537169dd9d1a"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[27423, 796, 2988, 79, 70, "SeeAlsoSection",ExpressionUUID->"78174fe0-6ce6-4510-9513-d01d7fb44148"],
Cell[30414, 877, 746, 19, 70, "MoreAboutSection",ExpressionUUID->"ec2cedf3-a3dd-4d48-9830-ce621c0050c7"],
Cell[31163, 898, 78, 0, 70, "FooterCell",ExpressionUUID->"f30098d8-8080-4b9f-bcbd-e85380188c34"]
}
]
*)

(* End of internal cache information *)

