(* 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[     41257,       1089]
NotebookOptionsPosition[     31886,        915]
NotebookOutlinePosition[     34040,        965]
CellTagsIndexPosition[     33963,        960]
WindowTitle->CompactSizeDecode
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->
           "649f6ebd-eed4-4f9c-9f89-66fe477865ae"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "cc60f0ed-d72f-40f7-9286-e0eaebdfeb6b"],
        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->
           "68e53d45-fe4b-40cc-925d-907a932b9fac"]
         }],ExpressionUUID->"ea8f75ec-f83f-4ab3-bcf1-e9712b610215"],
         StripOnInput->False],{
        StyleBox["\"Failure\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/Failure"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"CompactSizeEncode\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/CompactSizeEncode"], 
         StyleBox[
          StyleBox[
           "\"CompactSizeSplit\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/CompactSizeSplit"], 
         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->
      "5a3cc9f7-d4b5-4952-a0e2-67d513cbde0c"],
     "\[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->
           "905a857a-1242-45c3-b2f5-f0e2806aecac"]
         }],ExpressionUUID->"9a7573e9-ba63-406d-b1c0-9219489c405a"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "43715a52-caf3-41db-803f-c150a142578b"],
     "\[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->
           "466740a0-f137-43b5-8ea1-09a6952aab3f"]
         }],ExpressionUUID->"6594da52-4292-458d-b406-28346101c934"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/CompactSizeDecode\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/CompactSizeDecode"], 
         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/CompactSizeDecode.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/CompactSizeDecode" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "98a510be-4f29-460f-a39b-4a7f9acc05b3"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "021d8255-9919-4bd6-94a7-58c2eb6a2e4a"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"196fd928-df4d-4784-aa5d-c0744b831feb"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"c0f1f593-11db-4597-9553-492887e1d60a"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "CompactSizeDecode", "ObjectName",ExpressionUUID->
      "8ee45367-9a87-4eba-85da-29473faad29d"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"6d538299-c930-409a-9a93-ca722cd657d3"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "9b677ef2-f3d6-4cd4-940d-412d283221e2"]
    }],ExpressionUUID->"37858e5b-1a1a-44b7-922d-b28e9d1ec606"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"9d64c238-bb3c-409c-870a-\
11a536df06bc"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["CompactSizeDecode"]], 
         "paclet:WolframInstitute/Puzzles/ref/CompactSizeDecode", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["bytes", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "c3a390e2-267c-44c7-b6e2-22ba3c6ccc65"],
     "\[LineSeparator]",
     "gives the integer that a byte list holding exactly one canonical \
compact-size integer encodes, and a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Failure"]], "paclet:ref/Failure"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "2221cc31-b219-4071-a4f1-975c8337dd2e"],
     " if it is truncated, non-canonical, or has bytes left over."
    }],ExpressionUUID->"63166bf8-379d-4ef6-8029-6f8df7c9db50"]}
  }]], "Usage",ExpressionUUID->"0d126c19-3180-4f0c-9e32-3f8f3a5f50ff"]
}, 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->"14afe9fc-f00d-4310-a8b2-875be4cded0e"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"e7883447-493d-48d8-a57a-bbbec62711ed"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "0f78b37f-4d96-4c32-9cec-c3b5ffe41aa4"]],ExpressionUUID->"8211f1b2-38de-\
4fc9-ba94-722a4fc5a7f0"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1576149072,ExpressionUUID->"610d892c-6610-41fb-b992-2b54106469b1"],

Cell[TextData[{
 "The byte list must be exactly one compact-size integer with nothing after \
it. Use ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["CompactSizeSplit"]], 
    "paclet:WolframInstitute/Puzzles/ref/CompactSizeSplit", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7809ede4-9504-454b-be26-b91ed6609010"],
 " to read one out of the front of a longer serialization."
}], "Notes",ExpressionUUID->"2bcb53ef-d430-46c1-8c0c-66626eaa5a97"],

Cell[TextData[{
 "The encoding must be canonical: 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->
  "bc270e67-a0b0-4aa8-95de-e7e625e0acde"],
 ", matching what Bitcoin Core's ",
 Cell[BoxData["ReadCompactSize"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e7d8a011-221f-48e0-8db1-871432ab1ba6"],
 " enforces."
}], "Notes",ExpressionUUID->"21188f88-00c2-42fe-ba3d-394d4a67cfbf"],

Cell[TextData[{
 "The empty byte list gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "a957e341-7a65-47bc-9330-52b0777af9bf"],
 "."
}], "Notes",ExpressionUUID->"f047e25d-6174-4f15-bb91-0314c223341c"],

Cell["\<\
A list that is not a byte list matches no definition and the call is returned \
unevaluated.\
\>", "Notes",ExpressionUUID->"07ad0928-cec4-4be6-984f-873da0cf3d8c"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"f72d6c8c-cf24-409e-9302-3dcce669fc2d"],

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->"cb4f2ebc-385a-480d-8758-983eb20dad1a"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"fbbd5927-4fdf-49c3-bac3-54ebff9e25bd"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(12)", "ExampleCount",ExpressionUUID->
  "7b3b887c-6515-4b04-95ce-9dc8aefa2260"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1126667359,ExpressionUUID->"5c031935-f5cb-4bff-ae84-19d1adb98e2b"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"2adda5b8-f4fa-484f-8600-11c293a3b76e"],

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->
  "d8c46ff5-58cc-4e0b-8716-615007f3d736"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"dbaf4076-81cf-42f1-b319-6d17f208a0ac"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "fb0fc6b3-c5ad-4bda-8f58-f7265c9b1b94"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1534987114,ExpressionUUID->"4c4f5120-7128-4c99-bead-32373c03d360"],

Cell["The three-byte encoding of 253:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"4067d1fb-e01b-49f1-992c-a9e5e318161c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeDecode", "[", 
  RowBox[{"HexStringToByteList", "[", "\"\<fdfd00\>\"", "]"}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e061249e-ab2f-4f0c-9525-8a9a9965d41c"],

Cell[BoxData["253"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7ebc2fb9-20d3-470c-a12b-87985335deff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3895580c-39b6-4184-9ae2-7eff2a75c153"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2d62c64d-40a1-4615-\
8583-bd22bf9e89a8"],

Cell["A single byte below 253 decodes to itself:", "ExampleText",ExpressionUUID->"142fb7fd-0dba-49fb-8830-4a349e5d3bcc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeDecode", "[", 
  RowBox[{"{", "252", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"40d2484e-f1e3-4499-838d-fa44bd191635"],

Cell[BoxData["252"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"2a730371-a819-43d3-a0b1-1dd0bcf18efe"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "37c5fff1-63f6-438f-8d88-7ce74744419d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"15750b3f-7b97-4df2-\
b53c-f1d47b6e9082"],

Cell[TextData[{
 "BIP143 names ",
 Cell[BoxData["19"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7f4cec5c-43a3-4a41-9b2b-42d4d87a81f1"],
 " as the length of each scriptPubKey in its example transaction, which is 25 \
bytes:"
}], "ExampleText",ExpressionUUID->"528f6d97-fa63-4ad8-9af5-e6fb3457fd59"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeDecode", "[", 
  RowBox[{"HexStringToByteList", "[", "\"\<19\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3821e26c-5007-4f89-8b1e-ea0e2812e99d"],

Cell[BoxData["25"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"88642d1e-fd74-4a58-9608-d9377f801b5d"]
}, 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->
  "ac2a2a4e-20a9-4f6c-b382-1a42f0564cae"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"6aeae6e0-3be4-402a-9b39-9e405537fd2d"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "2bad6e0a-2fc1-4225-9baa-99c76851ee26"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"2fd21f1f-29ee-4750-b3b4-d106a5caab57"],

Cell[TextData[{
 "The four-byte form under the ",
 Cell[BoxData[
  RowBox[{"0", "xfe"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0af694a5-db17-42b3-9fe5-95fc30f82f87"],
 " tag:"
}], "ExampleText",ExpressionUUID->"c4c91c65-e60b-4673-8205-7d0ab5591ed5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeDecode", "[", 
  RowBox[{"HexStringToByteList", "[", "\"\<fe00000100\>\"", "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"9ecfe968-1ec0-49ed-ad5f-18717a689400"],

Cell[BoxData["65536"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"05727fc0-f504-4ca9-9c33-d09524b10cb1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "b815a26e-678b-419f-ab83-5996adad035a"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"167307bc-4a94-45af-\
a837-42cb074e53e6"],

Cell[TextData[{
 "The eight-byte form under the ",
 Cell[BoxData[
  RowBox[{"0", "xff"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "190d7086-c12e-4406-b351-05c95ac5f388"],
 " tag, at the largest compact size:"
}], "ExampleText",ExpressionUUID->"9330c822-3798-4b25-a15c-ddccdd341593"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeDecode", "[", 
  RowBox[{"HexStringToByteList", "[", "\"\<ffffffffffffffffff\>\"", "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5f74dd6c-ddec-4331-aac1-387a2d5e18cf"],

Cell[BoxData["18446744073709551615"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b7ee7e06-73c5-4bea-9d20-8fee01b9e6b4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ee61edcd-93c1-41a7-a678-fe3dc1df843a"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"545151f2-4575-4f57-\
8562-9af98387545f"],

Cell["Zero decodes from a single zero byte:", "ExampleText",ExpressionUUID->"b56b8402-bbcc-496e-8d39-e1bff42a267a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeDecode", "[", 
  RowBox[{"{", "0", "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4c974580-22d0-4d82-888d-79e210770df5"],

Cell[BoxData["0"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0bf7640e-310e-4c51-af64-8c210fb25cda"]
}, 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->
  "ed22155d-1ab2-4cfe-a248-e2ce5f9294fa"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e4a393ec-a5de-46de-8ade-01ceb11d801c"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "e3a8de2d-241c-4056-a145-e647ef2a5d36"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"ddfdf613-76c5-4437-b3ea-32e3ee4afdff"],

Cell["Decoding inverts encoding across the one-byte boundary:", "ExampleText",ExpressionUUID->"2b6ff2de-aa05-4eca-a57b-9130e136d89f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Select", "[", 
  RowBox[{
   RowBox[{"Range", "[", 
    RowBox[{"250", ",", " ", "260"}], "]"}], ",", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"CompactSizeDecode", "[", 
      RowBox[{"CompactSizeEncode", "[", "#", "]"}], "]"}], " ", "=!=", " ", 
     "#"}], " ", "&"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e26491dc-8677-4ff2-b29c-17e6fa81c655"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d2dd3386-d540-4839-92d1-b3299399af5b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "61f0b411-92a6-4793-8a39-3d7e7288c6fe"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"60032a9b-6c84-4cc7-\
9cbd-6574c15f3dae"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["CompactSizeSplit"]], 
    "paclet:WolframInstitute/Puzzles/ref/CompactSizeSplit", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "1402f989-7ee6-436f-b748-0b802ee59483"],
 " answers the same question but keeps what follows, which is what walking a \
transaction needs:"
}], "ExampleText",ExpressionUUID->"88683253-ca39-4ed4-89d6-fbad8194304f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeSplit", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5ab30d08-133a-4f3f-9b91-7b732e3b83b7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ee65a25e-ca9d-4f35-8d9b-fc3627070e4f"]
}, 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->
  "5c5cdf6c-99d0-4a2d-abc1-7c0e18bcfbe0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"3cfb0ab6-b56e-40a0-9d2c-9d8add92e0fa"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "4fbd7da1-1158-4929-9752-a17502cc8e12"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"ae2afd36-efd9-4df9-af5c-20171187bde2"],

Cell["\<\
Writing 10 in the three-byte form is non-canonical, and Bitcoin Core rejects \
it:\
\>", "ExampleText",ExpressionUUID->"79b94c69-d44b-4d68-886b-d25d2847e2e6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"CompactSizeDecode", "[", 
   RowBox[{"HexStringToByteList", "[", "\"\<fd0a00\>\"", "]"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"3fafd4f8-29dd-4d14-8c35-bbc02aaae0b2"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3adfd1f7-8739-47e2-9b31-d604528038f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "0e8ee46a-378b-4a18-8496-ea97ab914d70"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"15737c94-8d72-4d84-\
9d6b-7e83bf0b4dfc"],

Cell["A tag byte with too few value bytes after it is truncated:", \
"ExampleText",ExpressionUUID->"9a55d2ab-f9a2-4461-b18c-0d693d7be46d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"CompactSizeDecode", "[", 
   RowBox[{"HexStringToByteList", "[", "\"\<fdff\>\"", "]"}], "]"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e4677efa-6559-4207-ab2c-1044fff71d76"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"41afdfaa-ed3e-4335-8087-f5f73d651071"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a0deeac4-b63d-4fbc-aafe-32f0e2a4dc2c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"6a226e5a-a8b5-4bff-\
b01b-d84e6b13bc47"],

Cell["\<\
Trailing bytes mean the argument was not exactly one compact-size integer:\
\>", "ExampleText",ExpressionUUID->"da5d386c-9f42-437c-8799-5d9e40c69aa7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"CompactSizeDecode", "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "2"}], "}"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8e1b135a-881a-4e38-977b-29189f5dc9d6"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fb7d9b69-bdff-49a9-a593-b54a8197d988"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8ab68ccf-5a9c-45bc-975e-dd104b7e0ff8"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"26c226fa-0d2f-4193-\
b3c6-0c1b63444fdc"],

Cell["The empty byte list holds no integer at all:", "ExampleText",ExpressionUUID->"f4927f21-e5d2-428d-b704-6138cd0da7dd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"CompactSizeDecode", "[", 
   RowBox[{"{", "}"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a6e25a5c-f9f2-4759-a1e4-3ec78d1919d9"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9e0e3bb2-083b-43bd-9ff8-c9bbbd632c22"]
}, 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["CompactSizeEncode"]], 
           "paclet:WolframInstitute/Puzzles/ref/CompactSizeEncode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "50dc1882-42e3-407a-8b79-251ffca90f69"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["CompactSizeSplit"]], 
           "paclet:WolframInstitute/Puzzles/ref/CompactSizeSplit", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "b135d110-7911-48c3-bf88-c28af2f3978a"],
        "\[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->
         "5323ead0-acb4-477d-b417-3ea5981e19d9"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Failure"]], "paclet:ref/Failure"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "eb2e65dd-6b05-4695-afc6-27b48af04e2b"]
       }], "SeeAlso",ExpressionUUID->"f3f927f1-e42f-403b-a629-dba67d89e572"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"025969da-1ece-448c-8387-\
0ea6bb4a9a39"],

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->
         "aedfd80a-201e-44d4-9210-da3e00efe578"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"bd0a2fd6-d717-4b3a-90f7-\
0dd8a281f29d"],

Cell[" ", "FooterCell",ExpressionUUID->"95474a60-3d4a-431d-a235-9c60d604e7d9"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"CompactSizeDecode",
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, 41.162361}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[CompactSizeDecode, paclet : \
WolframInstitute/Puzzles/ref/CompactSizeDecode, WolframInstitute/Puzzles \
Package Symbol][bytes] gives the integer that a byte list holding exactly one \
canonical compact-size integer encodes, and a Failure if it is truncated, \
non-canonical, or has bytes left over.", "synonyms" -> {}, "tabletags" -> {}, 
    "title" -> "CompactSizeDecode", "titlemodifier" -> "", "metadescription" -> 
    "", "windowtitle" -> "CompactSizeDecode", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/CompactSizeDecode", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"59f129a0-e000-4a04-866b-74459b00ae9a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[14773, 398, 141, 2, 70, "ExampleText",ExpressionUUID->"4067d1fb-e01b-49f1-992c-a9e5e318161c",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 33806, 954}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[585, 21, 6051, 147, 70, "AnchorBarGrid",ExpressionUUID->"196fd928-df4d-4784-aa5d-c0744b831feb",
 CellID->1],
Cell[6639, 170, 107, 0, 70, "ContextNameCell",ExpressionUUID->"c0f1f593-11db-4597-9553-492887e1d60a"],
Cell[CellGroupData[{
Cell[6771, 174, 560, 14, 70, "ObjectNameGrid",ExpressionUUID->"9d64c238-bb3c-409c-870a-11a536df06bc"],
Cell[7334, 190, 1151, 28, 70, "Usage",ExpressionUUID->"0d126c19-3180-4f0c-9e32-3f8f3a5f50ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8522, 223, 1444, 34, 70, "NotesSection",ExpressionUUID->"610d892c-6610-41fb-b992-2b54106469b1",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1576149072],
Cell[9969, 259, 606, 15, 70, "Notes",ExpressionUUID->"2bcb53ef-d430-46c1-8c0c-66626eaa5a97"],
Cell[10578, 276, 644, 17, 70, "Notes",ExpressionUUID->"21188f88-00c2-42fe-ba3d-394d4a67cfbf"],
Cell[11225, 295, 368, 11, 70, "Notes",ExpressionUUID->"f047e25d-6174-4f15-bb91-0314c223341c"],
Cell[11596, 308, 172, 3, 70, "Notes",ExpressionUUID->"07ad0928-cec4-4be6-984f-873da0cf3d8c"]
}, Closed]],
Cell[11783, 314, 80, 0, 70, "PageDelimiter",ExpressionUUID->"f72d6c8c-cf24-409e-9302-3dcce669fc2d"],
Cell[CellGroupData[{
Cell[11888, 318, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"5c031935-f5cb-4bff-ae84-19d1adb98e2b",
 CellID->1126667359],
Cell[13293, 357, 216, 4, 70, "Input",ExpressionUUID->"2adda5b8-f4fa-484f-8600-11c293a3b76e",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13534, 365, 1236, 31, 70, "ExampleSection",ExpressionUUID->"4c4f5120-7128-4c99-bead-32373c03d360",
 CellID->1534987114],
Cell[14773, 398, 141, 2, 70, "ExampleText",ExpressionUUID->"4067d1fb-e01b-49f1-992c-a9e5e318161c",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[14939, 404, 258, 5, 70, "Input",ExpressionUUID->"e061249e-ab2f-4f0c-9525-8a9a9965d41c"],
Cell[15200, 411, 109, 1, 70, "Output",ExpressionUUID->"7ebc2fb9-20d3-470c-a12b-87985335deff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15346, 417, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2d62c64d-40a1-4615-8583-bd22bf9e89a8"],
Cell[15573, 424, 120, 0, 70, "ExampleText",ExpressionUUID->"142fb7fd-0dba-49fb-8830-4a349e5d3bcc"],
Cell[CellGroupData[{
Cell[15718, 428, 222, 4, 70, "Input",ExpressionUUID->"40d2484e-f1e3-4499-838d-fa44bd191635"],
Cell[15943, 434, 109, 1, 70, "Output",ExpressionUUID->"2a730371-a819-43d3-a0b1-1dd0bcf18efe"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16101, 441, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"15750b3f-7b97-4df2-b53c-f1d47b6e9082"],
Cell[16328, 448, 352, 8, 70, "ExampleText",ExpressionUUID->"528f6d97-fa63-4ad8-9af5-e6fb3457fd59"],
Cell[CellGroupData[{
Cell[16705, 460, 252, 4, 70, "Input",ExpressionUUID->"3821e26c-5007-4f89-8b1e-ea0e2812e99d"],
Cell[16960, 466, 108, 1, 70, "Output",ExpressionUUID->"88642d1e-fd74-4a58-9608-d9377f801b5d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17129, 474, 1227, 31, 70, "ExampleSection",ExpressionUUID->"2fd21f1f-29ee-4750-b3b4-d106a5caab57",
 CellID->1293636265],
Cell[18359, 507, 308, 8, 70, "ExampleText",ExpressionUUID->"c4c91c65-e60b-4673-8205-7d0ab5591ed5"],
Cell[CellGroupData[{
Cell[18692, 519, 263, 5, 70, "Input",ExpressionUUID->"9ecfe968-1ec0-49ed-ad5f-18717a689400"],
Cell[18958, 526, 111, 1, 70, "Output",ExpressionUUID->"05727fc0-f504-4ca9-9c33-d09524b10cb1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19106, 532, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"167307bc-4a94-45af-a837-42cb074e53e6"],
Cell[19333, 539, 338, 8, 70, "ExampleText",ExpressionUUID->"9330c822-3798-4b25-a15c-ddccdd341593"],
Cell[CellGroupData[{
Cell[19696, 551, 271, 5, 70, "Input",ExpressionUUID->"5f74dd6c-ddec-4331-aac1-387a2d5e18cf"],
Cell[19970, 558, 126, 1, 70, "Output",ExpressionUUID->"b7ee7e06-73c5-4bea-9d20-8fee01b9e6b4"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20145, 565, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"545151f2-4575-4f57-8562-9af98387545f"],
Cell[20372, 572, 115, 0, 70, "ExampleText",ExpressionUUID->"b56b8402-bbcc-496e-8d39-e1bff42a267a"],
Cell[CellGroupData[{
Cell[20512, 576, 220, 4, 70, "Input",ExpressionUUID->"4c974580-22d0-4d82-888d-79e210770df5"],
Cell[20735, 582, 107, 1, 70, "Output",ExpressionUUID->"0bf7640e-310e-4c51-af64-8c210fb25cda"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[20903, 590, 1244, 31, 70, "ExampleSection",ExpressionUUID->"ddfdf613-76c5-4437-b3ea-32e3ee4afdff",
 CellID->2123667759],
Cell[22150, 623, 133, 0, 70, "ExampleText",ExpressionUUID->"2b6ff2de-aa05-4eca-a57b-9130e136d89f"],
Cell[CellGroupData[{
Cell[22308, 627, 443, 11, 70, "Input",ExpressionUUID->"e26491dc-8677-4ff2-b29c-17e6fa81c655"],
Cell[22754, 640, 124, 2, 70, "Output",ExpressionUUID->"d2dd3386-d540-4839-92d1-b3299399af5b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22915, 647, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"60032a9b-6c84-4cc7-9cbd-6574c15f3dae"],
Cell[23142, 654, 562, 14, 70, "ExampleText",ExpressionUUID->"88683253-ca39-4ed4-89d6-fbad8194304f"],
Cell[CellGroupData[{
Cell[23729, 672, 263, 5, 70, "Input",ExpressionUUID->"5ab30d08-133a-4f3f-9b91-7b732e3b83b7"],
Cell[23995, 679, 201, 5, 70, "Output",ExpressionUUID->"ee65a25e-ca9d-4f35-8d9b-fc3627070e4f"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24257, 691, 1237, 31, 70, "ExampleSection",ExpressionUUID->"ae2afd36-efd9-4df9-af5c-20171187bde2",
 CellID->1305812373],
Cell[25497, 724, 168, 3, 70, "ExampleText",ExpressionUUID->"79b94c69-d44b-4d68-886b-d25d2847e2e6"],
Cell[CellGroupData[{
Cell[25690, 731, 295, 6, 70, "Input",ExpressionUUID->"3fafd4f8-29dd-4d14-8c35-bbc02aaae0b2"],
Cell[25988, 739, 110, 1, 70, "Output",ExpressionUUID->"3adfd1f7-8739-47e2-9b31-d604528038f7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26135, 745, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"15737c94-8d72-4d84-9d6b-7e83bf0b4dfc"],
Cell[26362, 752, 138, 1, 70, "ExampleText",ExpressionUUID->"9a55d2ab-f9a2-4461-b18c-0d693d7be46d"],
Cell[CellGroupData[{
Cell[26525, 757, 293, 6, 70, "Input",ExpressionUUID->"e4677efa-6559-4207-ab2c-1044fff71d76"],
Cell[26821, 765, 110, 1, 70, "Output",ExpressionUUID->"41afdfaa-ed3e-4335-8087-f5f73d651071"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[26980, 772, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"6a226e5a-a8b5-4bff-b01b-d84e6b13bc47"],
Cell[27207, 779, 160, 2, 70, "ExampleText",ExpressionUUID->"da5d386c-9f42-437c-8799-5d9e40c69aa7"],
Cell[CellGroupData[{
Cell[27392, 785, 286, 6, 70, "Input",ExpressionUUID->"8e1b135a-881a-4e38-977b-29189f5dc9d6"],
Cell[27681, 793, 110, 1, 70, "Output",ExpressionUUID->"fb7d9b69-bdff-49a9-a593-b54a8197d988"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27840, 800, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"26c226fa-0d2f-4193-b3c6-0c1b63444fdc"],
Cell[28067, 807, 122, 0, 70, "ExampleText",ExpressionUUID->"f4927f21-e5d2-428d-b704-6138cd0da7dd"],
Cell[CellGroupData[{
Cell[28214, 811, 251, 5, 70, "Input",ExpressionUUID->"a6e25a5c-f9f2-4759-a1e4-3ec78d1919d9"],
Cell[28468, 818, 110, 1, 70, "Output",ExpressionUUID->"9e0e3bb2-083b-43bd-9ff8-c9bbbd632c22"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[28629, 825, 2471, 65, 70, "SeeAlsoSection",ExpressionUUID->"025969da-1ece-448c-8387-0ea6bb4a9a39"],
Cell[31103, 892, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"bd0a2fd6-d717-4b3a-90f7-0dd8a281f29d"],
Cell[31804, 913, 78, 0, 70, "FooterCell",ExpressionUUID->"95474a60-3d4a-431d-a235-9c60d604e7d9"]
}
]
*)

(* End of internal cache information *)

