(* 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[     52582,       1378]
NotebookOptionsPosition[     42344,       1189]
NotebookOutlinePosition[     44432,       1239]
CellTagsIndexPosition[     44354,       1234]
WindowTitle->Bech32Decode
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->
           "fc61b64d-1842-41f9-acb0-c0dca2bfcc7e"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "6f24e9b6-ba2d-4b2f-b4fc-6a76092c5930"],
        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->
           "15c645f8-b709-4151-a9ca-c6284f787c68"]
         }],ExpressionUUID->"f6aa02f9-a90c-42d0-a854-f19d6057823b"],
         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[
           "\"Bech32Encode\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Bech32Encode"], 
         StyleBox[
          StyleBox["\"Bech32Q\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Bech32Q"], 
         StyleBox[
          StyleBox[
           "\"SegWitAddressDecode\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/SegWitAddressDecode"], 
         StyleBox[
          StyleBox["\"BitRegroup\"", "SeeAlsoRelated", StripOnInput -> False],
            "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BitRegroup"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "1c13c32e-0d9e-4f61-8e5f-fb2e3de45ab1"],
     "\[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->
           "c82800e6-0354-4f15-b3e6-7ad204cc027c"]
         }],ExpressionUUID->"9184b1a6-685b-451c-9ebc-87a152dc5619"],
         StripOnInput->False],{
        "\"Encodings\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Encodings"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "4c124ce6-7769-461f-880c-f43de9e81ca0"],
     "\[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->
           "e4b1d639-9db0-4f4c-8d6b-a79ac56e025c"]
         }],ExpressionUUID->"2d6613ae-1df5-4da0-8765-b46f0dc78a6b"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/Bech32Decode\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/Bech32Decode"], 
         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/Bech32Decode.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/Bech32Decode" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "edd07886-022e-4d96-b248-a0ae5fc1a60c"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "356a25cc-7900-42fc-9370-d7e1cb2b709c"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"297bd8a3-aabf-470f-ae09-954cd5e618a9"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"b8826b74-f02b-4a37-ac53-6ba9c474db8f"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "Bech32Decode", "ObjectName",ExpressionUUID->
      "6804411b-2776-4191-b01f-e832cc0797b0"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"921ef078-5f47-4903-a6fb-7f875e1092aa"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "c7f62393-4ec2-4e14-bf14-db32089cd201"]
    }],ExpressionUUID->"20b64d27-2585-4ccb-bfc0-e7dd97b1a958"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"f1b296cf-6588-43f2-927a-\
245c0d0f3481"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["Bech32Decode"]], 
         "paclet:WolframInstitute/Puzzles/ref/Bech32Decode", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["string", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "9995fa63-d7a5-487f-ba05-d4db5fa7d84b"],
     "\[LineSeparator]",
     "gives an ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Association"]], "paclet:ref/Association"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "17ac010f-d4fa-4771-9126-f24f51bc8e8e"],
     " with keys ",
     Cell[BoxData["\"\<HumanReadablePart\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "0fb80d68-7fbe-4b2f-be60-420378520b99"],
     ", ",
     Cell[BoxData["\"\<Data\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "36a0cc79-8248-400f-8eb0-5248ff412c61"],
     " and ",
     Cell[BoxData["\"\<Variant\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "11b4e8ee-3397-4bbf-b63f-b1119a1cc028"],
     " for a valid Bech32 or Bech32m string, and a ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Failure"]], "paclet:ref/Failure"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "fa5805db-7dab-4901-8dc1-a708f698517c"],
     " otherwise."
    }],ExpressionUUID->"ac910ec3-97b4-488d-bccb-0e7c9376a88a"]}
  }]], "Usage",ExpressionUUID->"bea2c56c-e3cf-4cd9-862b-155cf0fc4433"]
}, 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->"fb00a97c-41b5-4818-be62-620f431c2028"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"7072e35e-bb85-40bd-bac9-56480e97b88f"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "f869312e-5a57-481a-beb1-d570192c34e0"]],ExpressionUUID->"0907e14d-c5d6-\
4862-ada1-da34a2f7297b"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1221017399,ExpressionUUID->"9636c19b-1e67-491f-9aaf-aae676039f78"],

Cell[TextData[{
 Cell[BoxData["\<\"Variant\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c6b445cc-2b64-4478-a6ec-7fb38ff75e5a"],
 " is ",
 Cell[BoxData["\<\"Bech32\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e0c61f8a-fb13-4453-90b7-4b60caef6991"],
 " or ",
 Cell[BoxData["\<\"Bech32m\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a16e2909-36cb-439d-8d47-bae34650148b"],
 ", whichever checksum the string satisfies. BIP350 notes that no string \
satisfies both."
}], "Notes",ExpressionUUID->"00b78054-febe-4b25-97e4-fcfca453829e"],

Cell[TextData[{
 Cell[BoxData["\<\"HumanReadablePart\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6a8a9024-5873-4d54-9590-6baeab4f8e89"],
 " is lower-cased, and ",
 Cell[BoxData["\<\"Data\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "25363eb2-c133-45de-8025-fef092c4a4a7"],
 " is the list of 5-bit values with the six checksum characters removed."
}], "Notes",ExpressionUUID->"dac968df-d48b-40c0-8927-c292556b6616"],

Cell[TextData[{
 "A valid string is all lower case or all upper case; a mixed-case string \
gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "ebf77f54-a85a-491b-b8bf-7b5e67d9ab2c"],
 ". An upper-case string decodes to the same result as its lower-case form."
}], "Notes",ExpressionUUID->"6a11b672-6a59-4d82-9f07-7cbe396c4851"],

Cell[TextData[{
 "Every character must have code between 33 and 126, the separator is the \
last ",
 Cell[BoxData["\<\"1\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a4b9598d-ea95-4bb0-b8c1-38b7b5b9a9e0"],
 ", the human-readable part before it must be non-empty, and at least six \
data characters must follow it."
}], "Notes",ExpressionUUID->"3159ba8e-018b-4727-9b7d-2d020b332c95"],

Cell[TextData[{
 "With the default ",
 Cell[BoxData[
  RowBox[{"\<\"MaximumLength\"\>", " ", "->", " ", "90"}]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0cfb5fdf-b4c9-4624-826e-c3a2820a1f14"],
 ", the BIP173 limit, a longer string gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "c41a386b-abc4-4271-932b-c29cebeb3349"],
 ". Set the option to ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Infinity"]], "paclet:ref/Infinity"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "feccf936-6900-4ccb-8733-81136c8b02c7"],
 " to read a Lightning BOLT11 invoice."
}], "Notes",ExpressionUUID->"de94d5a8-6bbc-40d2-95fd-433b34befbc7"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Bech32Q"]], "paclet:WolframInstitute/Puzzles/ref/Bech32Q", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f071cfc0-421f-4413-b89c-6db53a67dd77"],
 " gives the same verdict as a boolean, optionally for one variant."
}], "Notes",ExpressionUUID->"9b3f866b-9a97-499f-af67-0aceb09dfb46"],

Cell[BoxData[GridBox[{
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "66202bf8-f41b-443d-aefe-c808bcaccdfc"], Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"39939dfe-a244-4fcf-8381-8444a5a5a7d4"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"034518e3-2f82-43b7-a711-db15c08fc344"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"5e9e11f1-f0c3-4fe2-b71e-cb8612d73244"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "2263086f-84a6-4f7e-9392-d1b1753a2881"], Cell[TextData[Cell[
    BoxData["\"\<MaximumLength\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "6c51cf46-e686-401f-9c90-e74f99e733c0"]], "TableText",ExpressionUUID->
     "49b94ca3-6ef0-4383-9900-770e89f7b04d"], Cell[TextData[Cell[BoxData[
    "90"], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "8ae85861-fe2e-445c-b34d-f1d5b6bec03b"]], "TableText",ExpressionUUID->
     "3aead704-ee2c-4da1-9ce0-ea634f7d5839"], Cell[TextData[{
     "longest permitted input; the BIP173 limit, liftable to ",
     Cell[BoxData[
      TemplateBox[{
        Cell[
         TextData["Infinity"]], "paclet:ref/Infinity"},
       "RefLink",
       BaseStyle->"InlineFormula"]], "InlineFormula",
      FontFamily->"Source Sans Pro",ExpressionUUID->
      "41b7275b-ddbe-42d7-a9de-47c91dcb9f03"],
     " for BOLT11"
    }], "TableText",ExpressionUUID->"e78d1ec4-95f1-4ae4-897a-2e427fb5571d"]}
  }]], "3ColumnTableMod",
 GridBoxOptions->{
 GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {None, {None}}},
 GridBoxDividers->{
  "Rows" -> {{
     True, True, 
      True}}}},ExpressionUUID->"83d92bb0-0800-4e73-8a7b-3a7806010582"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"494ce9c5-6ba2-4d55-95d2-471ea10628e7"],

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->"666186b6-7a97-4ae6-bbd5-8f1a74f63394"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"4a591918-73e0-4b33-bb85-d818c7b2557f"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(13)", "ExampleCount",ExpressionUUID->
  "f59950e0-d972-4336-b71b-6f73f6afbffa"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->285694261,ExpressionUUID->"8519af4a-ccf3-4c46-83bd-a913215a739c"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"d6500834-1437-43c5-bed5-273a761253bb"],

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->
  "479c7065-353e-47bc-b563-63b4074dbacb"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"d7b77df9-ccc9-4a49-a9b3-56ad25e6e406"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "78a39f7f-d0b7-4bf1-b218-610e283b3c9f"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2037493582,ExpressionUUID->"65e09e0d-cd11-4cbb-8157-edb17003cd77"],

Cell[TextData[{
 "The BIP173 test vector ",
 Cell[BoxData["\<\"A12UEL5L\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "7d7cb65f-cf73-48c7-9071-ce3c240024f2"],
 ", whose human-readable part lower-cases and whose data part is empty:"
}], "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"04c7f877-1cf5-462c-88e6-77b60c69d0c4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"Bech32Decode", "[", "\"\<A12UEL5L\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ff7ab6d1-4095-4980-9cac-7f5d3ea75af2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"HumanReadablePart\"\>", "\[Rule]", "\<\"a\"\>"}], ",", 
   RowBox[{"\<\"Data\"\>", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"\<\"Variant\"\>", "\[Rule]", "\<\"Bech32\"\>"}]}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"091d6055-b900-4372-b147-caa2205f3c36"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c85f78cc-1f5c-4114-8e7d-e7ba7af5869b"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"df6ea5b3-0fc3-4468-\
8192-2b5253836fc9"],

Cell["\<\
The BIP173 vector whose data part is every 5-bit value in order:\
\>", "ExampleText",ExpressionUUID->"14bdb164-3c5e-426d-bc1d-523cd46173e8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "Bech32Decode", "[", "\"\<abcdef1qpzry9x8gf2tvdw0s3jn54khce6mua7lmqqqxw\>\"",
    "]"}], "[", "\"\<Data\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2aa80311-a7ee-45c8-9c11-c8016a623992"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",",
    "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",",
    "29", ",", "30", ",", "31"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"fd373ec5-c0aa-434e-bca3-5fd07457ee81"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "48eb34dd-2e4d-4740-bb8c-f1875ca8284e"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"96a6e5ae-940d-46e0-\
a547-35fbb1799c26"],

Cell[TextData[{
 "The BIP350 vector ",
 Cell[BoxData["\<\"A1LQFN3A\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "477612f3-9846-4691-9ac4-23de8d46ef5e"],
 " carries the same payload under the other checksum constant, and the \
decoder reports which:"
}], "ExampleText",ExpressionUUID->"2a3b6020-b275-4286-9efc-7ff418ab9eb1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Bech32Decode", "[", "\"\<A1LQFN3A\>\"", "]"}], 
  "[", "\"\<Variant\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"dacf3a2e-e3b4-46e3-9b60-b6912d942660"],

Cell[BoxData["\<\"Bech32m\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"353e6e2c-df0b-4396-a493-7158b0d7e103"]
}, 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->
  "a593e070-bb4f-425c-bcbf-8c914bb8a27c"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"863dc70f-3da9-443c-b3c8-2babcf1055ea"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "acb4f4d8-879a-4e07-b142-463abb51b8b0"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"f0f47070-8f8a-4e20-b3f1-d4d149f714c3"],

Cell["\<\
A segregated witness address decodes to a data part whose first value is the \
witness version:\
\>", "ExampleText",ExpressionUUID->"76f1059e-a187-4636-8de0-78577a618a04"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "[", 
  RowBox[{
   RowBox[{
   "Bech32Decode", "[", "\"\<bc1qw508d6qejxtdg4y5r3zarvary0c5xw7kv8f3t4\>\"", 
    "]"}], "[", "\"\<Data\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c357a2c5-502e-4555-8d35-aa52f8043dc2"],

Cell[BoxData["0"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"49bfc409-1968-4b94-ad4a-67df5005f8c8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "40b775d4-3865-4b7b-9931-23defd633803"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"daa2d2be-88e5-48e8-\
9c08-90d922b3ac59"],

Cell[TextData[{
 "The BIP173 vector with a ",
 Cell[BoxData["\<\"?\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "f88e54f7-33c8-4d83-b971-a3122e11fbee"],
 " human-readable part shows that any printable character in range is allowed:"
}], "ExampleText",ExpressionUUID->"74130e49-96c8-49d2-81e0-03daa4664c93"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Bech32Decode", "[", "\"\<?1ezyfcl\>\"", "]"}], 
  "[", "\"\<HumanReadablePart\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"84422336-4631-4011-90ec-667e62e1fdf5"],

Cell[BoxData["\<\"?\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"3c497420-5d13-49c0-a9e8-6131b16f7160"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "18fa2e65-04af-462c-9b9c-b1eab7ba314c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"e018a39f-b86f-49de-\
8fee-e5583fa240ff"],

Cell["\<\
An upper-case string decodes to the same record as its lower-case form:\
\>", "ExampleText",ExpressionUUID->"fa541677-3ead-4bf0-a5c1-f44b4c65823a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Bech32Decode", "[", "\"\<A12UEL5L\>\"", "]"}], " ", "===", " ", 
  RowBox[{"Bech32Decode", "[", "\"\<a12uel5l\>\"", "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"30b097a0-1039-4f3b-b80c-07ad229319b8"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"bd13976b-e57b-4eb6-9321-936828c8cb9f"]
}, 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->
  "e44c2cdb-4c4e-4f76-8a67-d52352841c1c"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"59b87ce5-1831-448a-ab84-d1cc0cf36964"],
 "Options",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "99ff5acb-53f1-453a-a540-396d788ad897"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2061341341,ExpressionUUID->"3eb2dc49-3c93-4632-9b21-0ae973da5a40"],

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->
  "bdbfb278-43c9-423b-adfd-41fa392fcfc0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"1c2ed00a-bf44-40d2-8778-162a02b54e49"],
 "MaximumLength",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "5bce2464-a206-4292-8ff1-6193c54d6d99"]
}], "ExampleSubsection", "ExampleSubsection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,ExpressionUUID->"5c85ad05-53fa-46e3-b7ef-fe811fcd0b3f"],

Cell[TextData[{
 "A 91-character string exceeds the BIP173 limit and gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "e4ae655d-9a9f-4c85-999d-4c4fe347514f"],
 " under the default:"
}], "ExampleText",ExpressionUUID->"2630adb9-aa8a-4412-8387-ff9147e99c38"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{
  "Bech32Decode", 
   "[", "\"\<\
an84characterslonghumanreadablepartthatcontainsthenumber1andtheexcludedcharact\
ersbio1569pvx\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"e399b75d-488d-4872-96b6-04e3a462068a"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5104c382-c179-46d6-b9e0-9992a730589b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2658bb28-046b-44b4-a79c-ecb01a17dec1"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"08972322-78f8-4987-\
b8e1-a7096ac34e67"],

Cell["\<\
Lifting the limit reads the same string, which is how a Lightning BOLT11 \
invoice is decoded:\
\>", "ExampleText",ExpressionUUID->"558055fe-0f38-4a8c-8d7f-bf27f839c1e4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Bech32Decode", "[", 
   RowBox[{"\"\<\
an84characterslonghumanreadablepartthatcontainsthenumber1andtheexcludedcharact\
ersbio1569pvx\>\"", ",", " ", 
    RowBox[{"\"\<MaximumLength\>\"", " ", "->", " ", "Infinity"}]}], "]"}], 
  "[", "\"\<HumanReadablePart\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"77af61cb-d600-48c8-9d98-ab3156e2a998"],

Cell[BoxData["\<\"\
an84characterslonghumanreadablepartthatcontainsthenumber1andtheexcludedcharact\
ersbio\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8508331d-326b-4712-bb9e-c8f1eac81736"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, 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->
  "6b402167-9417-4668-b769-e6462f0535b9"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"af142fbd-8719-42b8-b008-8d360d638416"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "a5bc306e-192b-4229-8c25-a319d08295bc"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"69a938bb-19c9-4337-bf1c-9227e7aa9ecb"],

Cell["\<\
Re-encoding a decoded record reproduces the string, in lower case:\
\>", "ExampleText",ExpressionUUID->"9e50a5df-e664-498c-8ce5-3d82eff0a108"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"decoded", " ", "=", " ", 
     RowBox[{"Bech32Decode", "[", "\"\<A12UEL5L\>\"", "]"}]}], "}"}], ",", 
   " ", 
   RowBox[{"Bech32Encode", "[", 
    RowBox[{
     RowBox[{"decoded", "[", "\"\<HumanReadablePart\>\"", "]"}], ",", " ", 
     RowBox[{"decoded", "[", "\"\<Data\>\"", "]"}], ",", " ", 
     RowBox[{"decoded", "[", "\"\<Variant\>\"", "]"}]}], "]"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"99d20691-1c73-4962-a327-51f25f4bdb87"],

Cell[BoxData["\<\"a12uel5l\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"dd308fbc-75c4-41c2-85e3-2251bcc1d348"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "f47fd75b-fa69-455d-ab25-6402574affc6"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"82221a28-56ed-4f52-\
9c6e-76a40877978d"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["SegWitAddressDecode"]], 
    "paclet:WolframInstitute/Puzzles/ref/SegWitAddressDecode", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b107696a-c5a9-44cc-94bd-313daa7313ca"],
 " is the layer above, which reads the witness version out of the data part \
and regroups the rest into bytes:"
}], "ExampleText",ExpressionUUID->"755502cb-d23f-4549-9fd3-62dde6b1e771"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "SegWitAddressDecode", 
   "[", "\"\<bc1qw508d6qejxtdg4y5r3zarvary0c5xw7kv8f3t4\>\"", "]"}], 
  "[", "\"\<WitnessVersion\>\"", "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"1dc22c7e-1bc9-4f62-886e-47a9d92e9b39"],

Cell[BoxData["0"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"05c68fa1-9995-4604-a4db-3e5184f0470c"]
}, 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->
  "ac02d9bb-0595-4cef-845a-612a8bccb49f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"224e8ca3-d450-427c-9c2e-e2ef597241ea"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "2a8f888d-e026-4089-b347-5b3dfb4e6b44"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"5b57d2f4-c0a6-473c-87ad-7dd7d9863e94"],

Cell[TextData[{
 "A mixed-case string gives a ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["Failure"]], "paclet:ref/Failure"},
   "RefLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "09f1c442-b530-44e1-b730-772254121de1"],
 ", because the checksum is defined over one case:"
}], "ExampleText",ExpressionUUID->"d919cbdd-8f83-40b5-b2c8-185f98dc8dea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{
  "Bech32Decode", 
   "[", "\"\<tb1qrp33g0q5c5txsp9arysrx4k6zdkfs4nce4xj0gdcccefvpysxf3q0sL5k7\>\
\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4e416554-9854-4340-957a-3309d4cd9f55"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"7e45e043-3c6c-41b3-9176-7a2cc43f1aa3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3eeb3e62-43a8-4006-a4b2-0d77e3ba9250"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"f9aeab78-96f3-4ff6-\
b65c-ef22decbdf16"],

Cell[TextData[{
 "The BIP173 vector ",
 Cell[BoxData["\<\"A1G7SGD8\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "eed05e0e-f6f7-4356-8c3b-c76f01762676"],
 " has its checksum computed over the upper-case human-readable part, which \
is why it fails:"
}], "ExampleText",ExpressionUUID->"cc709a78-895d-4a97-8f82-8e9341bc3b77"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"Bech32Decode", "[", "\"\<A1G7SGD8\>\"", "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"49e0fc04-d7fd-4a82-bf60-9104744fbca8"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"210805d9-8ef0-49ee-b0e0-4e62c24ff4e2"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d9cfca02-8d95-42c9-a56a-bfa4fe6538a1"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"434b0f25-bea8-4591-\
a9e4-556709dcf488"],

Cell["\<\
A string with no separator has no human-readable part to check against:\
\>", "ExampleText",ExpressionUUID->"b0b9558c-f21d-43b5-9a17-effd11b4d99d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FailureQ", "[", 
  RowBox[{"Bech32Decode", "[", "\"\<pzry9x0s0muk\>\"", "]"}], "]"}]], "Input",\

 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"47ec4c7b-1367-4101-b3c1-45c3acf0a26c"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"211b35cf-e013-4cf3-bb37-e711cb3fd302"]
}, 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["Bech32Encode"]], 
           "paclet:WolframInstitute/Puzzles/ref/Bech32Encode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "6066392d-727e-400e-8f0c-43e1895a2b73"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Bech32Q"]], 
           "paclet:WolframInstitute/Puzzles/ref/Bech32Q", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "346af0c6-830f-4b23-95b6-b516d3f702d7"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["SegWitAddressDecode"]], 
           "paclet:WolframInstitute/Puzzles/ref/SegWitAddressDecode", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "f21d2fae-aa45-409d-b449-38fa32505607"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BitRegroup"]], 
           "paclet:WolframInstitute/Puzzles/ref/BitRegroup", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "f7baf7ec-9e85-4bf0-a396-4488056313c5"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Failure"]], "paclet:ref/Failure"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "335a5256-61ed-4102-9ec2-48def951a3fa"]
       }], "SeeAlso",ExpressionUUID->"ce591a08-403a-45a8-a755-ad5a85651d45"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"434f8272-4dd1-4db7-ac50-\
2e35407f500f"],

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->
         "c2763031-30d8-4761-9952-8ee58e9c424b"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"de74433c-93a6-4f2f-a897-\
d38e93dedc84"],

Cell[" ", "FooterCell",ExpressionUUID->"21901a43-75b6-4305-95d4-81f0163d68d7"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"Bech32Decode",
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, 13.469656}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[Bech32Decode,paclet : \
WolframInstitute/Puzzles/ref/Bech32Decode, WolframInstitute/Puzzles Package \
Symbol][string] gives an Association with keys HumanReadablePart, Data and \
Variant for a valid Bech32 or Bech32m string, and a Failure otherwise.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "Bech32Decode", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "Bech32Decode", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/Bech32Decode", "WorkflowDockedCell" -> ""}, 
  "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"6c94c9fa-00ad-46c0-acf4-2803042d6cd6"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[19334, 509, 393, 9, 70, "ExampleText",ExpressionUUID->"04c7f877-1cf5-462c-88e6-77b60c69d0c4",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 44197, 1228}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[580, 21, 6243, 151, 70, "AnchorBarGrid",ExpressionUUID->"297bd8a3-aabf-470f-ae09-954cd5e618a9",
 CellID->1],
Cell[6826, 174, 107, 0, 70, "ContextNameCell",ExpressionUUID->"b8826b74-f02b-4a37-ac53-6ba9c474db8f"],
Cell[CellGroupData[{
Cell[6958, 178, 555, 14, 70, "ObjectNameGrid",ExpressionUUID->"f1b296cf-6588-43f2-927a-245c0d0f3481"],
Cell[7516, 194, 1951, 51, 70, "Usage",ExpressionUUID->"bea2c56c-e3cf-4cd9-862b-155cf0fc4433"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9504, 250, 1444, 34, 70, "NotesSection",ExpressionUUID->"9636c19b-1e67-491f-9aaf-aae676039f78",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1221017399],
Cell[10951, 286, 702, 17, 70, "Notes",ExpressionUUID->"00b78054-febe-4b25-97e4-fcfca453829e"],
Cell[11656, 305, 530, 11, 70, "Notes",ExpressionUUID->"dac968df-d48b-40c0-8927-c292556b6616"],
Cell[12189, 318, 494, 12, 70, "Notes",ExpressionUUID->"6a11b672-6a59-4d82-9f07-7cbe396c4851"],
Cell[12686, 332, 440, 9, 70, "Notes",ExpressionUUID->"3159ba8e-018b-4727-9b7d-2d020b332c95"],
Cell[13129, 343, 926, 26, 70, "Notes",ExpressionUUID->"de94d5a8-6bbc-40d2-95fd-433b34befbc7"],
Cell[14058, 371, 503, 12, 70, "Notes",ExpressionUUID->"9b3f866b-9a97-499f-af67-0aceb09dfb46"],
Cell[14564, 385, 1766, 37, 70, "3ColumnTableMod",ExpressionUUID->"83d92bb0-0800-4e73-8a7b-3a7806010582"]
}, Closed]],
Cell[16345, 425, 80, 0, 70, "PageDelimiter",ExpressionUUID->"494ce9c5-6ba2-4d55-95d2-471ea10628e7"],
Cell[CellGroupData[{
Cell[16450, 429, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"8519af4a-ccf3-4c46-83bd-a913215a739c",
 CellID->285694261],
Cell[17854, 468, 216, 4, 70, "Input",ExpressionUUID->"d6500834-1437-43c5-bed5-273a761253bb",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[18095, 476, 1236, 31, 70, "ExampleSection",ExpressionUUID->"65e09e0d-cd11-4cbb-8157-edb17003cd77",
 CellID->2037493582],
Cell[19334, 509, 393, 9, 70, "ExampleText",ExpressionUUID->"04c7f877-1cf5-462c-88e6-77b60c69d0c4",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[19752, 522, 240, 4, 70, "Input",ExpressionUUID->"ff7ab6d1-4095-4980-9cac-7f5d3ea75af2"],
Cell[19995, 528, 345, 8, 70, "Output",ExpressionUUID->"091d6055-b900-4372-b147-caa2205f3c36"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20377, 541, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"df6ea5b3-0fc3-4468-8192-2b5253836fc9"],
Cell[20604, 548, 150, 2, 70, "ExampleText",ExpressionUUID->"14bdb164-3c5e-426d-bc1d-523cd46173e8"],
Cell[CellGroupData[{
Cell[20779, 554, 290, 6, 70, "Input",ExpressionUUID->"2aa80311-a7ee-45c8-9c11-c8016a623992"],
Cell[21072, 562, 493, 8, 70, "Output",ExpressionUUID->"fd373ec5-c0aa-434e-bca3-5fd07457ee81"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21614, 576, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"96a6e5ae-940d-46e0-a547-35fbb1799c26"],
Cell[21841, 583, 380, 8, 70, "ExampleText",ExpressionUUID->"2a3b6020-b275-4286-9efc-7ff418ab9eb1"],
Cell[CellGroupData[{
Cell[22246, 595, 252, 5, 70, "Input",ExpressionUUID->"dacf3a2e-e3b4-46e3-9b60-b6912d942660"],
Cell[22501, 602, 121, 1, 70, "Output",ExpressionUUID->"353e6e2c-df0b-4396-a493-7158b0d7e103"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22683, 610, 1227, 31, 70, "ExampleSection",ExpressionUUID->"f0f47070-8f8a-4e20-b3f1-d4d149f714c3",
 CellID->1293636265],
Cell[23913, 643, 181, 3, 70, "ExampleText",ExpressionUUID->"76f1059e-a187-4636-8de0-78577a618a04"],
Cell[CellGroupData[{
Cell[24119, 650, 322, 7, 70, "Input",ExpressionUUID->"c357a2c5-502e-4555-8d35-aa52f8043dc2"],
Cell[24444, 659, 107, 1, 70, "Output",ExpressionUUID->"49bfc409-1968-4b94-ad4a-67df5005f8c8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24588, 665, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"daa2d2be-88e5-48e8-9c08-90d922b3ac59"],
Cell[24815, 672, 363, 7, 70, "ExampleText",ExpressionUUID->"74130e49-96c8-49d2-81e0-03daa4664c93"],
Cell[CellGroupData[{
Cell[25203, 683, 262, 5, 70, "Input",ExpressionUUID->"84422336-4631-4011-90ec-667e62e1fdf5"],
Cell[25468, 690, 115, 1, 70, "Output",ExpressionUUID->"3c497420-5d13-49c0-a9e8-6131b16f7160"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25632, 697, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"e018a39f-b86f-49de-8fee-e5583fa240ff"],
Cell[25859, 704, 157, 2, 70, "ExampleText",ExpressionUUID->"fa541677-3ead-4bf0-a5c1-f44b4c65823a"],
Cell[CellGroupData[{
Cell[26041, 710, 296, 5, 70, "Input",ExpressionUUID->"30b097a0-1039-4f3b-b80c-07ad229319b8"],
Cell[26340, 717, 110, 1, 70, "Output",ExpressionUUID->"bd13976b-e57b-4eb6-9321-936828c8cb9f"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[26511, 725, 1229, 31, 70, "ExampleSection",ExpressionUUID->"3eb2dc49-3c93-4632-9b21-0ae973da5a40",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[27765, 760, 1220, 30, 70, "ExampleSubsection",ExpressionUUID->"5c85ad05-53fa-46e3-b7ef-fe811fcd0b3f"],
Cell[28988, 792, 423, 11, 70, "ExampleText",ExpressionUUID->"2630adb9-aa8a-4412-8387-ff9147e99c38"],
Cell[CellGroupData[{
Cell[29436, 807, 336, 8, 70, "Input",ExpressionUUID->"e399b75d-488d-4872-96b6-04e3a462068a"],
Cell[29775, 817, 110, 1, 70, "Output",ExpressionUUID->"5104c382-c179-46d6-b9e0-9992a730589b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29922, 823, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"08972322-78f8-4987-b8e1-a7096ac34e67"],
Cell[30149, 830, 180, 3, 70, "ExampleText",ExpressionUUID->"558055fe-0f38-4a8c-8d7f-bf27f839c1e4"],
Cell[CellGroupData[{
Cell[30354, 837, 441, 9, 70, "Input",ExpressionUUID->"77af61cb-d600-48c8-9d98-ab3156e2a998"],
Cell[30798, 848, 202, 3, 70, "Output",ExpressionUUID->"8508331d-326b-4712-bb9e-c8f1eac81736"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[31073, 859, 1244, 31, 70, "ExampleSection",ExpressionUUID->"69a938bb-19c9-4337-bf1c-9227e7aa9ecb",
 CellID->2123667759],
Cell[32320, 892, 152, 2, 70, "ExampleText",ExpressionUUID->"9e50a5df-e664-498c-8ce5-3d82eff0a108"],
Cell[CellGroupData[{
Cell[32497, 898, 586, 14, 70, "Input",ExpressionUUID->"99d20691-1c73-4962-a327-51f25f4bdb87"],
Cell[33086, 914, 122, 1, 70, "Output",ExpressionUUID->"dd308fbc-75c4-41c2-85e3-2251bcc1d348"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33245, 920, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"82221a28-56ed-4f52-9c6e-76a40877978d"],
Cell[33472, 927, 582, 14, 70, "ExampleText",ExpressionUUID->"755502cb-d23f-4549-9fd3-62dde6b1e771"],
Cell[CellGroupData[{
Cell[34079, 945, 307, 7, 70, "Input",ExpressionUUID->"1dc22c7e-1bc9-4f62-886e-47a9d92e9b39"],
Cell[34389, 954, 107, 1, 70, "Output",ExpressionUUID->"05c68fa1-9995-4604-a4db-3e5184f0470c"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[34557, 962, 1237, 31, 70, "ExampleSection",ExpressionUUID->"5b57d2f4-c0a6-473c-87ad-7dd7d9863e94",
 CellID->1305812373],
Cell[35797, 995, 421, 11, 70, "ExampleText",ExpressionUUID->"d919cbdd-8f83-40b5-b2c8-185f98dc8dea"],
Cell[CellGroupData[{
Cell[36243, 1010, 305, 7, 70, "Input",ExpressionUUID->"4e416554-9854-4340-957a-3309d4cd9f55"],
Cell[36551, 1019, 110, 1, 70, "Output",ExpressionUUID->"7e45e043-3c6c-41b3-9176-7a2cc43f1aa3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36698, 1025, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"f9aeab78-96f3-4ff6-b65c-ef22decbdf16"],
Cell[36925, 1032, 379, 8, 70, "ExampleText",ExpressionUUID->"cc709a78-895d-4a97-8f82-8e9341bc3b77"],
Cell[CellGroupData[{
Cell[37329, 1044, 242, 4, 70, "Input",ExpressionUUID->"49e0fc04-d7fd-4a82-bf60-9104744fbca8"],
Cell[37574, 1050, 110, 1, 70, "Output",ExpressionUUID->"210805d9-8ef0-49ee-b0e0-4e62c24ff4e2"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37733, 1057, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"434b0f25-bea8-4591-a9e4-556709dcf488"],
Cell[37960, 1064, 157, 2, 70, "ExampleText",ExpressionUUID->"b0b9558c-f21d-43b5-9a17-effd11b4d99d"],
Cell[CellGroupData[{
Cell[38142, 1070, 248, 5, 70, "Input",ExpressionUUID->"47ec4c7b-1367-4101-b3c1-45c3acf0a26c"],
Cell[38393, 1077, 110, 1, 70, "Output",ExpressionUUID->"211b35cf-e013-4cf3-bb37-e711cb3fd302"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[38554, 1084, 3004, 80, 70, "SeeAlsoSection",ExpressionUUID->"434f8272-4dd1-4db7-ac50-2e35407f500f"],
Cell[41561, 1166, 698, 19, 70, "MoreAboutSection",ExpressionUUID->"de74433c-93a6-4f2f-a897-d38e93dedc84"],
Cell[42262, 1187, 78, 0, 70, "FooterCell",ExpressionUUID->"21901a43-75b6-4305-95d4-81f0163d68d7"]
}
]
*)

(* End of internal cache information *)

