(* 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[     41898,       1119]
NotebookOptionsPosition[     32861,        951]
NotebookOutlinePosition[     35044,       1002]
CellTagsIndexPosition[     34967,        997]
WindowTitle->CompactSizeSplit
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->
           "80576886-9a22-4115-aa99-a0563706287e"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "9999b97a-0d9a-4915-a369-ec601defe227"],
        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->
           "747fa5b3-eb0f-4cd0-92df-50620d6259e0"]
         }],ExpressionUUID->"294347a6-7084-4d6a-bd3f-03e4b0425eea"],
         StripOnInput->False],{
        StyleBox["\"TakeDrop\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/TakeDrop"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"CompactSizeDecode\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/CompactSizeDecode"], 
         StyleBox[
          StyleBox[
           "\"CompactSizeEncode\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/CompactSizeEncode"], 
         StyleBox[
          StyleBox[
           "\"HexStringToByteList\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/HexStringToByteList"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "81869118-10ac-44a5-843f-4e6c96814552"],
     "\[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->
           "7fe10155-b2e7-4a7e-b4b6-c95fcd0dcbf1"]
         }],ExpressionUUID->"2e1e5acf-ffbb-4ef2-85aa-98e8de87a081"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "eb9980b9-2351-414e-bd5d-fa8a5fc3e0be"],
     "\[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->
           "405df4d8-fe1b-4abc-adf5-cd0b976a73af"]
         }],ExpressionUUID->"c53d32f0-4c60-42bd-a1a5-01e4720a7247"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/CompactSizeSplit\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/CompactSizeSplit"], 
         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/CompactSizeSplit.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/CompactSizeSplit" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "45d5de2a-f279-4888-ac96-68bf8442c819"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "503b1df6-521c-4701-9bea-eccfa73a9694"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"d25b3d38-7efe-4987-b338-8054cb3121dd"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"f5b63556-f666-4cd7-be46-2328018b6e49"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "CompactSizeSplit", "ObjectName",ExpressionUUID->
      "b5f38bae-b3f2-4a6b-91f3-9de430ddbf29"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"f7781763-8007-4194-90e1-bed0454477c5"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "72f99551-eb1d-47b6-98af-37ca97b783b7"]
    }],ExpressionUUID->"d43943ec-3f4e-4444-9281-9166baabfd23"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"992d0563-c056-4ef8-b79c-\
b3a094520a2b"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["CompactSizeSplit"]], 
         "paclet:WolframInstitute/Puzzles/ref/CompactSizeSplit", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["bytes", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "d89170ea-49ea-454c-8421-15b3b6a3eacb"],
     "\[LineSeparator]",
     "gives ",
     Cell[BoxData[
      RowBox[{"{", 
       RowBox[{"n", ",", " ", "rest"}], "}"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "a49f8424-59bd-4ff6-8918-211453310285"],
     " where ",
     StyleBox["n", "TI"],
     " is the compact-size integer at the front of a byte list and ",
     StyleBox["rest", "TI"],
     " is everything after it, and a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Failure"]], "paclet:ref/Failure"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "5013a287-15b8-4448-8c55-784c3c7876b3"],
     " if the byte list does not start with a canonical compact-size \
integer."
    }],ExpressionUUID->"6e26ab99-e4fb-45c1-9cfb-b6077f9001b1"]}
  }]], "Usage",ExpressionUUID->"6ec102f2-8986-495b-8654-51f0070f1d4b"]
}, 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->"b507e422-00ac-4cd7-a8b3-892f9980f7e8"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"1efd6ab3-97d2-4ff8-a516-6f13f0a20173"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "ef6348c3-34d6-4022-9afb-9f1719ff4576"]],ExpressionUUID->"6b7141f0-eeb5-\
413b-aca8-50b93a96c876"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->994351682,ExpressionUUID->"21cfbe63-2929-488f-90d2-2c12acfe7859"],

Cell["\<\
This is the form to use when walking a serialized transaction, where a \
compact size is always followed by the field it measures.\
\>", "Notes",ExpressionUUID->"8ed17cdc-c26d-4259-a58e-61f2384ea4c2"],

Cell[TextData[{
 "Canonicality is enforced exactly as in ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["CompactSizeDecode"]], 
    "paclet:WolframInstitute/Puzzles/ref/CompactSizeDecode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c9dd0198-229b-444a-8fa5-ec7281067fa6"],
 ": a value written in a longer form than it needs gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "b02dd7b4-813b-4b1b-8775-9a1d024ac2d9"],
 "."
}], "Notes",ExpressionUUID->"0d08dda5-281b-4ee7-961a-8a5e816f7dfe"],

Cell[TextData[{
 "A truncated tag, or an empty byte list, gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "619ab623-6036-486c-9f7e-7ab192279499"],
 "."
}], "Notes",ExpressionUUID->"5b20621d-0e8c-4ab2-9805-e89bc2a4a45c"],

Cell[TextData[{
 "Unlike ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["CompactSizeDecode"]], 
    "paclet:WolframInstitute/Puzzles/ref/CompactSizeDecode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "92e36b0a-37d6-4ae7-bd34-507ea7d9d33a"],
 ", trailing bytes are expected rather than an error; they are returned as \
the second element."
}], "Notes",ExpressionUUID->"07a72099-ff2c-4394-af78-504c39935e52"],

Cell["\<\
A list that is not a byte list matches no definition and the call is returned \
unevaluated.\
\>", "Notes",ExpressionUUID->"1d328c27-b8f0-49de-8ffa-460564059c5e"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"6ab18f72-aa87-4592-9fca-42f7c8c0ae89"],

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->"ac876967-471d-4155-bb52-02e444ed4023"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"0e19c7fa-1f31-4fd8-ad02-19ed533484e9"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(11)", "ExampleCount",ExpressionUUID->
  "eb74742f-6fb4-4226-a78b-fc4d9ead0587"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->350978420,ExpressionUUID->"718e5106-d7d0-4bd7-a8a0-cf6308856b0c"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"ddde8dfd-0753-4ea6-acf2-9901b78d16f6"],

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->
  "70ee25b2-ac35-457b-822a-1dca6732e84e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"b37da20f-8cac-4809-b43e-f8300edbae03"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "e4fe0142-0abd-4dd4-a078-747920c75b74"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1904210278,ExpressionUUID->"b830080c-a071-4a12-9a0c-f40199a09f8d"],

Cell["\<\
A compact size at the front of a byte list, with the rest returned unread:\
\>", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"f33865e0-dda9-4040-9a41-2a7dd536d73c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeSplit", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3d268e26-1c3c-496b-892c-f61abc2b4579"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"047f1bdf-c2c6-4e7c-ac92-4272f0b9d61f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "47d1fcad-0f16-401f-a50f-c205ba29a6fa"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ee65d61e-2dd3-46e6-\
8bda-c639c8a0a120"],

Cell["\<\
The input count of the BIP143 example transaction sits just after the \
four-byte version:\
\>", "ExampleText",ExpressionUUID->"dd3ba665-9dfe-42d3-8c74-9ce1ada7183e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "[", 
  RowBox[{"CompactSizeSplit", "[", 
   RowBox[{"Drop", "[", 
    RowBox[{
     RowBox[{
     "HexStringToByteList", 
      "[", "\"\<\
0100000002fff7f7881a8099afa6940d42d1e7f6362bec38171ea3edf433541db4e4ad969f0000\
000000eeffffff\>\"", "]"}], ",", " ", "4"}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"d11b5031-662e-4d58-9258-109386fcd06f"],

Cell[BoxData["2"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9c1a6f47-90e7-4e1b-87ff-03b77cb59a79"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "886f3f04-2679-45a4-8145-1a312086ead4"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ec6efbb3-f824-48c2-\
946b-d5e256e6b7dc"],

Cell["\<\
What follows that count is the first input's 32-byte outpoint hash:\
\>", "ExampleText",ExpressionUUID->"577146ce-4298-4753-953c-12588bec2de2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"Take", "[", 
   RowBox[{
    RowBox[{"Last", "[", 
     RowBox[{"CompactSizeSplit", "[", 
      RowBox[{"Drop", "[", 
       RowBox[{
        RowBox[{
        "HexStringToByteList", 
         "[", "\"\<\
0100000002fff7f7881a8099afa6940d42d1e7f6362bec38171ea3edf433541db4e4ad969f0000\
000000eeffffff\>\"", "]"}], ",", " ", "4"}], "]"}], "]"}], "]"}], ",", " ", 
    "32"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"7dfab595-7499-4e57-a2d4-06e408d862a5"],

Cell[BoxData["\<\"\
fff7f7881a8099afa6940d42d1e7f6362bec38171ea3edf433541db4e4ad969f\"\>"], \
"Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"df11d294-f96f-4701-a487-b6278094a56e"]
}, 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->
  "5dda4012-6286-485b-8e44-b95e7c21f68e"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"532976cd-96d0-4364-b538-72f772bb28fd"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "5c752b46-56cd-461d-86fa-c27a1d61a5ab"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"0b51f521-c788-4d1d-a0c1-45c8e0c17468"],

Cell["\<\
A three-byte compact size consumes three bytes and leaves the rest:\
\>", "ExampleText",ExpressionUUID->"12fcf423-534e-4269-afdd-0b70d5ac66a1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeSplit", "[", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"HexStringToByteList", "[", "\"\<fdfd00\>\"", "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"7", ",", " ", "8"}], "}"}]}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9626a62c-3db8-428e-b739-301ee3925fe2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"253", ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "8"}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"6888cb51-e204-4a4c-85f2-a49981adefb7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "cefcdbe1-bd19-404a-b2b0-ba284a023bc8"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"94167ceb-8602-4bd1-\
a324-c8054653b3ac"],

Cell["With nothing after it the second element is the empty list:", \
"ExampleText",ExpressionUUID->"bcfcf119-9752-48ee-aa5a-ced2f1ac5bc3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeSplit", "[", 
  RowBox[{"{", "5", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"91e0ac9b-0007-46d9-8efe-a5e319a37789"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5", ",", 
   RowBox[{"{", "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1e30f9c4-fc6c-4295-a72c-51e6fe526956"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "617a5b34-975f-4039-ae3b-ad36e43a62d1"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b81103b2-50d8-4feb-\
be4f-b90456908d38"],

Cell["The eight-byte form consumes nine bytes in all:", "ExampleText",ExpressionUUID->"3cc07433-6917-402c-a13f-d7e2f09a3b6c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"Last", "[", 
   RowBox[{"CompactSizeSplit", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"HexStringToByteList", "[", "\"\<ffffffffffffffffff\>\"", "]"}],
       ",", " ", 
      RowBox[{"Range", "[", "3", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"be367953-078a-4217-83e9-a3fade0cc556"],

Cell[BoxData["3"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"17583fad-522b-4592-9ee6-ff84aaa1ab35"]
}, 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->
  "13390f68-396e-44fb-b6d6-b58e3b33c97f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"f59b2122-181b-4ec0-ab85-ab4f304c2115"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "8bb96942-e742-40de-88b9-55fcb03eead4"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"ae5a5709-ed91-4ca0-a916-333ab8d08d04"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["CompactSizeDecode"]], 
    "paclet:WolframInstitute/Puzzles/ref/CompactSizeDecode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "9eb1f076-ff76-4db1-a9a5-8b0328d87c8b"],
 " is this function with the requirement that nothing be left over:"
}], "ExampleText",ExpressionUUID->"fcfc006e-31ad-49b3-b2e2-6d4f5bc8f285"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"CompactSizeDecode", "[", 
    RowBox[{"{", "5", "}"}], "]"}], ",", " ", 
   RowBox[{"CompactSizeSplit", "[", 
    RowBox[{"{", "5", "}"}], "]"}]}], "}"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f8e0a134-4758-4fa1-8a6d-884c2680f32b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", 
     RowBox[{"{", "}"}]}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f0fcd013-cbf5-4c18-b6ff-24f0bc89e623"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0d25ede7-375f-44d3-9f22-907f94da99e9"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"645823cb-1908-4570-\
92f3-450d67efe361"],

Cell["\<\
Splitting a value the encoder produced always consumes the whole encoding:\
\>", "ExampleText",ExpressionUUID->"3e923015-187b-4b09-8d14-3026932561f7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Select", "[", 
  RowBox[{
   RowBox[{"Range", "[", 
    RowBox[{"0", ",", " ", "300"}], "]"}], ",", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Last", "[", 
      RowBox[{"CompactSizeSplit", "[", 
       RowBox[{"CompactSizeEncode", "[", "#", "]"}], "]"}], "]"}], " ", "=!=",
      " ", 
     RowBox[{"{", "}"}]}], " ", "&"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c2282aa5-7168-42d2-9162-82ee59058ce4"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"719ef961-b400-4658-98e9-a00cff7608c6"]
}, 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->
  "5202747c-78c7-4512-ae1e-7d775a956bb6"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"8e2b1ff8-5411-4b02-aa02-1b5c7127e6f2"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "6b9b0822-8559-4572-82b8-227c8787add8"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"a3f54a41-05a2-42f6-b0eb-367f6ea1441c"],

Cell[TextData[{
 "A non-canonical encoding gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "88c8de6c-606d-4595-a905-2305732e1460"],
 " even though the bytes could be read:"
}], "ExampleText",ExpressionUUID->"55a8ccb8-815c-4544-8b19-beae37001125"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"CompactSizeSplit", "[", 
   RowBox[{"HexStringToByteList", "[", "\"\<fd0a00\>\"", "]"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"bc5f2930-28b7-457e-8713-8e1c5f91c7a9"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a9afadab-0532-4748-8072-b171be4913ed"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d10a7ca7-3262-465f-a624-094d98a2e76f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"31cec2d2-27c4-4e0a-\
9133-07b3bf136dbe"],

Cell["\<\
A tag with too few value bytes after it is truncated, whatever follows:\
\>", "ExampleText",ExpressionUUID->"3f0ca44f-2520-43e5-9445-f68b2e477211"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"CompactSizeSplit", "[", 
   RowBox[{"HexStringToByteList", "[", "\"\<fdff\>\"", "]"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2b20c460-cfe8-4937-abfc-f98926bc4d70"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"01c9b832-a01b-4f3e-b9b8-0e1f4b3d9982"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "080b6791-cd3b-4bf1-9d67-a234a9da8688"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e7a06016-ba44-43cf-\
91f7-7c7f76478e4d"],

Cell["The empty byte list holds no compact size:", "ExampleText",ExpressionUUID->"2edd773e-fe77-42ec-95c3-7baba58638cf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"CompactSizeSplit", "[", 
   RowBox[{"{", "}"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"bcd76d18-10d5-420d-9725-73a01f50a259"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"96b470a7-220b-4885-827f-1678a5ddff60"]
}, 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["CompactSizeDecode"]], 
           "paclet:WolframInstitute/Puzzles/ref/CompactSizeDecode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "91cf6b63-ff23-40bc-9e47-ba8c5331cfe0"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["CompactSizeEncode"]], 
           "paclet:WolframInstitute/Puzzles/ref/CompactSizeEncode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "01c8b8f7-9b6d-4714-8bba-62213966ddc5"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["HexStringToByteList"]], 
           "paclet:WolframInstitute/Puzzles/ref/HexStringToByteList", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "e703717e-3d86-4598-824c-d73d9147389a"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["TakeDrop"]], "paclet:ref/TakeDrop"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "d9486785-eacb-475c-8264-4fd428fc824c"]
       }], "SeeAlso",ExpressionUUID->"e37015e0-3760-48d9-95fe-108c1a51b98b"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"e9aebf5b-1399-4e9c-8768-\
fa96c954bdec"],

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->
         "9eb12df5-886b-4f15-856e-f86ebe8aa247"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"b638c325-3cb7-4bb9-99c8-\
6e1301c4e7d5"],

Cell[" ", "FooterCell",ExpressionUUID->"9db0a890-a30a-4db7-9022-8e0ed42fbd91"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"CompactSizeSplit",
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, 45.344435}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[CompactSizeSplit, paclet : \
WolframInstitute/Puzzles/ref/CompactSizeSplit, WolframInstitute/Puzzles \
Package Symbol][bytes] gives {n, rest} where n is the compact-size integer at \
the front of a byte list and rest is everything after it, and a Failure if \
the byte list does not start with a canonical compact-size integer.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "CompactSizeSplit", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "CompactSizeSplit", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/CompactSizeSplit", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"a484fb1a-83a9-47b3-bd8a-087e1b3bee2d"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15469, 420, 192, 4, 70, "ExampleText",ExpressionUUID->"f33865e0-dda9-4040-9a41-2a7dd536d73c",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 34810, 991}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[584, 21, 6051, 147, 70, "AnchorBarGrid",ExpressionUUID->"d25b3d38-7efe-4987-b338-8054cb3121dd",
 CellID->1],
Cell[6638, 170, 107, 0, 70, "ContextNameCell",ExpressionUUID->"f5b63556-f666-4cd7-be46-2328018b6e49"],
Cell[CellGroupData[{
Cell[6770, 174, 559, 14, 70, "ObjectNameGrid",ExpressionUUID->"992d0563-c056-4ef8-b79c-b3a094520a2b"],
Cell[7332, 190, 1482, 39, 70, "Usage",ExpressionUUID->"6ec102f2-8986-495b-8654-51f0070f1d4b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8851, 234, 1443, 34, 70, "NotesSection",ExpressionUUID->"21cfbe63-2929-488f-90d2-2c12acfe7859",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->994351682],
Cell[10297, 270, 210, 3, 70, "Notes",ExpressionUUID->"8ed17cdc-c26d-4259-a58e-61f2384ea4c2"],
Cell[10510, 275, 817, 23, 70, "Notes",ExpressionUUID->"0d08dda5-281b-4ee7-961a-8a5e816f7dfe"],
Cell[11330, 300, 388, 11, 70, "Notes",ExpressionUUID->"5b20621d-0e8c-4ab2-9805-e89bc2a4a45c"],
Cell[11721, 313, 569, 15, 70, "Notes",ExpressionUUID->"07a72099-ff2c-4394-af78-504c39935e52"],
Cell[12293, 330, 172, 3, 70, "Notes",ExpressionUUID->"1d328c27-b8f0-49de-8ffa-460564059c5e"]
}, Closed]],
Cell[12480, 336, 80, 0, 70, "PageDelimiter",ExpressionUUID->"6ab18f72-aa87-4592-9fca-42f7c8c0ae89"],
Cell[CellGroupData[{
Cell[12585, 340, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"718e5106-d7d0-4bd7-a8a0-cf6308856b0c",
 CellID->350978420],
Cell[13989, 379, 216, 4, 70, "Input",ExpressionUUID->"ddde8dfd-0753-4ea6-acf2-9901b78d16f6",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[14230, 387, 1236, 31, 70, "ExampleSection",ExpressionUUID->"b830080c-a071-4a12-9a0c-f40199a09f8d",
 CellID->1904210278],
Cell[15469, 420, 192, 4, 70, "ExampleText",ExpressionUUID->"f33865e0-dda9-4040-9a41-2a7dd536d73c",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15686, 428, 263, 5, 70, "Input",ExpressionUUID->"3d268e26-1c3c-496b-892c-f61abc2b4579"],
Cell[15952, 435, 201, 5, 70, "Output",ExpressionUUID->"047f1bdf-c2c6-4e7c-ac92-4272f0b9d61f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16190, 445, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ee65d61e-2dd3-46e6-8bda-c639c8a0a120"],
Cell[16417, 452, 176, 3, 70, "ExampleText",ExpressionUUID->"dd3ba665-9dfe-42d3-8c74-9ce1ada7183e"],
Cell[CellGroupData[{
Cell[16618, 459, 455, 11, 70, "Input",ExpressionUUID->"d11b5031-662e-4d58-9258-109386fcd06f"],
Cell[17076, 472, 107, 1, 70, "Output",ExpressionUUID->"9c1a6f47-90e7-4e1b-87ff-03b77cb59a79"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17232, 479, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ec6efbb3-f824-48c2-946b-d5e256e6b7dc"],
Cell[17459, 486, 153, 2, 70, "ExampleText",ExpressionUUID->"577146ce-4298-4753-953c-12588bec2de2"],
Cell[CellGroupData[{
Cell[17637, 492, 586, 15, 70, "Input",ExpressionUUID->"7dfab595-7499-4e57-a2d4-06e408d862a5"],
Cell[18226, 509, 182, 3, 70, "Output",ExpressionUUID->"df11d294-f96f-4701-a487-b6278094a56e"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18469, 519, 1227, 31, 70, "ExampleSection",ExpressionUUID->"0b51f521-c788-4d1d-a0c1-45c8e0c17468",
 CellID->1293636265],
Cell[19699, 552, 153, 2, 70, "ExampleText",ExpressionUUID->"12fcf423-534e-4269-afdd-0b70d5ac66a1"],
Cell[CellGroupData[{
Cell[19877, 558, 373, 8, 70, "Input",ExpressionUUID->"9626a62c-3db8-428e-b739-301ee3925fe2"],
Cell[20253, 568, 203, 5, 70, "Output",ExpressionUUID->"6888cb51-e204-4a4c-85f2-a49981adefb7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20493, 578, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"94167ceb-8602-4bd1-a324-c8054653b3ac"],
Cell[20720, 585, 139, 1, 70, "ExampleText",ExpressionUUID->"bcfcf119-9752-48ee-aa5a-ced2f1ac5bc3"],
Cell[CellGroupData[{
Cell[20884, 590, 219, 4, 70, "Input",ExpressionUUID->"91e0ac9b-0007-46d9-8efe-a5e319a37789"],
Cell[21106, 596, 171, 4, 70, "Output",ExpressionUUID->"1e30f9c4-fc6c-4295-a72c-51e6fe526956"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21326, 606, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b81103b2-50d8-4feb-be4f-b90456908d38"],
Cell[21553, 613, 125, 0, 70, "ExampleText",ExpressionUUID->"3cc07433-6917-402c-a13f-d7e2f09a3b6c"],
Cell[CellGroupData[{
Cell[21703, 617, 445, 11, 70, "Input",ExpressionUUID->"be367953-078a-4217-83e9-a3fade0cc556"],
Cell[22151, 630, 107, 1, 70, "Output",ExpressionUUID->"17583fad-522b-4592-9ee6-ff84aaa1ab35"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[22319, 638, 1244, 31, 70, "ExampleSection",ExpressionUUID->"ae5a5709-ed91-4ca0-a916-333ab8d08d04",
 CellID->2123667759],
Cell[23566, 671, 534, 13, 70, "ExampleText",ExpressionUUID->"fcfc006e-31ad-49b3-b2e2-6d4f5bc8f285"],
Cell[CellGroupData[{
Cell[24125, 688, 343, 8, 70, "Input",ExpressionUUID->"f8e0a134-4758-4fa1-8a6d-884c2680f32b"],
Cell[24471, 698, 222, 6, 70, "Output",ExpressionUUID->"f0fcd013-cbf5-4c18-b6ff-24f0bc89e623"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24730, 709, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"645823cb-1908-4570-92f3-450d67efe361"],
Cell[24957, 716, 160, 2, 70, "ExampleText",ExpressionUUID->"3e923015-187b-4b09-8d14-3026932561f7"],
Cell[CellGroupData[{
Cell[25142, 722, 497, 13, 70, "Input",ExpressionUUID->"c2282aa5-7168-42d2-9162-82ee59058ce4"],
Cell[25642, 737, 124, 2, 70, "Output",ExpressionUUID->"719ef961-b400-4658-98e9-a00cff7608c6"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25827, 746, 1237, 31, 70, "ExampleSection",ExpressionUUID->"a3f54a41-05a2-42f6-b0eb-367f6ea1441c",
 CellID->1305812373],
Cell[27067, 779, 415, 11, 70, "ExampleText",ExpressionUUID->"55a8ccb8-815c-4544-8b19-beae37001125"],
Cell[CellGroupData[{
Cell[27507, 794, 294, 6, 70, "Input",ExpressionUUID->"bc5f2930-28b7-457e-8713-8e1c5f91c7a9"],
Cell[27804, 802, 110, 1, 70, "Output",ExpressionUUID->"a9afadab-0532-4748-8072-b171be4913ed"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27951, 808, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"31cec2d2-27c4-4e0a-9133-07b3bf136dbe"],
Cell[28178, 815, 157, 2, 70, "ExampleText",ExpressionUUID->"3f0ca44f-2520-43e5-9445-f68b2e477211"],
Cell[CellGroupData[{
Cell[28360, 821, 292, 6, 70, "Input",ExpressionUUID->"2b20c460-cfe8-4937-abfc-f98926bc4d70"],
Cell[28655, 829, 110, 1, 70, "Output",ExpressionUUID->"01c9b832-a01b-4f3e-b9b8-0e1f4b3d9982"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28814, 836, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e7a06016-ba44-43cf-91f7-7c7f76478e4d"],
Cell[29041, 843, 120, 0, 70, "ExampleText",ExpressionUUID->"2edd773e-fe77-42ec-95c3-7baba58638cf"],
Cell[CellGroupData[{
Cell[29186, 847, 250, 5, 70, "Input",ExpressionUUID->"bcd76d18-10d5-420d-9725-73a01f50a259"],
Cell[29439, 854, 110, 1, 70, "Output",ExpressionUUID->"96b470a7-220b-4885-827f-1678a5ddff60"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[29600, 861, 2475, 65, 70, "SeeAlsoSection",ExpressionUUID->"e9aebf5b-1399-4e9c-8768-fa96c954bdec"],
Cell[32078, 928, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"b638c325-3cb7-4bb9-99c8-6e1301c4e7d5"],
Cell[32779, 949, 78, 0, 70, "FooterCell",ExpressionUUID->"9db0a890-a30a-4db7-9022-8e0ed42fbd91"]
}
]
*)

(* End of internal cache information *)

