(* 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[    137603,       3179]
NotebookOptionsPosition[    125026,       2954]
NotebookOutlinePosition[    127345,       3007]
CellTagsIndexPosition[    127266,       3002]
WindowTitle->SteganographySurvey
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->
           "a65800ac-40b5-4e97-8d98-295a67897c93"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "5059ea64-5025-4520-9e99-20b64253d93b"],
        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->
           "0d9b9e83-b518-4c1f-812d-3471bc9dee3b"]
         }],ExpressionUUID->"de3bc358-f38d-46f0-9e2d-0b300c438ae8"],
         StripOnInput->False],{
        StyleBox[
          "\"ImageBitPlaneScan\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ImageBitPlaneScan"], 
         StyleBox[
          "\"ImageAppendedData\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ImageAppendedData"], 
         StyleBox[
          "\"EmbeddedFileSignatures\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/EmbeddedFileSignatures"], 
         StyleBox[
          "\"ImageContainerChunks\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ImageContainerChunks"], 
         StyleBox[
          "\"ImageTextMetadata\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ImageTextMetadata"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "060f32c2-ebbd-456b-9356-3831903e6239"],
     "\[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->
           "8ff6531b-d940-430c-adcb-7703329f6b80"]
         }],ExpressionUUID->"382bbd02-616d-4532-942c-9552a13f0a81"],
         StripOnInput->False],{
        "\"Steganography\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Steganography"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "5118d2da-ee5f-48a0-a135-91213afeb5e3"],
     "\[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->
           "e6000100-59c3-4532-83c8-9a0d078ba7d6"]
         }],ExpressionUUID->"c2da4ef7-81f0-4c71-9651-bc00a93ad97e"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/SteganographySurvey\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/SteganographySurvey"], 
         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/SteganographySurvey.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/SteganographySurvey" <> ".html"],
               None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "83a35ad8-17f9-4a9f-9976-6ea2d593a4a4"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "2ebe4f76-6985-4bba-a619-a49021b7dbd2"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"7b80b8a0-80ad-4a92-8ef4-f02397f8c34e"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"91f37977-6cc3-4271-95a0-151afc0bc5f2"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "SteganographySurvey", "ObjectName",ExpressionUUID->
      "606ac7cb-1092-4626-a92e-673bd0f83009"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"95288a7c-5a8c-4858-bcec-daa2b58a0423"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "f9561423-a9c3-49b2-ab27-e22d30eff313"]
    }],ExpressionUUID->"496737d6-7f44-47a8-ad9f-1ba438a04872"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"9671feee-ab01-44d1-a8ae-\
67ef9906b73f"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["SteganographySurvey"]], 
         "paclet:WolframInstitute/Puzzles/ref/SteganographySurvey", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["source", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "dff8e832-acab-48e2-a283-02fadca95193"],
     "\[LineSeparator]",
     "runs every extractor in the Steganography category over an image file \
and gives an Association reporting what came back."
    }],ExpressionUUID->"1cfc9e7e-5d07-4145-b5d9-fb8c0db9e1ef"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["SteganographySurvey"]], 
         "paclet:WolframInstitute/Puzzles/ref/SteganographySurvey", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["image", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "622802ad-1b20-4ca6-9bfe-8d83630e3c30"],
     "\[LineSeparator]",
     "surveys an ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Image"]], "paclet:ref/Image"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "7335b4b1-ced8-4e12-8e8f-2e1cf996ca07"],
     ", running the pixel tests only."
    }],ExpressionUUID->"6b84dc5e-45fa-4580-a174-2e7e597c91f2"]}
  }]], "Usage",ExpressionUUID->"5467c83c-2628-4522-9b0e-0244956d9b56"]
}, 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->"aaa2aa8f-6ac6-4ad7-9a11-2ddb3e18a3e2"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"0d8c4940-baef-40f7-80c2-16e64b8533b3"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "a0993871-9435-462c-8460-b1192f40e619"]],ExpressionUUID->"2ab4e767-3bd9-\
47a6-89a9-ff525814bef2"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1546596105,ExpressionUUID->"cbca26d6-ae19-4fb4-8b59-f2c516bebf5b"],

Cell[TextData[{
 StyleBox["source", "TI"],
 " is a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["File"]], "paclet:ref/File"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "d4442181-3a51-4de1-9c30-de538003e8ab"],
 ", a file path, or a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "343e2b7a-e880-4422-9a5b-0efbc8395edb"],
 ". An ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Image"]], "paclet:ref/Image"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "138fb5d3-ebe5-4af7-8e22-8dc777c164a8"],
 " carries no container, so ",
 Cell[BoxData["\<\"Format\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f9e57a70-6df9-4d33-a445-516060cb3f9e"],
 " and ",
 Cell[BoxData["\<\"ByteCount\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "36d15fb1-78d8-4ae1-9d20-8cdbb4d0aa85"],
 " report ",
 Cell[BoxData[
  RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "32b50cac-874a-4f7b-8f67-8d171c6c08df"],
 " and the file-layer tests are skipped."
}], "Notes",ExpressionUUID->"0f76a311-7597-4617-9688-27329a4f1a1e"],

Cell[TextData[{
 "The result has the keys ",
 Cell[BoxData["\<\"Source\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c7ef8451-9f50-4a4a-bb04-000478d5806c"],
 ", ",
 Cell[BoxData["\<\"Format\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "69ea0657-a4e6-47fb-ae3c-3662a07e0b70"],
 ", ",
 Cell[BoxData["\<\"ByteCount\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f0ae64f0-771b-46d9-9cda-b02a7549be0f"],
 ", ",
 Cell[BoxData["\<\"ImageDimensions\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "66c363ab-384a-4959-85ce-6cc903bf3a31"],
 ", ",
 Cell[BoxData["\<\"Measurements\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8b9608bf-436c-4780-a6b1-83f4069bb2e9"],
 ", ",
 Cell[BoxData["\<\"Findings\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3d83076f-683f-4b50-9ba2-47cb942b484e"],
 ", ",
 Cell[BoxData["\<\"Summary\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e635f8db-46f2-4b3b-b48d-adc80958c458"],
 " and ",
 Cell[BoxData["\<\"Note\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2533618f-38a6-48ef-a8e4-a2b6da80be37"],
 "."
}], "Notes",ExpressionUUID->"01a9ec31-588d-44a6-b321-03a56f675b3d"],

Cell[TextData[{
 "Each entry of ",
 Cell[BoxData["\<\"Findings\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1c67d8fb-6465-40f8-83a6-3de555077069"],
 " records the ",
 Cell[BoxData["\<\"Test\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2b5fb9bd-e293-4654-a03d-f69cc19bb8af"],
 " that produced it, its ",
 Cell[BoxData["\<\"Confidence\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "53203715-db4e-4bbe-a483-dff9e46f984f"],
 ", the ",
 Cell[BoxData["\<\"Detail\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "bd00778e-5cf6-48e5-82d7-9610838426ca"],
 ", and the ",
 Cell[BoxData["\<\"FalsePositives\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5829d717-0efc-4ddd-aa49-925332df24bb"],
 " mode that confidence is judged against."
}], "Notes",ExpressionUUID->"d747d8e5-4603-4170-91d4-7771ec32a7d2"],

Cell[TextData[{
 Cell[BoxData["\<\"Confidence\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2c6630ba-6584-4130-8724-67eab62ed72d"],
 " is ",
 Cell[BoxData["\<\"Definite\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f6e3e86f-7872-4a1e-b4ae-9f15ec69224b"],
 " only for a structural fact about the file: bytes past the container's \
declared end, or a chunk whose CRC does not match its data. Every other \
finding is a statistic and is ",
 Cell[BoxData["\<\"Strong\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "83b2cc21-a4e4-4860-b032-0e61005e8ad8"],
 " or ",
 Cell[BoxData["\<\"Weak\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "02882abd-4cc4-44d5-926e-4aa94958ee85"],
 "."
}], "Notes",ExpressionUUID->"9f7217df-62da-4503-9b63-1ec5265deb0e"],

Cell[TextData[{
 "The tests are: ",
 Cell[BoxData["\<\"AppendedData\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "905a6873-b7ed-46db-adcc-73944d779824"],
 ", ",
 Cell[BoxData["\<\"EmbeddedFileSignature\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a5d32591-d935-48e2-8977-eb5cb0d8b374"],
 ", ",
 Cell[BoxData["\<\"ChunkChecksumMismatch\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "23a05ab0-1fef-4466-b620-a25f3f4207cc"],
 ", ",
 Cell[BoxData["\<\"UnregisteredChunk\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cb684bb4-f471-4f4e-a1c7-16151c0e8db5"],
 ", ",
 Cell[BoxData["\<\"PayloadLikeMetadata\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b5397478-a3db-40bc-a04c-09835ee6e650"],
 ", ",
 Cell[BoxData["\<\"RecoveredText\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "89deec98-7ab8-40a9-a313-46f58de88f5a"],
 " and ",
 Cell[BoxData["\<\"StructuredLowBitPlane\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cd50af4b-576e-4157-93a2-4d1082a89265"],
 "."
}], "Notes",ExpressionUUID->"652c985b-45a6-4160-af85-abb5e76059df"],

Cell[TextData[{
 "A magic number found inside a container unit that explains it, such as the \
TIFF header at the start of every Exif block, is not reported at all. One \
found elsewhere is weighed by ",
 Cell[BoxData["\<\"ExpectedByChance\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c012befb-b2cf-4374-b1a5-12e6d2b077bc"],
 " and by the unit it landed in."
}], "Notes",ExpressionUUID->"5a2a81b2-c110-4c8d-985f-28f7eba1f758"],

Cell[TextData[{
 Cell[BoxData["\<\"Measurements\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2ef7d770-f59c-4fe0-84b8-1e6b592ea1a5"],
 " carries the numbers the findings were judged against, whether or not any \
finding fired: the chunk names, the metadata count, the palette length and \
its duplicate count, the low bit plane's ones-fraction and byte entropy, the \
top bit plane's byte entropy, and the alpha channel's distinct-value count."
}], "Notes",ExpressionUUID->"5941a642-a0fe-4bab-ae85-324aac08cc97"],

Cell[BoxData[GridBox[{
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "350759e5-0433-4679-a230-4d5f96c4ddd9"], Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"333b2722-ba1c-4c1f-a7dc-e093505003e5"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"59837339-8eca-460f-aea9-456ce2219582"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"c53cb950-dd94-461f-b617-43d633fd948a"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "fef5bafc-c986-4113-9efd-183f8cc70184"], Cell[TextData[Cell[
    BoxData["\"\<BitPlanes\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "de011f07-751c-4049-8ebf-4650632b62aa"]], "TableText",ExpressionUUID->
     "5726a88f-48c9-4156-bb0e-5f548a6d493a"], Cell[TextData[Cell[BoxData[
     RowBox[{"{", "0", "}"}]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "dc4633ed-6adf-489a-b024-e2d39e0b6299"]], "TableText",ExpressionUUID->
     "03c69680-e6b4-42e5-9210-c7e1b0a63b34"], Cell[
    "bit indices the pixel tests read", "TableText",ExpressionUUID->
     "f392e412-01b0-4bcf-a6df-2866e3462359"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "d9c8429a-40b7-4d0d-b614-51be55ad4119"], Cell[TextData[Cell[
    BoxData["\"\<MinimumStringLength\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "276cc7c7-7651-4850-89f5-e2df8e62d554"]], "TableText",ExpressionUUID->
     "b493e5b8-4753-44dc-b4db-210abec32b15"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["Automatic"]], "paclet:ref/Automatic"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "bb82ed69-d16d-4470-afbd-ce006c54ec9b"]], "TableText",ExpressionUUID->
     "7638ac6a-74f5-4d8b-b561-097be77208cd"], Cell[TextData[{
     "shortest recovered run reported, or ",
     Cell[BoxData["Automatic"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "320699d3-1e8a-43b4-b853-b221f8c2ca51"],
     " to scale it with the carrier"
    }], "TableText",ExpressionUUID->"a4b190d7-0e65-430c-b140-1668f30114d4"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "1e85333f-0b15-4e1b-b9a2-facebc5b67f5"], Cell[TextData[Cell[
    BoxData["\"\<MaxStrings\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "e6d1ea8c-87f3-4650-a3ce-905e7f611182"]], "TableText",ExpressionUUID->
     "4141f924-eafc-48b5-a92f-6210007f1fd7"], Cell[TextData[Cell[BoxData[
    "3"], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "bb8494dd-fe81-4c9b-9ca7-beb59d217c51"]], "TableText",ExpressionUUID->
     "065840a1-d178-4a66-b652-166f97f1d021"], Cell[
    "how many runs to report per traversal", "TableText",ExpressionUUID->
     "3738d7ba-dd74-4446-85fc-9e7773bed302"]}
  }]], "3ColumnTableMod",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "Rows" -> {None, None, None, {None}}},
 GridBoxDividers->{
  "Rows" -> {{
     True, True, True, True, 
      True}}}},ExpressionUUID->"bc57de81-efc7-4394-bb38-902ed5fe84f3"],

Cell["\<\
Transform-domain hiding is out of scope: a payload in a JPEG's DCT \
coefficients is not recoverable from the decoded pixels, and no test here \
looks for one. Estimating an embedding rate, as the chi-square attack of \
Westfeld and Pfitzmann and the RS analysis of Fridrich, Goljan and Du do, is \
also out of scope.\
\>", "Notes",ExpressionUUID->"9b217c5b-6f82-4602-a45b-32638761b427"],

Cell[TextData[{
 "A source that is not a PNG, JPEG or GIF gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "29b02d11-eaf9-4e90-93ca-0c42151eff6a"],
 "; a first argument that is not a source or an image matches no definition \
and is returned unevaluated."
}], "Notes",ExpressionUUID->"68120452-2c50-4c82-ac40-4ba72050b5d0"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"efacdbec-342e-4cff-bd7f-daf1af616207"],

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->"eead1bf7-a8e8-485d-9543-8bf977c94d67"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"258b59bc-9134-4d12-9b46-1fba33964de6"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(17)", "ExampleCount",ExpressionUUID->
  "f3e7c85f-7eef-4b30-bf53-d7c974623727"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->498673447,ExpressionUUID->"44772a12-08f0-40a5-ad02-d43173a70322"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"323ae2c2-91bb-4c2f-b502-ab3d42654d4e"],

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->
  "e2696b53-c3f8-4c2a-993a-1851b99cde46"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e4b20981-e042-4640-a8c0-ec4b4f31c1c2"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "711b612d-246b-4209-92aa-3eb8d71f3592"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1723433135,ExpressionUUID->"e58819d7-85ab-4a10-8668-28bc5e40f0e9"],

Cell["A carrier the kernel just wrote, with nothing hidden in it:", \
"ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"f387ef9d-520a-4154-a83e-88ac0bee2870"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SteganographySurvey", "[", 
   RowBox[{"ExportByteArray", "[", 
    RowBox[{
     RowBox[{"Image", "[", 
      RowBox[{
       RowBox[{"ArrayReshape", "[", 
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"IntegerDigits", "[", 
               RowBox[{
                RowBox[{"Hash", "[", 
                 RowBox[{"k", ",", " ", "\"\<SHA256\>\""}], "]"}], ",", " ", 
                "256", ",", " ", "32"}], "]"}], ",", " ", 
              RowBox[{"{", 
               RowBox[{"k", ",", " ", "300"}], "}"}]}], "]"}], "]"}], ",", 
           " ", "4096"}], "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"64", ",", " ", "64"}], "}"}]}], "]"}], ",", 
       " ", "\"\<Byte\>\""}], "]"}], ",", " ", "\"\<PNG\>\""}], "]"}], "]"}], 
  "[", "\"\<Summary\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a13c06c6-d89e-46ad-8fcb-959c8b6396b7"],

Cell[BoxData["\<\"PNG, 4576 bytes, 0 findings\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9ae11029-678e-4e6d-a84b-cef40caf8698"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "4172c797-65ed-4f10-b675-a787ba426dc7"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d4827b1e-eacb-4bc2-\
9436-8afe8c67d473"],

Cell["\<\
The same carrier with a message written into its low bits. The sweep finds it \
twice, once reading the whole image and once reading its single channel, \
which are the same stream here:\
\>", "ExampleText",ExpressionUUID->"7d0eb078-e29c-4a14-bb90-9bef51e50351"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"carrier", ",", " ", "bits", ",", " ", "samples"}], "}"}], ",", 
   "\n", "\t", 
   RowBox[{
    RowBox[{"carrier", " ", "=", " ", 
     RowBox[{"Take", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"IntegerDigits", "[", 
           RowBox[{
            RowBox[{"Hash", "[", 
             RowBox[{"k", ",", " ", "\"\<SHA256\>\""}], "]"}], ",", " ", 
            "256", ",", " ", "32"}], "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"k", ",", " ", "300"}], "}"}]}], "]"}], "]"}], ",", " ", 
       "4096"}], "]"}]}], ";", "\n", "\t", 
    RowBox[{"bits", " ", "=", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"IntegerDigits", "[", 
       RowBox[{
        RowBox[{
        "ToCharacterCode", "[", "\"\<FLAG{look_in_the_low_bits}\>\"", "]"}], ",",
         " ", "2", ",", " ", "8"}], "]"}], "]"}]}], ";", "\n", "\t", 
    RowBox[{"samples", " ", "=", " ", 
     RowBox[{"MapIndexed", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"First", "[", "#2", "]"}], " ", "<=", " ", 
           RowBox[{"Length", "[", "bits", "]"}]}], ",", " ", 
          RowBox[{"BitOr", "[", 
           RowBox[{
            RowBox[{"BitAnd", "[", 
             RowBox[{"#1", ",", " ", "254"}], "]"}], ",", " ", 
            RowBox[{"bits", "[", 
             RowBox[{"[", 
              RowBox[{"First", "[", "#2", "]"}], "]"}], "]"}]}], "]"}], ",", 
          " ", "#1"}], "]"}], " ", "&"}], ",", " ", "carrier"}], "]"}]}], ";",
     "\n", "\t", 
    RowBox[{
     RowBox[{"SteganographySurvey", "[", 
      RowBox[{"ExportByteArray", "[", 
       RowBox[{
        RowBox[{"Image", "[", 
         RowBox[{
          RowBox[{"ArrayReshape", "[", 
           RowBox[{"samples", ",", " ", 
            RowBox[{"{", 
             RowBox[{"64", ",", " ", "64"}], "}"}]}], "]"}], ",", 
          " ", "\"\<Byte\>\""}], "]"}], ",", " ", "\"\<PNG\>\""}], "]"}], 
      "]"}], "[", "\"\<Summary\>\"", "]"}]}]}], "\n", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1eed3532-cfc0-4209-9f1b-bdb02cd6e921"],

Cell[BoxData["\<\"PNG, 4576 bytes, 2 findings: 2 strong\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"06b33c3e-3e0e-4962-a6f1-f7cae30520eb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "56293982-ed7f-402b-bb34-d55965def14a"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"4cb3de52-f39e-44e7-\
86d5-cd24a4d49363"],

Cell["\<\
The detail of the first finding: the traversal it came from, the text, and \
how often a stream that size carries a run that long by chance:\
\>", "ExampleText",ExpressionUUID->"2c4a8351-896a-47c0-b491-0003762fa94c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"carrier", ",", " ", "bits", ",", " ", "samples"}], "}"}], ",", 
   "\n", "\t", 
   RowBox[{
    RowBox[{"carrier", " ", "=", " ", 
     RowBox[{"Take", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"IntegerDigits", "[", 
           RowBox[{
            RowBox[{"Hash", "[", 
             RowBox[{"k", ",", " ", "\"\<SHA256\>\""}], "]"}], ",", " ", 
            "256", ",", " ", "32"}], "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"k", ",", " ", "300"}], "}"}]}], "]"}], "]"}], ",", " ", 
       "4096"}], "]"}]}], ";", "\n", "\t", 
    RowBox[{"bits", " ", "=", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"IntegerDigits", "[", 
       RowBox[{
        RowBox[{
        "ToCharacterCode", "[", "\"\<FLAG{look_in_the_low_bits}\>\"", "]"}], ",",
         " ", "2", ",", " ", "8"}], "]"}], "]"}]}], ";", "\n", "\t", 
    RowBox[{"samples", " ", "=", " ", 
     RowBox[{"MapIndexed", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"First", "[", "#2", "]"}], " ", "<=", " ", 
           RowBox[{"Length", "[", "bits", "]"}]}], ",", " ", 
          RowBox[{"BitOr", "[", 
           RowBox[{
            RowBox[{"BitAnd", "[", 
             RowBox[{"#1", ",", " ", "254"}], "]"}], ",", " ", 
            RowBox[{"bits", "[", 
             RowBox[{"[", 
              RowBox[{"First", "[", "#2", "]"}], "]"}], "]"}]}], "]"}], ",", 
          " ", "#1"}], "]"}], " ", "&"}], ",", " ", "carrier"}], "]"}]}], ";",
     "\n", "\t", 
    RowBox[{
     RowBox[{"First", "[", 
      RowBox[{
       RowBox[{"SteganographySurvey", "[", 
        RowBox[{"ExportByteArray", "[", 
         RowBox[{
          RowBox[{"Image", "[", 
           RowBox[{
            RowBox[{"ArrayReshape", "[", 
             RowBox[{"samples", ",", " ", 
              RowBox[{"{", 
               RowBox[{"64", ",", " ", "64"}], "}"}]}], "]"}], ",", 
            " ", "\"\<Byte\>\""}], "]"}], ",", " ", "\"\<PNG\>\""}], "]"}], 
        "]"}], "[", "\"\<Findings\>\"", "]"}], "]"}], "[", "\"\<Detail\>\"", 
     "]"}]}]}], "\n", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1304fb2c-721d-4003-aebe-ab251e64b867"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Channels\"\>", "\[Rule]", 
    RowBox[{"{", "\<\"Gray\"\>", "}"}]}], ",", 
   RowBox[{"\<\"ScanOrder\"\>", "\[Rule]", "\<\"Row\"\>"}], ",", 
   RowBox[{"\<\"BitOrder\"\>", "\[Rule]", "\<\"MostSignificantFirst\"\>"}], ",", 
   RowBox[{"\<\"MinimumStringLength\"\>", "\[Rule]", "12"}], ",", 
   RowBox[{"\<\"ExpectedByChance\"\>", "\[Rule]", "4.306088208189013`*^-9"}], 
   ",", 
   RowBox[{"\<\"Strings\"\>", "\[Rule]", 
    RowBox[{"{", "\<\"FLAG{look_in_the_low_bits}\"\>", "}"}]}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0ec0cd09-22b9-4e09-952c-dfc692cafb4b"]
}, 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->
  "c6488478-5d43-4dbb-b8ca-0dfe0e5a14eb"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"7e53dd11-c695-41c2-9fad-e2303299f3e8"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "fadcb35b-da92-43b2-b9f0-a41bff52b0c6"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"21c11764-9130-4253-a609-09c7a36d039d"],

Cell["\<\
Bytes past the container's declared end are the one thing the battery calls \
definite:\
\>", "ExampleText",ExpressionUUID->"5df3e95a-e85f-49e7-8810-55ffb2047392"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"carrier", ",", " ", "png"}], "}"}], ",", "\n", "\t", 
   RowBox[{
    RowBox[{"carrier", " ", "=", " ", 
     RowBox[{"Take", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"IntegerDigits", "[", 
           RowBox[{
            RowBox[{"Hash", "[", 
             RowBox[{"k", ",", " ", "\"\<SHA256\>\""}], "]"}], ",", " ", 
            "256", ",", " ", "32"}], "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"k", ",", " ", "300"}], "}"}]}], "]"}], "]"}], ",", " ", 
       "4096"}], "]"}]}], ";", "\n", "\t", 
    RowBox[{"png", " ", "=", " ", 
     RowBox[{"Normal", "[", 
      RowBox[{"ExportByteArray", "[", 
       RowBox[{
        RowBox[{"Image", "[", 
         RowBox[{
          RowBox[{"ArrayReshape", "[", 
           RowBox[{"carrier", ",", " ", 
            RowBox[{"{", 
             RowBox[{"64", ",", " ", "64"}], "}"}]}], "]"}], ",", 
          " ", "\"\<Byte\>\""}], "]"}], ",", " ", "\"\<PNG\>\""}], "]"}], 
      "]"}]}], ";", "\n", "\t", 
    RowBox[{"Map", "[", "\n", "\t\t", 
     RowBox[{
      RowBox[{
       RowBox[{"Lookup", "[", 
        RowBox[{"#", ",", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<Test\>\"", ",", " ", "\"\<Confidence\>\""}], "}"}]}], 
        "]"}], " ", "&"}], ",", "\n", "\t\t", 
      RowBox[{
       RowBox[{"SteganographySurvey", "[", 
        RowBox[{"ByteArray", "[", 
         RowBox[{"Join", "[", 
          RowBox[{"png", ",", " ", 
           RowBox[{
           "ToCharacterCode", 
            "[", "\"\<PK\.03\.04 a whole archive lives here\>\"", "]"}]}], 
          "]"}], "]"}], "]"}], "[", "\"\<Findings\>\"", "]"}]}], "\n", "\t", 
     "]"}]}]}], "\n", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"01f10c1f-2fcd-4382-b745-78b80bda21c9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"AppendedData\"\>", ",", "\<\"Definite\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"EmbeddedFileSignature\"\>", ",", "\<\"Strong\"\>"}], "}"}]}],
   "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0bbdc311-5aae-4cc0-9d57-60d1ef5f5517"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "4b91d6cb-5292-4cfa-b3b9-94a0bbbc335b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"15bbf48e-e03b-4da0-\
b4a8-1fe3e27c7f2a"],

Cell["A private PNG chunk is reported by name:", "ExampleText",ExpressionUUID->"f5245b27-ae5d-4945-9241-4fc6039a1fb1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"data", ",", " ", "chunk", ",", " ", "png"}], "}"}], ",", "\n", 
   "\t", 
   RowBox[{
    RowBox[{"data", " ", "=", " ", 
     RowBox[{
     "ToCharacterCode", "[", "\"\<a payload in a chunk nobody registered\>\"",
       "]"}]}], ";", "\n", "\t", 
    RowBox[{"chunk", " ", "=", " ", 
     RowBox[{"Join", "[", "\n", "\t\t", 
      RowBox[{
       RowBox[{"IntegerDigits", "[", 
        RowBox[{
         RowBox[{"Length", "[", "data", "]"}], ",", " ", "256", ",", " ", 
         "4"}], "]"}], ",", " ", 
       RowBox[{"ToCharacterCode", "[", "\"\<stEG\>\"", "]"}], ",", " ", 
       "data", ",", "\n", "\t\t", 
       RowBox[{"IntegerDigits", "[", 
        RowBox[{
         RowBox[{"Hash", "[", 
          RowBox[{
           RowBox[{"ByteArray", "[", 
            RowBox[{"Join", "[", 
             RowBox[{
              RowBox[{"ToCharacterCode", "[", "\"\<stEG\>\"", "]"}], ",", " ",
               "data"}], "]"}], "]"}], ",", " ", "\"\<CRC32\>\""}], "]"}], ",",
          " ", "256", ",", " ", "4"}], "]"}]}], "\n", "\t", "]"}]}], ";", 
    "\n", "\t", 
    RowBox[{"png", " ", "=", " ", 
     RowBox[{"Normal", "[", 
      RowBox[{"ExportByteArray", "[", 
       RowBox[{
        RowBox[{"Image", "[", 
         RowBox[{
          RowBox[{"ArrayReshape", "[", 
           RowBox[{
            RowBox[{"Take", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{"IntegerDigits", "[", 
                  RowBox[{
                   RowBox[{"Hash", "[", 
                    RowBox[{"k", ",", " ", "\"\<SHA256\>\""}], "]"}], ",", 
                   " ", "256", ",", " ", "32"}], "]"}], ",", " ", 
                 RowBox[{"{", 
                  RowBox[{"k", ",", " ", "300"}], "}"}]}], "]"}], "]"}], ",", 
              " ", "4096"}], "]"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"64", ",", " ", "64"}], "}"}]}], "]"}], ",", 
          " ", "\"\<Byte\>\""}], "]"}], ",", " ", "\"\<PNG\>\""}], "]"}], 
      "]"}]}], ";", "\n", "\t", 
    RowBox[{"Lookup", "[", 
     RowBox[{
      RowBox[{"First", "[", 
       RowBox[{
        RowBox[{"SteganographySurvey", "[", 
         RowBox[{"ByteArray", "[", 
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Take", "[", 
             RowBox[{"png", ",", " ", 
              RowBox[{
               RowBox[{"Length", "[", "png", "]"}], " ", "-", " ", "12"}]}], 
             "]"}], ",", " ", "chunk", ",", " ", 
            RowBox[{"Take", "[", 
             RowBox[{"png", ",", " ", 
              RowBox[{"-", "12"}]}], "]"}]}], "]"}], "]"}], "]"}], 
        "[", "\"\<Findings\>\"", "]"}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<Test\>\"", ",", " ", "\"\<Confidence\>\"", ",", 
        " ", "\"\<Detail\>\""}], "}"}]}], "]"}]}]}], "\n", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8ae70def-7691-4b9b-8785-953b73a156eb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"UnregisteredChunk\"\>", ",", "\<\"Strong\"\>", ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Name\"\>", "\[Rule]", "\<\"stEG\"\>"}], ",", 
     RowBox[{"\<\"Position\"\>", "\[Rule]", "4564"}], ",", 
     RowBox[{"\<\"Length\"\>", "\[Rule]", "38"}]}], "\[RightAssociation]"}]}],
   "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fb2d5286-f9ba-4fd7-9145-0da0c2ea62f6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "f5687611-3f6e-446c-b614-d709173e4b21"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"1190a2c0-268f-4400-\
a332-b88a7769d0b7"],

Cell[TextData[{
 "An ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Image"]], "paclet:ref/Image"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "30489f00-e8fa-43e0-aeb5-e08809f42ddd"],
 " has no container, so only the pixel tests run:"
}], "ExampleText",ExpressionUUID->"2b8ef66c-cd86-482b-9476-f9a54e48058a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lookup", "[", 
  RowBox[{
   RowBox[{"SteganographySurvey", "[", 
    RowBox[{"Image", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "j", ",", " ", "128"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "16"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"j", ",", " ", "16"}], "}"}]}], "]"}], ",", 
      " ", "\"\<Byte\>\""}], "]"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Format\>\"", ",", " ", "\"\<ByteCount\>\"", ",", 
     " ", "\"\<ImageDimensions\>\""}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"688853bf-fc03-4901-b06c-d4e8aa41a174"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", 
   RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "16"}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fa4527cd-5e5c-429c-8a18-8beaadecea94"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a7ca7836-5b18-4b2a-a2b3-0f5087ff8776"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"62d04c85-e404-4c36-\
bdcc-2128e2181070"],

Cell["The measurements are reported whether or not anything fired:", \
"ExampleText",ExpressionUUID->"482eaad2-a72b-4d85-9537-10bc2b708b3d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", "[", 
  RowBox[{
   RowBox[{"SteganographySurvey", "[", 
    RowBox[{"Image", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "j", ",", " ", "128"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "16"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"j", ",", " ", "16"}], "}"}]}], "]"}], ",", 
      " ", "\"\<Byte\>\""}], "]"}], "]"}], "[", "\"\<Measurements\>\"", "]"}],
   "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"eb21808b-4cbc-494f-ad37-e34dd2177a30"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"ImageDimensions\"\>", ",", "\<\"ChannelNames\"\>", 
   ",", "\<\"LowBitPlaneOnesFraction\"\>", 
   ",", "\<\"LowBitPlaneByteEntropy\"\>", 
   ",", "\<\"TopBitPlaneByteEntropy\"\>", 
   ",", "\<\"AlphaChannelValueCount\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d719689e-eae6-4664-b3cc-0055cb0bf88e"]
}, 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->
  "797cf3a9-e9f5-42cd-af35-ab67ad06f65f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"bc2d2717-2022-475c-a3d7-36629e647e4e"],
 "Options",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "981f371c-a5d5-44f7-9c32-b7fc560592b0"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2061341341,ExpressionUUID->"3d3bc811-2cc7-42bf-af10-fba04395c9e3"],

Cell[TextData[{
 Cell[BoxData["\<\"BitPlanes\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0023e0bd-0084-43b2-b646-4b1891c9580e"],
 " moves the pixel tests to a different plane, for a payload written above \
the lowest bit:"
}], "ExampleText",ExpressionUUID->"6fd311d2-362e-475b-892b-0bac50714f80"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lookup", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SteganographySurvey", "[", 
     RowBox[{
      RowBox[{"Image", "[", 
       RowBox[{
        RowBox[{"Partition", "[", 
         RowBox[{
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"BitOr", "[", 
              RowBox[{
               RowBox[{"BitAnd", "[", 
                RowBox[{"200", ",", " ", "253"}], "]"}], ",", " ", 
               RowBox[{"2", " ", "#1"}]}], "]"}], " ", "&"}], ",", " ", 
            RowBox[{"Flatten", "[", 
             RowBox[{"IntegerDigits", "[", 
              RowBox[{
               RowBox[{
               "ToCharacterCode", "[", "\"\<a bit higher up than usual\>\"", 
                "]"}], ",", " ", "2", ",", " ", "8"}], "]"}], "]"}]}], "]"}], 
          ",", " ", "16"}], "]"}], ",", " ", "\"\<Byte\>\""}], "]"}], ",", 
      " ", 
      RowBox[{"\"\<BitPlanes\>\"", " ", "->", " ", 
       RowBox[{"{", "1", "}"}]}]}], "]"}], "[", "\"\<Findings\>\"", "]"}], ",",
    " ", "\"\<Test\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8209eded-c3d7-4da8-b42b-bbb36dab67dc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"RecoveredText\"\>", ",", "\<\"RecoveredText\"\>", 
   ",", "\<\"StructuredLowBitPlane\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"71097694-e374-431c-a1d6-b50b884775ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7fab1f76-d766-4156-aad2-0451f3115094"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e3708d70-9b36-4cd3-\
8cce-b09c4820ad07"],

Cell[TextData[{
 Cell[BoxData["\<\"MinimumStringLength\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6fc6d261-8975-4fdc-9f70-7cfe7840c7e3"],
 " overrides the cutoff the sweep would have chosen, which is how to make it \
cry wolf on purpose:"
}], "ExampleText",ExpressionUUID->"91279b7d-bedb-4022-88a4-ade93f08664f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
   RowBox[{"SteganographySurvey", "[", 
    RowBox[{
     RowBox[{"ExportByteArray", "[", 
      RowBox[{
       RowBox[{"Image", "[", 
        RowBox[{
         RowBox[{"ArrayReshape", "[", 
          RowBox[{
           RowBox[{"Take", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{"IntegerDigits", "[", 
                 RowBox[{
                  RowBox[{"Hash", "[", 
                   RowBox[{"k", ",", " ", "\"\<SHA256\>\""}], "]"}], ",", " ",
                   "256", ",", " ", "32"}], "]"}], ",", " ", 
                RowBox[{"{", 
                 RowBox[{"k", ",", " ", "300"}], "}"}]}], "]"}], "]"}], ",", 
             " ", "4096"}], "]"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"64", ",", " ", "64"}], "}"}]}], "]"}], ",", 
         " ", "\"\<Byte\>\""}], "]"}], ",", " ", "\"\<PNG\>\""}], "]"}], ",", 
     " ", 
     RowBox[{"\"\<MinimumStringLength\>\"", " ", "->", " ", "5"}]}], "]"}], 
   "[", "\"\<Findings\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"62e96904-f5ee-4525-98ea-a6095281f208"],

Cell[BoxData["3"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5e9b2f0f-b8c8-4924-a36c-0b581262373e"]
}, 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->
  "964e2fe8-8f8d-40ec-891d-3a6e63cf8214"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"239b2cbf-fa83-4411-aa16-43654c7d7ac8"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "191e2ba4-00e8-4a85-9226-9dd2d69a1615"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"e08c9f98-e3f5-424f-9268-441b0a845706"],

Cell["The whole report, read as a table:", "ExampleText",ExpressionUUID->"3b00fe8b-97a6-4319-be65-7ba11a3a7a84"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", "png", "}"}], ",", "\n", "\t", 
   RowBox[{
    RowBox[{"png", " ", "=", " ", 
     RowBox[{"Normal", "[", 
      RowBox[{"ExportByteArray", "[", 
       RowBox[{
        RowBox[{"Image", "[", 
         RowBox[{
          RowBox[{"ArrayReshape", "[", 
           RowBox[{
            RowBox[{"Take", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{"IntegerDigits", "[", 
                  RowBox[{
                   RowBox[{"Hash", "[", 
                    RowBox[{"k", ",", " ", "\"\<SHA256\>\""}], "]"}], ",", 
                   " ", "256", ",", " ", "32"}], "]"}], ",", " ", 
                 RowBox[{"{", 
                  RowBox[{"k", ",", " ", "300"}], "}"}]}], "]"}], "]"}], ",", 
              " ", "4096"}], "]"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"64", ",", " ", "64"}], "}"}]}], "]"}], ",", 
          " ", "\"\<Byte\>\""}], "]"}], ",", " ", "\"\<PNG\>\""}], "]"}], 
      "]"}]}], ";", "\n", "\t", 
    RowBox[{"Dataset", "[", 
     RowBox[{
      RowBox[{"SteganographySurvey", "[", 
       RowBox[{"ByteArray", "[", 
        RowBox[{"Join", "[", 
         RowBox[{"png", ",", " ", 
          RowBox[{
          "ToCharacterCode", 
           "[", "\"\<PK\.03\.04 a whole archive lives here\>\"", "]"}]}], 
         "]"}], "]"}], "]"}], "[", "\"\<Findings\>\"", "]"}], "]"}]}]}], "\n",
   "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"25c9db08-eb32-4c9f-9e15-68ac0cd58ab7"],

Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = <|
    "InitialData" -> {<|
       "Test" -> "AppendedData", "Confidence" -> "Definite", 
        "Detail" -> <|
         "ByteCount" -> 31, "Bytes" -> 
          ByteArray[{80, 75, 3, 4, 32, 97, 32, 119, 104, 111, 108, 101, 32, 
            97, 114, 99, 104, 105, 118, 101, 32, 108, 105, 118, 101, 115, 32, 
            104, 101, 114, 101}], 
          "Strings" -> {" a whole archive lives here"}|>, "FalsePositives" -> 
        "Some encoders and upload pipelines pad a file past its container; \
read the bytes before concluding anything."|>, <|
       "Test" -> "EmbeddedFileSignature", "Confidence" -> "Strong", 
        "Detail" -> <|
         "Format" -> "ZIP", "Position" -> 4576, "Unit" -> "AppendedData", 
          "ExpectedByChance" -> 1.0719522833824158`*^-6|>, "FalsePositives" -> 
        "A magic number is a short byte string that occurs by chance, and a \
metadata unit may carry a nested format for a legitimate reason. \
\"ExpectedByChance\" is how many times a uniformly random file this size \
would carry the signature; \"Unit\" is the container unit it landed in."|>}, 
     "AllowEmbedding" -> True, "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "Test"} -> 
        1, {All, "Confidence"} -> 1, {All, "Detail"} -> 
        2, {All, "FalsePositives"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          
          TypeSystem`PackageScope`RowShape[<|
           "Test" -> TypeSystem`PackageScope`AtomShape[235.20000000000002`], 
            "Confidence" -> 
            TypeSystem`PackageScope`AtomShape[89.60000000000001], "Detail" -> 
            TypeSystem`PackageScope`Limited[
              TypeSystem`PackageScope`ColumnShape[
               TypeSystem`PackageScope`KeyValueShape[
                TypeSystem`PackageScope`AtomShape[100.80000000000001`], 
                TypeSystem`PackageScope`UnknownShape[False]]], 7, 
              DirectedInfinity[1], {All, "Detail"}], "FalsePositives" -> 
            TypeSystem`PackageScope`AtomShape[560.]|>], 
          DirectedInfinity[1], 4, {All}]], 2, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Struct[{"Test", "Confidence", "Detail", "FalsePositives"}, {
        
         TypeSystem`Atom[String], 
         TypeSystem`Atom[String], 
         TypeSystem`Assoc[
          TypeSystem`Atom[String], TypeSystem`AnyType, 7], 
         TypeSystem`Atom[String]}], 2], "Meta" -> <||>, "RowTarget" -> 20, 
     "ColumnTarget" -> 10, "Shape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "Test"} -> 
        1, {All, "Confidence"} -> 1, {All, "Detail"} -> 
        2, {All, "FalsePositives"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          
          TypeSystem`PackageScope`RowShape[<|
           "Test" -> TypeSystem`PackageScope`AtomShape[235.20000000000002`], 
            "Confidence" -> 
            TypeSystem`PackageScope`AtomShape[89.60000000000001], "Detail" -> 
            TypeSystem`PackageScope`Limited[
              TypeSystem`PackageScope`ColumnShape[
               TypeSystem`PackageScope`KeyValueShape[
                TypeSystem`PackageScope`AtomShape[100.80000000000001`], 
                TypeSystem`PackageScope`UnknownShape[False]]], 7, 
              DirectedInfinity[1], {All, "Detail"}], "FalsePositives" -> 
            TypeSystem`PackageScope`AtomShape[560.]|>], 
          DirectedInfinity[1], 4, {All}]], 2, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[
       TypeSystem`Struct[{"Test", "Confidence", "Detail", "FalsePositives"}, {
        
         TypeSystem`Atom[String], 
         TypeSystem`Atom[String], 
         TypeSystem`Assoc[
          TypeSystem`Atom[String], TypeSystem`AnyType, 7], 
         TypeSystem`Atom[String]}], 2], "Path" -> {}, "DisplayedRowCount" -> 
     2, "DisplayedColumnCount" -> 4, "DataRowCount" -> 2, "DataColumnCount" -> 
     4, "SortPaths" -> {}, "SortDirections" -> {}, "HiddenItemsMap" -> Null, 
     "UpdateType" -> 1|>, TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{
     TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["Test", 
                  Style[
                  "Test", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "Test"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "Test"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["Confidence", 
                  Style[
                  "Confidence", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "Confidence"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "Confidence"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["Detail", 
                  Style[
                  "Detail", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "Detail"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "Detail"}, "ColumnHeader", False], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Center, Baseline}], SpanFromLeft, 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["FalsePositives", 
                  Style[
                  "FalsePositives", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "FalsePositives"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "FalsePositives"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation["AppendedData", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["Test"]}, "Item", False], "Mouse"], 
              ImageSize -> {{235.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Definite", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["Confidence"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["ByteCount", 
                  Style[
                  "ByteCount", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{1, 
                    Key["Detail"], 
                    Key["ByteCount"]}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["Detail"], 
                 Key["ByteCount"]}, "RowHeader", False], "Mouse"], 
              ImageSize -> {{100.80000000000001`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["31"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["Detail"], 
                 Key["ByteCount"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
              "Some encoders and upload pipelines pad a file past its \
container; read the bytes before concluding anything.", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["FalsePositives"]}, "Item", False], "Mouse"], 
              ImageSize -> {{560., Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {SpanFromAbove, SpanFromAbove, 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["Bytes", 
                  Style[
                  "Bytes", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{1, 
                    Key["Detail"], 
                    Key["Bytes"]}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["Detail"], 
                 Key["Bytes"]}, "RowHeader", False], "Mouse"], 
              ImageSize -> {{100.80000000000001`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox[
                 RowBox[{
                   TagBox["ByteArray", "SummaryHead"], "[", 
                   TemplateBox[{
                    GridBox[{{
                    GridBox[{{
                    TagBox["\"31 bytes\"", "SummaryItem"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, "SummaryPanel"], "]"}], 
                 FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["Detail"], 
                 Key["Bytes"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], SpanFromAbove}, {
           SpanFromAbove, SpanFromAbove, 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["Strings", 
                  Style[
                  "Strings", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{1, 
                    Key["Detail"], 
                    Key["Strings"]}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["Detail"], 
                 Key["Strings"]}, "RowHeader", False], "Mouse"], 
              ImageSize -> {{100.80000000000001`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover[
                  
                  Style[{" a whole archive lives here"}, ShowStringCharacters -> 
                   False], 
                  Style[
                   
                   Style[{" a whole archive lives here"}, 
                    ShowStringCharacters -> False], FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{1, 
                    Key["Detail"], 
                    Key["Strings"]}, 4]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["Detail"], 
                 Key["Strings"]}, "Item", False], "Mouse"], 
              ImageMargins -> {{5, 3}, {4, 5}}]], SpanFromAbove}, {
            Item[
             Pane[
              Annotation["EmbeddedFileSignature", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["Test"]}, "Item", False], "Mouse"], 
              ImageSize -> {{235.20000000000002`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation["Strong", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["Confidence"]}, "Item", False], "Mouse"], 
              ImageSize -> {{89.60000000000001, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["Format", 
                  Style[
                  "Format", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{2, 
                    Key["Detail"], 
                    Key["Format"]}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["Detail"], 
                 Key["Format"]}, "RowHeader", False], "Mouse"], 
              ImageSize -> {{100.80000000000001`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation["ZIP", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["Detail"], 
                 Key["Format"]}, "Item", False], "Mouse"], 
              ImageSize -> {{33.6, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
              "A magic number is a short byte string that occurs by chance, \
and a metadata unit may carry a nested format for a legitimate reason. \
\"ExpectedByChance\" is how many times a uniformly random file this size \
would carry the signature; \"Unit\" is the container unit it landed in.", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["FalsePositives"]}, "Item", False], "Mouse"], 
              ImageSize -> {{560., Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {SpanFromAbove, SpanFromAbove, 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["Position", 
                  Style[
                  "Position", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{2, 
                    Key["Detail"], 
                    Key["Position"]}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["Detail"], 
                 Key["Position"]}, "RowHeader", False], "Mouse"], 
              ImageSize -> {{100.80000000000001`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["4576"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["Detail"], 
                 Key["Position"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], SpanFromAbove}, {
           SpanFromAbove, SpanFromAbove, 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["Unit", 
                  Style[
                  "Unit", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{2, 
                    Key["Detail"], 
                    Key["Unit"]}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["Detail"], 
                 Key["Unit"]}, "RowHeader", False], "Mouse"], 
              ImageSize -> {{100.80000000000001`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation["AppendedData", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["Detail"], 
                 Key["Unit"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], SpanFromAbove}, {
           SpanFromAbove, SpanFromAbove, 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["ExpectedByChance", 
                  Style[
                  "ExpectedByChance", FontColor -> 
                   RGBColor[
                    0.2749633796890805, 0.536987306253161, 
                    0.791992189065661]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{2, 
                    Key["Detail"], 
                    Key["ExpectedByChance"]}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["Detail"], 
                 Key["ExpectedByChance"]}, "RowHeader", False], "Mouse"], 
              ImageSize -> {{100.80000000000001`, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             RGBColor[
              0.9500473017990948, 0.9500473017990948, 0.9500473017990948], 
             Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["0.00000107195"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["Detail"], 
                 Key["ExpectedByChance"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], SpanFromAbove}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`headerHidden$ = And[
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    Alternatives["RowHeader", "ColumnHeader"]], 
                    TypeSystem`NestedGrid`PackagePrivate`headerHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    "Show " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$, 
                    And[
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`headerHidden$]], 
                    Nothing, 
                    MenuItem[
                    "Hide " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], Nothing]}]]]]], FontFamily -> 
            "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}, Dividers -> 
          All, FrameStyle -> 
          RGBColor[0.749003690406716, 0.749003690406716, 0.749003690406716], 
          Spacings -> {0, 0}, Alignment -> Left, 
          BaseStyle -> {
           FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
            Plain}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> 
         False, ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         TypeSystem`NestedGrid`PackagePrivate`renderedGrid]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Dynamic[
     Replace[
      Replace[
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
       TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
          Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
          Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
           Blank[]], 
          Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
           Blank[]]] :> (
         Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
          TypeSystem`NestedGrid`PackagePrivate`path$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
          TypeSystem`NestedGrid`PackagePrivate`pathType$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
          TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
         TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
          TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
         TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
          TypeSystem`NestedGrid`PackagePrivate`path$, 
           TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
        Spacer[10], Blank[] :> Spacer[10]}], 
      Pattern[TypeSystem`NestedGrid`PackagePrivate`bar, 
        Except[
         Alternatives[
          Blank[Spacer], ""]]] :> 
      TypeSystem`NestedGrid`PackagePrivate`makeFramedPathbar[
       TypeSystem`NestedGrid`PackagePrivate`bar]], 
     TrackedSymbols :> {
      TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       2, "Path" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$path$$], 
        "Grid" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$state$$], "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$topBar$$], "BottomBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$], "OutputID" -> 
        Hold[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]], StandardForm],
      ImageSizeCache->{
       1383.46159375, {110.04224243164063`, 115.33325805664063`}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{
      1383.46159375, {110.04224243164063`, 115.33325805664063`}}],
    BaseStyle->{
     LineBreakWithin -> False, 
      LightDarkAutoColorRules -> <|"MarkedColors" -> True|>},
    DynamicModuleValues:>{},
    Initialization:>(TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = 
     CreateUUID[]),
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"16433778-2490-40eb-a8b3-4527d0955d14"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ca4cef48-88ef-4c0a-b5dd-04f974660192"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"5e2b1cdf-d52d-442f-\
ba10-d0d5b9f3da5b"],

Cell["\<\
Every finding carries the way it can be wrong, which is the part meant to be \
read before acting on it:\
\>", "ExampleText",ExpressionUUID->"87fc698a-c10b-4b69-b73f-a9b2e92d86e8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", "png", "}"}], ",", "\n", "\t", 
   RowBox[{
    RowBox[{"png", " ", "=", " ", 
     RowBox[{"Normal", "[", 
      RowBox[{"ExportByteArray", "[", 
       RowBox[{
        RowBox[{"Image", "[", 
         RowBox[{
          RowBox[{"ArrayReshape", "[", 
           RowBox[{
            RowBox[{"Take", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{"IntegerDigits", "[", 
                  RowBox[{
                   RowBox[{"Hash", "[", 
                    RowBox[{"k", ",", " ", "\"\<SHA256\>\""}], "]"}], ",", 
                   " ", "256", ",", " ", "32"}], "]"}], ",", " ", 
                 RowBox[{"{", 
                  RowBox[{"k", ",", " ", "300"}], "}"}]}], "]"}], "]"}], ",", 
              " ", "4096"}], "]"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"64", ",", " ", "64"}], "}"}]}], "]"}], ",", 
          " ", "\"\<Byte\>\""}], "]"}], ",", " ", "\"\<PNG\>\""}], "]"}], 
      "]"}]}], ";", "\n", "\t", 
    RowBox[{"Lookup", "[", 
     RowBox[{
      RowBox[{"First", "[", 
       RowBox[{
        RowBox[{"SteganographySurvey", "[", 
         RowBox[{"ByteArray", "[", 
          RowBox[{"Join", "[", 
           RowBox[{"png", ",", " ", 
            RowBox[{
            "ToCharacterCode", 
             "[", "\"\<PK\.03\.04 a whole archive lives here\>\"", "]"}]}], 
           "]"}], "]"}], "]"}], "[", "\"\<Findings\>\"", "]"}], "]"}], ",", 
      " ", "\"\<FalsePositives\>\""}], "]"}]}]}], "\n", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b85f3c66-bb55-4841-93a4-eba8aea7a11e"],

Cell[BoxData["\<\"Some encoders and upload pipelines pad a file past its \
container; read the bytes before concluding anything.\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"bd725ee7-ba9e-4e5d-80f2-16474a45a4e7"]
}, 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->
  "cf3110bf-f69e-492f-9ca9-d7f9c4e578e2"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"12175d6c-6e4e-4fca-a2bf-2d3b431c24f8"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "5e20518d-cbc8-4cd5-8235-8b7fe68473d5"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"5c8ce2a6-621d-43d9-a376-864de16970c8"],

Cell[TextData[{
 "Each finding is one of the category's extractors, run and weighed. The \
appended bytes are exactly ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ImageAppendedData"]], 
    "paclet:WolframInstitute/Puzzles/ref/ImageAppendedData", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "56468725-d166-4a19-80f0-94c6f890100f"],
 ":"
}], "ExampleText",ExpressionUUID->"ee644398-7ed8-4849-a194-50d1b75158b0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"png", ",", " ", "loaded"}], "}"}], ",", "\n", "\t", 
   RowBox[{
    RowBox[{"png", " ", "=", " ", 
     RowBox[{"Normal", "[", 
      RowBox[{"ExportByteArray", "[", 
       RowBox[{
        RowBox[{"Image", "[", 
         RowBox[{
          RowBox[{"ArrayReshape", "[", 
           RowBox[{
            RowBox[{"Take", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{"IntegerDigits", "[", 
                  RowBox[{
                   RowBox[{"Hash", "[", 
                    RowBox[{"k", ",", " ", "\"\<SHA256\>\""}], "]"}], ",", 
                   " ", "256", ",", " ", "32"}], "]"}], ",", " ", 
                 RowBox[{"{", 
                  RowBox[{"k", ",", " ", "300"}], "}"}]}], "]"}], "]"}], ",", 
              " ", "4096"}], "]"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"64", ",", " ", "64"}], "}"}]}], "]"}], ",", 
          " ", "\"\<Byte\>\""}], "]"}], ",", " ", "\"\<PNG\>\""}], "]"}], 
      "]"}]}], ";", "\n", "\t", 
    RowBox[{"loaded", " ", "=", " ", 
     RowBox[{"ByteArray", "[", 
      RowBox[{"Join", "[", 
       RowBox[{"png", ",", " ", 
        RowBox[{"ToCharacterCode", "[", "\"\<a note on the end\>\"", "]"}]}], 
       "]"}], "]"}]}], ";", "\n", "\t", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"First", "[", 
        RowBox[{
         RowBox[{"SteganographySurvey", "[", "loaded", "]"}], 
         "[", "\"\<Findings\>\"", "]"}], "]"}], "[", "\"\<Detail\>\"", "]"}], 
      "[", "\"\<ByteCount\>\"", "]"}], " ", "===", " ", 
     RowBox[{"Length", "[", 
      RowBox[{"ImageAppendedData", "[", "loaded", "]"}], "]"}]}]}]}], "\n", 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b69764cd-0342-487e-83b6-41a804aa3545"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"448aecfc-bc12-4a14-b4d4-34b3e2279124"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "078cb865-80e3-4c03-9cbd-bb158f81a5c4"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"4727c95f-518e-4ac6-\
8deb-657691b36b3a"],

Cell[TextData[{
 "The chunk names in the measurements are the ones ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ImageContainerChunks"]], 
    "paclet:WolframInstitute/Puzzles/ref/ImageContainerChunks", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6608e2fb-7861-4947-9060-7d8b5d576334"],
 " lists:"
}], "ExampleText",ExpressionUUID->"8af67607-7689-48af-ba79-6095de8ca021"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Lookup", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"SteganographySurvey", "[", 
      RowBox[{"ExportByteArray", "[", 
       RowBox[{
        RowBox[{"Image", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "j", ",", " ", "128"}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "16"}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"j", ",", " ", "16"}], "}"}]}], "]"}], ",", 
          " ", "\"\<Byte\>\""}], "]"}], ",", " ", "\"\<PNG\>\""}], "]"}], 
      "]"}], "[", "\"\<Measurements\>\"", "]"}], ",", 
    " ", "\"\<ChunkNames\>\""}], "]"}], " ", "===", " ", 
  RowBox[{"Lookup", "[", 
   RowBox[{
    RowBox[{"ImageContainerChunks", "[", 
     RowBox[{"ExportByteArray", "[", 
      RowBox[{
       RowBox[{"Image", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", " ", "j", ",", " ", "128"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"i", ",", " ", "16"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"j", ",", " ", "16"}], "}"}]}], "]"}], ",", 
         " ", "\"\<Byte\>\""}], "]"}], ",", " ", "\"\<PNG\>\""}], "]"}], 
     "]"}], ",", " ", "\"\<Name\>\""}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"297d4590-7aab-48d7-b2d0-1bac0e2457f9"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1dcf2c4f-a96e-44a0-92d3-304410d36f0d"]
}, 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->
  "f3703b71-d022-493c-84e3-7c0d893d1e83"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ea4c2096-85d0-4b4d-abef-e8efe8bea553"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "f1b91bd2-28a3-4c36-9af2-0c8d56277410"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"83b9df4d-93d7-41eb-9771-3cc1dbfd1f51"],

Cell["\<\
A survey with no findings is not evidence that nothing is hidden, and the \
report says so:\
\>", "ExampleText",ExpressionUUID->"19228904-0472-477d-9bf7-b0b2c3fe98e3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SteganographySurvey", "[", 
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "j", ",", " ", "128"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "16"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"j", ",", " ", "16"}], "}"}]}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], "]"}], "[", "\"\<Note\>\"", "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"24327727-aada-423d-9c12-4d1ac218f06e"],

Cell[BoxData["\<\"A survey with no findings is not evidence that nothing is \
hidden: this battery reads spatial bit planes and container structure only, \
and a payload that is encrypted, compressed, spread over a keyed pixel order, \
or embedded in JPEG transform coefficients leaves none of the traces it looks \
for. A finding is a lead to read by hand, not a verdict.\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"aa4a3871-02cf-4c83-824c-ee5514e327b2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0025e590-3bce-4f2e-a095-52d7b93144ca"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7e601290-77c9-43c0-\
90b5-c70f66faf245"],

Cell["\<\
A flat carrier has a compressible low bit plane with nothing hidden in it, \
which is why that test is only ever weak:\
\>", "ExampleText",ExpressionUUID->"4272774d-baa2-4c90-96f6-1cdb9a4cdb6d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lookup", "[", 
  RowBox[{
   RowBox[{"First", "[", 
    RowBox[{"Cases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"SteganographySurvey", "[", 
        RowBox[{"Image", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Round", "[", 
               RowBox[{"200", " ", 
                RowBox[{"i", " ", "/", " ", "16"}]}], "]"}], ",", " ", "64", ",",
               " ", "192"}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "16"}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"j", ",", " ", "16"}], "}"}]}], "]"}], ",", 
          " ", "\"\<Byte\>\""}], "]"}], "]"}], "[", "\"\<Findings\>\"", "]"}],
       ",", " ", 
      RowBox[{"KeyValuePattern", "[", 
       RowBox[{"\"\<Test\>\"", " ", "->", 
        " ", "\"\<StructuredLowBitPlane\>\""}], "]"}]}], "]"}], "]"}], ",", 
   " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Confidence\>\"", ",", " ", "\"\<FalsePositives\>\""}], 
    "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0bf53aa2-ddda-44ea-a936-25a5565faf53"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Weak\"\>", 
   ",", "\<\"Only photographic carriers have a near-uniform low bit plane. \
Flat-colour graphics, screenshots, palette images and anything that has been \
resized or re-quantised are compressible in the low bits with nothing hidden \
in them at all.\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"24b7f7f7-1525-412a-8323-54237cd24424"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "fdafdbb3-fc5a-47b2-8689-200fe119627d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"a9590354-0832-48eb-\
b643-5a2f8a452857"],

Cell[TextData[{
 "A source that is not one of the three containers gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "91aca3b9-ef19-479b-be17-29ef451a8a0e"],
 ":"
}], "ExampleText",ExpressionUUID->"f1c53c97-3041-43e5-a0b1-e885fdf79e81"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"SteganographySurvey", "[", 
   RowBox[{"ByteArray", "[", 
    RowBox[{"ToCharacterCode", "[", "\"\<not an image container\>\"", "]"}], 
    "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fb48e9c5-45c1-4864-a2f6-77b0f2277c43"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ce2f2dbe-b023-4048-b703-5153f290cf7b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "657cb07a-6462-4004-b579-aec67edc733b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ba93b936-1720-4ac4-\
b1bc-a4070cdc8d1d"],

Cell["\<\
Something that is neither a source nor an image is returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"38d0aa74-f0d6-4dd1-a544-37abdcc69867"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SteganographySurvey", "[", "42", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"45a69e90-16d8-45c0-ba81-5929f9f5e358"],

Cell[BoxData[
 RowBox[{"SteganographySurvey", "[", "42", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d89fac75-af94-486f-b340-b7383545bca2"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ImageBitPlaneScan"]], 
           "paclet:WolframInstitute/Puzzles/ref/ImageBitPlaneScan", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "d4980525-1f9b-4013-adf1-2fbcfcd813e8"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ImageAppendedData"]], 
           "paclet:WolframInstitute/Puzzles/ref/ImageAppendedData", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "fd7b5924-51d0-4a60-ac01-4ee23eee6148"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["EmbeddedFileSignatures"]], 
           "paclet:WolframInstitute/Puzzles/ref/EmbeddedFileSignatures", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "9fdebd94-a3f5-490c-b52a-e7010fae60e5"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ImageContainerChunks"]], 
           "paclet:WolframInstitute/Puzzles/ref/ImageContainerChunks", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "1d3a4d6e-90c3-4cc4-a1af-40e6fe3492bc"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ImageTextMetadata"]], 
           "paclet:WolframInstitute/Puzzles/ref/ImageTextMetadata", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "15e7e639-1550-475b-9bb4-1b781d098703"]
       }], "SeeAlso",ExpressionUUID->"2a20e533-09c9-49d7-b8ed-1a78f9c6bb19"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"9701b33d-8208-431b-8797-\
649110ea45fa"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, "RelatedGuide.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Steganography"]], 
           "paclet:WolframInstitute/Puzzles/guide/Steganography"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "27458c3b-eb2e-4b44-85ba-3bbb0af9024c"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"cbcf94fd-aa44-4789-bae8-\
cb268856e023"],

Cell[" ", "FooterCell",ExpressionUUID->"12f14a03-ebd8-48c3-bef2-cc75e01bd60e"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"SteganographySurvey",
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, 47.459083}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[SteganographySurvey, paclet : \
WolframInstitute/Puzzles/ref/SteganographySurvey, WolframInstitute/Puzzles \
Package Symbol][source] runs every extractor in the Steganography category \
over an image file and gives an Association reporting what came back. \
PackageLink[SteganographySurvey, paclet : \
WolframInstitute/Puzzles/ref/SteganographySurvey, WolframInstitute/Puzzles \
Package Symbol][image] surveys an Image, running the pixel tests only.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "SteganographySurvey", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "SteganographySurvey", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/SteganographySurvey", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"fcbdb943-5655-41a9-84ec-fb929989991a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[25306, 654, 171, 3, 70, "ExampleText",ExpressionUUID->"f387ef9d-520a-4154-a83e-88ac0bee2870",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 127109, 2996}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[587, 21, 5896, 143, 70, "AnchorBarGrid",ExpressionUUID->"7b80b8a0-80ad-4a92-8ef4-f02397f8c34e",
 CellID->1],
Cell[6486, 166, 107, 0, 70, "ContextNameCell",ExpressionUUID->"91f37977-6cc3-4271-95a0-151afc0bc5f2"],
Cell[CellGroupData[{
Cell[6618, 170, 562, 14, 70, "ObjectNameGrid",ExpressionUUID->"9671feee-ab01-44d1-a8ae-67ef9906b73f"],
Cell[7183, 186, 1767, 45, 70, "Usage",ExpressionUUID->"5467c83c-2628-4522-9b0e-0244956d9b56"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8987, 236, 1444, 34, 70, "NotesSection",ExpressionUUID->"cbca26d6-ae19-4fb4-8b59-f2c516bebf5b",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1546596105],
Cell[10434, 272, 1538, 46, 70, "Notes",ExpressionUUID->"0f76a311-7597-4617-9688-27329a4f1a1e"],
Cell[11975, 320, 1540, 42, 70, "Notes",ExpressionUUID->"01a9ec31-588d-44a6-b321-03a56f675b3d"],
Cell[13518, 364, 1075, 27, 70, "Notes",ExpressionUUID->"d747d8e5-4603-4170-91d4-7771ec32a7d2"],
Cell[14596, 393, 968, 23, 70, "Notes",ExpressionUUID->"9f7217df-62da-4503-9b63-1ec5265deb0e"],
Cell[15567, 418, 1418, 37, 70, "Notes",ExpressionUUID->"652c985b-45a6-4160-af85-abb5e76059df"],
Cell[16988, 457, 484, 9, 70, "Notes",ExpressionUUID->"5a2a81b2-c110-4c8d-985f-28f7eba1f758"],
Cell[17475, 468, 569, 9, 70, "Notes",ExpressionUUID->"5941a642-a0fe-4bab-ae85-324aac08cc97"],
Cell[18047, 479, 3361, 66, 70, "3ColumnTableMod",ExpressionUUID->"bc57de81-efc7-4394-bb38-902ed5fe84f3"],
Cell[21411, 547, 397, 6, 70, "Notes",ExpressionUUID->"9b217c5b-6f82-4602-a45b-32638761b427"],
Cell[21811, 555, 491, 12, 70, "Notes",ExpressionUUID->"68120452-2c50-4c82-ac40-4ba72050b5d0"]
}, Closed]],
Cell[22317, 570, 80, 0, 70, "PageDelimiter",ExpressionUUID->"efacdbec-342e-4cff-bd7f-daf1af616207"],
Cell[CellGroupData[{
Cell[22422, 574, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"44772a12-08f0-40a5-ad02-d43173a70322",
 CellID->498673447],
Cell[23826, 613, 216, 4, 70, "Input",ExpressionUUID->"323ae2c2-91bb-4c2f-b502-ab3d42654d4e",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[24067, 621, 1236, 31, 70, "ExampleSection",ExpressionUUID->"e58819d7-85ab-4a10-8668-28bc5e40f0e9",
 CellID->1723433135],
Cell[25306, 654, 171, 3, 70, "ExampleText",ExpressionUUID->"f387ef9d-520a-4154-a83e-88ac0bee2870",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[25502, 661, 1079, 27, 70, "Input",ExpressionUUID->"a13c06c6-d89e-46ad-8fcb-959c8b6396b7"],
Cell[26584, 690, 141, 1, 70, "Output",ExpressionUUID->"9ae11029-678e-4e6d-a84b-cef40caf8698"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26762, 696, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d4827b1e-eacb-4bc2-9436-8afe8c67d473"],
Cell[26989, 703, 272, 4, 70, "ExampleText",ExpressionUUID->"7d0eb078-e29c-4a14-bb90-9bef51e50351"],
Cell[CellGroupData[{
Cell[27286, 711, 2278, 59, 70, "Input",ExpressionUUID->"1eed3532-cfc0-4209-9f1b-bdb02cd6e921"],
Cell[29567, 772, 151, 1, 70, "Output",ExpressionUUID->"06b33c3e-3e0e-4962-a6f1-f7cae30520eb"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29767, 779, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"4cb3de52-f39e-44e7-86d5-cd24a4d49363"],
Cell[29994, 786, 226, 3, 70, "ExampleText",ExpressionUUID->"2c4a8351-896a-47c0-b491-0003762fa94c"],
Cell[CellGroupData[{
Cell[30245, 793, 2387, 62, 70, "Input",ExpressionUUID->"1304fb2c-721d-4003-aebe-ab251e64b867"],
Cell[32635, 857, 676, 13, 70, "Output",ExpressionUUID->"0ec0cd09-22b9-4e09-952c-dfc692cafb4b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33372, 877, 1227, 31, 70, "ExampleSection",ExpressionUUID->"21c11764-9130-4253-a609-09c7a36d039d",
 CellID->1293636265],
Cell[34602, 910, 173, 3, 70, "ExampleText",ExpressionUUID->"5df3e95a-e85f-49e7-8810-55ffb2047392"],
Cell[CellGroupData[{
Cell[34800, 917, 1937, 51, 70, "Input",ExpressionUUID->"01f10c1f-2fcd-4382-b745-78b80bda21c9"],
Cell[36740, 970, 328, 8, 70, "Output",ExpressionUUID->"0bbdc311-5aae-4cc0-9d57-60d1ef5f5517"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37105, 983, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"15bbf48e-e03b-4da0-b4a8-1fe3e27c7f2a"],
Cell[37332, 990, 118, 0, 70, "ExampleText",ExpressionUUID->"f5245b27-ae5d-4945-9241-4fc6039a1fb1"],
Cell[CellGroupData[{
Cell[37475, 994, 3081, 77, 70, "Input",ExpressionUUID->"8ae70def-7691-4b9b-8785-953b73a156eb"],
Cell[40559, 1073, 446, 9, 70, "Output",ExpressionUUID->"fb2d5286-f9ba-4fd7-9145-0da0c2ea62f6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[41054, 1088, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"1190a2c0-268f-4400-a332-b88a7769d0b7"],
Cell[41281, 1095, 391, 11, 70, "ExampleText",ExpressionUUID->"2b8ef66c-cd86-482b-9476-f9a54e48058a"],
Cell[CellGroupData[{
Cell[41697, 1110, 765, 19, 70, "Input",ExpressionUUID->"688853bf-fc03-4901-b06c-d4e8aa41a174"],
Cell[42465, 1131, 323, 7, 70, "Output",ExpressionUUID->"fa4527cd-5e5c-429c-8a18-8beaadecea94"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42837, 1144, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"62d04c85-e404-4c36-bdcc-2128e2181070"],
Cell[43064, 1151, 140, 1, 70, "ExampleText",ExpressionUUID->"482eaad2-a72b-4d85-9537-10bc2b708b3d"],
Cell[CellGroupData[{
Cell[43229, 1156, 659, 17, 70, "Input",ExpressionUUID->"eb21808b-4cbc-494f-ad37-e34dd2177a30"],
Cell[43891, 1175, 366, 7, 70, "Output",ExpressionUUID->"d719689e-eae6-4664-b3cc-0055cb0bf88e"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[44318, 1189, 1229, 31, 70, "ExampleSection",ExpressionUUID->"3d3bc811-2cc7-42bf-af10-fba04395c9e3",
 CellID->2061341341],
Cell[45550, 1222, 355, 7, 70, "ExampleText",ExpressionUUID->"6fd311d2-362e-475b-892b-0bac50714f80"],
Cell[CellGroupData[{
Cell[45930, 1233, 1208, 30, 70, "Input",ExpressionUUID->"8209eded-c3d7-4da8-b42b-bbb36dab67dc"],
Cell[47141, 1265, 234, 4, 70, "Output",ExpressionUUID->"71097694-e374-431c-a1d6-b50b884775ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47412, 1274, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e3708d70-9b36-4cd3-8cce-b09c4820ad07"],
Cell[47639, 1281, 372, 7, 70, "ExampleText",ExpressionUUID->"91279b7d-bedb-4022-88a4-ade93f08664f"],
Cell[CellGroupData[{
Cell[48036, 1292, 1258, 31, 70, "Input",ExpressionUUID->"62e96904-f5ee-4525-98ea-a6095281f208"],
Cell[49297, 1325, 107, 1, 70, "Output",ExpressionUUID->"5e9b2f0f-b8c8-4924-a36c-0b581262373e"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[49465, 1333, 1233, 31, 70, "ExampleSection",ExpressionUUID->"e08c9f98-e3f5-424f-9268-441b0a845706",
 CellID->258228157],
Cell[50701, 1366, 112, 0, 70, "ExampleText",ExpressionUUID->"3b00fe8b-97a6-4319-be65-7ba11a3a7a84"],
Cell[CellGroupData[{
Cell[50838, 1370, 1647, 42, 70, "Input",ExpressionUUID->"25c9db08-eb32-4c9f-9e15-68ac0cd58ab7"],
Cell[52488, 1414, 52852, 982, 70, "Output",ExpressionUUID->"16433778-2490-40eb-a8b3-4527d0955d14"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105377, 2401, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"5e2b1cdf-d52d-442f-ba10-d0d5b9f3da5b"],
Cell[105604, 2408, 190, 3, 70, "ExampleText",ExpressionUUID->"87fc698a-c10b-4b69-b73f-a9b2e92d86e8"],
Cell[CellGroupData[{
Cell[105819, 2415, 1756, 44, 70, "Input",ExpressionUUID->"b85f3c66-bb55-4841-93a4-eba8aea7a11e"],
Cell[107578, 2461, 224, 2, 70, "Output",ExpressionUUID->"bd725ee7-ba9e-4e5d-80f2-16474a45a4e7"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[107863, 2470, 1244, 31, 70, "ExampleSection",ExpressionUUID->"5c8ce2a6-621d-43d9-a376-864de16970c8",
 CellID->2123667759],
Cell[109110, 2503, 575, 15, 70, "ExampleText",ExpressionUUID->"ee644398-7ed8-4849-a194-50d1b75158b0"],
Cell[CellGroupData[{
Cell[109710, 2522, 1938, 49, 70, "Input",ExpressionUUID->"b69764cd-0342-487e-83b6-41a804aa3545"],
Cell[111651, 2573, 110, 1, 70, "Output",ExpressionUUID->"448aecfc-bc12-4a14-b4d4-34b3e2279124"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111798, 2579, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"4727c95f-518e-4ac6-8deb-657691b36b3a"],
Cell[112025, 2586, 536, 14, 70, "ExampleText",ExpressionUUID->"8af67607-7689-48af-ba79-6095de8ca021"],
Cell[CellGroupData[{
Cell[112586, 2604, 1514, 39, 70, "Input",ExpressionUUID->"297d4590-7aab-48d7-b2d0-1bac0e2457f9"],
Cell[114103, 2645, 110, 1, 70, "Output",ExpressionUUID->"1dcf2c4f-a96e-44a0-92d3-304410d36f0d"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[114274, 2653, 1237, 31, 70, "ExampleSection",ExpressionUUID->"83b9df4d-93d7-41eb-9771-3cc1dbfd1f51",
 CellID->1305812373],
Cell[115514, 2686, 177, 3, 70, "ExampleText",ExpressionUUID->"19228904-0472-477d-9bf7-b0b2c3fe98e3"],
Cell[CellGroupData[{
Cell[115716, 2693, 607, 16, 70, "Input",ExpressionUUID->"24327727-aada-423d-9c12-4d1ac218f06e"],
Cell[116326, 2711, 468, 5, 70, "Output",ExpressionUUID->"aa4a3871-02cf-4c83-824c-ee5514e327b2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116831, 2721, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7e601290-77c9-43c0-90b5-c70f66faf245"],
Cell[117058, 2728, 204, 3, 70, "ExampleText",ExpressionUUID->"4272774d-baa2-4c90-96f6-1cdb9a4cdb6d"],
Cell[CellGroupData[{
Cell[117287, 2735, 1219, 32, 70, "Input",ExpressionUUID->"0bf53aa2-ddda-44ea-a936-25a5565faf53"],
Cell[118509, 2769, 411, 7, 70, "Output",ExpressionUUID->"24b7f7f7-1525-412a-8323-54237cd24424"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[118969, 2782, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"a9590354-0832-48eb-b643-5a2f8a452857"],
Cell[119196, 2789, 403, 11, 70, "ExampleText",ExpressionUUID->"f1c53c97-3041-43e5-a0b1-e885fdf79e81"],
Cell[CellGroupData[{
Cell[119624, 2804, 349, 7, 70, "Input",ExpressionUUID->"fb48e9c5-45c1-4864-a2f6-77b0f2277c43"],
Cell[119976, 2813, 110, 1, 70, "Output",ExpressionUUID->"ce2f2dbe-b023-4048-b703-5153f290cf7b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[120135, 2820, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ba93b936-1720-4ac4-b1bc-a4070cdc8d1d"],
Cell[120362, 2827, 158, 2, 70, "ExampleText",ExpressionUUID->"38d0aa74-f0d6-4dd1-a544-37abdcc69867"],
Cell[CellGroupData[{
Cell[120545, 2833, 200, 3, 70, "Input",ExpressionUUID->"45a69e90-16d8-45c0-ba81-5929f9f5e358"],
Cell[120748, 2838, 153, 2, 70, "Output",ExpressionUUID->"d89fac75-af94-486f-b340-b7383545bca2"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[120952, 2846, 3232, 83, 70, "SeeAlsoSection",ExpressionUUID->"9701b33d-8208-431b-8797-649110ea45fa"],
Cell[124187, 2931, 754, 19, 70, "MoreAboutSection",ExpressionUUID->"cbcf94fd-aa44-4789-bae8-cb268856e023"],
Cell[124944, 2952, 78, 0, 70, "FooterCell",ExpressionUUID->"12f14a03-ebd8-48c3-bef2-cc75e01bd60e"]
}
]
*)

(* End of internal cache information *)

