(* 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[     41421,       1083]
NotebookOptionsPosition[     32830,        923]
NotebookOutlinePosition[     34936,        973]
CellTagsIndexPosition[     34859,        968]
WindowTitle->BitListToByteList
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->
           "b4afcbf0-da5e-43f3-9440-643044c27386"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "31dabc14-4bda-4f6a-b984-f262c8975b30"],
        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->
           "c43e9039-d34a-45d6-a747-aabcc3b4f8c8"]
         }],ExpressionUUID->"69b0809c-2813-4a8a-b6c2-45c1602e1b08"],
         StripOnInput->False],{
        StyleBox["\"FromDigits\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/FromDigits"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"ByteListToBitList\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ByteListToBitList"], 
         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[
           "\"HexStringToByteList\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HexStringToByteList"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "3a54ef0d-5dc2-4b45-a336-dee938c10247"],
     "\[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->
           "21da08bb-1a30-4c44-a4d2-da3f87535da4"]
         }],ExpressionUUID->"de26e55f-d0f9-4f8b-a54e-b7e1fc303c5b"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "9ac4f25a-6dc0-433a-a700-d838e70f21e9"],
     "\[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->
           "0f878b4b-c9ea-413c-8592-89ed734a3a36"]
         }],ExpressionUUID->"71ae76e3-d4e1-4c13-84af-398e43b6be3c"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BitListToByteList\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BitListToByteList"], 
         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/BitListToByteList.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/BitListToByteList" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "9f587af0-b71b-4902-845f-d1b947516677"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "27904b69-7d05-4e0f-8bc1-e80503d69bbc"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"98e8d47a-e66a-4d82-94c1-e0a56b7b19aa"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"bbe0c92e-bdc5-496a-8440-926732cc9fad"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BitListToByteList", "ObjectName",ExpressionUUID->
      "58d15c12-f047-4322-a280-d320227f608b"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"2e2b778d-5565-485a-8eb2-a322f0d4385c"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "f6b660ac-948d-4f08-a0f2-dcbaf223efa5"]
    }],ExpressionUUID->"0d63e0bc-f577-4d80-9bd7-066d342de3ba"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"b7cc02ac-8fd2-4e90-a3f8-\
6aa6d9f76830"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BitListToByteList"]], 
         "paclet:WolframInstitute/Puzzles/ref/BitListToByteList", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["bits", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "b3a960cb-85c5-4d52-824d-0b38f87ef911"],
     "\[LineSeparator]",
     "gives the byte list packed from a flat list of 0s and 1s whose length \
is a multiple of 8, most significant bit first."
    }],ExpressionUUID->"94a117c4-4f7a-4aef-adb8-21aef29936bc"]}
  }]], "Usage",ExpressionUUID->"40fe5076-f4df-4bf2-9e6b-42fba538c4a8"]
}, 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->"f21f9d61-df0c-4f8a-9eb4-755093e6e7bf"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"183c2234-2aaa-42d6-9a7d-0d9f56a0dd5d"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "dca67c2c-2e1c-42b4-826d-051d1ecbc5e9"]],ExpressionUUID->"1f79f4a6-2f86-\
4942-988f-e8f6fab88a9b"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1436954015,ExpressionUUID->"53682258-1567-4294-a680-c9da6b78b625"],

Cell["\<\
The argument must be a list of 0s and 1s whose length is divisible by 8; \
anything else matches no definition and is returned unevaluated.\
\>", "Notes",ExpressionUUID->"25c29f6f-cddd-4dfc-9900-688aab236646"],

Cell["\<\
The result has exactly one eighth as many elements as the argument.\
\>", "Notes",ExpressionUUID->"146e455b-b35d-4928-8eb0-0cc3cff337de"],

Cell["The empty bit list gives the empty byte list.", "Notes",ExpressionUUID->"1e91f4a6-2bf6-40d8-978e-779eb6114e59"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteListToBitList"]], 
    "paclet:WolframInstitute/Puzzles/ref/ByteListToBitList", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2567b832-fc96-47ae-b59a-f638f9d0f6e6"],
 " is the inverse."
}], "Notes",ExpressionUUID->"038d599f-ab7c-410c-9799-406fb7ce70f6"],

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["bits", "TI"], ",", " ", "1", ",", " ", "8"}], "]"}]], 
  "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "03f4eb2d-9840-43f7-a293-992c8195cb7a"],
 ", the degenerate 1-bit to 8-bit case of the general regrouping."
}], "Notes",ExpressionUUID->"85b81ae7-4d4f-4393-980f-8b2640b61d41"],

Cell[TextData[{
 "A bit stream whose length is not a multiple of 8, as produced by an LSB \
extraction that stopped mid-byte, needs ",
 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->
  "a253a26d-f561-4a87-a559-789211ec1f42"],
 " with its ",
 Cell[BoxData["\<\"Padding\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0ee47307-801f-4c04-8db6-aa703eecbd3c"],
 " option rather than this function."
}], "Notes",ExpressionUUID->"d7835831-adef-478b-8df5-38a63eb8d54d"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"a2da800a-5f39-494c-83eb-3527fbe9d065"],

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->"bad5bc49-0e7e-44df-a608-b4f3fd225d38"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"2e4343b9-5c11-4616-ac98-48dca8603f18"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(10)", "ExampleCount",ExpressionUUID->
  "aeac4146-7c4a-4dcb-a8f4-470a5127c96d"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->285035943,ExpressionUUID->"4bf2f617-c56e-4033-9abc-a45adf2d0665"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"b575de12-0178-436e-ad07-02315f412971"],

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->
  "ff406e6e-e0a9-431c-aab6-9f9d4c360787"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b2f110d0-4fc2-48f6-a6a9-99ef22710043"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "ba6dfe3b-0190-455d-8580-719398353be1"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1710561191,ExpressionUUID->"40c41f58-f112-4b8c-9948-93ca1a211b37"],

Cell[TextData[{
 "Eight bits pack into the byte 0x41, the ASCII code of ",
 Cell[BoxData["\<\"A\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "34409ec1-34a2-47f3-899c-6f5dc9f8722a"],
 ":"
}], "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"06c05592-9ea8-4e3d-a7f2-7917042483ad"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitListToByteList", "[", 
  RowBox[{"{", 
   RowBox[{
   "0", ",", " ", "1", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", 
    "0", ",", " ", "0", ",", " ", "1"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"081c6fd4-b1e8-43ab-9389-7dfe46c9851e"],

Cell[BoxData[
 RowBox[{"{", "65", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c9eda3e9-dca4-4bea-be86-7e218243704d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ff7c0d28-d4a7-4e50-9a75-57fe0b278b98"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"6329906c-2f66-445d-\
a28c-8ada2673d2ca"],

Cell["Sixteen bits pack into two bytes:", "ExampleText",ExpressionUUID->"33b61663-958e-469c-91a1-0a4ac0186079"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitListToByteList", "[", 
  RowBox[{"{", 
   RowBox[{
   "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", 
    "1", ",", " ", "1", ",", " ", "1", ",", " ", "0", ",", " ", "0", ",", " ",
     "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", 
    " ", "0"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0834948d-6cc0-4487-88cd-78fc4db51f8f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"255", ",", "0"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ca4bfcf0-4d60-4cd3-9cbb-eca4d7a53ada"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "cbb8786b-b002-4b1e-bc5f-9b2a7de4296e"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"de2620c0-d096-412b-\
a00b-7853ff7beeaf"],

Cell["The empty bit list gives the empty byte list:", "ExampleText",ExpressionUUID->"7f82f409-c15a-44aa-a119-a3afe4f5a01e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitListToByteList", "[", 
  RowBox[{"{", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"410cdebd-21f0-4a5a-b740-6e70fef42142"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6b046b88-de61-426a-9d0a-d447208ce98f"]
}, 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->
  "50096a52-f52e-4f9f-abb2-3d02b45e425e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"4fc6cb55-1739-4513-b5df-51227e11dfca"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "bc695b6a-cee4-4560-a86e-038481fafb00"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"bd2efd28-d65a-4c4e-babf-c862af85e6b4"],

Cell["A 256-bit stream packs into a 32-byte key:", "ExampleText",ExpressionUUID->"c6dadd70-9a79-4621-b590-d654042938d9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"BitListToByteList", "[", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"1", ",", " ", "256"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c00afa2d-626c-414b-84f4-f298d6f8c724"],

Cell[BoxData["32"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"06d15bd6-14c0-4475-ac67-918205b91719"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "b752f7ac-7ac6-4c32-9e0a-6d2e4cb0d326"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"3c228caa-b2f0-4904-\
9839-459cf822a64e"],

Cell["\<\
The bytes recovered from a bit list can be printed as hexadecimal directly:\
\>", "ExampleText",ExpressionUUID->"956960bc-009f-4bae-b18c-0a0b1c403b87"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"BitListToByteList", "[", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", " ", "1", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ",
      "0", ",", " ", "0", ",", " ", "1", ",", " ", "0", ",", " ", "1", ",", 
     " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "1", ",",
      " ", "0"}], "}"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ae555508-c157-4e89-b122-60822122def5"],

Cell[BoxData["\<\"4142\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"94693d90-67c0-41ad-8f1a-ca61b5648a48"]
}, 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->
  "678845b3-c0f2-485b-be10-a414025ffc5f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d66785f8-83a4-4b9a-88cc-61e9de0a6408"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "180d5387-8736-4703-a69e-66137a4425f5"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"e9186c20-8c94-460b-8a7d-d859cf6eda15"],

Cell[TextData[{
 "The same bytes 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->
  "5c04ee89-9419-43a7-bd10-bfc327375074"],
 " at width 1 into width 8:"
}], "ExampleText",ExpressionUUID->"b30abef2-3e95-43c9-ad3c-83652e6fcb9e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BitListToByteList", "[", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", " ", "1", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ",
      "0", ",", " ", "0", ",", " ", "1"}], "}"}], "]"}], " ", "===", " ", 
  RowBox[{"BitRegroup", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "0", ",", " ", "1", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", 
      " ", "0", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", "1", ",", 
    " ", "8"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a1ec25b3-6fb6-4ae5-986c-68ff49856cbf"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"dba8805f-19c6-48e9-bde2-eb690644d8bd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "15357b3a-8402-4af9-94c9-e8cfe36a27a0"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"fcf77389-bbc6-4105-\
b973-0efa3cf34ca7"],

Cell["Packing inverts unpacking on every byte value:", "ExampleText",ExpressionUUID->"a2dd958a-c236-4e68-9ee2-22d72e184a14"],

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->"99bbe2a2-3353-41f3-a8b8-7f000a8c1026"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fd0380f3-e284-440f-89dd-fe3f2ee7a88b"]
}, 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->
  "c4fe3abd-30b0-4a08-8374-0e20fdb5c572"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"5786cd4d-1038-4e44-b10c-b799cacca3c6"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "421411b4-6887-4df4-b975-79bd5b71657b"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"6dc89ffa-dc42-4bd3-a87f-eaf419304414"],

Cell["\<\
A bit list whose length is not a multiple of 8 packs no whole bytes, so the \
call is returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"0bd6bf44-e62d-4d58-ada9-6c0cb2f8ae36"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitListToByteList", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", " ", "0", ",", " ", "1"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1f53516a-69a4-4f49-b3e0-c8864b978e2a"],

Cell[BoxData[
 RowBox[{"BitListToByteList", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0", ",", "1"}], "}"}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"60aa13f8-f4bb-4847-85dd-47d062a6094c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c0983de3-d9e1-469c-b063-c28abd74cad8"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"90d72ee9-1a8b-4ee5-\
a882-31a1c27673bf"],

Cell[TextData[{
 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->
  "9e7d1e15-e9d2-4d52-b6a2-35cfea059e07"],
 " with ",
 Cell[BoxData[
  RowBox[{"\<\"Padding\"\>", " ", "->", " ", "True"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d99df783-7cc6-4671-a8e6-943afe2aeb1a"],
 " is where a ragged tail is completed on purpose:"
}], "ExampleText",ExpressionUUID->"8aad039b-9fc2-4d93-baf0-886b75b29d6b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitRegroup", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", "1", ",", 
   " ", "8", ",", " ", 
   RowBox[{"\"\<Padding\>\"", " ", "->", " ", "True"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9196edbe-3410-4e26-9d5e-f9ae0322c956"],

Cell[BoxData[
 RowBox[{"{", "160", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"45de86c7-65c4-4c4c-9753-1d712c69023a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "5f38897f-4622-41aa-8dfb-c244e4895ddd"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"9571f207-58f8-43a0-\
816d-6384b89c8285"],

Cell["A list holding a value other than 0 or 1 is not a bit list:", \
"ExampleText",ExpressionUUID->"54011c28-fd47-4193-bd6b-02493ae864bb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitListToByteList", "[", 
  RowBox[{"{", 
   RowBox[{
   "2", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", 
    "0", ",", " ", "0", ",", " ", "0"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c4177cc4-fd21-42fa-98a2-4aa0f6015853"],

Cell[BoxData[
 RowBox[{"BitListToByteList", "[", 
  RowBox[{"{", 
   RowBox[{
   "2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
    "0"}], "}"}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"26d78fdc-a0e7-4bc4-b111-819b17dc9654"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteListToBitList"]], 
           "paclet:WolframInstitute/Puzzles/ref/ByteListToBitList", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "ba274e0e-df33-4cdf-9ba0-7a9ef7cc282d"],
        "\[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->
         "998a22ff-d5bd-4e18-bd83-78aa46797847"],
        "\[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->
         "186a5dd9-6648-4b42-8884-176e35112348"],
        "\[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->
         "7188e4d1-d359-4172-8ffd-c7e5a51bc7f7"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["FromDigits"]], "paclet:ref/FromDigits"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "124872ed-ff22-45ff-ab2a-72043ff484a0"]
       }], "SeeAlso",ExpressionUUID->"c01a0cdd-d36b-4cb0-8a2d-799796109439"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"124bfca1-cdd0-41a8-9b0b-\
d15c528cf9e7"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedGuide.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "2a5d2512-af91-4b68-9921-1f083828d3f9"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"efe1a0bd-edb0-43ec-bfa6-\
fb8a8170691b"],

Cell[" ", "FooterCell",ExpressionUUID->"af4e408f-a7a7-4da9-a8e9-1acb0b0e6ca0"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BitListToByteList",
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.502519}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BitListToByteList, paclet : \
WolframInstitute/Puzzles/ref/BitListToByteList, WolframInstitute/Puzzles \
Package Symbol][bits] gives the byte list packed from a flat list of 0s and \
1s whose length is a multiple of 8, most significant bit first.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "BitListToByteList", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "BitListToByteList", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BitListToByteList", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"b40cf774-840a-4247-b22e-aaffb157d300"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15274, 407, 349, 9, 70, "ExampleText",ExpressionUUID->"06c05592-9ea8-4e3d-a7f2-7917042483ad",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 34702, 962}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[585, 21, 6283, 151, 70, "AnchorBarGrid",ExpressionUUID->"98e8d47a-e66a-4d82-94c1-e0a56b7b19aa",
 CellID->1],
Cell[6871, 174, 107, 0, 70, "ContextNameCell",ExpressionUUID->"bbe0c92e-bdc5-496a-8440-926732cc9fad"],
Cell[CellGroupData[{
Cell[7003, 178, 560, 14, 70, "ObjectNameGrid",ExpressionUUID->"b7cc02ac-8fd2-4e90-a3f8-6aa6d9f76830"],
Cell[7566, 194, 819, 19, 70, "Usage",ExpressionUUID->"40fe5076-f4df-4bf2-9e6b-42fba538c4a8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8422, 218, 1444, 34, 70, "NotesSection",ExpressionUUID->"53682258-1567-4294-a680-c9da6b78b625",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1436954015],
Cell[9869, 254, 219, 3, 70, "Notes",ExpressionUUID->"25c29f6f-cddd-4dfc-9900-688aab236646"],
Cell[10091, 259, 147, 2, 70, "Notes",ExpressionUUID->"146e455b-b35d-4928-8eb0-0cc3cff337de"],
Cell[10241, 263, 117, 0, 70, "Notes",ExpressionUUID->"1e91f4a6-2bf6-40d8-978e-779eb6114e59"],
Cell[10361, 265, 479, 13, 70, "Notes",ExpressionUUID->"038d599f-ab7c-410c-9799-406fb7ce70f6"],
Cell[10843, 280, 637, 18, 70, "Notes",ExpressionUUID->"85b81ae7-4d4f-4393-980f-8b2640b61d41"],
Cell[11483, 300, 787, 20, 70, "Notes",ExpressionUUID->"d7835831-adef-478b-8df5-38a63eb8d54d"]
}, Closed]],
Cell[12285, 323, 80, 0, 70, "PageDelimiter",ExpressionUUID->"a2da800a-5f39-494c-83eb-3527fbe9d065"],
Cell[CellGroupData[{
Cell[12390, 327, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"4bf2f617-c56e-4033-9abc-a45adf2d0665",
 CellID->285035943],
Cell[13794, 366, 216, 4, 70, "Input",ExpressionUUID->"b575de12-0178-436e-ad07-02315f412971",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14035, 374, 1236, 31, 70, "ExampleSection",ExpressionUUID->"40c41f58-f112-4b8c-9948-93ca1a211b37",
 CellID->1710561191],
Cell[15274, 407, 349, 9, 70, "ExampleText",ExpressionUUID->"06c05592-9ea8-4e3d-a7f2-7917042483ad",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15648, 420, 348, 7, 70, "Input",ExpressionUUID->"081c6fd4-b1e8-43ab-9389-7dfe46c9851e"],
Cell[15999, 429, 130, 2, 70, "Output",ExpressionUUID->"c9eda3e9-dca4-4bea-be86-7e218243704d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16166, 436, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"6329906c-2f66-445d-a28c-8ada2673d2ca"],
Cell[16393, 443, 111, 0, 70, "ExampleText",ExpressionUUID->"33b61663-958e-469c-91a1-0a4ac0186079"],
Cell[CellGroupData[{
Cell[16529, 447, 478, 9, 70, "Input",ExpressionUUID->"0834948d-6cc0-4487-88cd-78fc4db51f8f"],
Cell[17010, 458, 154, 3, 70, "Output",ExpressionUUID->"ca4bfcf0-4d60-4cd3-9cbb-eca4d7a53ada"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17213, 467, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"de2620c0-d096-412b-a00b-7853ff7beeaf"],
Cell[17440, 474, 123, 0, 70, "ExampleText",ExpressionUUID->"7f82f409-c15a-44aa-a119-a3afe4f5a01e"],
Cell[CellGroupData[{
Cell[17588, 478, 215, 4, 70, "Input",ExpressionUUID->"410cdebd-21f0-4a5a-b740-6e70fef42142"],
Cell[17806, 484, 124, 2, 70, "Output",ExpressionUUID->"6b046b88-de61-426a-9d0a-d447208ce98f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17991, 493, 1227, 31, 70, "ExampleSection",ExpressionUUID->"bd2efd28-d65a-4c4e-babf-c862af85e6b4",
 CellID->1293636265],
Cell[19221, 526, 120, 0, 70, "ExampleText",ExpressionUUID->"c6dadd70-9a79-4621-b590-d654042938d9"],
Cell[CellGroupData[{
Cell[19366, 530, 303, 6, 70, "Input",ExpressionUUID->"c00afa2d-626c-414b-84f4-f298d6f8c724"],
Cell[19672, 538, 108, 1, 70, "Output",ExpressionUUID->"06d15bd6-14c0-4475-ac67-918205b91719"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19817, 544, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"3c228caa-b2f0-4904-9839-459cf822a64e"],
Cell[20044, 551, 161, 2, 70, "ExampleText",ExpressionUUID->"956960bc-009f-4bae-b18c-0a0b1c403b87"],
Cell[CellGroupData[{
Cell[20230, 557, 530, 10, 70, "Input",ExpressionUUID->"ae555508-c157-4e89-b122-60822122def5"],
Cell[20763, 569, 118, 1, 70, "Output",ExpressionUUID->"94693d90-67c0-41ad-8f1a-ca61b5648a48"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[20942, 577, 1244, 31, 70, "ExampleSection",ExpressionUUID->"e9186c20-8c94-460b-8a7d-d859cf6eda15",
 CellID->2123667759],
Cell[22189, 610, 510, 14, 70, "ExampleText",ExpressionUUID->"b30abef2-3e95-43c9-ad3c-83652e6fcb9e"],
Cell[CellGroupData[{
Cell[22724, 628, 632, 15, 70, "Input",ExpressionUUID->"a1ec25b3-6fb6-4ae5-986c-68ff49856cbf"],
Cell[23359, 645, 110, 1, 70, "Output",ExpressionUUID->"dba8805f-19c6-48e9-bde2-eb690644d8bd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23506, 651, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"fcf77389-bbc6-4105-b973-0efa3cf34ca7"],
Cell[23733, 658, 124, 0, 70, "ExampleText",ExpressionUUID->"a2dd958a-c236-4e68-9ee2-22d72e184a14"],
Cell[CellGroupData[{
Cell[23882, 662, 407, 9, 70, "Input",ExpressionUUID->"99bbe2a2-3353-41f3-a8b8-7f000a8c1026"],
Cell[24292, 673, 110, 1, 70, "Output",ExpressionUUID->"fd0380f3-e284-440f-89dd-fe3f2ee7a88b"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24463, 681, 1237, 31, 70, "ExampleSection",ExpressionUUID->"6dc89ffa-dc42-4bd3-a87f-eaf419304414",
 CellID->1305812373],
Cell[25703, 714, 193, 3, 70, "ExampleText",ExpressionUUID->"0bd6bf44-e62d-4d58-ada9-6c0cb2f8ae36"],
Cell[CellGroupData[{
Cell[25921, 721, 264, 5, 70, "Input",ExpressionUUID->"1f53516a-69a4-4f49-b3e0-c8864b978e2a"],
Cell[26188, 728, 207, 4, 70, "Output",ExpressionUUID->"60aa13f8-f4bb-4847-85dd-47d062a6094c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26432, 737, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"90d72ee9-1a8b-4ee5-a882-31a1c27673bf"],
Cell[26659, 744, 721, 19, 70, "ExampleText",ExpressionUUID->"8aad039b-9fc2-4d93-baf0-886b75b29d6b"],
Cell[CellGroupData[{
Cell[27405, 767, 373, 8, 70, "Input",ExpressionUUID->"9196edbe-3410-4e26-9d5e-f9ae0322c956"],
Cell[27781, 777, 131, 2, 70, "Output",ExpressionUUID->"45de86c7-65c4-4c4c-9753-1d712c69023a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27961, 785, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"9571f207-58f8-43a0-816d-6384b89c8285"],
Cell[28188, 792, 139, 1, 70, "ExampleText",ExpressionUUID->"54011c28-fd47-4193-bd6b-02493ae864bb"],
Cell[CellGroupData[{
Cell[28352, 797, 348, 7, 70, "Input",ExpressionUUID->"c4177cc4-fd21-42fa-98a2-4aa0f6015853"],
Cell[28703, 806, 266, 6, 70, "Output",ExpressionUUID->"26d78fdc-a0e7-4bc4-b111-819b17dc9654"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[29020, 818, 3024, 80, 70, "SeeAlsoSection",ExpressionUUID->"124bfca1-cdd0-41a8-9b0b-d15c528cf9e7"],
Cell[32047, 900, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"efe1a0bd-edb0-43ec-bfa6-fb8a8170691b"],
Cell[32748, 921, 78, 0, 70, "FooterCell",ExpressionUUID->"af4e408f-a7a7-4da9-a8e9-1acb0b0e6ca0"]
}
]
*)

(* End of internal cache information *)

