(* 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[     39999,       1053]
NotebookOptionsPosition[     31690,        899]
NotebookOutlinePosition[     33973,        951]
CellTagsIndexPosition[     33896,        946]
WindowTitle->ByteListToHexString
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->
           "30d7690d-b3bc-488a-a853-f45b16b85f53"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "f70001ae-f80b-484e-b091-f30414ea3893"],
        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->
           "1a628552-142a-4238-a318-fe2f2f159803"]
         }],ExpressionUUID->"3b2361d4-0093-4b09-bab4-3aff31892c26"],
         StripOnInput->False],{
        StyleBox[
          "\"IntegerString\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/IntegerString"], 
         StyleBox["\"BaseEncode\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/BaseEncode"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"HexStringToByteList\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HexStringToByteList"], 
         StyleBox[
          StyleBox["\"HexStringQ\"", "SeeAlsoRelated", StripOnInput -> False],
            "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HexStringQ"], 
         StyleBox[
          StyleBox["\"ByteListQ\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ByteListQ"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "e7bf1e73-8c3d-43f0-893a-9b9f373084a9"],
     "\[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->
           "51a63db7-cf4e-454c-b66a-9a608f20871d"]
         }],ExpressionUUID->"11c78118-1ff0-4cbb-bb38-81a27930b1f2"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "7985307f-9225-4e10-a570-af80aad43bd1"],
     "\[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->
           "f344a7b6-7d1e-4908-ab88-bdfeecaaa151"]
         }],ExpressionUUID->"7f21fd66-5361-4057-96c0-1b9df5225f34"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ByteListToHexString\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/ByteListToHexString"], 
         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/ByteListToHexString.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/ByteListToHexString" <> ".html"],
               None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "e5408d5b-98d8-4ff8-974f-bcfde569ae50"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "4cf990e5-7ed0-4498-9261-f1674a81b073"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"a4dfcc50-737e-4603-a2ef-34c55923cf6f"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"138ddc23-fcb0-482d-a5a3-e9114675c9ed"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ByteListToHexString", "ObjectName",ExpressionUUID->
      "918ad56c-259f-4ad4-b520-5f56cad29831"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"406e31dd-b6e6-4bcc-9e8a-0feac893beb4"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "99ba481b-2819-466c-b42b-9c012da50598"]
    }],ExpressionUUID->"7bba8614-2eae-451a-b8fd-e00d846a45cf"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"6395e1a8-1290-4259-aa28-\
b820ec6ce58d"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ByteListToHexString"]], 
         "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["bytes", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "5872f592-b10b-46e7-87c7-b79cef5cec0b"],
     "\[LineSeparator]",
     "gives the lowercase hexadecimal string for a list of bytes, two digits \
per byte."
    }],ExpressionUUID->"7dbc8635-a33e-43e8-9259-c9b4a6eea844"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ByteListToHexString"]], 
         "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["byteArray", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "b7ac4db9-b72e-41d5-9970-a4b5f97593d5"],
     "\[LineSeparator]",
     "gives the lowercase hexadecimal string for a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["ByteArray"]], "paclet:ref/ByteArray"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "c6acb1bc-47f8-4e5c-8d7b-83d5045ca46d"],
     "."
    }],ExpressionUUID->"b0b768e5-96b5-4b5a-9058-4fffa0196b5f"]}
  }]], "Usage",ExpressionUUID->"4918351a-94c6-49d1-ae73-93f59569df55"]
}, 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->"e66219fd-76bc-42ac-971c-a21d214928a1"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"2239c9e2-0a36-4e33-af2f-4064e927c79b"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "79533998-acf3-4df6-aff0-b672887269f9"]],ExpressionUUID->"9b260292-83dd-\
4323-8a78-821544538cf4"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->563200708,ExpressionUUID->"58606bfd-3130-4f8e-8a84-c63382cce87c"],

Cell["\<\
The result is always lower case and always has two digits per byte, including \
the leading zero of a byte below 16.\
\>", "Notes",ExpressionUUID->"b1f1094d-7efa-46fb-b401-06eaabf9e77d"],

Cell["The empty byte list gives the empty string.", "Notes",ExpressionUUID->"00bfa99a-13a7-42a1-acd5-7eac73735c8c"],

Cell["\<\
A list holding an integer outside 0 through 255 matches no definition and is \
returned unevaluated.\
\>", "Notes",ExpressionUUID->"d3315c23-3ad4-4862-8b0b-003590d87c31"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["HexStringToByteList"]], 
    "paclet:WolframInstitute/Puzzles/ref/HexStringToByteList", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2c6ac484-2b9b-4591-a9d2-d09cb8171e7a"],
 " is the inverse."
}], "Notes",ExpressionUUID->"c8f9218d-03d0-4a6c-8d0a-879fd572321f"],

Cell[TextData[{
 "Use ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ToUpperCase"]], "paclet:ref/ToUpperCase"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "d7b52675-0168-45e4-91c2-6bb7df52ba0e"],
 " for the upper-case spelling some specifications print."
}], "Notes",ExpressionUUID->"296c09dc-4122-468f-8a13-205153da1db8"],

Cell[TextData[{
 "For base64 rather than hexadecimal, the kernel's ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BaseEncode"]], "paclet:ref/BaseEncode"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "bdb22e88-1be9-423e-81a9-580fb8d8e93e"],
 " converts a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "d84863be-87eb-45bf-8b34-e5b1116cab44"],
 " directly."
}], "Notes",ExpressionUUID->"4f3c7625-4848-4621-9629-dd822a088c03"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"30a8b5c3-dc41-435c-829b-537081eb2213"],

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->"e9609406-49e1-48b0-b70c-072225b8da2b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"51818fc9-a652-4769-853b-779c351b869d"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(9)", "ExampleCount",ExpressionUUID->
  "e1326a03-281e-4b6c-98f9-e2fb15701fb6"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1753867027,ExpressionUUID->"5b0cd638-2d29-4359-93d0-617384ee07cf"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"d3666c03-458a-4b66-a857-28c19cb2ab05"],

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->
  "68f23da1-1b6f-4e81-a2e8-786d2288e1f7"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"670e696a-b594-4b03-b6ac-cd0daa96092d"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "782c760c-303d-437d-a9d9-46ae7b28a571"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->882584067,ExpressionUUID->"dd0cce1a-7b5e-495e-9ffe-12e63da816e9"],

Cell["Four bytes as eight hexadecimal digits:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"694d3e3a-b63d-4dea-b3cb-515686eb5764"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"{", 
   RowBox[{"222", ",", " ", "173", ",", " ", "190", ",", " ", "239"}], "}"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"26198d7b-5a0a-4435-93cd-1f567dfc7bb3"],

Cell[BoxData["\<\"deadbeef\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b0420088-92a4-4d92-9386-38c6688e8f58"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "dbd65e3f-b0aa-4ba9-94d0-88196e6a0cc8"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f535e76c-7b84-4f36-\
9506-ce34f7e5e1fe"],

Cell["\<\
Every byte gets two digits, so a small byte keeps its leading zero:\
\>", "ExampleText",ExpressionUUID->"7f81fed3-86ae-4b3b-8b68-3fa5f9b17deb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"{", 
   RowBox[{"0", ",", " ", "1", ",", " ", "15", ",", " ", "16"}], "}"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b14e73a9-1043-4d5e-80b3-1dde1d3f496a"],

Cell[BoxData["\<\"00010f10\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d84541be-0dc6-42d5-be39-4a19f34e1a36"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9e643607-16a6-4ddb-bf96-f462b82f22ab"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"29f92b6d-45bf-4b32-\
ba9f-e6ef9fad41c1"],

Cell[TextData[{
 "A ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteArray"]], "paclet:ref/ByteArray"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "8593e273-2a37-4e41-b832-22dcb6a46038"],
 " is accepted directly, which is convenient for a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Hash"]], "paclet:ref/Hash"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "5d27a5dd-71bd-4523-ba2e-022e2a490bf6"],
 " result:"
}], "ExampleText",ExpressionUUID->"7fb4e042-8fce-4323-9d8e-09964e963f6a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"Hash", "[", 
   RowBox[{
    RowBox[{"ByteArray", "[", 
     RowBox[{"{", "}"}], "]"}], ",", " ", "\"\<SHA256\>\"", ",", 
    " ", "\"\<ByteArray\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b0066010-8a52-47ff-9ad0-2da9f52e0252"],

Cell[BoxData["\<\"\
e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1ee42053-580b-44ad-b9c9-ec6bb46ca317"]
}, 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->
  "694867fa-4dd4-47d4-83e1-2677bd5ff6fe"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"0ae3ae53-9d3d-4ac1-8294-f1f054cc809a"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "d2c9bcb4-7d40-4552-ab1a-559e02eb46a9"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"214d4de5-c8ac-4aae-a9ee-4ed2c18b5869"],

Cell["The empty byte list gives the empty string:", "ExampleText",ExpressionUUID->"1c83ceb4-89e3-4276-b949-33335343178e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"{", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b7d274ae-695a-47ab-9f6d-4bf6cf42371e"],

Cell[BoxData["\<\"\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"98b28bbf-cf7a-40d5-ac12-c07df7fa05c8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "68568fae-6375-4bd2-9577-38592d7d954d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2197651a-a8b2-493f-\
89c1-a19a48571530"],

Cell["Every byte value in order gives a 512-digit string:", "ExampleText",ExpressionUUID->"50df93e0-fe7e-4d44-8cbd-6c749745f90a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringLength", "[", 
  RowBox[{"ByteListToHexString", "[", 
   RowBox[{"Range", "[", 
    RowBox[{"0", ",", " ", "255"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"b91f7a83-2b9e-4499-8675-2808de9a66f2"],

Cell[BoxData["512"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b9e8b0ca-ef28-4a1f-bdeb-de0b1fe37498"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "91f00f5c-342a-4add-a53d-b73291a00a94"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d5291388-a9b2-4e6a-\
8bad-9e33d37c91c6"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ToUpperCase"]], "paclet:ref/ToUpperCase"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b1c1f851-a444-4cc2-b931-40e96b68b05f"],
 " gives the spelling used by specifications that print hexadecimal in \
capitals:"
}], "ExampleText",ExpressionUUID->"e6415317-7d04-47f3-a782-33c284f7d02e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToUpperCase", "[", 
  RowBox[{"ByteListToHexString", "[", 
   RowBox[{"{", 
    RowBox[{"222", ",", " ", "173", ",", " ", "190", ",", " ", "239"}], "}"}],
    "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0474f491-0b36-47b2-9f13-087ccb8dca49"],

Cell[BoxData["\<\"DEADBEEF\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8620cad3-8543-4ed7-9185-720835148270"]
}, 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->
  "0658434d-1bbf-405b-8f04-70de31810874"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"17171a28-3728-4ef6-8155-c89d44b50776"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "11af8b00-952d-4c36-8655-cfb8d803a4a7"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"687e8b99-cee9-4b1b-a90f-979a4811a82f"],

Cell[TextData[{
 "The conversion is inverse to ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["HexStringToByteList"]], 
    "paclet:WolframInstitute/Puzzles/ref/HexStringToByteList", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2d5aa289-0636-4b80-9312-6b475805d5f0"],
 ":"
}], "ExampleText",ExpressionUUID->"0aa14165-db94-445c-8ad4-37679c387274"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"HexStringToByteList", "[", "\"\<0001feff\>\"", "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e9819a0d-6afe-45e7-8c4c-77dc4191bb56"],

Cell[BoxData["\<\"0001feff\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f3ec3695-8feb-4c88-9ac9-0bb523a273a6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "af647d75-ecac-4391-9f23-5f16298f15ae"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"939c1d88-eff0-4019-\
b7f1-9873ddb1d3e0"],

Cell[TextData[{
 "The kernel's ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BaseEncode"]], "paclet:ref/BaseEncode"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "25b61d1d-4163-4c45-8b81-f77c6c2b6947"],
 " gives the base64 spelling of the same bytes:"
}], "ExampleText",ExpressionUUID->"daa538c9-3c47-4add-9ed0-28593ad9b42d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BaseEncode", "[", 
  RowBox[{"ByteArray", "[", 
   RowBox[{"{", 
    RowBox[{"222", ",", " ", "173", ",", " ", "190", ",", " ", "239"}], "}"}],
    "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"33e28d9b-39af-468a-bb2e-34a7b8551736"],

Cell[BoxData["\<\"3q2+7w==\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8643a651-41e0-428b-a776-63053754e0ff"]
}, 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->
  "7637ffff-0fa5-4dd0-bc03-c9fec415af39"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"dd8b5e4a-1f6a-4c69-96f1-65c94c04dbe7"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "f320f5b0-1efc-47ee-8ece-e9a09dae8e0b"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"99ebb6c5-ad3d-4e12-a364-91a54afabe31"],

Cell["256 is not a byte, so the call is returned unevaluated:", "ExampleText",ExpressionUUID->"ce917463-d0bc-4ca7-8b9f-fbc4c18c0009"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"{", "256", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e5b925db-32bd-44fa-9319-a1ea32e52257"],

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"{", "256", "}"}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8257ddd6-7136-4232-a545-f501bc923ab9"]
}, 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["HexStringToByteList"]], 
           "paclet:WolframInstitute/Puzzles/ref/HexStringToByteList", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "59ef0eb3-e8b5-4538-bdac-71eba7d191ad"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["HexStringQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/HexStringQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "41e6f4d0-9f60-4000-bd05-c28c8d2d26e6"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteListQ"]], 
           "paclet:WolframInstitute/Puzzles/ref/ByteListQ", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "a8d12df4-55dd-4dee-89ee-e3a8366344c3"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["IntegerString"]], "paclet:ref/IntegerString"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "f352e59e-d146-49b0-a92b-27689311fb45"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BaseEncode"]], "paclet:ref/BaseEncode"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "78ccbf00-40ab-4e97-abb6-ad6a804e5bbc"]
       }], "SeeAlso",ExpressionUUID->"6d8734de-78b4-431c-ab2d-c8cef7b3071e"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"14d71ecc-6b98-4e34-9451-\
ac269856d73c"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, "RelatedGuide.png"]],
     ImageSizeCache->{50., {26.47265625, 33.52734375}}], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "9fa7c092-d4f2-4fb5-8137-f0157b694c95"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"0c08a135-8e71-4981-9cfa-\
8f9d78730052"],

Cell[" ", "FooterCell",ExpressionUUID->"8571b0d5-ec30-42a1-81e8-dba820aac9ff"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ByteListToHexString",
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, 29.510409}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ByteListToHexString, paclet : \
WolframInstitute/Puzzles/ref/ByteListToHexString, WolframInstitute/Puzzles \
Package Symbol][bytes] gives the lowercase hexadecimal string for a list of \
bytes, two digits per byte. PackageLink[ByteListToHexString, paclet : \
WolframInstitute/Puzzles/ref/ByteListToHexString, WolframInstitute/Puzzles \
Package Symbol][byteArray] gives the lowercase hexadecimal string for a \
ByteArray.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "ByteListToHexString", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "ByteListToHexString", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/ByteListToHexString", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"f3c3b814-f89a-4074-9aa8-1f1c7ba93f4d"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15808, 426, 149, 2, 70, "ExampleText",ExpressionUUID->"694d3e3a-b63d-4dea-b3cb-515686eb5764",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 33739, 940}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[587, 21, 6172, 148, 70, "AnchorBarGrid",ExpressionUUID->"a4dfcc50-737e-4603-a2ef-34c55923cf6f",
 CellID->1],
Cell[6762, 171, 107, 0, 70, "ContextNameCell",ExpressionUUID->"138ddc23-fcb0-482d-a5a3-e9114675c9ed"],
Cell[CellGroupData[{
Cell[6894, 175, 562, 14, 70, "ObjectNameGrid",ExpressionUUID->"6395e1a8-1290-4259-aa28-b820ec6ce58d"],
Cell[7459, 191, 1742, 45, 70, "Usage",ExpressionUUID->"4918351a-94c6-49d1-ae73-93f59569df55"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9238, 241, 1443, 34, 70, "NotesSection",ExpressionUUID->"58606bfd-3130-4f8e-8a84-c63382cce87c",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->563200708],
Cell[10684, 277, 196, 3, 70, "Notes",ExpressionUUID->"b1f1094d-7efa-46fb-b401-06eaabf9e77d"],
Cell[10883, 282, 115, 0, 70, "Notes",ExpressionUUID->"00bfa99a-13a7-42a1-acd5-7eac73735c8c"],
Cell[11001, 284, 180, 3, 70, "Notes",ExpressionUUID->"d3315c23-3ad4-4862-8b0b-003590d87c31"],
Cell[11184, 289, 483, 13, 70, "Notes",ExpressionUUID->"c8f9218d-03d0-4a6c-8d0a-879fd572321f"],
Cell[11670, 304, 433, 12, 70, "Notes",ExpressionUUID->"296c09dc-4122-468f-8a13-205153da1db8"],
Cell[12106, 318, 699, 21, 70, "Notes",ExpressionUUID->"4f3c7625-4848-4621-9629-dd822a088c03"]
}, Closed]],
Cell[12820, 342, 80, 0, 70, "PageDelimiter",ExpressionUUID->"30a8b5c3-dc41-435c-829b-537081eb2213"],
Cell[CellGroupData[{
Cell[12925, 346, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"5b0cd638-2d29-4359-93d0-617384ee07cf",
 CellID->1753867027],
Cell[14329, 385, 216, 4, 70, "Input",ExpressionUUID->"d3666c03-458a-4b66-a857-28c19cb2ab05",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14570, 393, 1235, 31, 70, "ExampleSection",ExpressionUUID->"dd0cce1a-7b5e-495e-9ffe-12e63da816e9",
 CellID->882584067],
Cell[15808, 426, 149, 2, 70, "ExampleText",ExpressionUUID->"694d3e3a-b63d-4dea-b3cb-515686eb5764",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15982, 432, 292, 6, 70, "Input",ExpressionUUID->"26198d7b-5a0a-4435-93cd-1f567dfc7bb3"],
Cell[16277, 440, 122, 1, 70, "Output",ExpressionUUID->"b0420088-92a4-4d92-9386-38c6688e8f58"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16436, 446, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f535e76c-7b84-4f36-9506-ce34f7e5e1fe"],
Cell[16663, 453, 153, 2, 70, "ExampleText",ExpressionUUID->"7f81fed3-86ae-4b3b-8b68-3fa5f9b17deb"],
Cell[CellGroupData[{
Cell[16841, 459, 286, 6, 70, "Input",ExpressionUUID->"b14e73a9-1043-4d5e-80b3-1dde1d3f496a"],
Cell[17130, 467, 122, 1, 70, "Output",ExpressionUUID->"d84541be-0dc6-42d5-be39-4a19f34e1a36"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17301, 474, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"29f92b6d-45bf-4b32-ba9f-e6ef9fad41c1"],
Cell[17528, 481, 654, 20, 70, "ExampleText",ExpressionUUID->"7fb4e042-8fce-4323-9d8e-09964e963f6a"],
Cell[CellGroupData[{
Cell[18207, 505, 367, 8, 70, "Input",ExpressionUUID->"b0066010-8a52-47ff-9ad0-2da9f52e0252"],
Cell[18577, 515, 182, 3, 70, "Output",ExpressionUUID->"1ee42053-580b-44ad-b9c9-ec6bb46ca317"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18820, 525, 1227, 31, 70, "ExampleSection",ExpressionUUID->"214d4de5-c8ac-4aae-a9ee-4ed2c18b5869",
 CellID->1293636265],
Cell[20050, 558, 121, 0, 70, "ExampleText",ExpressionUUID->"1c83ceb4-89e3-4276-b949-33335343178e"],
Cell[CellGroupData[{
Cell[20196, 562, 217, 4, 70, "Input",ExpressionUUID->"b7d274ae-695a-47ab-9f6d-4bf6cf42371e"],
Cell[20416, 568, 114, 1, 70, "Output",ExpressionUUID->"98b28bbf-cf7a-40d5-ac12-c07df7fa05c8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20567, 574, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2197651a-a8b2-493f-89c1-a19a48571530"],
Cell[20794, 581, 129, 0, 70, "ExampleText",ExpressionUUID->"50df93e0-fe7e-4d44-8cbd-6c749745f90a"],
Cell[CellGroupData[{
Cell[20948, 585, 303, 6, 70, "Input",ExpressionUUID->"b91f7a83-2b9e-4499-8675-2808de9a66f2"],
Cell[21254, 593, 109, 1, 70, "Output",ExpressionUUID->"b9e8b0ca-ef28-4a1f-bdeb-de0b1fe37498"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21412, 600, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d5291388-a9b2-4e6a-8bad-9e33d37c91c6"],
Cell[21639, 607, 455, 12, 70, "ExampleText",ExpressionUUID->"e6415317-7d04-47f3-a782-33c284f7d02e"],
Cell[CellGroupData[{
Cell[22119, 623, 333, 7, 70, "Input",ExpressionUUID->"0474f491-0b36-47b2-9f13-087ccb8dca49"],
Cell[22455, 632, 122, 1, 70, "Output",ExpressionUUID->"8620cad3-8543-4ed7-9185-720835148270"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[22638, 640, 1244, 31, 70, "ExampleSection",ExpressionUUID->"687e8b99-cee9-4b1b-a90f-979a4811a82f",
 CellID->2123667759],
Cell[23885, 673, 508, 14, 70, "ExampleText",ExpressionUUID->"0aa14165-db94-445c-8ad4-37679c387274"],
Cell[CellGroupData[{
Cell[24418, 691, 263, 5, 70, "Input",ExpressionUUID->"e9819a0d-6afe-45e7-8c4c-77dc4191bb56"],
Cell[24684, 698, 122, 1, 70, "Output",ExpressionUUID->"f3ec3695-8feb-4c88-9ac9-0bb523a273a6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24843, 704, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"939c1d88-eff0-4019-b7f1-9873ddb1d3e0"],
Cell[25070, 711, 436, 12, 70, "ExampleText",ExpressionUUID->"daa538c9-3c47-4add-9ed0-28593ad9b42d"],
Cell[CellGroupData[{
Cell[25531, 727, 322, 7, 70, "Input",ExpressionUUID->"33e28d9b-39af-468a-bb2e-34a7b8551736"],
Cell[25856, 736, 122, 1, 70, "Output",ExpressionUUID->"8643a651-41e0-428b-a776-63053754e0ff"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[26039, 744, 1237, 31, 70, "ExampleSection",ExpressionUUID->"99ebb6c5-ad3d-4e12-a364-91a54afabe31",
 CellID->1305812373],
Cell[27279, 777, 133, 0, 70, "ExampleText",ExpressionUUID->"ce917463-d0bc-4ca7-8b9f-fbc4c18c0009"],
Cell[CellGroupData[{
Cell[27437, 781, 224, 4, 70, "Input",ExpressionUUID->"e5b925db-32bd-44fa-9319-a1ea32e52257"],
Cell[27664, 787, 177, 3, 70, "Output",ExpressionUUID->"8257ddd6-7136-4232-a545-f501bc923ab9"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[27880, 795, 2976, 79, 70, "SeeAlsoSection",ExpressionUUID->"14d71ecc-6b98-4e34-9451-ac269856d73c"],
Cell[30859, 876, 746, 19, 70, "MoreAboutSection",ExpressionUUID->"0c08a135-8e71-4981-9cfa-8f9d78730052"],
Cell[31608, 897, 78, 0, 70, "FooterCell",ExpressionUUID->"8571b0d5-ec30-42a1-81e8-dba820aac9ff"]
}
]
*)

(* End of internal cache information *)

