(* 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[     39632,       1032]
NotebookOptionsPosition[     31031,        872]
NotebookOutlinePosition[     33149,        922]
CellTagsIndexPosition[     33072,        917]
WindowTitle->HexStringToByteList
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->
           "d6877f2c-9bb4-4163-96fe-6188d0adb096"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "70d8e029-ba2f-4238-9d44-9701228d216f"],
        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->
           "4cef1a55-2443-45e7-b387-ad60b696848b"]
         }],ExpressionUUID->"244f643b-f07e-49ad-84a4-76f339a56ea2"],
         StripOnInput->False],{
        StyleBox["\"FromDigits\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/FromDigits"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"ByteListToHexString\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString"], 
         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"], 
         StyleBox[
          StyleBox[
           "\"ByteListToBitList\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ByteListToBitList"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "18ffdaa1-06e3-4895-a251-0125645c8de6"],
     "\[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->
           "bb6f4c6f-6662-4176-84de-1cbbdba88163"]
         }],ExpressionUUID->"92215004-af4f-4e79-8136-270b157c482f"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "5c69988a-dbf1-4b94-b3b3-4fa30f93cfaa"],
     "\[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->
           "862d7f13-bf54-446b-9544-a34b17c1dc8e"]
         }],ExpressionUUID->"2a40824f-8b7f-409e-bcf6-c4fc91bbaa5b"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/HexStringToByteList\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/HexStringToByteList"], 
         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/HexStringToByteList.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/HexStringToByteList" <> ".html"],
               None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "8f23b5ef-ef0d-4692-b0e3-76c21563c8c1"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "eca1ff0c-686a-4d0f-a0c7-b72f502f9122"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"0d94a388-0c09-4c3f-811a-c07380f6ba60"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"67013192-2f71-497b-89fc-d042188fc221"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "HexStringToByteList", "ObjectName",ExpressionUUID->
      "1cc6ae21-b13a-4294-b1db-c9e365c8155b"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"1386e992-c012-4095-b3ba-63cfc174d542"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "12083462-1a39-4b3b-a528-8aad60e029d2"]
    }],ExpressionUUID->"27bc0886-f915-455a-a9d5-f150d771a9c7"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"6c30fef4-b41d-4e58-9c78-\
147ff1b4bcda"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["HexStringToByteList"]], 
         "paclet:WolframInstitute/Puzzles/ref/HexStringToByteList", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["string", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "4864b146-d2db-46e2-8a26-22fd1103eafb"],
     "\[LineSeparator]",
     "gives the list of bytes that the even-length hexadecimal ",
     StyleBox["string", "TI"],
     " encodes, most significant digit of each byte first."
    }],ExpressionUUID->"86fb40d1-100b-4437-8c6c-e4b345c9d889"]}
  }]], "Usage",ExpressionUUID->"a1c21394-7b9b-441a-947f-1393f4143de2"]
}, 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->"464efa8d-ae02-4b20-9666-a9b09e78e224"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"335dfd91-e804-4fd8-9b03-4ced0735c369"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "c5ef77e2-d2ff-444a-8725-b8d3464c0e31"]],ExpressionUUID->"d428bd27-ff25-\
46d6-b131-6a61a26f295e"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1534987114,ExpressionUUID->"ad4cb087-0777-4056-93d5-6a55ddd85b92"],

Cell[TextData[{
 "The argument must satisfy ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["HexStringQ"]], 
    "paclet:WolframInstitute/Puzzles/ref/HexStringQ", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "5ddb838b-0b40-4f8e-97d6-bcca2245ad8a"],
 ": an even-length string of hexadecimal digits in either case."
}], "Notes",ExpressionUUID->"0ff154e7-19c7-495c-810d-1fc45f31069b"],

Cell["\<\
The result is a byte list, the shape every codec in this paclet reads.\
\>", "Notes",ExpressionUUID->"47bd9fd6-9dab-4713-8cf0-35b443f9a3dc"],

Cell["The empty string gives the empty byte list.", "Notes",ExpressionUUID->"bd4cb01c-7f75-4ee4-8621-950ab966c7d4"],

Cell["\<\
A string of odd length, or one holding a character outside the hexadecimal \
alphabet, matches no definition and is returned unevaluated.\
\>", "Notes",ExpressionUUID->"01986ef5-485f-4bb7-bba0-0e9af0131b64"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteListToHexString"]], 
    "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3db4637e-271c-4686-a6b8-c1f1c3e08989"],
 " is the inverse, up to the case of the digits."
}], "Notes",ExpressionUUID->"981ea4b5-3425-45df-852c-70b881d62b8b"],

Cell[TextData[{
 "For a big-endian integer rather than a byte list, use ",
 Cell[BoxData[
  RowBox[{
   TemplateBox[{
     Cell[
      TextData["FromDigits"]], "paclet:ref/FromDigits"},
    "RefLink",
    BaseStyle->{"InlineFormula"}], "[", 
   RowBox[{
    StyleBox["string", "TI"], ",", " ", "16"}], "]"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "58b367f4-bab4-4b4d-a9e1-b301c46d92db"],
 "."
}], "Notes",ExpressionUUID->"a0290179-d2e8-42d9-878a-58ec1ef5df37"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"bbbc0c44-9af2-4235-85e2-486b1bb24cbc"],

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->"3f3c1646-b6f1-43fc-8714-6be3a5ea1691"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"508c71d7-bf1c-49dc-82af-5ceba73851b8"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(10)", "ExampleCount",ExpressionUUID->
  "fb19f9c5-20e2-488d-9a0f-5edae2329bce"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->807373587,ExpressionUUID->"0c1bbf3a-f74a-4b1a-9122-b22b51004621"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"de922096-6d50-44cd-a09a-2c3e399641d3"],

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->
  "427d2960-531a-427a-84a1-28c911d2c629"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"34afe0c7-1779-495a-a2dd-5f663d1d2af9"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "ab30faa5-e344-4759-ae18-cb197432c1ce"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1726194963,ExpressionUUID->"44dffbbf-77cf-4692-8c19-74a27d1508df"],

Cell["A four-byte hexadecimal string:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"dff28d1a-067c-4bf2-81d9-1f633937eb45"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HexStringToByteList", "[", "\"\<deadbeef\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ed590b2c-7592-441e-bb91-76a426b35a4c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"222", ",", "173", ",", "190", ",", "239"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ed98eea2-e074-437a-9377-96248519aa84"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "00394605-c227-4d70-947b-b674746a40a6"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"a9024e73-6b55-4039-\
a6e4-450667b614e6"],

Cell["Upper case reads the same as lower case:", "ExampleText",ExpressionUUID->"3edea47b-0821-4f78-ab64-6d2f6e46929c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HexStringToByteList", "[", "\"\<DEADBEEF\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9ddc767c-2f9d-49e2-a1bd-b703f36bc70f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"222", ",", "173", ",", "190", ",", "239"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"c2ff45ff-df2b-42c4-b5d0-ac6ab1cf1b91"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "84bb2cda-a541-4166-bef3-ffd6427967d2"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"5178d0b1-8e7d-46b2-\
83a9-c63a45b4cc33"],

Cell["The empty string gives the empty byte list:", "ExampleText",ExpressionUUID->"625965a6-e147-481b-8604-2e64a2348c66"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HexStringToByteList", "[", "\"\<\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"40ed725f-871a-495d-8e14-4b5fce409bef"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7da028ad-a7e2-41ba-ab16-6d0104976c3c"]
}, 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->
  "41f41e47-f26f-4ab4-b038-b809ce1d821c"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"9058862a-20cd-4867-8a54-1fcdd4124301"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "9f8d9e8a-85cf-4f7f-9adc-328b511954fd"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"350038e4-330b-4c4c-a16f-fa17513bdb5a"],

Cell["\<\
Leading zero bytes are preserved, which is what an address payload needs:\
\>", "ExampleText",ExpressionUUID->"94174f92-95a8-4d99-b76d-629943b9195a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HexStringToByteList", "[", "\"\<0000ff\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7b90074d-d501-4172-a3dc-a46ecd8970ab"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", "255"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7f675940-a4a5-4b55-95e2-86829acd12e4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "bc6ef314-7bad-4462-a556-aa95733a4869"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"84dcfd27-ee4c-488a-\
8fe1-51ac7720cb41"],

Cell["A 20-byte HASH160 read from a Bitcoin scriptPubKey:", "ExampleText",ExpressionUUID->"1ba7f4a1-904f-4273-a3a9-88053717cb5b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HexStringToByteList", 
  "[", "\"\<62e907b15cbf27d5425399ebf6f0fb50ebb88f18\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f02421a0-6343-4423-8b09-9ee38a8afbc0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "98", ",", "233", ",", "7", ",", "177", ",", "92", ",", "191", ",", "39", ",",
    "213", ",", "66", ",", "83", ",", "153", ",", "235", ",", "246", ",", 
   "240", ",", "251", ",", "80", ",", "235", ",", "184", ",", "143", ",", 
   "24"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d2c7739b-3520-4cb5-bc9b-d7683ce12bb7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "060c9c01-3497-4f8b-94fd-574a265988b6"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2f11e794-b4d3-4a31-\
9cba-7b3e6000657e"],

Cell[TextData[{
 "The conversion is inverse to ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ByteListToHexString"]], 
    "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "53216e6b-2490-4332-8aa2-87e30758eca6"],
 ":"
}], "ExampleText",ExpressionUUID->"4fd97398-00d3-4d4e-8988-b97058371610"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"HexStringToByteList", "[", 
   RowBox[{"ByteListToHexString", "[", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", " ", "255"}], "]"}], "]"}], "]"}], " ", "===", " ", 
  RowBox[{"Range", "[", 
   RowBox[{"0", ",", " ", "255"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e906ffa6-af80-4d83-9ba3-e761e79a5c5c"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"18142111-ba66-4b2c-b5ff-89042ed0266f"]
}, 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->
  "07eec9d3-b525-4e0c-b886-528fbced1b97"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"2666c7da-b7f3-4b93-be30-4dea82b31304"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "443944a5-bd78-4029-b454-0b769f215f11"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"ee9a7db9-1e58-4b15-91a7-af1d0c692d5a"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["FromDigits"]], "paclet:ref/FromDigits"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4ea6dd61-ea39-451f-9850-56105c83d2e1"],
 " reads the same string as one big-endian integer, which is a different \
result:"
}], "ExampleText",ExpressionUUID->"eb043fe1-6647-4b08-a4d5-7974d029d372"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDigits", "[", 
  RowBox[{"\"\<0000ff\>\"", ",", " ", "16"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1c0bc472-4be1-4968-bd9c-215e70a70368"],

Cell[BoxData["255"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"70ea4819-d9cd-4a18-84fa-45a4df68bb6d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "188b65be-a942-4c2b-9171-2b4cab7b1901"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"7e89f492-a0b0-4d2d-\
b5cb-c3698b9bafa6"],

Cell["\<\
The byte list keeps the two leading zero bytes that the integer reading \
discards:\
\>", "ExampleText",ExpressionUUID->"db777982-4f5b-46a9-9694-cc9bb70bdc84"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"HexStringToByteList", "[", "\"\<0000ff\>\"", "]"}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"00a0e9a1-2156-46ae-b422-70d53b9e2d7e"],

Cell[BoxData["3"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2cca8a8f-c6cb-4391-b071-8707fe514b0d"]
}, 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->
  "6cc1aba5-126a-4b4b-bc5d-2594308edef1"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"1ea117b1-32c0-4a2a-85fd-7cf8246892c6"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "f5537916-e641-43fc-b67c-437202d3e176"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"21b03a58-29c7-41c6-b568-c3716fc9263b"],

Cell["\<\
An odd number of digits does not denote whole bytes, so the call is returned \
unevaluated:\
\>", "ExampleText",ExpressionUUID->"7653a08a-5d45-4131-bae6-3643e3ee7e9b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HexStringToByteList", "[", "\"\<abc\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"11c1edca-fb79-4469-82f5-efcbf010aacf"],

Cell[BoxData[
 RowBox[{"HexStringToByteList", "[", "\<\"abc\"\>", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"df65f781-3c43-4374-b2bd-78015d3f8e1d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c5e02d43-b57a-4da4-8f96-365cf0b8250d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"fb4455c8-c042-47d9-\
a78e-044f64a1edc2"],

Cell[TextData[{
 "A ",
 Cell[BoxData["\<\"0x\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cdbdda14-b966-4c70-b6bc-706c1f5316f5"],
 " prefix is not part of the notation, so it too is returned unevaluated:"
}], "ExampleText",ExpressionUUID->"2d0c570b-b6d5-430f-8b9b-b54d83017d51"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HexStringToByteList", "[", "\"\<0xff\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"81e1f8de-ba22-40f7-9c41-c88f7e7192e5"],

Cell[BoxData[
 RowBox[{"HexStringToByteList", "[", "\<\"0xff\"\>", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"dc0ec5ae-59a4-4cde-83fb-d98a2078a900"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteListToHexString"]], 
           "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "1dc27ecd-b0a8-4307-b0ae-ee4df949bb2b"],
        "\[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->
         "539d4a96-bc4e-4341-9665-9b892952badb"],
        "\[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->
         "abc59706-f6fb-4d46-b1c0-04e5383f947d"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteListToBitList"]], 
           "paclet:WolframInstitute/Puzzles/ref/ByteListToBitList", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "7aff811e-6e6f-4699-b044-20c17c4bb2be"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["FromDigits"]], "paclet:ref/FromDigits"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "61354022-47ef-423c-b5f4-b645de253165"]
       }], "SeeAlso",ExpressionUUID->"005fccbf-c804-4ab5-903b-dbfebb5a1969"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"7dc79300-9cd7-4af1-b681-\
7baee10a43fe"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedGuide.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Encodings"]], 
           "paclet:WolframInstitute/Puzzles/guide/Encodings"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "89b91e96-4ac7-4578-a8ba-8b90c3ccfecc"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"b313fcb0-88a5-411e-8ae9-\
c86e84cd0eff"],

Cell[" ", "FooterCell",ExpressionUUID->"7ac4f7bc-fa3d-4d0a-bc67-89da9def97cc"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"HexStringToByteList",
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, 39.623799}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[HexStringToByteList, paclet : \
WolframInstitute/Puzzles/ref/HexStringToByteList, WolframInstitute/Puzzles \
Package Symbol][string] gives the list of bytes that the even-length \
hexadecimal string encodes, most significant digit of each byte first.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "HexStringToByteList", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "HexStringToByteList", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/HexStringToByteList", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"4601b804-eee8-4ca1-841d-49543f5aa155"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[14990, 399, 141, 2, 70, "ExampleText",ExpressionUUID->"dff28d1a-067c-4bf2-81d9-1f633937eb45",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 32915, 911}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[587, 21, 6291, 151, 70, "AnchorBarGrid",ExpressionUUID->"0d94a388-0c09-4c3f-811a-c07380f6ba60",
 CellID->1],
Cell[6881, 174, 107, 0, 70, "ContextNameCell",ExpressionUUID->"67013192-2f71-497b-89fc-d042188fc221"],
Cell[CellGroupData[{
Cell[7013, 178, 562, 14, 70, "ObjectNameGrid",ExpressionUUID->"6c30fef4-b41d-4e58-9c78-147ff1b4bcda"],
Cell[7578, 194, 855, 20, 70, "Usage",ExpressionUUID->"a1c21394-7b9b-441a-947f-1393f4143de2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8470, 219, 1444, 34, 70, "NotesSection",ExpressionUUID->"ad4cb087-0777-4056-93d5-6a55ddd85b92",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1534987114],
Cell[9917, 255, 541, 14, 70, "Notes",ExpressionUUID->"0ff154e7-19c7-495c-810d-1fc45f31069b"],
Cell[10461, 271, 150, 2, 70, "Notes",ExpressionUUID->"47bd9fd6-9dab-4713-8cf0-35b443f9a3dc"],
Cell[10614, 275, 115, 0, 70, "Notes",ExpressionUUID->"bd4cb01c-7f75-4ee4-8621-950ab966c7d4"],
Cell[10732, 277, 217, 3, 70, "Notes",ExpressionUUID->"01986ef5-485f-4bb7-bba0-0e9af0131b64"],
Cell[10952, 282, 513, 13, 70, "Notes",ExpressionUUID->"981ea4b5-3425-45df-852c-70b881d62b8b"],
Cell[11468, 297, 518, 15, 70, "Notes",ExpressionUUID->"a0290179-d2e8-42d9-878a-58ec1ef5df37"]
}, Closed]],
Cell[12001, 315, 80, 0, 70, "PageDelimiter",ExpressionUUID->"bbbc0c44-9af2-4235-85e2-486b1bb24cbc"],
Cell[CellGroupData[{
Cell[12106, 319, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"0c1bbf3a-f74a-4b1a-9122-b22b51004621",
 CellID->807373587],
Cell[13510, 358, 216, 4, 70, "Input",ExpressionUUID->"de922096-6d50-44cd-a09a-2c3e399641d3",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13751, 366, 1236, 31, 70, "ExampleSection",ExpressionUUID->"44dffbbf-77cf-4692-8c19-74a27d1508df",
 CellID->1726194963],
Cell[14990, 399, 141, 2, 70, "ExampleText",ExpressionUUID->"dff28d1a-067c-4bf2-81d9-1f633937eb45",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15156, 405, 214, 3, 70, "Input",ExpressionUUID->"ed590b2c-7592-441e-bb91-76a426b35a4c"],
Cell[15373, 410, 180, 3, 70, "Output",ExpressionUUID->"ed98eea2-e074-437a-9377-96248519aa84"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15590, 418, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"a9024e73-6b55-4039-a6e4-450667b614e6"],
Cell[15817, 425, 118, 0, 70, "ExampleText",ExpressionUUID->"3edea47b-0821-4f78-ab64-6d2f6e46929c"],
Cell[CellGroupData[{
Cell[15960, 429, 214, 3, 70, "Input",ExpressionUUID->"9ddc767c-2f9d-49e2-a1bd-b703f36bc70f"],
Cell[16177, 434, 180, 3, 70, "Output",ExpressionUUID->"c2ff45ff-df2b-42c4-b5d0-ac6ab1cf1b91"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16406, 443, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"5178d0b1-8e7d-46b2-83a9-c63a45b4cc33"],
Cell[16633, 450, 121, 0, 70, "ExampleText",ExpressionUUID->"625965a6-e147-481b-8604-2e64a2348c66"],
Cell[CellGroupData[{
Cell[16779, 454, 206, 3, 70, "Input",ExpressionUUID->"40ed725f-871a-495d-8e14-4b5fce409bef"],
Cell[16988, 459, 124, 2, 70, "Output",ExpressionUUID->"7da028ad-a7e2-41ba-ab16-6d0104976c3c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17173, 468, 1227, 31, 70, "ExampleSection",ExpressionUUID->"350038e4-330b-4c4c-a16f-fa17513bdb5a",
 CellID->1293636265],
Cell[18403, 501, 159, 2, 70, "ExampleText",ExpressionUUID->"94174f92-95a8-4d99-b76d-629943b9195a"],
Cell[CellGroupData[{
Cell[18587, 507, 212, 3, 70, "Input",ExpressionUUID->"7b90074d-d501-4172-a3dc-a46ecd8970ab"],
Cell[18802, 512, 164, 3, 70, "Output",ExpressionUUID->"7f675940-a4a5-4b55-95e2-86829acd12e4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19003, 520, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"84dcfd27-ee4c-488a-8fe1-51ac7720cb41"],
Cell[19230, 527, 129, 0, 70, "ExampleText",ExpressionUUID->"1ba7f4a1-904f-4273-a3a9-88053717cb5b"],
Cell[CellGroupData[{
Cell[19384, 531, 249, 4, 70, "Input",ExpressionUUID->"f02421a0-6343-4423-8b09-9ee38a8afbc0"],
Cell[19636, 537, 378, 7, 70, "Output",ExpressionUUID->"d2c7739b-3520-4cb5-bc9b-d7683ce12bb7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20063, 550, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2f11e794-b4d3-4a31-9cba-7b3e6000657e"],
Cell[20290, 557, 508, 14, 70, "ExampleText",ExpressionUUID->"4fd97398-00d3-4d4e-8988-b97058371610"],
Cell[CellGroupData[{
Cell[20823, 575, 411, 9, 70, "Input",ExpressionUUID->"e906ffa6-af80-4d83-9ba3-e761e79a5c5c"],
Cell[21237, 586, 110, 1, 70, "Output",ExpressionUUID->"18142111-ba66-4b2c-b5ff-89042ed0266f"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[21408, 594, 1244, 31, 70, "ExampleSection",ExpressionUUID->"ee9a7db9-1e58-4b15-91a7-af1d0c692d5a",
 CellID->2123667759],
Cell[22655, 627, 453, 12, 70, "ExampleText",ExpressionUUID->"eb043fe1-6647-4b08-a4d5-7974d029d372"],
Cell[CellGroupData[{
Cell[23133, 643, 232, 4, 70, "Input",ExpressionUUID->"1c0bc472-4be1-4968-bd9c-215e70a70368"],
Cell[23368, 649, 109, 1, 70, "Output",ExpressionUUID->"70ea4819-d9cd-4a18-84fa-45a4df68bb6d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23514, 655, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"7e89f492-a0b0-4d2d-b5cb-c3698b9bafa6"],
Cell[23741, 662, 169, 3, 70, "ExampleText",ExpressionUUID->"db777982-4f5b-46a9-9694-cc9bb70bdc84"],
Cell[CellGroupData[{
Cell[23935, 669, 247, 5, 70, "Input",ExpressionUUID->"00a0e9a1-2156-46ae-b422-70d53b9e2d7e"],
Cell[24185, 676, 107, 1, 70, "Output",ExpressionUUID->"2cca8a8f-c6cb-4391-b071-8707fe514b0d"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24353, 684, 1237, 31, 70, "ExampleSection",ExpressionUUID->"21b03a58-29c7-41c6-b568-c3716fc9263b",
 CellID->1305812373],
Cell[25593, 717, 177, 3, 70, "ExampleText",ExpressionUUID->"7653a08a-5d45-4131-bae6-3643e3ee7e9b"],
Cell[CellGroupData[{
Cell[25795, 724, 209, 3, 70, "Input",ExpressionUUID->"11c1edca-fb79-4469-82f5-efcbf010aacf"],
Cell[26007, 729, 162, 2, 70, "Output",ExpressionUUID->"df65f781-3c43-4374-b2bd-78015d3f8e1d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26206, 736, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"fb4455c8-c042-47d9-a78e-044f64a1edc2"],
Cell[26433, 743, 336, 7, 70, "ExampleText",ExpressionUUID->"2d0c570b-b6d5-430f-8b9b-b54d83017d51"],
Cell[CellGroupData[{
Cell[26794, 754, 210, 3, 70, "Input",ExpressionUUID->"81e1f8de-ba22-40f7-9c41-c88f7e7192e5"],
Cell[27007, 759, 163, 2, 70, "Output",ExpressionUUID->"dc0ec5ae-59a4-4cde-83fb-d98a2078a900"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[27221, 767, 3024, 80, 70, "SeeAlsoSection",ExpressionUUID->"7dc79300-9cd7-4af1-b681-7baee10a43fe"],
Cell[30248, 849, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"b313fcb0-88a5-411e-8ae9-c86e84cd0eff"],
Cell[30949, 870, 78, 0, 70, "FooterCell",ExpressionUUID->"7ac4f7bc-fa3d-4d0a-bc67-89da9def97cc"]
}
]
*)

(* End of internal cache information *)

