(* 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[     37394,        980]
NotebookOptionsPosition[     29740,        837]
NotebookOutlinePosition[     31832,        886]
CellTagsIndexPosition[     31755,        881]
WindowTitle->ByteListToBitList
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->
           "312afea7-1486-40f6-ba13-ad9082fe9e79"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "707a8e62-7b99-4df2-aa3c-6ac94b448da6"],
        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->
           "b2f70505-6d40-4518-bf04-5a25f84c2e86"]
         }],ExpressionUUID->"0a1c0916-79c5-43d0-814c-7801d90bf6b8"],
         StripOnInput->False],{
        StyleBox[
          "\"IntegerDigits\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/IntegerDigits"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"BitListToByteList\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BitListToByteList"], 
         StyleBox[
          StyleBox["\"BitRegroup\"", "SeeAlsoRelated", StripOnInput -> False],
            "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BitRegroup"], 
         StyleBox[
          StyleBox["\"ByteListQ\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ByteListQ"], 
         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->
      "47dae171-57b0-4459-a221-6fcec5913bb9"],
     "\[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->
           "f6a1f5df-dd95-4fe6-8ff6-f8c22fd55a10"]
         }],ExpressionUUID->"27b0b2d0-81e3-4a16-adf3-aae3df4f60c3"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "560414a7-07e8-4d2f-940f-123c06129991"],
     "\[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->
           "8758d04b-c5f6-4744-a240-627f3449d105"]
         }],ExpressionUUID->"281c7cac-5fb7-4394-91b2-3fe447f072ed"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ByteListToBitList\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/ByteListToBitList"], 
         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/ByteListToBitList.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/ByteListToBitList" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "75425e95-8ebf-4aed-815a-e9be13465b6e"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "bbd01633-98b7-4b2a-af8a-05be025f8b83"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"1ecde944-0934-4548-99a9-f7ac42ba6d38"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"3c2d4901-b1a0-4128-89a3-f765401195bf"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ByteListToBitList", "ObjectName",ExpressionUUID->
      "50bfee5c-1431-4098-980d-f7e144493061"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"4a9f2cb0-a321-4bb7-b928-e92ee8961bf3"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "ee615c0d-f26d-4731-bfb3-fed3664cbb26"]
    }],ExpressionUUID->"6ba67fc1-a76f-4898-98eb-fce0c971fe12"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"960644ff-793c-472b-8abc-\
bd7c8411296a"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ByteListToBitList"]], 
         "paclet:WolframInstitute/Puzzles/ref/ByteListToBitList", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["bytes", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "d9f82b28-b901-453f-b51e-ea8bebf9a6a4"],
     "\[LineSeparator]",
     "gives the bits of a byte list as a flat list of 0s and 1s, eight bits \
per byte, most significant bit first."
    }],ExpressionUUID->"1c9787bb-6684-4448-af90-25b83fe9f173"]}
  }]], "Usage",ExpressionUUID->"606cdc85-aa4a-45c4-9bee-da9ed8be9bf0"]
}, 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->"a01e8429-6373-4690-9b34-802c6e1cb066"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"7514d8be-01b7-4b72-ba15-e217b1293f95"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "a9fc781e-42bf-4b37-88e9-0ab64027915c"]],ExpressionUUID->"b0bf2c50-07f4-\
483b-8c69-dd7a9ac77efd"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1105151717,ExpressionUUID->"8dba903b-0acc-48fb-987e-29cd908a466e"],

Cell["\<\
The result has exactly eight times as many elements as the argument.\
\>", "Notes",ExpressionUUID->"6a7d354b-2585-497b-9106-1747cc60a98d"],

Cell["\<\
The bit order within a byte is most significant first, which is the order the \
BIP39 checksum and the Bech32 regrouping both read.\
\>", "Notes",ExpressionUUID->"7890397d-8beb-4cf3-a8cd-ca3218747e4c"],

Cell["The empty byte list gives the empty bit list.", "Notes",ExpressionUUID->"574a96d4-7073-4ee1-9bb8-4a3a576ccb8f"],

Cell["\<\
A list holding an integer outside 0 through 255 matches no definition and is \
returned unevaluated.\
\>", "Notes",ExpressionUUID->"4f3279f9-c2b1-445f-b4e0-f8a77885531b"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BitListToByteList"]], 
    "paclet:WolframInstitute/Puzzles/ref/BitListToByteList", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f87f5860-186e-48dd-a0bb-7733983b7ec8"],
 " is the inverse."
}], "Notes",ExpressionUUID->"ae84bd3c-94c2-43ef-af0d-e95dbf58c262"],

Cell[TextData[{
 "The result is ",
 Cell[BoxData[
  RowBox[{
   TemplateBox[{
     Cell[
      TextData["BitRegroup"]], 
     "paclet:WolframInstitute/Puzzles/ref/BitRegroup", 
     "WolframInstitute/Puzzles Package Symbol"},
    "PackageLink",
    BaseStyle->"InlineFormula"], "[", 
   RowBox[{
    StyleBox["bytes", "TI"], ",", " ", "8", ",", " ", "1"}], "]"}]], 
  "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7865d99c-c5e6-4366-9e73-1e375196049f"],
 ", the degenerate 8-bit to 1-bit case of the general regrouping."
}], "Notes",ExpressionUUID->"233af317-aa5b-452b-994b-0071d3b399c6"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"420c8d00-cf39-4553-8be1-4ccf4e2536df"],

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->"a6535ac9-d130-48b8-9524-75b38062f02d"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a57731d9-9302-4b38-9464-949bb9cc52a2"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(8)", "ExampleCount",ExpressionUUID->
  "10f8f07b-f276-4dff-9d48-139ca68467d1"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->698844716,ExpressionUUID->"6a1721d2-8a5e-4632-9a28-ad9dd323ca5c"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"d4867850-8648-4c0c-82ea-d92f9a5fe7ab"],

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->
  "f6b3422a-16ee-4c6a-a2b2-1273542c252e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"92a58d8e-1e91-4b30-9efb-07bb1c4a8d31"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "2defced2-4f3f-4eaa-9244-a5c132d09233"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->895076369,ExpressionUUID->"5fc2d92d-9a03-4fe4-a76e-cdbefb219630"],

Cell[TextData[{
 "The ASCII code of ",
 Cell[BoxData["\<\"A\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c5fbb921-77a9-4738-a5c1-59df1677db0e"],
 " is 0x41, whose bits are 0100 0001:"
}], "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"dbe44d12-7bb9-4073-95ee-d57c1def87c8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToBitList", "[", 
  RowBox[{"{", "16^^41", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"92c7dce4-6c9d-4649-b57c-1bf09617bced"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}],
   "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ffc71f6d-66ea-4dff-a2bc-b99c028f1af2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2bf5be15-de15-4a27-aaef-d35afaf96bf6"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"8602acda-d24d-429d-\
a991-2a2857a1ea7d"],

Cell["Two bytes give sixteen bits, in byte order:", "ExampleText",ExpressionUUID->"c2b2ab4b-365f-4e2d-a1df-fe0d29cc0ceb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToBitList", "[", 
  RowBox[{"{", 
   RowBox[{"255", ",", " ", "0"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3e59fe9b-4dae-46eb-ae22-cdbdc96609b9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",",
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
   "0"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"787cad2f-c796-439c-88fc-1be691c263c1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d1ba1aef-5307-46b6-a4d3-0041adb9a916"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"60beb820-3132-439e-\
9097-5b21ce6871df"],

Cell["The empty byte list gives the empty bit list:", "ExampleText",ExpressionUUID->"dbe47d60-9ef0-45eb-895a-910809690eda"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToBitList", "[", 
  RowBox[{"{", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b1d5ba5d-bed1-4706-afa4-94e263a9fffc"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"10e76e65-a23d-4ba9-87c6-0fb16821a783"]
}, 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->
  "7f7b5de1-6271-4cb7-b3f1-5e808999f1aa"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"adfe9e2d-e2b6-4347-989e-a4739d550d7c"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "1df1640e-6fc1-4da0-9419-7473bf7d0910"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"06451c68-4c3d-4aa8-9fa7-6c8f6dbf6db8"],

Cell["The bit list of a 32-byte payload has 256 elements:", "ExampleText",ExpressionUUID->"791efca5-a404-479d-8dc3-5a2096394549"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"ByteListToBitList", "[", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", " ", "32"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"dcc74d21-eaef-42a0-a3ab-89ddf3de1462"],

Cell[BoxData["256"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ed74fd2e-6eae-4bb9-86bc-e885162713e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "1ba4ce76-4f34-4979-ae2f-bfbd77a1a809"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"272e80fe-cb46-4cea-\
a79d-c066e6541eeb"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BitListToByteList"]], 
    "paclet:WolframInstitute/Puzzles/ref/BitListToByteList", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2bf58a2d-f0e3-4051-8580-37a0b647fe72"],
 " recovers the bytes:"
}], "ExampleText",ExpressionUUID->"deabd359-c0f0-4160-a1e0-2bc36115dab8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BitListToByteList", "[", 
   RowBox[{"ByteListToBitList", "[", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", " ", "255"}], "]"}], "]"}], "]"}], " ", "===", " ", 
  RowBox[{"Range", "[", 
   RowBox[{"0", ",", " ", "255"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"18eec794-59e7-49fc-82b0-e9af8cd5d5b2"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5d8f5994-c345-459d-a380-295f9035d6ed"]
}, 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->
  "264eb9bc-7864-42f1-a83d-e6d2c5669900"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"1da8fe73-a0bf-4001-aba9-304ed4acb3a7"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "5d25ee1e-e133-48bd-a815-088b404eac32"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"38601185-ae43-44fa-9b99-f77b014e98a8"],

Cell[TextData[{
 "The same bits come from ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BitRegroup"]], 
    "paclet:WolframInstitute/Puzzles/ref/BitRegroup", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "15266338-c602-493b-95e7-b6c53804b70f"],
 " at width 8 into width 1:"
}], "ExampleText",ExpressionUUID->"1f56496b-ef7c-448a-9f29-a51d87289f97"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ByteListToBitList", "[", 
   RowBox[{"{", "16^^41", "}"}], "]"}], " ", "===", " ", 
  RowBox[{"BitRegroup", "[", 
   RowBox[{
    RowBox[{"{", "16^^41", "}"}], ",", " ", "8", ",", " ", "1"}], 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2bd87448-2bf1-4ef5-a821-910bbcd522a3"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7e9efce8-4a2d-47fe-bade-cd87f227a3b4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "11d15c4b-7e49-49b5-a3cf-b7bb04db16a9"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"c9184826-46eb-4a8d-\
aab5-cb55e5084cae"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["IntegerDigits"]], "paclet:ref/IntegerDigits"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "17c6615a-4378-47e8-8b18-2bc35abca8b6"],
 " gives the bits of one byte, which the flat result concatenates:"
}], "ExampleText",ExpressionUUID->"86b5f84a-3f1b-474e-b5a8-d4aefcdad8c3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerDigits", "[", 
  RowBox[{"16^^41", ",", " ", "2", ",", " ", "8"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"58e2e44c-ab33-417f-9732-aef24f14a61d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}],
   "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"4c283c59-76a0-4e72-9340-89e6f850c498"]
}, 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->
  "027ecc10-ffa4-4046-9045-607c8582c7a4"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"7a10b67a-e52d-471b-ae0e-a7b339b5e8ae"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "76862ed6-c457-437c-9d8f-9a5dba7f5ce2"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"44ddbdfb-6e3b-4243-89bf-1c2e046a29c2"],

Cell["\<\
A value above 255 is not a byte, so the call is returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"45294eb4-546d-4646-b579-0039096cb7a7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToBitList", "[", 
  RowBox[{"{", "256", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2fdffe3f-a573-42be-812e-d6992570891c"],

Cell[BoxData[
 RowBox[{"ByteListToBitList", "[", 
  RowBox[{"{", "256", "}"}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8e01a50d-b5f8-4cb8-ae07-812d62489685"]
}, 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["BitListToByteList"]], 
           "paclet:WolframInstitute/Puzzles/ref/BitListToByteList", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a50c58f4-457e-4b33-bb15-316f23fd6a94"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BitRegroup"]], 
           "paclet:WolframInstitute/Puzzles/ref/BitRegroup", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "e18cac7c-88ed-4fc5-9c74-85f06aadfedd"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteListQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/ByteListQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "13c05bf5-a192-4aca-b622-79d0448da5ff"],
        "\[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->
         "ba2c8140-ad61-4c24-9e82-dc87d76b8591"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["IntegerDigits"]], "paclet:ref/IntegerDigits"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "6d5927a4-fe47-47a7-ac53-f155c0963e94"]
       }], "SeeAlso",ExpressionUUID->"3b64d258-c8c5-48b5-b483-fb4bba65be9f"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"829b0129-bdcf-49c7-a931-\
11e552eab886"],

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->
         "4dd1e67e-0f89-4f31-8f2d-888a5abb0503"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"d6299143-eea0-413f-9117-\
90db94496a52"],

Cell[" ", "FooterCell",ExpressionUUID->"7e4162b3-62cc-4ef7-82b8-e06b33ec696a"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ByteListToBitList",
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, 26.537449}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ByteListToBitList, paclet : \
WolframInstitute/Puzzles/ref/ByteListToBitList, WolframInstitute/Puzzles \
Package Symbol][bytes] gives the bits of a byte list as a flat list of 0s and \
1s, eight bits per byte, most significant bit first.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "ByteListToBitList", "titlemodifier" -> "", 
    "metadescription" -> "", "windowtitle" -> "ByteListToBitList", "type" -> 
    "Symbol", "uri" -> "WolframInstitute/Puzzles/ref/ByteListToBitList", 
    "WorkflowDockedCell" -> ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"d8d36da8-a772-425a-b6fc-2ddfc748e49a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[14667, 391, 347, 9, 70, "ExampleText",ExpressionUUID->"dbe44d12-7bb9-4073-95ee-d57c1def87c8",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 31598, 875}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[585, 21, 6300, 152, 70, "AnchorBarGrid",ExpressionUUID->"1ecde944-0934-4548-99a9-f7ac42ba6d38",
 CellID->1],
Cell[6888, 175, 107, 0, 70, "ContextNameCell",ExpressionUUID->"3c2d4901-b1a0-4128-89a3-f765401195bf"],
Cell[CellGroupData[{
Cell[7020, 179, 560, 14, 70, "ObjectNameGrid",ExpressionUUID->"960644ff-793c-472b-8abc-bd7c8411296a"],
Cell[7583, 195, 810, 19, 70, "Usage",ExpressionUUID->"606cdc85-aa4a-45c4-9bee-da9ed8be9bf0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8430, 219, 1444, 34, 70, "NotesSection",ExpressionUUID->"8dba903b-0acc-48fb-987e-29cd908a466e",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1105151717],
Cell[9877, 255, 148, 2, 70, "Notes",ExpressionUUID->"6a7d354b-2585-497b-9106-1747cc60a98d"],
Cell[10028, 259, 211, 3, 70, "Notes",ExpressionUUID->"7890397d-8beb-4cf3-a8cd-ca3218747e4c"],
Cell[10242, 264, 117, 0, 70, "Notes",ExpressionUUID->"574a96d4-7073-4ee1-9bb8-4a3a576ccb8f"],
Cell[10362, 266, 180, 3, 70, "Notes",ExpressionUUID->"4f3279f9-c2b1-445f-b4e0-f8a77885531b"],
Cell[10545, 271, 479, 13, 70, "Notes",ExpressionUUID->"ae84bd3c-94c2-43ef-af0d-e95dbf58c262"],
Cell[11027, 286, 638, 18, 70, "Notes",ExpressionUUID->"233af317-aa5b-452b-994b-0071d3b399c6"]
}, Closed]],
Cell[11680, 307, 80, 0, 70, "PageDelimiter",ExpressionUUID->"420c8d00-cf39-4553-8be1-4ccf4e2536df"],
Cell[CellGroupData[{
Cell[11785, 311, 1400, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"6a1721d2-8a5e-4632-9a28-ad9dd323ca5c",
 CellID->698844716],
Cell[13188, 350, 216, 4, 70, "Input",ExpressionUUID->"d4867850-8648-4c0c-82ea-d92f9a5fe7ab",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13429, 358, 1235, 31, 70, "ExampleSection",ExpressionUUID->"5fc2d92d-9a03-4fe4-a76e-cdbefb219630",
 CellID->895076369],
Cell[14667, 391, 347, 9, 70, "ExampleText",ExpressionUUID->"dbe44d12-7bb9-4073-95ee-d57c1def87c8",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15039, 404, 225, 4, 70, "Input",ExpressionUUID->"92c7dce4-6c9d-4649-b57c-1bf09617bced"],
Cell[15267, 410, 218, 5, 70, "Output",ExpressionUUID->"ffc71f6d-66ea-4dff-a2bc-b99c028f1af2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15522, 420, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"8602acda-d24d-429d-a991-2a2857a1ea7d"],
Cell[15749, 427, 121, 0, 70, "ExampleText",ExpressionUUID->"c2b2ab4b-365f-4e2d-a1df-fe0d29cc0ceb"],
Cell[CellGroupData[{
Cell[15895, 431, 251, 5, 70, "Input",ExpressionUUID->"3e59fe9b-4dae-46eb-ae22-cdbdc96609b9"],
Cell[16149, 438, 303, 6, 70, "Output",ExpressionUUID->"787cad2f-c796-439c-88fc-1be691c263c1"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16501, 450, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"60beb820-3132-439e-9097-5b21ce6871df"],
Cell[16728, 457, 123, 0, 70, "ExampleText",ExpressionUUID->"dbe47d60-9ef0-45eb-895a-910809690eda"],
Cell[CellGroupData[{
Cell[16876, 461, 215, 4, 70, "Input",ExpressionUUID->"b1d5ba5d-bed1-4706-afa4-94e263a9fffc"],
Cell[17094, 467, 124, 2, 70, "Output",ExpressionUUID->"10e76e65-a23d-4ba9-87c6-0fb16821a783"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17279, 476, 1227, 31, 70, "ExampleSection",ExpressionUUID->"06451c68-4c3d-4aa8-9fa7-6c8f6dbf6db8",
 CellID->1293636265],
Cell[18509, 509, 129, 0, 70, "ExampleText",ExpressionUUID->"791efca5-a404-479d-8dc3-5a2096394549"],
Cell[CellGroupData[{
Cell[18663, 513, 302, 6, 70, "Input",ExpressionUUID->"dcc74d21-eaef-42a0-a3ab-89ddf3de1462"],
Cell[18968, 521, 109, 1, 70, "Output",ExpressionUUID->"ed74fd2e-6eae-4bb9-86bc-e885162713e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19114, 527, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"272e80fe-cb46-4cea-a79d-c066e6541eeb"],
Cell[19341, 534, 489, 13, 70, "ExampleText",ExpressionUUID->"deabd359-c0f0-4160-a1e0-2bc36115dab8"],
Cell[CellGroupData[{
Cell[19855, 551, 407, 9, 70, "Input",ExpressionUUID->"18eec794-59e7-49fc-82b0-e9af8cd5d5b2"],
Cell[20265, 562, 110, 1, 70, "Output",ExpressionUUID->"5d8f5994-c345-459d-a380-295f9035d6ed"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[20436, 570, 1244, 31, 70, "ExampleSection",ExpressionUUID->"38601185-ae43-44fa-9b99-f77b014e98a8",
 CellID->2123667759],
Cell[21683, 603, 509, 14, 70, "ExampleText",ExpressionUUID->"1f56496b-ef7c-448a-9f29-a51d87289f97"],
Cell[CellGroupData[{
Cell[22217, 621, 376, 9, 70, "Input",ExpressionUUID->"2bd87448-2bf1-4ef5-a821-910bbcd522a3"],
Cell[22596, 632, 110, 1, 70, "Output",ExpressionUUID->"7e9efce8-4a2d-47fe-bade-cd87f227a3b4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22743, 638, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"c9184826-46eb-4a8d-aab5-cb55e5084cae"],
Cell[22970, 645, 443, 11, 70, "ExampleText",ExpressionUUID->"86b5f84a-3f1b-474e-b5a8-d4aefcdad8c3"],
Cell[CellGroupData[{
Cell[23438, 660, 241, 4, 70, "Input",ExpressionUUID->"58e2e44c-ab33-417f-9732-aef24f14a61d"],
Cell[23682, 666, 218, 5, 70, "Output",ExpressionUUID->"4c283c59-76a0-4e72-9340-89e6f850c498"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[23961, 678, 1237, 31, 70, "ExampleSection",ExpressionUUID->"44ddbdfb-6e3b-4243-89bf-1c2e046a29c2",
 CellID->1305812373],
Cell[25201, 711, 155, 2, 70, "ExampleText",ExpressionUUID->"45294eb4-546d-4646-b579-0039096cb7a7"],
Cell[CellGroupData[{
Cell[25381, 717, 222, 4, 70, "Input",ExpressionUUID->"2fdffe3f-a573-42be-812e-d6992570891c"],
Cell[25606, 723, 175, 3, 70, "Output",ExpressionUUID->"8e01a50d-b5f8-4cb8-ae07-812d62489685"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[25820, 731, 3086, 81, 70, "SeeAlsoSection",ExpressionUUID->"829b0129-bdcf-49c7-a931-11e552eab886"],
Cell[28909, 814, 746, 19, 70, "MoreAboutSection",ExpressionUUID->"d6299143-eea0-413f-9117-90db94496a52"],
Cell[29658, 835, 78, 0, 70, "FooterCell",ExpressionUUID->"7e4162b3-62cc-4ef7-82b8-e06b33ec696a"]
}
]
*)

(* End of internal cache information *)

