(* 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[     54243,       1388]
NotebookOptionsPosition[     44976,       1217]
NotebookOutlinePosition[     47337,       1270]
CellTagsIndexPosition[     47259,       1265]
WindowTitle->ImageBitStreamBytes
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->
           "af436411-0756-46b0-b511-74e10ceeaae7"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "ba1b9bd3-3459-463a-9b89-914f7883c342"],
        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->
           "5b5a9791-6f09-4d6f-9a2e-e3f5fce389f5"]
         }],ExpressionUUID->"0352502d-25d6-43d3-be7f-59849cfb7f29"],
         StripOnInput->False],{
        StyleBox["\"ByteArray\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/ByteArray"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"ImageBitStream\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ImageBitStream"], 
         StyleBox[
          StyleBox[
           "\"ImageBitPlane\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ImageBitPlane"], 
         StyleBox[
          StyleBox[
           "\"ImageBitPlaneScan\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ImageBitPlaneScan"], 
         StyleBox[
          StyleBox[
           "\"ByteArrayStrings\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ByteArrayStrings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "b717cff8-2ffe-4c53-8313-9daaf7da7bfc"],
     "\[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->
           "f3e63d3b-70b1-4e2e-8280-380ca802ca25"]
         }],ExpressionUUID->"076a9386-bb8b-4384-a256-624a877004ed"],
         StripOnInput->False],{
        "\"Steganography\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Steganography"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "d185dfba-f6ca-4ecd-a058-714a3272bac1"],
     "\[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->
           "235485a6-c226-4f2f-b91d-c6d5c7cba598"]
         }],ExpressionUUID->"707e3809-083c-4ef8-98dd-2d0a99909f89"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ImageBitStreamBytes\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/ImageBitStreamBytes"], 
         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/ImageBitStreamBytes.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/ImageBitStreamBytes" <> ".html"],
               None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "0e1acaa7-3c8b-4994-9b2a-0e7ff7dfdebc"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "c48db1fa-e2bd-43cc-9801-d703bf220cf2"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"65a42a7b-b9d1-49a7-957e-0b23fff02f52"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"fbb0c5ef-1082-4e75-825b-bd3b65acdbaf"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ImageBitStreamBytes", "ObjectName",ExpressionUUID->
      "1de493ef-f46b-43d8-bacd-ecdab5f94c61"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"cc5ceb18-9919-4e87-8f2e-4c4ab52093c4"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "61782aad-1584-4e4c-809f-b1ed798ef6f5"]
    }],ExpressionUUID->"ef559fae-f2f7-4102-91c2-e9aa4c4e9002"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"249b4bf4-252f-47fe-8c2e-\
3aab4152ee0a"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ImageBitStreamBytes"]], 
         "paclet:WolframInstitute/Puzzles/ref/ImageBitStreamBytes", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["image", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "0a7961f0-905d-4190-b832-b384d4c4888d"],
     "\[LineSeparator]",
     "packs the least significant bits of ",
     StyleBox["image", "TI"],
     " into a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["ByteArray"]], "paclet:ref/ByteArray"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "dd54f3c2-31e7-4c46-a232-5fd720800435"],
     ", taking the first bit of the stream as the most significant bit of the \
first byte."
    }],ExpressionUUID->"611d14ae-ea6f-4407-bd67-785ae8ad0e88"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ImageBitStreamBytes"]], 
         "paclet:WolframInstitute/Puzzles/ref/ImageBitStreamBytes", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["image", "TI"], ",", " ", 
        StyleBox["opts", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "778bb836-4767-4f74-99ad-e4eb047798da"],
     "\[LineSeparator]",
     "packs a different traversal, or packs it in the opposite bit order."
    }],ExpressionUUID->"4821bb8c-fffb-4761-87a0-b34c76552ba4"]}
  }]], "Usage",ExpressionUUID->"ff38c856-da71-4b1e-9771-fb5f14d047d6"]
}, 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->"a86ac093-413e-4a93-a504-84c4185e58a8"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"48913d06-726f-4c23-ae25-f5f3c416baf0"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "8f30acf1-c410-4bed-9ddc-5fb1556c7339"]],ExpressionUUID->"130fb95b-6227-\
42e8-9b38-966db9ad0255"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1753448976,ExpressionUUID->"ba42e4cf-d2b8-45d1-b52a-c8dcdb5ed588"],

Cell[TextData[{
 "The bits come from ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ImageBitStream"]], 
    "paclet:WolframInstitute/Puzzles/ref/ImageBitStream", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5e4e13d0-b7ea-4bbf-ae15-fa3926ba43d0"],
 ", so every option of that function applies here as well."
}], "Notes",ExpressionUUID->"95f3c730-34b6-416c-936b-bb44798bb010"],

Cell[TextData[{
 "A trailing group of fewer than eight bits is dropped, so the result holds \
",
 Cell[BoxData[
  RowBox[{"Floor", "[", 
   RowBox[{"n", "/", "8"}], "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "811f3501-b2a1-488d-9694-05a7ec944d5d"],
 " bytes for a stream of ",
 StyleBox["n", "TI"],
 " bits."
}], "Notes",ExpressionUUID->"95d15ca0-35f2-4b2c-8859-eb4cf3b1a02a"],

Cell[BoxData[GridBox[{
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "e19b393a-f7a1-4660-87e2-9cda928b8bc3"], Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"dba0d920-956a-4fb1-93f1-3d4217370b9f"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"793c5327-2985-42aa-99aa-16d9e6e7e945"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"ab9fada0-5027-4331-a093-dd5efa117407"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "6d04b3f9-65cd-43c6-b501-b37531655ef1"], Cell[TextData[Cell[
    BoxData["\"\<BitOrder\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "d301b5dc-0643-4581-a0b6-f944e0bd357b"]], "TableText",ExpressionUUID->
     "2f0f1f86-4791-44e6-ab72-c49f8b609707"], Cell[TextData[Cell[
    BoxData["\"\<MostSignificantFirst\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "630ac7db-836d-4629-a152-676fc0537c3f"]], "TableText",ExpressionUUID->
     "4e09eb9f-97c4-48e6-982b-d3ae221b9b7d"], Cell["\<\
whether the first bit of the stream becomes the most or the least significant \
bit of its byte\
\>", "TableText",ExpressionUUID->"5976d143-cf7b-4a0a-bf2a-e2aaf65f1b19"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "f40effb1-eee3-4bca-a2dd-91a5fc747792"], Cell[TextData[Cell[
    BoxData["\"\<BitPlanes\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "ec3dc177-d377-49e1-8631-dd5cd761af1d"]], "TableText",ExpressionUUID->
     "faeae155-9794-4182-927d-c15fba09e6fa"], Cell[TextData[Cell[BoxData[
     RowBox[{"{", "0", "}"}]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "0d633407-1137-4ee1-9c52-afda6d39f96f"]], "TableText",ExpressionUUID->
     "388fd71c-90d5-44b4-b652-db003b71cbe7"], Cell["\<\
bit indices to read from each sample, in the order they are emitted\
\>", "TableText",ExpressionUUID->"a8a07de9-fb2c-4a74-8b8d-83ee1dcf5c91"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "98502fac-4b6b-492b-a142-dc0ab1cc6266"], Cell[TextData[Cell[
    BoxData["\"\<Channels\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "003585fc-8daa-4cbe-be08-cc3d412ab279"]], "TableText",ExpressionUUID->
     "10c3b245-5ac7-437f-b56c-f39939048467"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["All"]], "paclet:ref/All"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "386ab301-929d-4d37-be91-8972c1cf2216"]], "TableText",ExpressionUUID->
     "cd039aab-f65d-4ec8-8820-d7ecd0af0606"], Cell[TextData[{
     "a channel index, a channel name, a list of either, or ",
     Cell[BoxData["All"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "57d02ba1-9696-4669-be5e-5907a59bde2b"]
    }], "TableText",ExpressionUUID->"de592c3b-aa61-407c-8cff-2f548b892533"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "77424add-64cb-4d3b-9062-7e43aff4953b"], Cell[TextData[Cell[
    BoxData["\"\<ScanOrder\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "a85a4064-17df-4129-9970-fd64a2ff7aea"]], "TableText",ExpressionUUID->
     "c79d1535-e8fe-4a15-9500-ecd224ebab91"], Cell[TextData[Cell[
    BoxData["\"\<Row\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "e1649a6c-ad71-4430-828d-2a90fbd81726"]], "TableText",ExpressionUUID->
     "09efc581-ce6f-48be-b59d-ab1dc9a12a56"], Cell[TextData[{
     Cell[BoxData["\"\<Row\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "3dae80b1-9539-4ebb-8670-fe94109d9592"],
     " for raster order, ",
     Cell[BoxData["\"\<Column\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "8639e552-0660-424f-a81b-135aa05ab46b"],
     " for column-major order"
    }], "TableText",ExpressionUUID->"ef479ffd-0ae8-4768-8988-31f8b9b918de"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "7c24a10e-a485-4c0f-8999-eb48dc4aa8c0"], Cell[TextData[Cell[
    BoxData["\"\<ChannelOrder\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "4b437238-f51f-4711-9902-3155855911f3"]], "TableText",ExpressionUUID->
     "95a14b49-f1a1-4301-9bde-7adbb461f2de"], Cell[TextData[Cell[
    BoxData["\"\<Interleaved\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "1a7be6cd-5723-4b25-81db-88d7fe412b88"]], "TableText",ExpressionUUID->
     "a9611c97-f2d5-4bdf-9fd4-b6867eb19f87"], Cell[TextData[{
     Cell[BoxData["\"\<Interleaved\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "55a7496d-3b2b-43c7-8524-f455993e7d7b"],
     " reads all channels of a pixel before moving on, ",
     Cell[BoxData["\"\<Planar\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "24045d9e-e897-4bb8-9567-479c3dd989b5"],
     " reads one whole channel at a time"
    }], "TableText",ExpressionUUID->"dece33e6-adb6-44b5-aaab-e3c1cd5530ba"]}
  }]], "3ColumnTableMod",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "Rows" -> {None, None, None, None, None, {None}}},
 GridBoxDividers->{
  "Rows" -> {{
     True, True, True, True, True, True, 
      True}}}},ExpressionUUID->"21cf44d4-2677-49f1-b331-60fb22ba65f8"],

Cell["\<\
Text-carrying encoders write the most significant bit first; the opposite \
order turns up in hand-rolled scripts that forgot to reverse.\
\>", "Notes",ExpressionUUID->"9714c51c-d0af-4f0a-9a5c-86660d7fe96b"],

Cell[TextData[{
 "An unsupported bit order, or any argument ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ImageBitStream"]], 
    "paclet:WolframInstitute/Puzzles/ref/ImageBitStream", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d28a1eec-2175-426c-b709-d3eb951d686f"],
 " does not accept, matches no definition and the call is returned \
unevaluated."
}], "Notes",ExpressionUUID->"0b2c3ab2-d90d-4650-b319-d060e7f7160d"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"9465038b-da85-4307-bb9e-a7f5cda38aa5"],

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->"c906f432-f1c6-477a-9c3d-975f823cf468"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"5f5584bd-8c26-4cf5-918c-b79b951973b9"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(11)", "ExampleCount",ExpressionUUID->
  "145e8776-6da9-4eba-80db-2c85621823d2"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->298851851,ExpressionUUID->"bbb5b085-5f00-49d4-9b17-e4d17bc2e8bd"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"ecb54bb7-33ce-42be-ae64-87459251cc04"],

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->
  "7a0840df-4e5f-4a5b-8355-d4ef01089f46"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"553fbfee-5eca-41f5-9610-f6ea54fe2319"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "308431ae-0770-400f-8150-b32cceb84bb2"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1986293071,ExpressionUUID->"99c9c9b9-a73a-4352-8b13-364fc383c543"],

Cell[TextData[{
 "Sixteen carrier samples whose low bits spell ",
 Cell[BoxData["\<\"Hi\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ca01f62a-b169-4896-9c5d-4ba9d52ec4c9"],
 " in US-ASCII:"
}], "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"0303a76c-960d-4cfc-896b-a2658650982f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"ImageBitStreamBytes", "[", 
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Partition", "[", 
      RowBox[{
       RowBox[{"100", " ", "+", " ", 
        RowBox[{"{", 
         RowBox[{
         "0", ",", " ", "1", ",", " ", "0", ",", " ", "0", ",", " ", "1", ",",
           " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", 
          "1", ",", " ", "1", ",", " ", "0", ",", " ", "1", ",", " ", "0", ",",
           " ", "0", ",", " ", "1"}], "}"}]}], ",", " ", "4"}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"74750020-c0ce-4a28-bef8-4ccdaf02d66d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"72", ",", "105"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c93605e3-add0-40ec-ba75-e34ff8122e7e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7b87c538-6706-42f5-a48f-d31fe7cd86ea"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"1d37dda0-eb2f-4391-\
be94-228027b1dd74"],

Cell["The same bytes read as text:", "ExampleText",ExpressionUUID->"5b1bf610-e88d-46f8-9e9d-ebef15b3fc39"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteArrayToString", "[", 
  RowBox[{"ImageBitStreamBytes", "[", 
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Partition", "[", 
      RowBox[{
       RowBox[{"100", " ", "+", " ", 
        RowBox[{"{", 
         RowBox[{
         "0", ",", " ", "1", ",", " ", "0", ",", " ", "0", ",", " ", "1", ",",
           " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", 
          "1", ",", " ", "1", ",", " ", "0", ",", " ", "1", ",", " ", "0", ",",
           " ", "0", ",", " ", "1"}], "}"}]}], ",", " ", "4"}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b6c0d7b3-29a2-48c3-8d08-0a484918f5ad"],

Cell[BoxData["\<\"Hi\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9a1145d2-ee0f-4d28-be45-139faaeb3c82"]
}, 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->
  "368da9d5-5557-4aa8-ad32-7d1f1d0a8d35"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"53c03fd0-ae34-4e68-8cd9-3caf0837e4a5"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "d22c2c7d-28e0-43af-bcbb-7f3dedaa985c"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"34f071dc-20fe-4625-9795-5c432fcb71bc"],

Cell["\<\
Packing the same bits least significant first reverses each group of eight, \
turning 0x48 into 0x12:\
\>", "ExampleText",ExpressionUUID->"29f92ec1-7578-43dc-b484-5b50b45b893c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"ImageBitStreamBytes", "[", 
   RowBox[{
    RowBox[{"Image", "[", 
     RowBox[{
      RowBox[{"Partition", "[", 
       RowBox[{
        RowBox[{"100", " ", "+", " ", 
         RowBox[{"{", 
          RowBox[{
          "0", ",", " ", "1", ",", " ", "0", ",", " ", "0", ",", " ", "1", ",",
            " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", 
           "1", ",", " ", "1", ",", " ", "0", ",", " ", "1", ",", " ", "0", ",",
            " ", "0", ",", " ", "1"}], "}"}]}], ",", " ", "4"}], "]"}], ",", 
      " ", "\"\<Byte\>\""}], "]"}], ",", " ", 
    RowBox[{"\"\<BitOrder\>\"", " ", "->", 
     " ", "\"\<LeastSignificantFirst\>\""}]}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9a2d737f-fe9d-4459-b98f-8582cd894865"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"18", ",", "150"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"541b84ca-fc0f-480e-9361-e67a77745108"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "17ee604d-1dac-4dcb-8f4a-271f90c68a94"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"bcb3d088-5936-4726-\
9653-6d75bb597d4f"],

Cell["\<\
Restricting to one channel takes one bit per pixel instead of three:\
\>", "ExampleText",ExpressionUUID->"61cb40af-2d3c-43b3-ba26-008a107fe014"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"ImageBitStreamBytes", "[", 
   RowBox[{
    RowBox[{"Image", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "j", ",", " ", "128"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "16"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"j", ",", " ", "16"}], "}"}]}], "]"}], ",", 
      " ", "\"\<Byte\>\""}], "]"}], ",", " ", 
    RowBox[{"\"\<Channels\>\"", " ", "->", " ", "\"\<Green\>\""}]}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fc299ea0-8833-485a-ae4b-b4185db120ae"],

Cell[BoxData["32"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"12508b9d-4cb0-45d1-9c07-19877b83de6e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "280f3bc3-4d5e-4445-acb7-115d0c6d6940"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"9e7a2494-5105-44b7-\
8579-1e3610cd8ff1"],

Cell["\<\
All three channels of the same image give three times as many bytes:\
\>", "ExampleText",ExpressionUUID->"ffcd1b20-50f0-4f43-a00b-a04ffd3106a2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"ImageBitStreamBytes", "[", 
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "j", ",", " ", "128"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "16"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"j", ",", " ", "16"}], "}"}]}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1f018906-7463-498f-9121-ebaea5fd3c06"],

Cell[BoxData["96"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8acdb62a-0fb1-4b10-a618-313eae8b6994"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ed2a1d49-b368-4532-b177-bbf04393de37"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"180f7090-2f8a-451b-\
8ee3-fc22fe907940"],

Cell["Reading two bit planes doubles the payload again:", "ExampleText",ExpressionUUID->"8f90e81f-6bbb-490a-82c9-64e4d6aacefe"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"ImageBitStreamBytes", "[", 
   RowBox[{
    RowBox[{"Image", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "j", ",", " ", "128"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "16"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"j", ",", " ", "16"}], "}"}]}], "]"}], ",", 
      " ", "\"\<Byte\>\""}], "]"}], ",", " ", 
    RowBox[{"\"\<BitPlanes\>\"", " ", "->", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}]}]}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2436a380-32f6-4853-842b-f4ebf634d5ba"],

Cell[BoxData["192"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"14af3821-a875-4234-855c-7b0e7f66864c"]
}, 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->
  "02ba991f-537c-42ec-bb4c-a982a3b3fc64"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e5048d8d-caea-4c01-bae6-c00e1fac41af"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "76cb5123-dc65-417b-95d3-702bb4b72489"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"f887676b-48ef-4646-abdc-5bc43eb90042"],

Cell["\<\
A recovered stream is a byte sequence like any other, so the kernel's \
importers can open it. Here the low bits of a carrier hold a short text file:\
\
\>", "ExampleText",ExpressionUUID->"aa5cf7dd-e9b7-4b58-93a4-8991cd995cdd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteArrayToString", "[", 
  RowBox[{"Take", "[", 
   RowBox[{
    RowBox[{"ImageBitStreamBytes", "[", 
     RowBox[{"Image", "[", 
      RowBox[{
       RowBox[{"Partition", "[", 
        RowBox[{
         RowBox[{"MapIndexed", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"BitOr", "[", 
             RowBox[{
              RowBox[{"BitAnd", "[", 
               RowBox[{"200", ",", " ", "254"}], "]"}], ",", " ", "#1"}], 
             "]"}], " ", "&"}], ",", " ", 
           RowBox[{"Flatten", "[", 
            RowBox[{"IntegerDigits", "[", 
             RowBox[{
              RowBox[{"ToCharacterCode", "[", "\"\<secret\>\"", "]"}], ",", 
              " ", "2", ",", " ", "8"}], "]"}], "]"}]}], "]"}], ",", " ", 
         "8"}], "]"}], ",", " ", "\"\<Byte\>\""}], "]"}], "]"}], ",", " ", 
    "6"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"42b8c6ae-1ef1-4c6e-9286-a22e5a4b66d3"],

Cell[BoxData["\<\"secret\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6fbb759b-4e23-469b-897d-e3df5b33b301"]
}, 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->
  "26e3fcff-4b9d-490b-bfbf-5f04a61f46bc"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"01fd3196-7406-4421-b93b-2f6bc7a0b286"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "13562e36-1e9a-40a0-9811-f256f65c20b6"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"9d2766d2-ec18-4df3-bb2f-dd708689f6c5"],

Cell["\<\
The bytes are the bit stream partitioned into eights and read as binary \
numbers:\
\>", "ExampleText",ExpressionUUID->"67694741-aec7-4161-b56f-cabe2ca39db4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Normal", "[", 
   RowBox[{"ImageBitStreamBytes", "[", 
    RowBox[{"Image", "[", 
     RowBox[{
      RowBox[{"Partition", "[", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"0", ",", " ", "63"}], "]"}], ",", " ", "8"}], "]"}], ",", 
      " ", "\"\<Byte\>\""}], "]"}], "]"}], "]"}], " ", "===", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"FromDigits", "[", 
      RowBox[{"#", ",", " ", "2"}], "]"}], " ", "&"}], " ", "/@", " ", 
    RowBox[{"Partition", "[", 
     RowBox[{
      RowBox[{"ImageBitStream", "[", 
       RowBox[{"Image", "[", 
        RowBox[{
         RowBox[{"Partition", "[", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", " ", "63"}], "]"}], ",", " ", "8"}], "]"}], ",",
          " ", "\"\<Byte\>\""}], "]"}], "]"}], ",", " ", "8"}], "]"}]}], 
   ")"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"89940a24-f7c6-401f-97fa-5b2db4db56a0"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a222fdea-840d-4106-9671-5bf862ee45df"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "f2c8fb20-fdd5-466e-a7d9-647fc4dee5bd"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7cece08c-04b4-4b34-\
a914-e20e0bbfdcf4"],

Cell["\<\
A stream that is not a whole number of bytes loses its tail: twelve bits pack \
to one byte:\
\>", "ExampleText",ExpressionUUID->"0ff3c347-8305-4bb4-8917-42a5912cc8cf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"ImageBitStreamBytes", "[", 
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", " ", 
         RowBox[{"10", " ", "+", " ", "i"}], ",", " ", 
         RowBox[{"20", " ", "+", " ", "i"}]}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "4"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"j", ",", " ", "1"}], "}"}]}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"412fc4cf-73af-44e8-b130-38ae2e62ea55"],

Cell[BoxData["1"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"27374175-d89a-47e0-8d1f-1073c7de995b"]
}, 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->
  "2861f078-8611-4566-8c2a-4f0a416f8a8f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"60a86a6c-d76d-45bd-a645-ac391f7d5dcd"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "342b8539-e702-4e5e-b7f3-c12d63513a51"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"bce58e21-3a4b-4f79-984d-eeed752bef8e"],

Cell["\<\
An unsupported bit order is returned unevaluated rather than defaulted:\
\>", "ExampleText",ExpressionUUID->"46f89859-1219-4c99-8e66-2c0091244ec1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImageBitStreamBytes", "[", 
  RowBox[{
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Partition", "[", 
      RowBox[{
       RowBox[{"Range", "[", 
        RowBox[{"0", ",", " ", "15"}], "]"}], ",", " ", "4"}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], ",", " ", 
   RowBox[{"\"\<BitOrder\>\"", " ", "->", " ", "\"\<Backwards\>\""}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4d5ef701-fd36-44b1-babc-669b1baa72c1"],

Cell[BoxData[
 RowBox[{"ImageBitStreamBytes", "[", 
  RowBox[{
   GraphicsBox[
    TagBox[
     RasterBox[
      RawArray["UnsignedInteger8", {{0, 1, 2, 3}, {4, 5, 6, 7}, {8, 9, 10, 
       11}, {12, 13, 14, 15}}], {{0, 4.}, {4., 0}}, {0, 255},
      ColorFunction->GrayLevel],
     BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None],
     Selectable->False],
    DefaultBaseStyle->"ImageGraphics",
    ImageSizeRaw->{4., 4.},
    PlotRange->{{0, 4.}, {0, 4.}}], ",", 
   RowBox[{"\<\"BitOrder\"\>", "\[Rule]", "\<\"Backwards\"\>"}]}], 
  "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2b814654-54bb-4a62-844e-ed26362d0c86"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8a07375e-b1a7-46e4-aa06-3c7c892dc673"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"3aebd6ee-547a-4db9-\
ad84-d55785bee3c4"],

Cell["\<\
Every traversal of a carrier produces bytes, so a result is never evidence on \
its own that anything was hidden. Here a plain gradient yields perfectly \
ordinary-looking bytes:\
\>", "ExampleText",ExpressionUUID->"0c6437d8-d9f6-49c1-851d-311e41069c87"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"Take", "[", 
   RowBox[{
    RowBox[{"ImageBitStreamBytes", "[", 
     RowBox[{"Image", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", " ", "j", ",", " ", "128"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"i", ",", " ", "16"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"j", ",", " ", "16"}], "}"}]}], "]"}], ",", 
       " ", "\"\<Byte\>\""}], "]"}], "]"}], ",", " ", "8"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"46ab69b9-8019-453a-b4cf-0f09803abba7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "211", ",", "77", ",", "52", ",", "211", ",", "77", ",", "52", ",", "65", ",",
    "4"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b69bffe2-dd9a-4985-98a3-322b509e796d"]
}, 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["ImageBitStream"]], 
           "paclet:WolframInstitute/Puzzles/ref/ImageBitStream", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "f8ddfb05-4541-4919-9883-b78221c053bf"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ImageBitPlane"]], 
           "paclet:WolframInstitute/Puzzles/ref/ImageBitPlane", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "c4aebf43-ba99-4016-b865-99bdac93f2b0"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ImageBitPlaneScan"]], 
           "paclet:WolframInstitute/Puzzles/ref/ImageBitPlaneScan", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "15ce43cc-3097-4f50-8012-877a76f63307"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteArrayStrings"]], 
           "paclet:WolframInstitute/Puzzles/ref/ByteArrayStrings", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "e9501c0e-ae2c-4fc6-a27b-430c05ae6fa4"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteArray"]], "paclet:ref/ByteArray"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "95184dfe-56a9-4163-9228-f691d2c39fd3"]
       }], "SeeAlso",ExpressionUUID->"90df6961-32dd-4336-82f4-901e7c956ded"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"39024f40-3595-4288-95b5-\
a5969df32711"],

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["Steganography"]], 
           "paclet:WolframInstitute/Puzzles/guide/Steganography"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "c92aa0d3-65e1-43bf-a0ae-caa9c048c3f1"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"6efd0f02-2663-4a06-a670-\
3ecc240cd018"],

Cell[" ", "FooterCell",ExpressionUUID->"71a9cb01-159c-435d-a253-8dc3399cfda5"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ImageBitStreamBytes",
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, 40.150369}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ImageBitStreamBytes, paclet : \
WolframInstitute/Puzzles/ref/ImageBitStreamBytes, WolframInstitute/Puzzles \
Package Symbol][image] packs the least significant bits of image into a \
ByteArray, taking the first bit of the stream as the most significant bit of \
the first byte. PackageLink[ImageBitStreamBytes, paclet : \
WolframInstitute/Puzzles/ref/ImageBitStreamBytes, WolframInstitute/Puzzles \
Package Symbol][image, opts] packs a different traversal, or packs it in the \
opposite bit order.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "ImageBitStreamBytes", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "ImageBitStreamBytes", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/ImageBitStreamBytes", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"5d3d6c76-d94a-40b1-94d5-f556b6401271"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[21627, 537, 353, 9, 70, "ExampleText",ExpressionUUID->"0303a76c-960d-4cfc-896b-a2658650982f",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 47102, 1259}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[587, 21, 6330, 153, 70, "AnchorBarGrid",ExpressionUUID->"65a42a7b-b9d1-49a7-957e-0b23fff02f52",
 CellID->1],
Cell[6920, 176, 107, 0, 70, "ContextNameCell",ExpressionUUID->"fbb0c5ef-1082-4e75-825b-bd3b65acdbaf"],
Cell[CellGroupData[{
Cell[7052, 180, 562, 14, 70, "ObjectNameGrid",ExpressionUUID->"249b4bf4-252f-47fe-8c2e-3aab4152ee0a"],
Cell[7617, 196, 1907, 49, 70, "Usage",ExpressionUUID->"ff38c856-da71-4b1e-9771-fb5f14d047d6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9561, 250, 1444, 34, 70, "NotesSection",ExpressionUUID->"ba42e4cf-d2b8-45d1-b52a-c8dcdb5ed588",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1753448976],
Cell[11008, 286, 537, 14, 70, "Notes",ExpressionUUID->"95f3c730-34b6-416c-936b-bb44798bb010"],
Cell[11548, 302, 436, 12, 70, "Notes",ExpressionUUID->"95d15ca0-35f2-4b2c-8859-eb4cf3b1a02a"],
Cell[11987, 316, 5830, 112, 70, "3ColumnTableMod",ExpressionUUID->"21cf44d4-2677-49f1-b331-60fb22ba65f8"],
Cell[17820, 430, 217, 3, 70, "Notes",ExpressionUUID->"9714c51c-d0af-4f0a-9a5c-86660d7fe96b"],
Cell[18040, 435, 583, 15, 70, "Notes",ExpressionUUID->"0b2c3ab2-d90d-4650-b319-d060e7f7160d"]
}, Closed]],
Cell[18638, 453, 80, 0, 70, "PageDelimiter",ExpressionUUID->"9465038b-da85-4307-bb9e-a7f5cda38aa5"],
Cell[CellGroupData[{
Cell[18743, 457, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"bbb5b085-5f00-49d4-9b17-e4d17bc2e8bd",
 CellID->298851851],
Cell[20147, 496, 216, 4, 70, "Input",ExpressionUUID->"ecb54bb7-33ce-42be-ae64-87459251cc04",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[20388, 504, 1236, 31, 70, "ExampleSection",ExpressionUUID->"99c9c9b9-a73a-4352-8b13-364fc383c543",
 CellID->1986293071],
Cell[21627, 537, 353, 9, 70, "ExampleText",ExpressionUUID->"0303a76c-960d-4cfc-896b-a2658650982f",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[22005, 550, 740, 16, 70, "Input",ExpressionUUID->"74750020-c0ce-4a28-bef8-4ccdaf02d66d"],
Cell[22748, 568, 155, 3, 70, "Output",ExpressionUUID->"c93605e3-add0-40ec-ba75-e34ff8122e7e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22940, 576, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"1d37dda0-eb2f-4391-be94-228027b1dd74"],
Cell[23167, 583, 106, 0, 70, "ExampleText",ExpressionUUID->"5b1bf610-e88d-46f8-9e9d-ebef15b3fc39"],
Cell[CellGroupData[{
Cell[23298, 587, 751, 16, 70, "Input",ExpressionUUID->"b6c0d7b3-29a2-48c3-8d08-0a484918f5ad"],
Cell[24052, 605, 116, 1, 70, "Output",ExpressionUUID->"9a1145d2-ee0f-4d28-be45-139faaeb3c82"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24229, 613, 1227, 31, 70, "ExampleSection",ExpressionUUID->"34f071dc-20fe-4625-9795-5c432fcb71bc",
 CellID->1293636265],
Cell[25459, 646, 187, 3, 70, "ExampleText",ExpressionUUID->"29f92ec1-7578-43dc-b484-5b50b45b893c"],
Cell[CellGroupData[{
Cell[25671, 653, 866, 19, 70, "Input",ExpressionUUID->"9a2d737f-fe9d-4459-b98f-8582cd894865"],
Cell[26540, 674, 155, 3, 70, "Output",ExpressionUUID->"541b84ca-fc0f-480e-9361-e67a77745108"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26732, 682, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"bcb3d088-5936-4726-9653-6d75bb597d4f"],
Cell[26959, 689, 154, 2, 70, "ExampleText",ExpressionUUID->"61cb40af-2d3c-43b3-ba26-008a107fe014"],
Cell[CellGroupData[{
Cell[27138, 695, 705, 18, 70, "Input",ExpressionUUID->"fc299ea0-8833-485a-ae4b-b4185db120ae"],
Cell[27846, 715, 108, 1, 70, "Output",ExpressionUUID->"12508b9d-4cb0-45d1-9c07-19877b83de6e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28003, 722, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"9e7a2494-5105-44b7-8579-1e3610cd8ff1"],
Cell[28230, 729, 154, 2, 70, "ExampleText",ExpressionUUID->"ffcd1b20-50f0-4f43-a00b-a04ffd3106a2"],
Cell[CellGroupData[{
Cell[28409, 735, 599, 15, 70, "Input",ExpressionUUID->"1f018906-7463-498f-9121-ebaea5fd3c06"],
Cell[29011, 752, 108, 1, 70, "Output",ExpressionUUID->"8acdb62a-0fb1-4b10-a618-313eae8b6994"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29168, 759, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"180f7090-2f8a-451b-8ee3-fc22fe907940"],
Cell[29395, 766, 127, 0, 70, "ExampleText",ExpressionUUID->"8f90e81f-6bbb-490a-82c9-64e4d6aacefe"],
Cell[CellGroupData[{
Cell[29547, 770, 749, 19, 70, "Input",ExpressionUUID->"2436a380-32f6-4853-842b-f4ebf634d5ba"],
Cell[30299, 791, 109, 1, 70, "Output",ExpressionUUID->"14af3821-a875-4234-855c-7b0e7f66864c"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[30469, 799, 1233, 31, 70, "ExampleSection",ExpressionUUID->"f887676b-48ef-4646-abdc-5bc43eb90042",
 CellID->258228157],
Cell[31705, 832, 237, 4, 70, "ExampleText",ExpressionUUID->"aa5cf7dd-e9b7-4b58-93a4-8991cd995cdd"],
Cell[CellGroupData[{
Cell[31967, 840, 1000, 25, 70, "Input",ExpressionUUID->"42b8c6ae-1ef1-4c6e-9286-a22e5a4b66d3"],
Cell[32970, 867, 120, 1, 70, "Output",ExpressionUUID->"6fbb759b-4e23-469b-897d-e3df5b33b301"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[33139, 874, 1244, 31, 70, "ExampleSection",ExpressionUUID->"9d2766d2-ec18-4df3-bb2f-dd708689f6c5",
 CellID->2123667759],
Cell[34386, 907, 168, 3, 70, "ExampleText",ExpressionUUID->"67694741-aec7-4161-b56f-cabe2ca39db4"],
Cell[CellGroupData[{
Cell[34579, 914, 1022, 28, 70, "Input",ExpressionUUID->"89940a24-f7c6-401f-97fa-5b2db4db56a0"],
Cell[35604, 944, 110, 1, 70, "Output",ExpressionUUID->"a222fdea-840d-4106-9671-5bf862ee45df"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35751, 950, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7cece08c-04b4-4b34-a914-e20e0bbfdcf4"],
Cell[35978, 957, 178, 3, 70, "ExampleText",ExpressionUUID->"0ff3c347-8305-4bb4-8917-42a5912cc8cf"],
Cell[CellGroupData[{
Cell[36181, 964, 677, 17, 70, "Input",ExpressionUUID->"412fc4cf-73af-44e8-b130-38ae2e62ea55"],
Cell[36861, 983, 107, 1, 70, "Output",ExpressionUUID->"27374175-d89a-47e0-8d1f-1073c7de995b"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[37029, 991, 1237, 31, 70, "ExampleSection",ExpressionUUID->"bce58e21-3a4b-4f79-984d-eeed752bef8e",
 CellID->1305812373],
Cell[38269, 1024, 157, 2, 70, "ExampleText",ExpressionUUID->"46f89859-1219-4c99-8e66-2c0091244ec1"],
Cell[CellGroupData[{
Cell[38451, 1030, 519, 13, 70, "Input",ExpressionUUID->"4d5ef701-fd36-44b1-babc-669b1baa72c1"],
Cell[38973, 1045, 656, 16, 70, "Output",ExpressionUUID->"2b814654-54bb-4a62-844e-ed26362d0c86"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39666, 1066, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"3aebd6ee-547a-4db9-ad84-d55785bee3c4"],
Cell[39893, 1073, 264, 4, 70, "ExampleText",ExpressionUUID->"0c6437d8-d9f6-49c1-851d-311e41069c87"],
Cell[CellGroupData[{
Cell[40182, 1081, 686, 18, 70, "Input",ExpressionUUID->"46ab69b9-8019-453a-b4cf-0f09803abba7"],
Cell[40871, 1101, 228, 5, 70, "Output",ExpressionUUID->"b69bffe2-dd9a-4985-98a3-322b509e796d"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[41150, 1112, 3032, 80, 70, "SeeAlsoSection",ExpressionUUID->"39024f40-3595-4288-95b5-a5969df32711"],
Cell[44185, 1194, 706, 19, 70, "MoreAboutSection",ExpressionUUID->"6efd0f02-2663-4a06-a670-3ecc240cd018"],
Cell[44894, 1215, 78, 0, 70, "FooterCell",ExpressionUUID->"71a9cb01-159c-435d-a253-8dc3399cfda5"]
}
]
*)

(* End of internal cache information *)

