(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 63494, 1696] NotebookOptionsPosition[ 58322, 1607] NotebookOutlinePosition[ 58660, 1622] CellTagsIndexPosition[ 58617, 1619] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"img", "=", RowBox[{ "Import", "[", "\"\\"", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7882411776002073`*^9, 3.788241178964216*^9}, { 3.788245392803112*^9, 3.788245395636941*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"9f5bbdd0-e526-45f0-8d98-429fbe918bbd"], Cell[BoxData[ RowBox[{ RowBox[{"bytes", "=", RowBox[{"ImageData", "[", RowBox[{"img", ",", "\"\\""}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.788241220725214*^9, 3.788241242020214*^9}, { 3.788245459105208*^9, 3.788245465185418*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"eb158d9a-890f-4da8-9833-89a398d97018"], Cell["The distribution is a bit odd:", "Text", CellChangeTimes->{{3.788241305715437*^9, 3.788241309650731*^9}},ExpressionUUID->"92b7e274-7326-4c03-9f66-\ c040abfcc348"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"Tally", "[", RowBox[{"Flatten", "[", "bytes", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.78824124789563*^9, 3.788241300282542*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"519259b0-e952-492e-8087-a5d1ef263250"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxVln1ol1UUx28Rsf4bIWyJ2C+xWBFlZWYhedVZM9PmXGX59riarZo5lsqE NU7xo5a9zQhcZfOxF1utbGYva656WoW61F6pIQgPYWF/BP4xRMiy+n0/B2og H8/v3Hve7rnnuRc0rK1rPDOEMPrPv39Z+otLYomrvhSzlSVmzd9KLtwl7vxc jMvFv75i/bISrWMkhv/8jWstn1X6T96o38/aLeZrxJZnWb9UXHcI+7eJvw2j T4jjbfS3itU78I888rFo+FvZL6aS7cQ+1q+Q3Em+YZW4Af/Zvfh5F/0dYnEb svINGwdY3yB7vdTHFouHP8X/PeKuPeynfp19+MHeXuJJiWcRcrxT9kc4j4R6 JB+hx/7L7yOT3x8H8Cc5zhmVnN8tbhlGr/O23zm/SL6HiN/kP1T+RHzsn8r+ RP1hZ5B/xvnN6BYLnEf3fvTkf/2HxEM+579HPPhrRR/Z35qiv06seQx7dWKR /dlqsdf7RfmFg94f6OeRX+b5DGKf8x9PfwX8b/+EfKl395vEr/PKhr7DnmTr G8Yf/d28hXjIt/giMvEUXxEL6Jvpt4R+GCM+Q2/YT5rEEe/XBnGu9zf2h7Yi PyBOQDbsX+jnfbs4iXob9ubT7wXWV72OvWnipiHioZ4Vfp6cz2bqF+iPerfH +p/fwt8i8Vzuh2l/1vmj5Iz+PODnRbx9yJF6D1HvhPh7sB9Zv5z7aMy3U69i 32Xis3rxCPWNxJv14J/1W3vxR70n7EJ/hVjTiX6tONHP+z6x8QPskv9D1KvA vKx9Tkzx18J8K9wvlnfgj/Xdr4l5szi4Hf/4K+d+5vTzspewR//Xb0ZPPgPk ExvIh3qm+OtAztG3kU+sLTHd8AvrideeIl7iS5/gd+KZQb4Z+i7iNfw1PUK8 1LPL4yX+0RfQE38Z9gL2T/k8Z/8Ozi/jfg15faiXz5uc+1bD/U2RU+SM+1X7 MP7RH39UjMjd9KdRj4z+yJEj+SXIaRvr2H/U7+888qFfjPwrH0cm/lhkP/Z+ eJ74iLeHeZb494/9Of2W0h8J9T9JPY3vV8HnMd+/yX4/6ecB5rlRb3sGP/iv cpn4+vEfWd+/EXu8V6Zswh/6QP3CVeIa5k+K/UrOI6UebeyPyP5OMeZTjj7w vpjo84z132Avox5lfr7k28c8jOjbTEyIp78Ff8gnOZ9A/rWst5vF6e+IBe6D Pch65tMej2+yuI/7EMrYh90cf+Xr0QdxxN8nN4nfM//CuBLt2EHkSWI78ytc Iw5+gTxFXLETuSCOoY/E296F/vjMEkafRp4g+r0Pl4gnmM+pn3c1rBQrfJ4v EBd7PNcSj3+vysX1vF/DVLGe90K4WmziPocqsZr7EjTP7A1/7+Iv8l20Jf// PUP273ZYKPb494H7ezHnZ/PFpd4/3KfZ5G+3iGPkmymecNi/l8jH6CfDXzvz LfI9Pur+dN52nr9fbxArvia+y8R+7r+p7nY57+nA+l+9/lE84vWfqfWnP0Oe LZ4eRp4rTuN9azeKq8kn1Ihn8z2xOeJu3uthlriA+eJ98aS/N7g/57i/S8Vm ztPwv596m+Kz8R4v/tb5/bpSXEg/Gf7/3Ite+Vud779I7PD363T2FePfe0wE 4Q== "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 254.}, {0, 23025.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8226376581860037`*^9}, CellLabel->"Out[3]=",ExpressionUUID->"5bc55670-3a6a-4865-8a26-c2d87eedc6c3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"bytes", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ";;", "100"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7882413175072002`*^9, 3.78824133894204*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"6b8a363a-a96b-499d-bea8-d6d0630837cf"], Cell[BoxData[ RowBox[{"{", RowBox[{ "97", ",", "127", ",", "153", ",", "117", ",", "117", ",", "115", ",", "117", ",", "0", ",", "175", ",", "153", ",", "0", ",", "239", ",", "108", ",", "89", ",", "128", ",", "117", ",", "0", ",", "239", ",", "85", ",", "153", ",", "87", ",", "128", ",", "0", ",", "172", ",", "0", ",", "173", ",", "123", ",", "136", ",", "123", ",", "115", ",", "127", ",", "153", ",", "0", ",", "206", ",", "100", ",", "97", ",", "89", ",", "112", ",", "0", ",", "175", ",", "97", ",", "150", ",", "78", ",", "0", ",", "189", ",", "97", ",", "127", ",", "116", ",", "113", ",", "141", ",", "108", ",", "105", ",", "0", ",", "150", ",", "136", ",", "89", ",", "131", ",", "0", ",", "186", ",", "121", ",", "120", ",", "89", ",", "0", ",", "167", ",", "124", ",", "101", ",", "0", ",", "173", ",", "123", ",", "108", ",", "113", ",", "121", ",", "124", ",", "115", ",", "108", ",", "106", ",", "0", ",", "175", ",", "115", ",", "108", ",", "121", ",", "113", ",", "105", ",", "141", ",", "0", ",", "165", ",", "0", ",", "175", ",", "120", ",", "155", ",", "91", ",", "0", ",", "169", ",", "119", ",", "0", ",", "127", ",", "136", ",", "123", ",", "124", ",", "115"}], "}"}]], "Output", CellChangeTimes->{{3.788241318763129*^9, 3.7882413391763983`*^9}, 3.822637659626342*^9}, CellLabel->"Out[4]=",ExpressionUUID->"f41fc2e3-1cd0-4e74-baff-94492135ef6b"] }, Open ]], Cell["\<\ This is totally text. 0 is too overwhelmingly common to be an E, and it never \ occurs in doubles except at the very end, so it is padding of some sort.\ \>", "Text", CellChangeTimes->{{3.788241344278248*^9, 3.788241403629353*^9}, { 3.788241440390237*^9, 3.7882414430067472`*^9}, {3.788241490190114*^9, 3.788241494831893*^9}, {3.7882415317421837`*^9, 3.788241532038185*^9}},ExpressionUUID->"1108846e-0b95-4fb3-a6ce-\ a918ae10aced"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"First", "/@", RowBox[{"Position", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Flatten", "[", "bytes", "]"}], ",", "2", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "\[Equal]", RowBox[{"Range", "[", RowBox[{"1450872", ",", RowBox[{ RowBox[{"Length", "[", RowBox[{"Flatten", "[", "bytes", "]"}], "]"}], "-", "1"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7882414046555853`*^9, 3.7882414784071407`*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"479034f3-b0b7-4599-9e91-ea629e655e47"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.788241410433127*^9, 3.788241479616309*^9}, 3.8226376631190147`*^9}, CellLabel->"Out[5]=",ExpressionUUID->"3c2eabed-0e9e-48c8-aeb8-548855d272b4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SortBy", "[", RowBox[{ RowBox[{"Tally", "[", RowBox[{"Flatten", "[", "bytes", "]"}], "]"}], ",", "Last"}], "]"}], "//", "Reverse"}]], "Input", CellChangeTimes->{{3.788241364740527*^9, 3.788241373357155*^9}, { 3.788241501949429*^9, 3.7882415086943703`*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"925a58ed-0216-4767-9940-2702d61bdc5b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "269445"}], "}"}], ",", RowBox[{"{", RowBox[{"65", ",", "43957"}], "}"}], ",", RowBox[{"{", RowBox[{"120", ",", "24845"}], "}"}], ",", RowBox[{"{", RowBox[{"106", ",", "23648"}], "}"}], ",", RowBox[{"{", RowBox[{"74", ",", "23075"}], "}"}], ",", RowBox[{"{", RowBox[{"143", ",", "19187"}], "}"}], ",", RowBox[{"{", RowBox[{"105", ",", "18218"}], "}"}], ",", RowBox[{"{", RowBox[{"127", ",", "17843"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "17624"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "15918"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "15718"}], "}"}], ",", RowBox[{"{", RowBox[{"136", ",", "15596"}], "}"}], ",", RowBox[{"{", RowBox[{"108", ",", "15592"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "15313"}], "}"}], ",", RowBox[{"{", RowBox[{"121", ",", "14839"}], "}"}], ",", RowBox[{"{", RowBox[{"117", ",", "14332"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "14058"}], "}"}], ",", RowBox[{"{", RowBox[{"124", ",", "13787"}], "}"}], ",", RowBox[{"{", RowBox[{"64", ",", "13651"}], "}"}], ",", RowBox[{"{", RowBox[{"115", ",", "13565"}], "}"}], ",", RowBox[{"{", RowBox[{"169", ",", "13104"}], "}"}], ",", RowBox[{"{", RowBox[{"173", ",", "12781"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "12383"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "12282"}], "}"}], ",", RowBox[{"{", RowBox[{"113", ",", "11150"}], "}"}], ",", RowBox[{"{", RowBox[{"123", ",", "11025"}], "}"}], ",", RowBox[{"{", RowBox[{"97", ",", "10946"}], "}"}], ",", RowBox[{"{", RowBox[{"141", ",", "10914"}], "}"}], ",", RowBox[{"{", RowBox[{"144", ",", "10890"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "10728"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "10682"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "10612"}], "}"}], ",", RowBox[{"{", RowBox[{"59", ",", "10406"}], "}"}], ",", RowBox[{"{", RowBox[{"153", ",", "10076"}], "}"}], ",", RowBox[{"{", RowBox[{"150", ",", "10065"}], "}"}], ",", RowBox[{"{", RowBox[{"53", ",", "9779"}], "}"}], ",", RowBox[{"{", RowBox[{"155", ",", "9731"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "9726"}], "}"}], ",", RowBox[{"{", RowBox[{"89", ",", "9682"}], "}"}], ",", RowBox[{"{", RowBox[{"142", ",", "9559"}], "}"}], ",", RowBox[{"{", RowBox[{"167", ",", "9518"}], "}"}], ",", RowBox[{"{", RowBox[{"132", ",", "9472"}], "}"}], ",", RowBox[{"{", RowBox[{"165", ",", "9320"}], "}"}], ",", RowBox[{"{", RowBox[{"56", ",", "9234"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "9215"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "8869"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "8757"}], "}"}], ",", RowBox[{"{", RowBox[{"78", ",", "8154"}], "}"}], ",", RowBox[{"{", RowBox[{"101", ",", "8142"}], "}"}], ",", RowBox[{"{", RowBox[{"180", ",", "8009"}], "}"}], ",", RowBox[{"{", RowBox[{"140", ",", "7973"}], "}"}], ",", RowBox[{"{", RowBox[{"51", ",", "7932"}], "}"}], ",", RowBox[{"{", RowBox[{"168", ",", "7841"}], "}"}], ",", RowBox[{"{", RowBox[{"72", ",", "7825"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "7820"}], "}"}], ",", RowBox[{"{", RowBox[{"71", ",", "7805"}], "}"}], ",", RowBox[{"{", RowBox[{"125", ",", "7629"}], "}"}], ",", RowBox[{"{", RowBox[{"87", ",", "7626"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "7369"}], "}"}], ",", RowBox[{"{", RowBox[{"69", ",", "7339"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "7306"}], "}"}], ",", RowBox[{"{", RowBox[{"55", ",", "7259"}], "}"}], ",", RowBox[{"{", RowBox[{"63", ",", "7156"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "7142"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7114"}], "}"}], ",", RowBox[{"{", RowBox[{"189", ",", "7089"}], "}"}], ",", RowBox[{"{", RowBox[{"93", ",", "7005"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6935"}], "}"}], ",", RowBox[{"{", RowBox[{"139", ",", "6900"}], "}"}], ",", RowBox[{"{", RowBox[{"103", ",", "6860"}], "}"}], ",", RowBox[{"{", RowBox[{"92", ",", "6827"}], "}"}], ",", RowBox[{"{", RowBox[{"166", ",", "6708"}], "}"}], ",", RowBox[{"{", RowBox[{"79", ",", "6692"}], "}"}], ",", RowBox[{"{", RowBox[{"131", ",", "6496"}], "}"}], ",", RowBox[{"{", RowBox[{"158", ",", "6396"}], "}"}], ",", RowBox[{"{", RowBox[{"52", ",", "6355"}], "}"}], ",", RowBox[{"{", RowBox[{"112", ",", "6265"}], "}"}], ",", RowBox[{"{", RowBox[{"88", ",", "6228"}], "}"}], ",", RowBox[{"{", RowBox[{"148", ",", "6219"}], "}"}], ",", RowBox[{"{", RowBox[{"68", ",", "6072"}], "}"}], ",", RowBox[{"{", RowBox[{"104", ",", "6002"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "5965"}], "}"}], ",", RowBox[{"{", RowBox[{"119", ",", "5950"}], "}"}], ",", RowBox[{"{", RowBox[{"151", ",", "5752"}], "}"}], ",", RowBox[{"{", RowBox[{"209", ",", "5733"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "5638"}], "}"}], ",", RowBox[{"{", RowBox[{"186", ",", "5538"}], "}"}], ",", RowBox[{"{", RowBox[{"73", ",", "5348"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "5307"}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "5252"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "5236"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "5229"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "5161"}], "}"}], ",", RowBox[{"{", RowBox[{"135", ",", "5151"}], "}"}], ",", RowBox[{"{", RowBox[{"84", ",", "5150"}], "}"}], ",", RowBox[{"{", RowBox[{"163", ",", "5143"}], "}"}], ",", RowBox[{"{", RowBox[{"175", ",", "4868"}], "}"}], ",", RowBox[{"{", RowBox[{"82", ",", "4829"}], "}"}], ",", RowBox[{"{", RowBox[{"195", ",", "4810"}], "}"}], ",", RowBox[{"{", RowBox[{"206", ",", "4672"}], "}"}], ",", RowBox[{"{", RowBox[{"183", ",", "4536"}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "4510"}], "}"}], ",", RowBox[{"{", RowBox[{"179", ",", "4380"}], "}"}], ",", RowBox[{"{", RowBox[{"157", ",", "4208"}], "}"}], ",", RowBox[{"{", RowBox[{"172", ",", "4191"}], "}"}], ",", RowBox[{"{", RowBox[{"57", ",", "3996"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "3887"}], "}"}], ",", RowBox[{"{", RowBox[{"182", ",", "3796"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "3754"}], "}"}], ",", RowBox[{"{", RowBox[{"128", ",", "3728"}], "}"}], ",", RowBox[{"{", RowBox[{"161", ",", "3697"}], "}"}], ",", RowBox[{"{", RowBox[{"147", ",", "3663"}], "}"}], ",", RowBox[{"{", RowBox[{"237", ",", "3647"}], "}"}], ",", RowBox[{"{", RowBox[{"146", ",", "3620"}], "}"}], ",", RowBox[{"{", RowBox[{"67", ",", "3565"}], "}"}], ",", RowBox[{"{", RowBox[{"116", ",", "3524"}], "}"}], ",", RowBox[{"{", RowBox[{"47", ",", "3507"}], "}"}], ",", RowBox[{"{", RowBox[{"70", ",", "3465"}], "}"}], ",", RowBox[{"{", RowBox[{"241", ",", "3407"}], "}"}], ",", RowBox[{"{", RowBox[{"187", ",", "3404"}], "}"}], ",", RowBox[{"{", RowBox[{"248", ",", "3155"}], "}"}], ",", RowBox[{"{", RowBox[{"152", ",", "3150"}], "}"}], ",", RowBox[{"{", RowBox[{"61", ",", "3134"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "2991"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "2983"}], "}"}], ",", RowBox[{"{", RowBox[{"137", ",", "2964"}], "}"}], ",", RowBox[{"{", RowBox[{"85", ",", "2850"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "2829"}], "}"}], ",", RowBox[{"{", RowBox[{"232", ",", "2764"}], "}"}], ",", RowBox[{"{", RowBox[{"156", ",", "2686"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "2683"}], "}"}], ",", RowBox[{"{", RowBox[{"77", ",", "2593"}], "}"}], ",", RowBox[{"{", RowBox[{"178", ",", "2498"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "2494"}], "}"}], ",", RowBox[{"{", RowBox[{"251", ",", "2447"}], "}"}], ",", RowBox[{"{", RowBox[{"231", ",", "2269"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "2111"}], "}"}], ",", RowBox[{"{", RowBox[{"170", ",", "2105"}], "}"}], ",", RowBox[{"{", RowBox[{"94", ",", "2065"}], "}"}], ",", RowBox[{"{", RowBox[{"184", ",", "2047"}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "2017"}], "}"}], ",", RowBox[{"{", RowBox[{"129", ",", "2011"}], "}"}], ",", RowBox[{"{", RowBox[{"162", ",", "1968"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "1900"}], "}"}], ",", RowBox[{"{", RowBox[{"159", ",", "1896"}], "}"}], ",", RowBox[{"{", RowBox[{"191", ",", "1879"}], "}"}], ",", RowBox[{"{", RowBox[{"198", ",", "1849"}], "}"}], ",", RowBox[{"{", RowBox[{"176", ",", "1839"}], "}"}], ",", RowBox[{"{", RowBox[{"240", ",", "1799"}], "}"}], ",", RowBox[{"{", RowBox[{"197", ",", "1768"}], "}"}], ",", RowBox[{"{", RowBox[{"130", ",", "1761"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "1754"}], "}"}], ",", RowBox[{"{", RowBox[{"199", ",", "1746"}], "}"}], ",", RowBox[{"{", RowBox[{"207", ",", "1718"}], "}"}], ",", RowBox[{"{", RowBox[{"222", ",", "1653"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "1627"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "1617"}], "}"}], ",", RowBox[{"{", RowBox[{"134", ",", "1583"}], "}"}], ",", RowBox[{"{", RowBox[{"230", ",", "1572"}], "}"}], ",", RowBox[{"{", RowBox[{"91", ",", "1551"}], "}"}], ",", RowBox[{"{", RowBox[{"211", ",", "1540"}], "}"}], ",", RowBox[{"{", RowBox[{"109", ",", "1519"}], "}"}], ",", RowBox[{"{", RowBox[{"194", ",", "1510"}], "}"}], ",", RowBox[{"{", RowBox[{"110", ",", "1499"}], "}"}], ",", RowBox[{"{", RowBox[{"235", ",", "1342"}], "}"}], ",", RowBox[{"{", RowBox[{"233", ",", "1300"}], "}"}], ",", RowBox[{"{", RowBox[{"188", ",", "1295"}], "}"}], ",", RowBox[{"{", RowBox[{"177", ",", "1282"}], "}"}], ",", RowBox[{"{", RowBox[{"239", ",", "1180"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "1138"}], "}"}], ",", RowBox[{"{", RowBox[{"249", ",", "1124"}], "}"}], ",", RowBox[{"{", RowBox[{"201", ",", "1109"}], "}"}], ",", RowBox[{"{", RowBox[{"81", ",", "1055"}], "}"}], ",", RowBox[{"{", RowBox[{"252", ",", "1008"}], "}"}], ",", RowBox[{"{", RowBox[{"242", ",", "997"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "987"}], "}"}], ",", RowBox[{"{", RowBox[{"221", ",", "944"}], "}"}], ",", RowBox[{"{", RowBox[{"224", ",", "884"}], "}"}], ",", RowBox[{"{", RowBox[{"90", ",", "860"}], "}"}], ",", RowBox[{"{", RowBox[{"213", ",", "847"}], "}"}], ",", RowBox[{"{", RowBox[{"96", ",", "838"}], "}"}], ",", RowBox[{"{", RowBox[{"218", ",", "822"}], "}"}], ",", RowBox[{"{", RowBox[{"203", ",", "808"}], "}"}], ",", RowBox[{"{", RowBox[{"204", ",", "803"}], "}"}], ",", RowBox[{"{", RowBox[{"220", ",", "792"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "777"}], "}"}], ",", RowBox[{"{", RowBox[{"254", ",", "768"}], "}"}], ",", RowBox[{"{", RowBox[{"215", ",", "745"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "745"}], "}"}], ",", RowBox[{"{", RowBox[{"114", ",", "740"}], "}"}], ",", RowBox[{"{", RowBox[{"193", ",", "734"}], "}"}], ",", RowBox[{"{", RowBox[{"238", ",", "705"}], "}"}], ",", RowBox[{"{", RowBox[{"244", ",", "671"}], "}"}], ",", RowBox[{"{", RowBox[{"66", ",", "669"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "656"}], "}"}], ",", RowBox[{"{", RowBox[{"212", ",", "648"}], "}"}], ",", RowBox[{"{", RowBox[{"236", ",", "589"}], "}"}], ",", RowBox[{"{", RowBox[{"223", ",", "584"}], "}"}], ",", RowBox[{"{", RowBox[{"208", ",", "570"}], "}"}], ",", RowBox[{"{", RowBox[{"246", ",", "554"}], "}"}], ",", RowBox[{"{", RowBox[{"245", ",", "547"}], "}"}], ",", RowBox[{"{", RowBox[{"234", ",", "527"}], "}"}], ",", RowBox[{"{", RowBox[{"216", ",", "522"}], "}"}], ",", RowBox[{"{", RowBox[{"217", ",", "481"}], "}"}], ",", RowBox[{"{", RowBox[{"250", ",", "411"}], "}"}], ",", RowBox[{"{", RowBox[{"219", ",", "394"}], "}"}], ",", RowBox[{"{", RowBox[{"247", ",", "337"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "312"}], "}"}], ",", RowBox[{"{", RowBox[{"243", ",", "267"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "217"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "175"}], "}"}], ",", RowBox[{"{", RowBox[{"58", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"99", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"98", ",", "58"}], "}"}], ",", RowBox[{"{", RowBox[{"253", ",", "40"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.788241368211481*^9, 3.7882413735120277`*^9}, { 3.7882415036123257`*^9, 3.788241508982415*^9}, 3.82263766468659*^9}, CellLabel->"Out[6]=",ExpressionUUID->"8bea44e4-f1c0-4b96-a901-c21aed0a873f"] }, Open ]], Cell["\<\ It just takes a little inspiration to see \[OpenCurlyDoubleQuote]ULYSSES\ \[CloseCurlyDoubleQuote] at the beginning; then it\[CloseCurlyQuote]s obvious \ that 0 is a space.\ \>", "Text", CellChangeTimes->{{3.7882415461696033`*^9, 3.788241568977509*^9}},ExpressionUUID->"5f92de67-7a67-4f4d-9124-\ 8379534d5f04"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"knownMapping", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "97", ",", "127", ",", "153", ",", "117", ",", "117", ",", "115", ",", "117"}], "}"}], ",", RowBox[{"Characters", "@", "\"\\""}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.7882418431916113`*^9, 3.788241886118333*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"4efe5e2c-fe0b-43b3-a677-a110413f3cd9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"97", ",", "\<\"u\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"127", ",", "\<\"l\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"153", ",", "\<\"y\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"117", ",", "\<\"s\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"117", ",", "\<\"s\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"115", ",", "\<\"e\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"117", ",", "\<\"s\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.78824185532542*^9, 3.7882418863077393`*^9}, 3.788241997718027*^9, 3.822637668006009*^9}, CellLabel->"Out[7]=",ExpressionUUID->"d79ce60e-4325-4e3b-b2a2-7498174aaea5"] }, Open ]], Cell[BoxData[ RowBox[{"rules", ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"First", "@", RowBox[{"First", "@", "#"}]}], "\[Rule]", RowBox[{"Map", "[", RowBox[{"Last", ",", "#"}], "]"}]}], "&"}], "/@", RowBox[{"GatherBy", "[", RowBox[{"knownMapping", ",", "First"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.788241584796267*^9, 3.78824159993883*^9}, { 3.788241662063766*^9, 3.78824173335891*^9}, {3.788241847471562*^9, 3.7882418597099447`*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"2ba455ec-0745-4adf-9394-f47e3284fd30"], Cell[BoxData[ RowBox[{"errors", ":=", RowBox[{"Select", "[", RowBox[{"rules", ",", RowBox[{ RowBox[{ RowBox[{"DeleteDuplicates", "@", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "}"}]}], "&"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.788241719121312*^9, 3.788241780407937*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"6a99c217-3155-4b00-9c07-09dae49e0ca0"], Cell[BoxData[ RowBox[{"contracted", ":=", RowBox[{"Dispatch", "@", RowBox[{"MapAt", "[", RowBox[{"First", ",", "rules", ",", RowBox[{"{", RowBox[{"All", ",", "2"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.788241799205184*^9, 3.788241825724267*^9}, { 3.788242242570344*^9, 3.7882422440723467`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"445fbbe6-41ee-467e-86cb-3987f3741238"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Flatten", "[", "bytes", "]"}], "/.", "contracted"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"0", "\[Rule]", "\"\< \>\""}], ",", RowBox[{ RowBox[{"_", "?", "NumericQ"}], "\[Rule]", "\"\<_\>\""}]}], "}"}]}], "//", "StringJoin"}]], "Input", CellChangeTimes->{{3.7882418714067993`*^9, 3.7882418905664062`*^9}, { 3.7882420041268177`*^9, 3.788242038221178*^9}, {3.788242234050034*^9, 3.788242237608264*^9}, {3.788242297469092*^9, 3.788242297745736*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"56e54220-91ce-49d5-93ff-5826a9fe13cc"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"\<\"ulysses _y ____s __y__ _ ____ely __u__ _u__ _ul_____ \ ____ ____ ___ ______e__ _e_____ _ ____ __ l___e_ __ _____ _ ______ ___ _ \ _____ l__ ___sse_ _ y_____ __ess\"\>", "\[Ellipsis]", "\<\" \ \ \"\>"}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { PaneBox[ TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{58., {2., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}], "Tooltip"]& ], Alignment->Center, BaselinePosition->Baseline, ImageSize->{Automatic, {25, Full}}], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{50., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 11, 20653821082514604239, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{56., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 11, 20653821082514604239, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{42., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 11, 20653821082514604239, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{74., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{74., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[20653821082514604239 === $SessionID, Out[11], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{3.788242299081991*^9, 3.7882423402356052`*^9, 3.788242782276849*^9, 3.8226376795039387`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"a5a9d577-f923-4477-b571-6a3dcbac1615"] }, Open ]], Cell["\<\ Now just continue iteratively, it\[CloseCurlyQuote]s obviously \ \[OpenCurlyDoubleQuote]Ulysses by James Joyce\[CloseCurlyDoubleQuote], etc.\ \>", "Text", CellChangeTimes->{{3.7882420458225603`*^9, 3.788242062311327*^9}},ExpressionUUID->"5cf0e986-bb12-45bc-8eb5-\ d9519dcd5b54"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"knownMapping", "=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"known", "=", "\"\\""}], "}"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Flatten", "[", "bytes", "]"}], "[", RowBox[{"[", RowBox[{";;", RowBox[{"StringLength", "[", "known", "]"}]}], "]"}], "]"}], ",", RowBox[{"Characters", "@", "known"}]}], "}"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7882420776403217`*^9, 3.788242103095849*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"09e61eb8-fe82-4ca8-93dd-999644eb75e5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"97", ",", "\<\"u\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"127", ",", "\<\"l\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"153", ",", "\<\"y\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"117", ",", "\<\"s\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"117", ",", "\<\"s\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"115", ",", "\<\"e\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"117", ",", "\<\"s\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\<\" \"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"175", ",", "\<\"b\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"153", ",", "\<\"y\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\<\" \"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"239", ",", "\<\"j\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"108", ",", "\<\"a\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"89", ",", "\<\"m\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"128", ",", "\<\"e\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"117", ",", "\<\"s\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\<\" \"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"239", ",", "\<\"j\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"85", ",", "\<\"o\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"153", ",", "\<\"y\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"87", ",", "\<\"c\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"128", ",", "\<\"e\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.78824210343725*^9, 3.822637683703964*^9}, CellLabel->"Out[12]=",ExpressionUUID->"4b8856ad-cdf4-4015-b5ef-fe8293637bef"] }, Open ]], Cell["And it\[CloseCurlyQuote]s clearly just the text of Ulysses.", "Text", CellChangeTimes->{{3.7882421374463167`*^9, 3.7882421432939796`*^9}},ExpressionUUID->"c62e119f-bda8-45e8-bd0c-\ 362e66a9427b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"knownMapping", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "97", ",", "127", ",", "153", ",", "117", ",", "117", ",", "115", ",", "117", ",", "0", ",", "175", ",", "153", ",", "0", ",", "239", ",", "108", ",", "89", ",", "128", ",", "117", ",", "0", ",", "239", ",", "85", ",", "153", ",", "87", ",", "128", ",", "173", ",", "123", ",", "136", ",", "123", ",", "115", ",", "127", ",", "153", ",", "206", ",", "100", ",", "97", ",", "89", ",", "112", ",", "0", ",", "175", ",", "97", ",", "150", ",", "78", ",", "0", ",", "189", ",", "97", ",", "127", ",", "116", ",", "113", ",", "141", ",", "108", ",", "105", ",", "0", ",", "150", ",", "136", ",", "89", ",", "131", ",", "0", ",", "186", ",", "121", ",", "120", ",", "89", ",", "0", ",", "167", ",", "124", ",", "101", ",", "0", ",", "173", ",", "123", ",", "108", ",", "113", ",", "121", ",", "124", ",", "115", ",", "108", ",", "106"}], "}"}], ",", RowBox[{ "Characters", "@", "\"\\""}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.788242153936713*^9, 3.788242224991787*^9}, { 3.78824226927592*^9, 3.788242278593446*^9}, {3.7882423133543463`*^9, 3.788242335105555*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"39f582bd-3809-4547-8221-db451efcc9de"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"97", ",", "\<\"u\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"127", ",", "\<\"l\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"153", ",", "\<\"y\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"117", ",", "\<\"s\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"117", ",", "\<\"s\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"115", ",", "\<\"e\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"117", ",", "\<\"s\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\<\" \"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"175", ",", "\<\"b\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"153", ",", "\<\"y\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\<\" \"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"239", ",", "\<\"j\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"108", ",", "\<\"a\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"89", ",", "\<\"m\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"128", ",", "\<\"e\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"117", ",", "\<\"s\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\<\" \"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"239", ",", "\<\"j\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"85", ",", "\<\"o\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"153", ",", "\<\"y\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"87", ",", "\<\"c\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"128", ",", "\<\"e\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"173", ",", "\<\"s\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"123", ",", "\<\"t\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"136", ",", "\<\"a\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"123", ",", "\<\"t\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"115", ",", "\<\"e\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"127", ",", "\<\"l\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"153", ",", "\<\"y\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"206", ",", "\<\"p\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "\<\"l\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"97", ",", "\<\"u\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"89", ",", "\<\"m\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"112", ",", "\<\"p\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\<\" \"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"175", ",", "\<\"b\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"97", ",", "\<\"u\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"150", ",", "\<\"c\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"78", ",", "\<\"k\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\<\" \"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"189", ",", "\<\"m\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"97", ",", "\<\"u\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"127", ",", "\<\"l\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"116", ",", "\<\"l\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"113", ",", "\<\"i\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"141", ",", "\<\"g\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"108", ",", "\<\"a\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"105", ",", "\<\"n\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\<\" \"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"150", ",", "\<\"c\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"136", ",", "\<\"a\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"89", ",", "\<\"m\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"131", ",", "\<\"e\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\<\" \"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"186", ",", "\<\"f\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"121", ",", "\<\"r\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"120", ",", "\<\"o\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"89", ",", "\<\"m\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\<\" \"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"167", ",", "\<\"t\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"124", ",", "\<\"h\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"101", ",", "\<\"e\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\<\" \"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"173", ",", "\<\"s\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"123", ",", "\<\"t\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"108", ",", "\<\"a\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"113", ",", "\<\"i\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"121", ",", "\<\"r\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"124", ",", "\<\"h\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"115", ",", "\<\"e\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"108", ",", "\<\"a\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"106", ",", "\<\"d\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7882421886292667`*^9, 3.7882422275333223`*^9}, 3.788242281254993*^9, 3.788242336145638*^9, 3.8226376859273157`*^9}, CellLabel->"Out[13]=",ExpressionUUID->"c0d08da4-699e-4d12-a64b-e4814f3db9bc"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"gutenberg", "=", RowBox[{ "Import", "[", "\"\\"", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.788242433905484*^9, 3.788242441338067*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"43a61a5a-4abe-428c-9424-01b0716cf345"], Cell["Text ends with \[OpenCurlyDoubleQuote]I will \ yes\[CloseCurlyDoubleQuote]:", "Text", CellChangeTimes->{{3.788242546371005*^9, 3.7882425550996037`*^9}},ExpressionUUID->"45650ce2-ac8c-49f5-a1b9-\ ab00477fca65"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Flatten", "[", "bytes", "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"1450872", "-", "20"}], ";;", "1450872"}], "]"}], "]"}]], "Input",\ CellChangeTimes->{{3.788242502614244*^9, 3.788242532034834*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"ef9f37a4-9302-401a-a1d4-9ff48e0ea786"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "63", ",", "57", ",", "59", ",", "106", ",", "0", ",", "75", ",", "65", ",", "63", ",", "0", ",", "79", ",", "0", ",", "155", ",", "42", ",", "39", ",", "81", ",", "0", ",", "75", ",", "65", ",", "45", ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.7882425270606728`*^9, 3.788242532367565*^9}, 3.822637705471978*^9}, CellLabel->"Out[15]=",ExpressionUUID->"047dea27-a881-4857-9608-798ea224061c"] }, Open ]], Cell["\<\ Get the text into a form where we can just automatically match it up with the \ bytes:\ \>", "Text", CellChangeTimes->{{3.788243242742071*^9, 3.788243254237808*^9}},ExpressionUUID->"81150af7-9f71-43fd-847f-\ e8ae8aa07fa7"], Cell[BoxData[ RowBox[{ RowBox[{"text", "=", RowBox[{"StringReplace", "[", RowBox[{ RowBox[{"StringReplace", "[", RowBox[{ RowBox[{"StringTake", "[", RowBox[{ RowBox[{"ToUpperCase", "@", "gutenberg"}], ",", RowBox[{ RowBox[{"First", "@", RowBox[{"First", "@", RowBox[{"StringPosition", "[", RowBox[{"gutenberg", ",", "\"\\""}], "]"}]}]}], ";;", RowBox[{"Last", "@", RowBox[{"Last", "@", RowBox[{"StringPosition", "[", RowBox[{"gutenberg", ",", "\"\\""}], "]"}]}]}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\"\<\\n\>\"", "\[Rule]", "\"\< \>\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\<\[CloseCurlyQuote]\>\"", "\[Rule]", "\"\< \>\""}], ",", RowBox[{"\"\<\[CapitalEAcute]\>\"", "\[Rule]", "\"\\""}], ",", RowBox[{ "\"\<\[CapitalAGrave]\>\"", " ", "\[Rule]", " ", "\"\\""}], ",", RowBox[{ "\"\<\[CapitalEGrave]\>\"", " ", "\[Rule]", " ", "\"\\""}], ",", RowBox[{"\"\<-\>\"", "\[Rule]", "\"\< \>\""}], ",", RowBox[{"\"\<\[CapitalIHat]\>\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\<...\>\"", "\[Rule]", "\"\< \>\""}], ",", RowBox[{ RowBox[{"ToUpperCase", "@", "\"\<\[OE]\>\""}], "\[Rule]", "\"\\""}], ",", RowBox[{"\"\<\[CapitalUDoubleDot]\>\"", "\[Rule]", "\"\\""}], ",", RowBox[{ RowBox[{"RegularExpression", "[", "\"\<[^ A-Z]\>\"", "]"}], "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"RegularExpression", "[", "\"\< +\>\"", "]"}], "\[Rule]", "\"\< \>\""}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.788242455858005*^9, 3.788242474825265*^9}, { 3.7882425673979893`*^9, 3.7882426864872437`*^9}, {3.788242968295619*^9, 3.788243053575963*^9}, {3.788243105188855*^9, 3.788243134173676*^9}, { 3.788243358340556*^9, 3.7882434118868227`*^9}, {3.788243504605962*^9, 3.788243506156461*^9}, {3.7882437843818903`*^9, 3.788243793633008*^9}, { 3.788243903742918*^9, 3.7882439390811167`*^9}, {3.788244009158584*^9, 3.788244031981995*^9}, {3.7882440730411453`*^9, 3.788244084079071*^9}, { 3.788244150730515*^9, 3.78824418606982*^9}, {3.7882450552163754`*^9, 3.788245059887081*^9}, {3.788245118828515*^9, 3.788245172404716*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"f13c216f-f977-4363-b530-e0eba5c2893e"], Cell[BoxData[ RowBox[{ RowBox[{"knownMapping", "=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"n", "=", "140000"}], "}"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Flatten", "[", "bytes", "]"}], "[", RowBox[{"[", RowBox[{"1", ";;", "n"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Characters", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", "text"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ";;", "n"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBmIQvaLp05N6yzeOOX6vXoFom3V870F09nYnhgYg/YWr lwVE90z4BabPvHrPB6IP6Z0QANFFb6dJgGh1fSZpED1DdZYmiFY+/R1ML9iR bwCitc99BdN1TEtNQfRMho1gepX4BmsQ/WcejyOIXtQ1yw1ET3K+5QWiH33T jAHRbKvtEkC0XU1DFojmq84uAdFS1R9rQLTOibhGEH3r+oQOEJ3jerQLRJ+6 ytsPon8/b58CotWuvZkNogN+Pp8HoqvTT/8C0aJFPUyNQPqb5HkOEH2n6QcP iE5ODBYH0b25iyRANAAUDpQ9 "], CellLabel->"In[17]:=",ExpressionUUID->"c56aa8c9-b9bd-49a7-954d-36d6a6306e89"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Flatten", "[", "bytes", "]"}], "[", RowBox[{"[", RowBox[{"130200", ";;", "130220"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Characters", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", "text"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"130200", ";;", "130220"}], "]"}], "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.788243859286327*^9, 3.788243880583147*^9}, { 3.788243918589028*^9, 3.788243931960269*^9}, {3.788243983128303*^9, 3.788243990417738*^9}, {3.788244059078868*^9, 3.78824406159695*^9}, { 3.788244120838958*^9, 3.788244166632465*^9}, {3.788245007059186*^9, 3.788245022532872*^9}, {3.788245100591097*^9, 3.788245108936146*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"605be286-994c-4897-bb5b-2976ccaa5fb8"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "213", ",", "0", ",", "191", ",", "0", ",", "175", ",", "165", ",", "106", ",", "141", ",", "163", ",", "0", ",", "198", ",", "165", ",", "153", ",", "139", ",", "140", ",", "0", ",", "194", ",", "0", ",", "194", ",", "127"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\" \"\>", ",", "\<\"T\"\>", ",", "\<\" \"\>", ",", "\<\"A\"\>", ",", "\<\" \"\>", ",", "\<\"B\"\>", ",", "\<\"A\"\>", ",", "\<\"D\"\>", ",", "\<\"G\"\>", ",", "\<\"E\"\>", ",", "\<\" \"\>", ",", "\<\"M\"\>", ",", "\<\"A\"\>", ",", "\<\"Y\"\>", ",", "\<\"B\"\>", ",", "\<\"E\"\>", ",", "\<\" \"\>", ",", "\<\"E\"\>", ",", "\<\" \"\>", ",", "\<\"E\"\>", ",", "\<\"L\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.788243870698948*^9, 3.788243880859652*^9}, { 3.788243921438443*^9, 3.788243932251423*^9}, {3.788243990862253*^9, 3.788244017911194*^9}, {3.788244059738996*^9, 3.788244061856332*^9}, { 3.788244140642879*^9, 3.7882441670046453`*^9}, 3.7882450228307858`*^9, { 3.7882451093837423`*^9, 3.7882451264403*^9}, 3.822637710787654*^9}, CellLabel->"Out[18]=",ExpressionUUID->"3f95316a-f2f7-41ae-90af-1a225522401c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["errors"], "Input", CellChangeTimes->{{3.78824293181382*^9, 3.788242933499928*^9}, 3.822637715553458*^9}, CellLabel->"In[19]:=",ExpressionUUID->"285e2825-6119-46d6-999d-98a793fc1b41"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.7882429336787157`*^9, 3.822637715966722*^9}, CellLabel->"Out[19]=",ExpressionUUID->"6f966b9f-d061-40e8-9f0f-c38c1763203c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Range", "[", "255", "]"}], "/.", RowBox[{"(", RowBox[{"Rule", "@@@", "knownMapping"}], ")"}]}], "/.", RowBox[{ RowBox[{"_", "?", "NumericQ"}], "\[Rule]", "\"\<_\>\""}]}], "//", "Dynamic"}]], "Input", CellChangeTimes->{{3.788243185296763*^9, 3.788243217049172*^9}, { 3.788243520869125*^9, 3.788243521955758*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"079cab20-aeb6-41b4-b75c-8e9419526f39"], Cell[BoxData[ DynamicBox[ToBoxes[ ReplaceAll[ ReplaceAll[ Range[255], Apply[Rule, $CellContext`knownMapping, {1}]], PatternTest[ Blank[], NumericQ] -> "_"], StandardForm], ImageSizeCache->{ 612.3, {171.54893493652344`, 12.791915893554688`}}]], "Output", CellChangeTimes->{3.78824366714465*^9, 3.8226377272307*^9}, CellLabel->"Out[20]=",ExpressionUUID->"c7f9edae-6dd3-482e-8f74-dd54fc444348"] }, Open ]], Cell["\<\ That\[CloseCurlyQuote]s enough for \[OpenCurlyDoubleQuote]congratulations on \ your amazing steganography skills to complete puzzle find all pixels for the \ letter that begins the city where the author is buried, and form a new image \ in portrait orientation\[CloseCurlyDoubleQuote]. The city is Zurich, so Z.\ \>", "Text", CellChangeTimes->{{3.788244229501546*^9, 3.7882442674226437`*^9}, { 3.788244434359498*^9, 3.7882444499039507`*^9}, {3.788245199809671*^9, 3.788245207129743*^9}},ExpressionUUID->"e2a752ad-01d5-4654-b7aa-\ 3955bbd4435e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"zs", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{ RowBox[{"Rule", "@@@", "knownMapping"}], "//", "DeleteDuplicates"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "\"\\""}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"255", "\[Rule]", "\"\\""}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.788244324153825*^9, 3.7882443678207703`*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"1f91b6ff-0512-43ea-aa5b-d66a02f4df16"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"26", "\[Rule]", "\<\"Z\"\>"}], ",", RowBox[{"58", "\[Rule]", "\<\"Z\"\>"}], ",", RowBox[{"98", "\[Rule]", "\<\"Z\"\>"}], ",", RowBox[{"99", "\[Rule]", "\<\"Z\"\>"}], ",", RowBox[{"255", "\[Rule]", "\<\"Z\"\>"}]}], "}"}]], "Output", CellChangeTimes->{{3.788244327905847*^9, 3.7882443682069817`*^9}, 3.788245233169467*^9, 3.8226377326272306`*^9}, CellLabel->"Out[21]=",ExpressionUUID->"4573dafd-cf00-45f7-ba53-1ed8e9db7900"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"zBytes", "=", RowBox[{"Cases", "[", RowBox[{ RowBox[{"Flatten", "@", "bytes"}], ",", RowBox[{"_", "?", RowBox[{"(", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"First", "/@", "zs"}], ",", "#"}], "]"}], "&"}], ")"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.822637778857442*^9, 3.8226378330344343`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"edd4b603-d632-4369-8e06-1a8421c879fe"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Length", "@", "zBytes"}], "//", "FactorInteger"}]], "Input", CellChangeTimes->{{3.8226378380834827`*^9, 3.822637843050625*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"64454dad-3d73-4b78-a7a4-1190ea3b53f7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"29", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.822637839935947*^9, 3.8226378432180347`*^9}}, CellLabel->"Out[31]=",ExpressionUUID->"69cade2e-f885-42ab-81b6-1d5929a80a9a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "@", RowBox[{"Partition", "[", RowBox[{"zBytes", ",", "29"}], "]"}]}]], "Input", CellChangeTimes->{{3.822637845235326*^9, 3.822637851148224*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"71bb0da4-bb27-4f49-b86e-5bf2ea34ec95"], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJytU0sSglAMa72HCxcucpRuPQIX8P47kxRQkDeOox0e9E36T7lM99t0iogr z5mnPgq2rxcgqwKVjEKEoUAtq6+QAjA+DzJs3S9+IDAVL0oKaLqCyTtFoHxD YbGATJMOm/aXxTMsE8M2Wc7Wnruyf5XjcFBDnseRaEwc1AD0sHLkyeFhBPY8 BgWl0v6ve4xad7Ju3bvQl14GV0mEqsYjMs1SikCDojv60kzPht0f23uCUlbQ C+ZdQG8EolYGgOWJeS/N0ICA7wex+b5ILP9CN7/5u7rynDvDdlW8wSHONLid pxlOeIyoOvD0GqRLegdrLild1jedHskDnNzssA== "], {{0, 0}, {29, 37}}, {0, 99}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", CellChangeTimes->{{3.8226378482095118`*^9, 3.8226378513247766`*^9}}, CellLabel->"Out[33]=",ExpressionUUID->"96bbd96b-29d3-4716-99f9-7c6839f2e9eb"] }, Open ]] }, WindowSize->{808, 655}, WindowMargins->{{304, Automatic}, {Automatic, 34}}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 389, 9, 30, "Input",ExpressionUUID->"9f5bbdd0-e526-45f0-8d98-429fbe918bbd"], Cell[950, 31, 339, 7, 30, "Input",ExpressionUUID->"eb158d9a-890f-4da8-9833-89a398d97018"], Cell[1292, 40, 172, 3, 35, "Text",ExpressionUUID->"92b7e274-7326-4c03-9f66-c040abfcc348"], Cell[CellGroupData[{ Cell[1489, 47, 275, 5, 30, "Input",ExpressionUUID->"519259b0-e952-492e-8087-a5d1ef263250"], Cell[1767, 54, 3146, 68, 236, "Output",ExpressionUUID->"5bc55670-3a6a-4865-8a26-c2d87eedc6c3"] }, Open ]], Cell[CellGroupData[{ Cell[4950, 127, 305, 7, 30, "Input",ExpressionUUID->"6b8a363a-a96b-499d-bea8-d6d0630837cf"], Cell[5258, 136, 1442, 21, 119, "Output",ExpressionUUID->"f41fc2e3-1cd0-4e74-baff-94492135ef6b"] }, Open ]], Cell[6715, 160, 450, 8, 58, "Text",ExpressionUUID->"1108846e-0b95-4fb3-a6ce-a918ae10aced"], Cell[CellGroupData[{ Cell[7190, 172, 640, 18, 52, "Input",ExpressionUUID->"479034f3-b0b7-4599-9e91-ea629e655e47"], Cell[7833, 192, 203, 3, 34, "Output",ExpressionUUID->"3c2eabed-0e9e-48c8-aeb8-548855d272b4"] }, Open ]], Cell[CellGroupData[{ Cell[8073, 200, 389, 9, 30, "Input",ExpressionUUID->"925a58ed-0216-4767-9940-2702d61bdc5b"], Cell[8465, 211, 13990, 437, 686, "Output",ExpressionUUID->"8bea44e4-f1c0-4b96-a901-c21aed0a873f"] }, Open ]], Cell[22470, 651, 324, 7, 35, "Text",ExpressionUUID->"5f92de67-7a67-4f4d-9124-8379534d5f04"], Cell[CellGroupData[{ Cell[22819, 662, 475, 12, 30, "Input",ExpressionUUID->"4efe5e2c-fe0b-43b3-a677-a110413f3cd9"], Cell[23297, 676, 728, 19, 34, "Output",ExpressionUUID->"d79ce60e-4325-4e3b-b2a2-7498174aaea5"] }, Open ]], Cell[24040, 698, 570, 14, 30, "Input",ExpressionUUID->"2ba455ec-0745-4adf-9394-f47e3284fd30"], Cell[24613, 714, 558, 15, 30, "Input",ExpressionUUID->"6a99c217-3155-4b00-9c07-09dae49e0ca0"], Cell[25174, 731, 416, 9, 30, "Input",ExpressionUUID->"445fbbe6-41ee-467e-86cb-3987f3741238"], Cell[CellGroupData[{ Cell[25615, 744, 618, 14, 30, "Input",ExpressionUUID->"56e54220-91ce-49d5-93ff-5826a9fe13cc"], Cell[26236, 760, 9132, 232, 159, "Output",ExpressionUUID->"a5a9d577-f923-4477-b571-6a3dcbac1615"] }, Open ]], Cell[35383, 995, 292, 6, 35, "Text",ExpressionUUID->"5cf0e986-bb12-45bc-8eb5-d9519dcd5b54"], Cell[CellGroupData[{ Cell[35700, 1005, 665, 17, 52, "Input",ExpressionUUID->"09e61eb8-fe82-4ca8-93dd-999644eb75e5"], Cell[36368, 1024, 1703, 48, 77, "Output",ExpressionUUID->"4b8856ad-cdf4-4015-b5ef-fe8293637bef"] }, Open ]], Cell[38086, 1075, 205, 3, 35, "Text",ExpressionUUID->"c62e119f-bda8-45e8-bd0c-362e66a9427b"], Cell[CellGroupData[{ Cell[38316, 1082, 1488, 27, 178, "Input",ExpressionUUID->"39f582bd-3809-4547-8221-db451efcc9de"], Cell[39807, 1111, 5213, 149, 182, "Output",ExpressionUUID->"c0d08da4-699e-4d12-a64b-e4814f3db9bc"] }, Open ]], Cell[45035, 1263, 317, 7, 30, "Input",ExpressionUUID->"43a61a5a-4abe-428c-9424-01b0716cf345"], Cell[45355, 1272, 219, 4, 35, "Text",ExpressionUUID->"45650ce2-ac8c-49f5-a1b9-ab00477fca65"], Cell[CellGroupData[{ Cell[45599, 1280, 325, 8, 30, "Input",ExpressionUUID->"ef9f37a4-9302-401a-a1d4-9ff48e0ea786"], Cell[45927, 1290, 467, 9, 34, "Output",ExpressionUUID->"047dea27-a881-4857-9608-798ea224061c"] }, Open ]], Cell[46409, 1302, 236, 6, 35, "Text",ExpressionUUID->"81150af7-9f71-43fd-847f-e8ae8aa07fa7"], Cell[46648, 1310, 2716, 57, 186, "Input",ExpressionUUID->"f13c216f-f977-4363-b530-e0eba5c2893e"], Cell[49367, 1369, 1146, 30, 94, "Input",ExpressionUUID->"c56aa8c9-b9bd-49a7-954d-36d6a6306e89"], Cell[CellGroupData[{ Cell[50538, 1403, 873, 19, 52, "Input",ExpressionUUID->"605be286-994c-4897-bb5b-2976ccaa5fb8"], Cell[51414, 1424, 1241, 21, 56, "Output",ExpressionUUID->"3f95316a-f2f7-41ae-90af-1a225522401c"] }, Open ]], Cell[CellGroupData[{ Cell[52692, 1450, 202, 3, 30, "Input",ExpressionUUID->"285e2825-6119-46d6-999d-98a793fc1b41"], Cell[52897, 1455, 190, 3, 34, "Output",ExpressionUUID->"6f966b9f-d061-40e8-9f0f-c38c1763203c"] }, Open ]], Cell[CellGroupData[{ Cell[53124, 1463, 475, 12, 30, "Input",ExpressionUUID->"079cab20-aeb6-41b4-b75c-8e9419526f39"], Cell[53602, 1477, 423, 10, 203, "Output",ExpressionUUID->"c7f9edae-6dd3-482e-8f74-dd54fc444348"] }, Open ]], Cell[54040, 1490, 560, 9, 81, "Text",ExpressionUUID->"e2a752ad-01d5-4654-b7aa-3955bbd4435e"], Cell[CellGroupData[{ Cell[54625, 1503, 609, 17, 30, "Input",ExpressionUUID->"1f91b6ff-0512-43ea-aa5b-d66a02f4df16"], Cell[55237, 1522, 496, 10, 34, "Output",ExpressionUUID->"4573dafd-cf00-45f7-ba53-1ed8e9db7900"] }, Open ]], Cell[55748, 1535, 501, 14, 30, "Input",ExpressionUUID->"edd4b603-d632-4369-8e06-1a8421c879fe"], Cell[CellGroupData[{ Cell[56274, 1553, 242, 4, 30, "Input",ExpressionUUID->"64454dad-3d73-4b78-a7a4-1190ea3b53f7"], Cell[56519, 1559, 320, 8, 34, "Output",ExpressionUUID->"69cade2e-f885-42ab-81b6-1d5929a80a9a"] }, Open ]], Cell[CellGroupData[{ Cell[56876, 1572, 268, 5, 30, "Input",ExpressionUUID->"71bb0da4-bb27-4f49-b86e-5bf2ea34ec95"], Cell[57147, 1579, 1159, 25, 449, "Output",ExpressionUUID->"96bbd96b-29d3-4716-99f9-7c6839f2e9eb"] }, Open ]] } ] *)