(* 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[     42312,       1112]
NotebookOptionsPosition[     32945,        938]
NotebookOutlinePosition[     35003,        987]
CellTagsIndexPosition[     34926,        982]
WindowTitle->CompactSizeEncode
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->
           "441c6d51-a81f-4627-8314-16e718d3b793"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "80f5fe84-12db-4b89-a2c8-bcd3943a1373"],
        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->
           "214daed3-7d30-410e-807d-2d22d258eb94"]
         }],ExpressionUUID->"630dc40b-78f2-4831-ad67-c41f9565ebe2"],
         StripOnInput->False],{
        StyleBox[
          "\"IntegerDigits\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/IntegerDigits"], 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[
           "\"CompactSizeSplit\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/CompactSizeSplit"], 
         StyleBox[
          StyleBox[
           "\"ByteListToHexString\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "97a3d221-cc47-4b30-b73c-623c10bbe3d5"],
     "\[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->
           "697d69ae-9fb6-4c8b-92c6-0a0814082250"]
         }],ExpressionUUID->"a0f018a4-3204-48ad-be55-135183aa2532"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "2cbe6e81-9f5c-43ae-bf35-d2d2b6d989c0"],
     "\[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->
           "d0d02aaa-f61d-4559-9560-14327cd78f0e"]
         }],ExpressionUUID->"53f3e1f0-43a8-4775-81e1-67e771f6d01b"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/CompactSizeEncode\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/CompactSizeEncode"], 
         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/CompactSizeEncode.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/CompactSizeEncode" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "45210c83-e4b8-4273-8195-7482098050a4"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "32c870ce-42a1-40a0-9db3-4a60ddcda309"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"30017edc-51e6-4855-a27f-3f39d00c97cf"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"fe1fd66e-06ee-445b-867d-33986f882388"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "CompactSizeEncode", "ObjectName",ExpressionUUID->
      "c645b783-4a71-4413-ad3e-8b31dbea64f1"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"df94c9e4-cb33-4ee3-acf4-2db67853ed6a"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "2bd0d871-1846-4704-96f1-59b1bb4d8af7"]
    }],ExpressionUUID->"d35361af-ec5d-4004-8ab4-f59f5ea9b2d3"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"ca6573ca-9c9b-44a7-8048-\
6dfcc3e173b6"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["CompactSizeEncode"]], 
         "paclet:WolframInstitute/Puzzles/ref/CompactSizeEncode", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["n", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "d4dd35a1-9cea-4f83-858b-3734f3c4542e"],
     "\[LineSeparator]",
     "gives the Bitcoin compact-size byte list for an integer ",
     StyleBox["n", "TI"],
     " with ",
     Cell[BoxData[
      RowBox[{"0", "\[LessEqual]", 
       StyleBox["n", "TI"], "<", 
       SuperscriptBox["2", "64"]}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "ad78b676-93a2-4b6e-bd9a-0fc52275d4ed"],
     "."
    }],ExpressionUUID->"b72203ba-52dc-422e-977a-2e32bca8f011"]}
  }]], "Usage",ExpressionUUID->"152ab02e-8e03-4598-b624-5f36c268ba45"]
}, 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->"decb8c54-424a-4af1-9c33-1ef6e2e69c34"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"3e8256c5-206c-4dad-b926-2cb0b7883d2b"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "3375ac5b-f2d3-4ecb-af0b-a96fbf783dc4"]],ExpressionUUID->"04f7efe0-e78b-\
4189-aa3a-be29fc87cc3f"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->405999952,ExpressionUUID->"7e4d5565-b23b-4596-a9a4-cd489d8d6903"],

Cell[TextData[{
 "Below 253 the value is one byte. Otherwise a tag byte says how many \
little-endian value bytes follow: ",
 Cell[BoxData[
  RowBox[{"0", "xfd"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ac498492-7d3c-40dc-b5b5-9fe3230e0de5"],
 " for two, ",
 Cell[BoxData[
  RowBox[{"0", "xfe"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cefd93de-bcf4-42f4-9520-e408b8d00a2a"],
 " for four, ",
 Cell[BoxData[
  RowBox[{"0", "xff"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "acdc465b-4c1e-433f-9997-d7c7a05e7210"],
 " for eight."
}], "Notes",ExpressionUUID->"6ea0a9f0-f83c-4e99-93a9-53be63775cd6"],

Cell[TextData[{
 "The encoding is canonical: a value that fits in a shorter form always uses \
it, so 10 encodes as ",
 Cell[BoxData[
  RowBox[{"0", "a"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "72070ba5-3470-4fbb-8faa-030edc91ab5e"],
 " and never as ",
 Cell[BoxData["fd0a00"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cc25a97d-152e-4a9d-811f-ca6a4853e53a"],
 "."
}], "Notes",ExpressionUUID->"75960624-0491-4d14-a3a2-5157db175651"],

Cell["\<\
This is the length prefix in front of every vector in the Bitcoin transaction \
and p2p serializations, and the reason a transaction's input count occupies \
one byte in almost every real transaction.\
\>", "Notes",ExpressionUUID->"df20dd65-db33-4c25-a71d-5b1671e881d0"],

Cell["\<\
Bitcoin Core calls this CompactSize. Its other type named VarInt, the \
base-128 encoding used inside the coin database, is a different format and is \
not covered here.\
\>", "Notes",ExpressionUUID->"c983fd9b-fb6b-47e4-9e08-2ece9d123452"],

Cell[TextData[{
 "An integer outside ",
 Cell[BoxData[
  RowBox[{"[", "0", ",", 
   SuperscriptBox["2", "64"], ")"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8c37b1d4-76fb-40f6-83bf-ed7f8bc4050b"],
 " matches no definition and the call is returned unevaluated."
}], "Notes",ExpressionUUID->"a2b7c43a-9f9a-4b7a-af0b-620c36cb01c5"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"53c40e54-9f44-4e96-9c81-1018adb2ccee"],

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->"fa145304-f4c3-4962-9a3a-c8b9ebbc9870"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"285b5cd9-e360-4abc-8b2c-b9c49d2766d0"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(12)", "ExampleCount",ExpressionUUID->
  "e124d368-6b29-42e6-9f3e-319b142ff256"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1085646745,ExpressionUUID->"50fef942-6201-4868-9b38-3b23328c1006"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"eaf80c3a-aac2-4399-9951-0c13e053f4c7"],

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->
  "a5078ada-c983-4c22-888c-c7718fc51a3f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d8603301-54e8-4e56-a635-77754240ad1d"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "2d3b98d6-743c-48ab-ae23-8b2b3279b94a"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1443778303,ExpressionUUID->"08425b0c-f278-4c6f-b2c2-95b77981e5e2"],

Cell["A value below 253 is a single byte:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"cfa0e945-8c0e-409a-b744-db03e2c00487"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeEncode", "[", "252", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"24d5c25d-defa-4ceb-a812-3131979248aa"],

Cell[BoxData[
 RowBox[{"{", "252", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e60c159a-f654-40a8-a65b-cc210b1c8ec7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7ad2bbeb-6e61-49c8-9e7e-991ff6b23dbe"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"050890da-1e29-4865-\
b5e2-2c9c33939904"],

Cell[TextData[{
 "253 needs the two-byte form, so it takes the ",
 Cell[BoxData[
  RowBox[{"0", "xfd"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4c21c9d2-bf5e-4990-b6d6-b07f44de19c5"],
 " tag:"
}], "ExampleText",ExpressionUUID->"7a1cda87-8b49-48b3-9213-8aeaa1d11fe5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"CompactSizeEncode", "[", "253", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4318bce8-04f2-4162-931c-58592276f5b4"],

Cell[BoxData["\<\"fdfd00\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"736af9f9-10b7-4de3-8527-088903770b65"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "664aabd9-fe9f-4606-89ac-21a810409db9"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"6e5bb589-9dca-4d21-\
9152-adb71053b494"],

Cell[TextData[{
 "A value above 65535 takes the four-byte form under the ",
 Cell[BoxData[
  RowBox[{"0", "xfe"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "cdb4b206-e767-434d-b17f-e61810a3eea5"],
 " tag:"
}], "ExampleText",ExpressionUUID->"61613fee-2e56-4330-bf5a-cbb9f1f45614"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"CompactSizeEncode", "[", "16^^10000", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c251a1f3-4252-444a-a513-817ac795dcc7"],

Cell[BoxData["\<\"fe00000100\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5f051188-6829-4e79-894a-5b8f393a1cb5"]
}, 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->
  "3a490d06-eae0-471b-8ce3-0ed057cf15e3"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"ed674314-10bd-44a4-986b-b32e6adfb101"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "7e95c51c-bbe0-468f-a371-f67efab993ae"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"2c07ea16-b34f-4615-8759-0b8276b33200"],

Cell["Zero is one byte:", "ExampleText",ExpressionUUID->"dd43296b-82dc-422b-9f1a-08fc0af5af5c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeEncode", "[", "0", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"50bf5657-7ea4-467a-a643-fb936ceabcdb"],

Cell[BoxData[
 RowBox[{"{", "0", "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"421f9cfc-b0ec-43d0-b48e-1c03cdd2aad9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "111929d6-bb2d-4bf5-b1e0-a6b31bc3f744"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d3a36215-3521-45d7-\
9350-846b11a38fd4"],

Cell["The largest two-byte value:", "ExampleText",ExpressionUUID->"b0ea81dc-5986-405e-9e74-2a8f90b7bd8b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"CompactSizeEncode", "[", "16^^ffff", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f80bbb0f-74cd-4e72-aad2-627333b2d6d0"],

Cell[BoxData["\<\"fdffff\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e4eede89-2176-4296-9444-7a42b2cfef75"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c321d529-f1bf-4b05-ba28-0a216b77b674"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ba60347c-f8a4-49ee-\
805f-7aa6f90fe293"],

Cell["The largest four-byte value:", "ExampleText",ExpressionUUID->"26aa3be3-3b9f-45e2-b90c-42e1b86beb82"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"CompactSizeEncode", "[", "16^^ffffffff", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"345c7c39-a8f0-4fac-854d-4cc19ab45ec8"],

Cell[BoxData["\<\"feffffffff\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"083fc1e0-7b3c-4af9-8d7a-be0ad4971545"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d1e23a44-0688-453f-b558-0826572ddb57"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"32b95027-309f-4826-\
a63a-eb85b6beb68d"],

Cell[TextData[{
 "The largest compact size at all, ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["2", "64"], "-", "1"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6a7d3fdd-c86c-4051-89af-c6163e43be5d"],
 ", under the ",
 Cell[BoxData[
  RowBox[{"0", "xff"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2e226695-aa25-49ef-a276-5a692b025ca1"],
 " tag:"
}], "ExampleText",ExpressionUUID->"1b3fb48d-c1d3-48f7-b213-24f4a936cacb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"CompactSizeEncode", "[", 
   RowBox[{
    RowBox[{"2", "^", "64"}], " ", "-", " ", "1"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a7bb13b5-1734-4ca3-8289-bde6e3b7441c"],

Cell[BoxData["\<\"ffffffffffffffffff\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"526ac187-9b1b-4521-b2e8-39652fc94b9f"]
}, 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->
  "cc3501a2-66a3-4f14-bfae-ff79d0d2c6f8"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d3513116-97e9-4117-89c7-ec3ba4075eec"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "549cc57f-ea1d-418f-91de-0ff7d0b9b8d6"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"5e6e99a0-c1b3-425d-8b91-c142b207da13"],

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->
  "50b2ea58-cfcf-4375-863f-acb1538e3766"],
 " is the inverse:"
}], "ExampleText",ExpressionUUID->"230c7552-df8b-40c7-8ab6-2a1d6b588aea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeDecode", "[", 
  RowBox[{"CompactSizeEncode", "[", "515", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"64111178-8ef6-48e7-b38f-be5f224abcd6"],

Cell[BoxData["515"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a1b65d88-f7f4-4fb7-87da-b44b973c3c2c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "da9c9965-dde0-4552-bb08-44cba5aeee61"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d44cb703-3d39-413a-\
9588-e7b437c2ab29"],

Cell[TextData[{
 "The encoding is monotone in length, so the byte count steps at 253, 65536 \
and ",
 Cell[BoxData[
  SuperscriptBox["2", "32"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "3b2c1a4a-d8bc-44c7-980b-802ecd3146a2"],
 ":"
}], "ExampleText",ExpressionUUID->"2d3c17eb-a275-4ff7-b7ca-2e1b2b014fb8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", " ", "/@", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"CompactSizeEncode", "[", "252", "]"}], ",", " ", 
    RowBox[{"CompactSizeEncode", "[", "253", "]"}], ",", " ", 
    RowBox[{"CompactSizeEncode", "[", "16^^10000", "]"}], ",", " ", 
    RowBox[{"CompactSizeEncode", "[", 
     RowBox[{"2", "^", "32"}], "]"}]}], "}"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"454d2a39-076e-4b80-912e-6898360bf82a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "3", ",", "5", ",", "9"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f458c379-c644-412a-8c85-6a7020d6bdfb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "e8492527-eba5-46a5-ae25-32a8e669ed5e"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"2a0464ba-99ce-47e9-\
9e95-2a21ddae8235"],

Cell[TextData[{
 "BIP143 breaks its example transaction into fields and names ",
 Cell[BoxData["02"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "8e128000-7932-49d8-bde0-25b35b36fe9e"],
 " as the input count, which is what the encoder produces:"
}], "ExampleText",ExpressionUUID->"2d90b03d-56dd-47fa-80a6-000cc2580982"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteListToHexString", "[", 
  RowBox[{"CompactSizeEncode", "[", "2", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a344ff44-aa07-412a-959a-1a6e42f82543"],

Cell[BoxData["\<\"02\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7e0232d2-31cc-4f63-a833-a15bb94713ad"]
}, 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->
  "7946fc6d-8c6a-469e-82cd-1aa3788c40a3"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a58d305f-79a7-496f-b602-b33dd1eabc2e"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "e0896335-06c1-41f0-a95b-860ceacf6e89"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"d3bd75a8-c1f6-4fcd-a2dd-0808dd418d38"],

Cell[TextData[{
 Cell[BoxData[
  SuperscriptBox["2", "64"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0c6b1779-7357-4ec4-bb27-78278dc7a48b"],
 " is one past the largest compact size, so the call is returned \
unevaluated:"
}], "ExampleText",ExpressionUUID->"d4bd91a2-d050-4e03-bd42-1ed25e46a5f8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeEncode", "[", 
  RowBox[{"2", "^", "64"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"93e9aca6-0054-4a3d-a286-f2df756dea01"],

Cell[BoxData[
 RowBox[{"CompactSizeEncode", "[", "18446744073709551616", "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0745063a-626d-4b1e-90e2-5b008f32788a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a9285a02-6dbf-44ca-b63f-15830d06737e"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"adcdeb68-2b0d-40d4-\
afab-a457c1e5f93d"],

Cell["A negative integer has no compact-size encoding:", "ExampleText",ExpressionUUID->"65a005cf-ade5-476c-a9a9-6fd88a537cfa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompactSizeEncode", "[", 
  RowBox[{"-", "1"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"231a3bbf-55e3-4d24-a664-4d6c7743f806"],

Cell[BoxData[
 RowBox[{"CompactSizeEncode", "[", 
  RowBox[{"-", "1"}], "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"a876a3dc-5b00-4fb8-90d2-4baf06678216"]
}, 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->
         "b97b0ac7-8cc9-420e-a3e6-373a4c14023f"],
        "\[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->
         "c88f5661-734e-4c71-91df-207ce6aa5e0b"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ByteListToHexString"]], 
           "paclet:WolframInstitute/Puzzles/ref/ByteListToHexString", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "ba25d85c-5f2c-4df9-9c72-1184db68e613"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["IntegerDigits"]], "paclet:ref/IntegerDigits"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "282f973e-5238-44ec-9723-bc1418a838aa"]
       }], "SeeAlso",ExpressionUUID->"f138cb36-12eb-402e-98c0-9856657b04f7"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"6f2c6e5b-662c-4df9-9750-\
bc56cbe3264c"],

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->
         "86f3152d-fb72-4c84-8141-76125748e113"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"7a2814c6-993d-46c0-bc7c-\
ba5815e49b9f"],

Cell[" ", "FooterCell",ExpressionUUID->"72258875-318d-4b60-b2a8-bd1d7e436c5b"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"CompactSizeEncode",
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, 43.553750}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[CompactSizeEncode, paclet : \
WolframInstitute/Puzzles/ref/CompactSizeEncode, WolframInstitute/Puzzles \
Package Symbol][n] gives the Bitcoin compact-size byte list for an integer n \
with 0 <= n < 2^64.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "CompactSizeEncode", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "CompactSizeEncode", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/CompactSizeEncode", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"f2c1d438-60de-4923-9bc8-87c9a4c54157"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[15161, 407, 145, 2, 70, "ExampleText",ExpressionUUID->"cfa0e945-8c0e-409a-b744-db03e2c00487",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 34769, 976}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[585, 21, 6074, 148, 70, "AnchorBarGrid",ExpressionUUID->"30017edc-51e6-4855-a27f-3f39d00c97cf",
 CellID->1],
Cell[6662, 171, 107, 0, 70, "ContextNameCell",ExpressionUUID->"fe1fd66e-06ee-445b-867d-33986f882388"],
Cell[CellGroupData[{
Cell[6794, 175, 560, 14, 70, "ObjectNameGrid",ExpressionUUID->"ca6573ca-9c9b-44a7-8048-6dfcc3e173b6"],
Cell[7357, 191, 1078, 28, 70, "Usage",ExpressionUUID->"152ab02e-8e03-4598-b624-5f36c268ba45"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8472, 224, 1443, 34, 70, "NotesSection",ExpressionUUID->"7e4d5565-b23b-4596-a9a4-cd489d8d6903",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->405999952],
Cell[9918, 260, 766, 21, 70, "Notes",ExpressionUUID->"6ea0a9f0-f83c-4e99-93a9-53be63775cd6"],
Cell[10687, 283, 545, 14, 70, "Notes",ExpressionUUID->"75960624-0491-4d14-a3a2-5157db175651"],
Cell[11235, 299, 280, 4, 70, "Notes",ExpressionUUID->"df20dd65-db33-4c25-a71d-5b1671e881d0"],
Cell[11518, 305, 249, 4, 70, "Notes",ExpressionUUID->"c983fd9b-fb6b-47e4-9e08-2ece9d123452"],
Cell[11770, 311, 386, 9, 70, "Notes",ExpressionUUID->"a2b7c43a-9f9a-4b7a-af0b-620c36cb01c5"]
}, Closed]],
Cell[12171, 323, 80, 0, 70, "PageDelimiter",ExpressionUUID->"53c40e54-9f44-4e96-9c81-1018adb2ccee"],
Cell[CellGroupData[{
Cell[12276, 327, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"50fef942-6201-4868-9b38-3b23328c1006",
 CellID->1085646745],
Cell[13681, 366, 216, 4, 70, "Input",ExpressionUUID->"eaf80c3a-aac2-4399-9951-0c13e053f4c7",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[13922, 374, 1236, 31, 70, "ExampleSection",ExpressionUUID->"08425b0c-f278-4c6f-b2c2-95b77981e5e2",
 CellID->1443778303],
Cell[15161, 407, 145, 2, 70, "ExampleText",ExpressionUUID->"cfa0e945-8c0e-409a-b744-db03e2c00487",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[15331, 413, 199, 3, 70, "Input",ExpressionUUID->"24d5c25d-defa-4ceb-a812-3131979248aa"],
Cell[15533, 418, 131, 2, 70, "Output",ExpressionUUID->"e60c159a-f654-40a8-a65b-cc210b1c8ec7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15701, 425, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"050890da-1e29-4865-b5e2-2c9c33939904"],
Cell[15928, 432, 324, 8, 70, "ExampleText",ExpressionUUID->"7a1cda87-8b49-48b3-9213-8aeaa1d11fe5"],
Cell[CellGroupData[{
Cell[16277, 444, 245, 4, 70, "Input",ExpressionUUID->"4318bce8-04f2-4162-931c-58592276f5b4"],
Cell[16525, 450, 120, 1, 70, "Output",ExpressionUUID->"736af9f9-10b7-4de3-8527-088903770b65"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16694, 457, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"6e5bb589-9dca-4d21-9152-adb71053b494"],
Cell[16921, 464, 334, 8, 70, "ExampleText",ExpressionUUID->"61613fee-2e56-4330-bf5a-cbb9f1f45614"],
Cell[CellGroupData[{
Cell[17280, 476, 251, 4, 70, "Input",ExpressionUUID->"c251a1f3-4252-444a-a513-817ac795dcc7"],
Cell[17534, 482, 124, 1, 70, "Output",ExpressionUUID->"5f051188-6829-4e79-894a-5b8f393a1cb5"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17719, 490, 1227, 31, 70, "ExampleSection",ExpressionUUID->"2c07ea16-b34f-4615-8759-0b8276b33200",
 CellID->1293636265],
Cell[18949, 523, 95, 0, 70, "ExampleText",ExpressionUUID->"dd43296b-82dc-422b-9f1a-08fc0af5af5c"],
Cell[CellGroupData[{
Cell[19069, 527, 197, 3, 70, "Input",ExpressionUUID->"50bf5657-7ea4-467a-a643-fb936ceabcdb"],
Cell[19269, 532, 129, 2, 70, "Output",ExpressionUUID->"421f9cfc-b0ec-43d0-b48e-1c03cdd2aad9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19435, 539, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d3a36215-3521-45d7-9350-846b11a38fd4"],
Cell[19662, 546, 105, 0, 70, "ExampleText",ExpressionUUID->"b0ea81dc-5986-405e-9e74-2a8f90b7bd8b"],
Cell[CellGroupData[{
Cell[19792, 550, 250, 4, 70, "Input",ExpressionUUID->"f80bbb0f-74cd-4e72-aad2-627333b2d6d0"],
Cell[20045, 556, 120, 1, 70, "Output",ExpressionUUID->"e4eede89-2176-4296-9444-7a42b2cfef75"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20214, 563, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ba60347c-f8a4-49ee-805f-7aa6f90fe293"],
Cell[20441, 570, 106, 0, 70, "ExampleText",ExpressionUUID->"26aa3be3-3b9f-45e2-b90c-42e1b86beb82"],
Cell[CellGroupData[{
Cell[20572, 574, 254, 4, 70, "Input",ExpressionUUID->"345c7c39-a8f0-4fac-854d-4cc19ab45ec8"],
Cell[20829, 580, 124, 1, 70, "Output",ExpressionUUID->"083fc1e0-7b3c-4af9-8d7a-be0ad4971545"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21002, 587, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"32b95027-309f-4826-a63a-eb85b6beb68d"],
Cell[21229, 594, 534, 15, 70, "ExampleText",ExpressionUUID->"1b3fb48d-c1d3-48f7-b213-24f4a936cacb"],
Cell[CellGroupData[{
Cell[21788, 613, 303, 6, 70, "Input",ExpressionUUID->"a7bb13b5-1734-4ca3-8289-bde6e3b7441c"],
Cell[22094, 621, 132, 1, 70, "Output",ExpressionUUID->"526ac187-9b1b-4521-b2e8-39652fc94b9f"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[22287, 629, 1244, 31, 70, "ExampleSection",ExpressionUUID->"5e6e99a0-c1b3-425d-8b91-c142b207da13",
 CellID->2123667759],
Cell[23534, 662, 485, 13, 70, "ExampleText",ExpressionUUID->"230c7552-df8b-40c7-8ab6-2a1d6b588aea"],
Cell[CellGroupData[{
Cell[24044, 679, 243, 4, 70, "Input",ExpressionUUID->"64111178-8ef6-48e7-b38f-be5f224abcd6"],
Cell[24290, 685, 109, 1, 70, "Output",ExpressionUUID->"a1b65d88-f7f4-4fb7-87da-b44b973c3c2c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24436, 691, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d44cb703-3d39-413a-9588-e7b437c2ab29"],
Cell[24663, 698, 360, 9, 70, "ExampleText",ExpressionUUID->"2d3c17eb-a275-4ff7-b7ca-2e1b2b014fb8"],
Cell[CellGroupData[{
Cell[25048, 711, 497, 10, 70, "Input",ExpressionUUID->"454d2a39-076e-4b80-912e-6898360bf82a"],
Cell[25548, 723, 172, 3, 70, "Output",ExpressionUUID->"f458c379-c644-412a-8c85-6a7020d6bdfb"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25769, 732, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"2a0464ba-99ce-47e9-9e95-2a21ddae8235"],
Cell[25996, 739, 371, 7, 70, "ExampleText",ExpressionUUID->"2d90b03d-56dd-47fa-80a6-000cc2580982"],
Cell[CellGroupData[{
Cell[26392, 750, 243, 4, 70, "Input",ExpressionUUID->"a344ff44-aa07-412a-959a-1a6e42f82543"],
Cell[26638, 756, 116, 1, 70, "Output",ExpressionUUID->"7e0232d2-31cc-4f63-a833-a15bb94713ad"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[26815, 764, 1237, 31, 70, "ExampleSection",ExpressionUUID->"d3bd75a8-c1f6-4fcd-a2dd-0808dd418d38",
 CellID->1305812373],
Cell[28055, 797, 351, 8, 70, "ExampleText",ExpressionUUID->"d4bd91a2-d050-4e03-bd42-1ed25e46a5f8"],
Cell[CellGroupData[{
Cell[28431, 809, 221, 4, 70, "Input",ExpressionUUID->"93e9aca6-0054-4a3d-a286-f2df756dea01"],
Cell[28655, 815, 169, 2, 70, "Output",ExpressionUUID->"0745063a-626d-4b1e-90e2-5b008f32788a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28861, 822, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"adcdeb68-2b0d-40d4-afab-a457c1e5f93d"],
Cell[29088, 829, 126, 0, 70, "ExampleText",ExpressionUUID->"65a005cf-ade5-476c-a9a9-6fd88a537cfa"],
Cell[CellGroupData[{
Cell[29239, 833, 215, 4, 70, "Input",ExpressionUUID->"231a3bbf-55e3-4d24-a664-4d6c7743f806"],
Cell[29457, 839, 168, 3, 70, "Output",ExpressionUUID->"a876a3dc-5b00-4fb8-90d2-4baf06678216"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[29676, 848, 2483, 65, 70, "SeeAlsoSection",ExpressionUUID->"6f2c6e5b-662c-4df9-9750-bc56cbe3264c"],
Cell[32162, 915, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"7a2814c6-993d-46c0-bc7c-ba5815e49b9f"],
Cell[32863, 936, 78, 0, 70, "FooterCell",ExpressionUUID->"72258875-318d-4b60-b2a8-bd1d7e436c5b"]
}
]
*)

(* End of internal cache information *)

