(* 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[     61244,       1568]
NotebookOptionsPosition[     49784,       1358]
NotebookOutlinePosition[     51823,       1407]
CellTagsIndexPosition[     51745,       1402]
WindowTitle->BitcoinAddress
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->
           "0027ee96-5077-4947-bcb7-a61f3efcf8af"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "aa53d181-64e0-49ae-899d-a4d075f4594c"],
        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->
           "234791f9-7932-4a81-9b56-1d7a510fbea0"]
         }],ExpressionUUID->"f695b430-3e0a-42e2-b623-9a925de2b871"],
         StripOnInput->False],{
        StyleBox[
          "\"BitcoinAddressData\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BitcoinAddressData"], 
         StyleBox[
          "\"BitcoinPublicKeyHash\"", "SeeAlsoRelated", StripOnInput -> 
           False] :> Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BitcoinPublicKeyHash"], 
         StyleBox[
          "\"TaprootOutputKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/TaprootOutputKey"], 
         StyleBox[
          "\"EthereumAddress\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/EthereumAddress"], 
         StyleBox[
          "\"BIP32DeriveKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey"], 
         StyleBox[
          "\"Secp256k1PublicKey\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/Secp256k1PublicKey"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "08285c41-23ce-48e0-8ec8-79953500d29d"],
     "\[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->
           "ea8c08bf-2ae9-480e-909e-21f73388d4e3"]
         }],ExpressionUUID->"da64977a-2b16-484d-ab42-dd340d23bf45"],
         StripOnInput->False],{
        "\"Derivation\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Derivation"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "c318fdb7-6cf7-4413-8e18-bebb061b38ff"],
     "\[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->
           "54d472ed-b943-4973-af1e-e34f340dfdce"]
         }],ExpressionUUID->"557a256a-f6db-4f39-99ba-3380064eb468"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/BitcoinAddress\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/BitcoinAddress"], 
         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/BitcoinAddress.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/BitcoinAddress" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "a6a68247-877d-487e-ab4b-6a1c2fae729d"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "89633b00-7761-40db-a412-76483c33726e"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"b3b3a2f9-a6e1-45ea-a801-043a88695bc8"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"2ec4d8dc-59bc-4a54-a810-fbe66061dec4"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "BitcoinAddress", "ObjectName",ExpressionUUID->
      "5d7443d5-85d1-4287-be38-e7f5bba1b9e6"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"f2cb9237-6720-423d-89ab-3ebb65b152d8"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "feaefb50-87a6-4604-bfaf-0f09c6a0bbef"]
    }],ExpressionUUID->"c97e45b7-eaf9-4c15-8e38-283a1d64dd6d"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"59e9caad-4bec-4278-9cf6-\
e1fe1962da59"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["BitcoinAddress"]], 
         "paclet:WolframInstitute/Puzzles/ref/BitcoinAddress", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["key", "TI"], ",", " ", 
        StyleBox["form", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "c1867ea9-d1ff-46d2-b30d-c44040bbcbb7"],
     "\[LineSeparator]",
     "gives the Bitcoin address of a public ",
     StyleBox["key", "TI"],
     " in the given address ",
     StyleBox["form", "TI"],
     "."
    }],ExpressionUUID->"cdf2da93-3d9b-426f-87f8-a7f6e54ef4da"]}
  }]], "Usage",ExpressionUUID->"f00c9ed9-a300-432a-b568-d42730620448"]
}, 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->"02739400-a384-48f3-8f42-8df303a7b154"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"b6173915-d860-4498-8670-80fd0bcea30f"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "8f1dc749-a225-403f-ba44-9e8dda98cc18"]],ExpressionUUID->"389ea612-e320-\
49fe-bbc4-162d8aac6ad3"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->654022378,ExpressionUUID->"dc01d615-7650-48cb-ad33-7f42e6cbf98b"],

Cell["\<\
The key is a compressed or uncompressed SEC1 public key, as a ByteArray or a \
hexadecimal string, or a BIP32 extended key, in which case its public key is \
used.\
\>", "Notes",ExpressionUUID->"def8502a-e476-40eb-8a98-2d43e3859164"],

Cell[TextData[{
 "The supported forms are ",
 Cell[BoxData["\<\"P2PKH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a8a89df3-66a8-4875-a862-07882f3856ae"],
 ", ",
 Cell[BoxData["\<\"P2SH-P2WPKH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "ab17247b-19bd-4a39-9eba-d5310058b7f1"],
 ", ",
 Cell[BoxData["\<\"P2WPKH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "b07efc0d-2800-49d4-8f8b-fd08c294449e"],
 " and ",
 Cell[BoxData["\<\"P2TR\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "eb7a714a-4ff6-4fc8-ae5b-23354f4105c4"],
 ", the single-key output types."
}], "Notes",ExpressionUUID->"716fbe65-4f01-48b8-8078-52f36ea6c124"],

Cell[BoxData[GridBox[{
   {Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"5c17dc5e-b613-4fe1-a6e9-2d93cf1fa6d7"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"47fcc023-9b26-4688-929e-188d1b5f1f99"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"bedfe8bf-e3ac-4260-816e-6ec77c53b703"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"2c377068-eac9-4b9d-b0f1-1622e6690ea6"]},
   {Cell[TextData[Cell[BoxData["\"\<P2PKH\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "4b1f4ab2-1aa2-4a48-be97-c11910fe561a"]], "TableText",ExpressionUUID->
     "d9fb0380-0115-4d96-8485-e2b6d8cdd3e2"], Cell[
    "Base58Check", "TableText",ExpressionUUID->
     "52036e4a-e7b9-4cd1-9023-466d724167f6"], Cell[TextData[{
     Cell[BoxData["HASH160"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "3f6ced5e-83ef-42cc-accd-4476feee2b0f"],
     " of the key"
    }], "TableText",ExpressionUUID->"bab6873f-dfd5-4f37-8a09-f875f613a4e9"], 
    Cell[TextData[{
     Cell[BoxData["1"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "b21825d1-4c6a-44bf-9f4f-0b3b44ecdc17"],
     " on mainnet"
    }], "TableText",ExpressionUUID->"aeb231ea-ffcf-414f-a2f0-c1f0ac5677e2"]},
   {Cell[TextData[Cell[BoxData["\"\<P2SH-P2WPKH\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "89db0285-7a88-427c-b13f-f8b8377ec414"]], "TableText",ExpressionUUID->
     "e60631b3-dc04-461a-af07-4dbf1a3fa8b9"], Cell[
    "Base58Check", "TableText",ExpressionUUID->
     "290d012e-5264-4524-a557-2fb56f0a4fae"], Cell[TextData[{
     Cell[BoxData["HASH160"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "5cd97286-9de8-4d98-8b33-3b6033c85f8b"],
     " of the witness redeem script"
    }], "TableText",ExpressionUUID->"4b38e885-a092-4636-9976-0a19c5f91489"], 
    Cell[TextData[{
     Cell[BoxData["3"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "022ff3fa-dcfa-4490-afe9-7443f956ba71"],
     " on mainnet"
    }], "TableText",ExpressionUUID->"b42a347b-66f4-44fc-8cc7-7a60ce744e33"]},
   {Cell[TextData[Cell[BoxData["\"\<P2WPKH\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "ccedbc44-8397-40e0-ac77-896b721c7cae"]], "TableText",ExpressionUUID->
     "8752f1ea-922d-4141-9812-29d2a7e1024d"], Cell[
    "Bech32", "TableText",ExpressionUUID->
     "b9641e56-ae9a-435b-9bbf-7bfe9a6e374a"], Cell[TextData[{
     Cell[BoxData["HASH160"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "fca84ec3-4b54-4b2a-8010-e2b0ffde7703"],
     " of the key, at witness version 0"
    }], "TableText",ExpressionUUID->"dda435d4-2dcb-414b-b503-068f59736fdb"], 
    Cell[TextData[{
     Cell[BoxData["bc1q"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "86ce44fe-e033-4c8a-ae5b-5b88a3269e19"],
     " on mainnet"
    }], "TableText",ExpressionUUID->"bc4b648e-61f4-41f4-8233-4043c6a47b28"]},
   {Cell[TextData[Cell[BoxData["\"\<P2TR\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "922cde14-cf85-4441-aee0-d2f316b4ff2b"]], "TableText",ExpressionUUID->
     "0acb3b01-2302-4dc6-9528-9b5586aa9896"], Cell[
    "Bech32m", "TableText",ExpressionUUID->
     "ab288a90-371c-469f-85ed-fcc74f59f4a8"], Cell[
    "the tweaked output key, at witness version 1", "TableText",
     ExpressionUUID->"e50a0700-300f-4c49-8492-020a8748ecfa"], Cell[TextData[{
     Cell[BoxData["bc1p"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "f88105fc-45bf-4978-91b5-128d92ffb55b"],
     " on mainnet"
    }], "TableText",ExpressionUUID->"4f303b12-3e4a-4f33-b684-bae984dd33a8"]}
  },
  GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
  GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {{True}}},
  GridBoxSpacings->{"Columns" -> {{1.5}}, "Rows" -> {{0.7}}}]], "Text",Express\
ionUUID->"70bb4c91-d176-4a9a-b539-065afbc3f1c7"],

Cell[BoxData[GridBox[{
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "205881b9-499c-43c9-80d7-3c9a3ea1d0ed"], Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"26df34fd-a0b2-476b-aa18-730a266d78e8"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"76ad07ad-6224-4041-a346-2e06b201f974"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"0f48196a-888f-4b58-8de1-00ea3cf3ebdc"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "953fd2c5-0216-405e-af05-7d5f9c79264e"], Cell[TextData[Cell[
    BoxData["\"\<Network\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "0ea60594-9d77-4708-9fc4-8e21ba0a0cb1"]], "TableText",ExpressionUUID->
     "63b1a784-c69d-482e-ae05-65697cda7054"], Cell[TextData[Cell[
    BoxData["\"\<Mainnet\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "d5583541-eef2-4219-9676-9b4a418377ad"]], "TableText",ExpressionUUID->
     "cd4d9bc3-2910-4558-9bc1-18e65f39a4dd"], Cell[TextData[{
     Cell[BoxData["\"\<Mainnet\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "22114c6e-acfb-48d0-82c0-ef152044f4d9"],
     " or ",
     Cell[BoxData["\"\<Testnet\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "f73cf6cf-be36-4705-8175-42f6c34483a3"]
    }], "TableText",ExpressionUUID->"3597ae7a-44fa-48c5-ab20-e24d1c5a6373"]}
  }]], "3ColumnTableMod",
 GridBoxOptions->{
 GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {None, {None}}},
 GridBoxDividers->{
  "Rows" -> {{
     True, True, 
      True}}}},ExpressionUUID->"c2f0388c-3adb-453d-9cdc-5d2ae7c8e076"],

Cell[TextData[{
 Cell[BoxData["\<\"P2WPKH\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4f522914-4e8a-49ff-9623-e1ce8e7ca350"],
 " requires a compressed key, as BIP143 does; an uncompressed key matches no \
definition and the call is returned unevaluated."
}], "Notes",ExpressionUUID->"21bcce92-1184-49fc-84a1-807e6183806c"],

Cell["\<\
Multisignature and script-path outputs are not built here, since they are not \
a function of one key.\
\>", "Notes",ExpressionUUID->"6c715247-be02-40a9-9f8b-fbbd36466c9d"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["BitcoinAddressData"]], 
    "paclet:WolframInstitute/Puzzles/ref/BitcoinAddressData", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "2c21ab52-a54c-42dd-bd1d-e2ca978253b0"],
 " reads an address back."
}], "Notes",ExpressionUUID->"822c8435-d488-4901-8fed-969df7b3a36b"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"eb320c3e-32ea-402e-a4dd-344dcd6ce71f"],

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->"42d5c09e-dcf7-41b0-9db3-c462b1038f36"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"87e234f9-21fd-44b1-ae4e-7e8a511654ab"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(16)", "ExampleCount",ExpressionUUID->
  "04400901-6dc2-40f5-a9ec-f01c2f089799"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1332801700,ExpressionUUID->"cccd9ad9-0eb7-4bd7-8078-3c61f201e2e9"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"14fa4f06-7b87-460e-ba40-f815c4987bbe"],

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->
  "85e4d107-f161-487d-8aaf-ad929eda3e10"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"93e4dbd1-5e14-4532-a334-e3137a6e18a0"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "27e1388d-8646-4260-a017-aadf62f91e98"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2143733690,ExpressionUUID->"a83bb27f-3539-42cb-8698-d799c9e89b27"],

Cell["The Bitcoin genesis block coinbase output:", "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"b648cc87-025b-4b9a-a9c1-89af67e98bdb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitcoinAddress", "[", 
  RowBox[{"\"\<\
04678afdb0fe5548271967f1a67130b7105cd6a828e03909a67962e0ea1f61deb649f6bc3f4cef\
38c4f35504e51ec112de5c384df7ba0b8d578a4c702b6bf11d5f\>\"", ",", 
   " ", "\"\<P2PKH\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5e1c4cdd-1494-48fb-95a1-7194b6b989a9"],

Cell[BoxData["\<\"1A1zP1eP5QGefi2DMPTfTL5SLmv7DivfNa\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ceda0c20-7780-4ceb-a11e-ec03491272ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2a59f548-377e-4a93-884f-1cb8e1fcb84d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"9b94f30f-468b-43ae-\
9b8c-028a88f8222c"],

Cell["\<\
The BIP84 first receiving address, from its published public key:\
\>", "ExampleText",ExpressionUUID->"9daacc69-d150-494f-9adc-45ce7d90b071"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitcoinAddress", "[", 
  RowBox[{"\"\<\
0330d54fd0dd420a6e5f8d3624f5f3482cae350f79d5f0753bf5beef9c2d91af3c\>\"", ",", 
   " ", "\"\<P2WPKH\>\""}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"051f829a-999d-4bd1-81f5-357fd4e07747"],

Cell[BoxData["\<\"bc1qcr8te4kr609gcawutmrza0j4xv80jy8z306fyu\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8ac9db79-d404-4583-ab44-20009cb97be4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "f09ba0d0-b1ec-4575-9967-cac3d673655d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"ae288178-26a9-4411-\
8d83-e95cd54ecccb"],

Cell["The BIP86 first receiving address, a taproot output:", "ExampleText",ExpressionUUID->"5b915d8f-f6f1-4c43-b260-e947a0e2cbc9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitcoinAddress", "[", 
  RowBox[{
   RowBox[{"BIP32DeriveKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", 
      "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], ",", 
     " ", "\"\<m/86h/0h/0h/0/0\>\""}], "]"}], ",", " ", "\"\<P2TR\>\""}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"27728ef8-a1e7-49ab-842d-8f26bbcc0a7c"],

Cell[BoxData["\<\"\
bc1p5cyxnuxmeuwuvkwfem96lqzszd02n6xdcjrs20cac6yqjjwudpxqkedrcr\"\>"], "Output",\

 CellLabel->"Out[1]= ",ExpressionUUID->"5b8138ac-9fd1-4708-9a32-1e48c9df54e5"]
}, 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->
  "00181f7b-4f56-4908-a14b-4e85141f871f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"676d7888-b3e1-4387-a13a-5d13238e75d9"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount",ExpressionUUID->
  "dc86efd4-0cc8-48dc-b4a3-edfd37257374"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"c81e8b7d-b5b8-40fb-b8b7-db88c8c87c5f"],

Cell["\<\
The BIP49 test vector address, a witness program nested in a \
pay-to-script-hash:\
\>", "ExampleText",ExpressionUUID->"31d861cc-0ec2-427e-878a-f9549abb0b59"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitcoinAddress", "[", 
  RowBox[{"\"\<\
03a1af804ac108a8a51782198c2d034b28bf90c8803f5a53f76276fa69a4eae77f\>\"", ",", 
   " ", "\"\<P2SH-P2WPKH\>\"", ",", " ", 
   RowBox[{"\"\<Network\>\"", " ", "->", " ", "\"\<Testnet\>\""}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"06941b15-7070-4054-9cc6-a2b72727c7b9"],

Cell[BoxData["\<\"2Mww8dCYPUpKHofjgcXcBCEGmniw9CoaiD2\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9ded9512-c187-44c0-be56-01cf1cc17d29"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ca042d1c-6ce2-4e2f-9f56-43cad925ab58"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"bbaed138-fc0e-4d95-\
800b-d3804191a84c"],

Cell["The same key in all four forms:", "ExampleText",ExpressionUUID->"fce9883a-2b08-4005-95c7-000f3bcd54cc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AssociationMap", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"BitcoinAddress", "[", 
     RowBox[{"\"\<\
0330d54fd0dd420a6e5f8d3624f5f3482cae350f79d5f0753bf5beef9c2d91af3c\>\"", ",", 
      " ", "#"}], "]"}], " ", "&"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<P2PKH\>\"", ",", " ", "\"\<P2SH-P2WPKH\>\"", ",", 
     " ", "\"\<P2WPKH\>\"", ",", " ", "\"\<P2TR\>\""}], "}"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f477c677-eae9-4d2e-b107-95403194c068"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"P2PKH\"\>", 
    "\[Rule]", "\<\"1JaUQDVNRdhfNsVncGkXedaPSM5Gc54Hso\"\>"}], ",", 
   RowBox[{"\<\"P2SH-P2WPKH\"\>", 
    "\[Rule]", "\<\"3GtVZYzsKF6Feikdjd4bDyPdAiyeHANY9b\"\>"}], ",", 
   RowBox[{"\<\"P2WPKH\"\>", 
    "\[Rule]", "\<\"bc1qcr8te4kr609gcawutmrza0j4xv80jy8z306fyu\"\>"}], ",", 
   RowBox[{"\<\"P2TR\"\>", 
    "\[Rule]", \
"\<\"bc1p8knh0enfv47gmpuf66528zd4jtkgjq4sv5w5l2gqwgk8exu2ynns9g8c9m\"\>"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"b68dd53d-ed37-4768-92cd-ebf2303b4ff8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "6235d295-0fe2-44c3-a970-85ed48c94992"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"16eeea3a-425b-4fcd-\
a8fa-2545365f1fd4"],

Cell["\<\
BIP143 forbids an uncompressed key in a witness program, so that combination \
is out of scope and returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"e4ed4e86-6612-4b78-96a0-b06fb6322b7f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BitcoinAddress", "[", 
    RowBox[{
     RowBox[{"Secp256k1PublicKey", "[", 
      RowBox[{"1", ",", " ", "\"\<Uncompressed\>\""}], "]"}], ",", 
     " ", "\"\<P2WPKH\>\""}], "]"}], ",", " ", "_BitcoinAddress"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"571cb504-f778-4627-8440-b7d866ffcee2"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f85358d0-5c35-4a2d-a632-eb4a88f6eb2e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "06f393ee-a4ca-4853-acdf-4e3b0fdc7e0f"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"db039c36-f7ff-4229-\
9857-e110fd1e37db"],

Cell["\<\
A multisignature or script-path form is not a function of one key and is not \
built:\
\>", "ExampleText",ExpressionUUID->"70dbe543-ddab-4cf8-b817-d54a2fc6c5c8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BitcoinAddress", "[", 
    RowBox[{"\"\<\
0330d54fd0dd420a6e5f8d3624f5f3482cae350f79d5f0753bf5beef9c2d91af3c\>\"", ",", 
     " ", "\"\<P2WSH\>\""}], "]"}], ",", " ", "_BitcoinAddress"}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"8cb2519a-ed90-4615-b92d-830bcc9111fa"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"39c8ccf7-70b8-4993-84de-7f4a43f61c7f"]
}, 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->
  "02f81744-09ee-4a37-9858-a7e9dfec5592"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"2bed71fb-7846-4601-9f2a-f746a1327245"],
 "Options",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "c98d1ffa-9ef2-489e-80f9-1bfe88b8b5f4"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2061341341,ExpressionUUID->"8c64f90c-5c46-4abf-a40e-cb7a82cbcd50"],

Cell[TextData[{
 "The testnet P2PKH version byte gives an address beginning with ",
 Cell[BoxData["m"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "4422c820-2d46-4dc4-a284-3a64f79ba8fa"],
 " or ",
 Cell[BoxData["n"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "0cccaf66-fc7e-441d-9f12-323903d29ee7"],
 ":"
}], "ExampleText",ExpressionUUID->"263ddec5-b2b2-48c2-85a1-bb90adcca00b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitcoinAddress", "[", 
  RowBox[{"\"\<\
03a1af804ac108a8a51782198c2d034b28bf90c8803f5a53f76276fa69a4eae77f\>\"", ",", 
   " ", "\"\<P2PKH\>\"", ",", " ", 
   RowBox[{"\"\<Network\>\"", " ", "->", " ", "\"\<Testnet\>\""}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a359b0d2-4a5a-4793-ab7d-6fa8ee9ce2c6"],

Cell[BoxData["\<\"mkgBAzmFSVxiR7kAWRuYw6dNBbG69dgEbL\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1e38b454-71ba-4c01-a057-b1281ac8d9e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "5cab2f1e-082d-4cc8-b654-69860cabfd50"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"d5e38e0c-31d7-489f-\
9e2c-9aaa464a7a70"],

Cell[TextData[{
 "The testnet Bech32 human-readable part is ",
 Cell[BoxData["tb"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "277dc531-08f3-4358-9f8b-a33983f96dd0"],
 ":"
}], "ExampleText",ExpressionUUID->"f3072f6a-c42b-44c3-a452-b16164f4e7b0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitcoinAddress", "[", 
  RowBox[{"\"\<\
0330d54fd0dd420a6e5f8d3624f5f3482cae350f79d5f0753bf5beef9c2d91af3c\>\"", ",", 
   " ", "\"\<P2WPKH\>\"", ",", " ", 
   RowBox[{"\"\<Network\>\"", " ", "->", " ", "\"\<Testnet\>\""}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"41c082fd-c0e9-4596-9439-8bbf5e18d447"],

Cell[BoxData["\<\"tb1qcr8te4kr609gcawutmrza0j4xv80jy8zmfp6l0\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"120f3e17-2808-421f-bcdd-153c7ca92957"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "5c8d308d-b781-48d2-99fd-9af0c6abf62c"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"317c8f57-099e-4a0a-\
adc9-d69e680c6e65"],

Cell["\<\
An unknown network is out of scope and the call is returned unevaluated:\
\>", "ExampleText",ExpressionUUID->"7b6f06c3-07bb-4ee7-a990-53c397bf3dc2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatchQ", "[", 
  RowBox[{
   RowBox[{"BitcoinAddress", "[", 
    RowBox[{"\"\<\
0330d54fd0dd420a6e5f8d3624f5f3482cae350f79d5f0753bf5beef9c2d91af3c\>\"", ",", 
     " ", "\"\<P2PKH\>\"", ",", " ", 
     RowBox[{"\"\<Network\>\"", " ", "->", " ", "\"\<Regtest\>\""}]}], "]"}], 
   ",", " ", "_BitcoinAddress"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"f5b46830-3563-4276-9143-ee20914c0206"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"1f41b572-1ce6-4d35-98eb-a86f3ff0c7e0"]
}, 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->
  "5895057c-2519-4adf-9009-507c9a18cf77"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"744d7360-0c47-4666-b29b-4ca9fd79eda6"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "ab53b12d-ffee-4f0b-92f8-316d006475a3"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"b1e71f0d-4946-4f4e-abc9-c48935492c44"],

Cell["A receiving-address gap scan for a BIP84 account:", "ExampleText",ExpressionUUID->"2f2b1624-6419-44a7-b553-ad14b0aa8724"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"BitcoinAddress", "[", 
    RowBox[{
     RowBox[{"BIP32DeriveKey", "[", 
      RowBox[{
       RowBox[{
       "BIP32MasterKey", 
        "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], ",", " ", 
       RowBox[{"BIP32StandardPath", "[", 
        RowBox[{"\"\<P2WPKH\>\"", ",", " ", 
         RowBox[{"{", 
          RowBox[{"0", ",", " ", "0", ",", " ", "i"}], "}"}]}], "]"}]}], 
      "]"}], ",", " ", "\"\<P2WPKH\>\""}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"i", ",", " ", "0", ",", " ", "4"}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"53e6c31d-5465-4501-bf11-b223fa74b88c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"bc1qcr8te4kr609gcawutmrza0j4xv80jy8z306fyu\"\>", 
   ",", "\<\"bc1qnjg0jd8228aq7egyzacy8cys3knf9xvrerkf9g\"\>", 
   ",", "\<\"bc1qp59yckz4ae5c4efgw2s5wfyvrz0ala7rgvuz8z\"\>", 
   ",", "\<\"bc1qgl5vlg0zdl7yvprgxj9fevsc6q6x5dmcyk3cn3\"\>", 
   ",", "\<\"bc1qm97vqzgj934vnaq9s53ynkyf9dgr05rargr04n\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e6718feb-2f3c-4141-ab78-21dcf941c65c"]
}, 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->
  "572369bd-c295-49dc-ae09-bf11582c7f05"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"83839386-98b9-4f42-aede-f73ad37526d6"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(3)", "ExampleCount",ExpressionUUID->
  "a68045ed-062d-49d6-9392-46443c0b9075"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"5efd0a82-44e2-45ad-848b-cdd6260b45b8"],

Cell["\<\
Every address it makes reads back as the form it was asked for:\
\>", "ExampleText",ExpressionUUID->"a8754d9d-a0d1-4432-a80e-77a8761d02b0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"BitcoinAddressData", "[", 
      RowBox[{"BitcoinAddress", "[", 
       RowBox[{"\"\<\
0330d54fd0dd420a6e5f8d3624f5f3482cae350f79d5f0753bf5beef9c2d91af3c\>\"", ",", 
        " ", "#"}], "]"}], "]"}], "[", "\"\<Form\>\"", "]"}], " ", "&"}], ",",
    " ", 
   RowBox[{"{", 
    RowBox[{"\"\<P2PKH\>\"", ",", " ", "\"\<P2WPKH\>\"", ",", 
     " ", "\"\<P2TR\>\""}], "}"}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"bdd67864-1194-4d61-a386-f206e5be5cde"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"P2PKH\"\>", ",", "\<\"P2WPKH\"\>", ",", "\<\"P2TR\"\>"}], 
  "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"45504509-6f45-4f9b-9680-e22343f0a3ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "00ba3e0a-fdd2-43c4-9690-2f3f70b2c525"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b73ed3ec-752b-46e8-\
b64e-d9c698fa0c04"],

Cell["\<\
The P2PKH and P2WPKH forms commit to the same 20-byte hash, in different \
envelopes:\
\>", "ExampleText",ExpressionUUID->"ebf85793-e448-471b-b8c1-9545bc77a51e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BitcoinAddressData", "[", 
    RowBox[{"BitcoinAddress", "[", 
     RowBox[{"\"\<\
0330d54fd0dd420a6e5f8d3624f5f3482cae350f79d5f0753bf5beef9c2d91af3c\>\"", ",", 
      " ", "\"\<P2PKH\>\""}], "]"}], "]"}], "[", "\"\<Hash\>\"", "]"}], " ", "===",
   " ", 
  RowBox[{
   RowBox[{"BitcoinAddressData", "[", 
    RowBox[{"BitcoinAddress", "[", 
     RowBox[{"\"\<\
0330d54fd0dd420a6e5f8d3624f5f3482cae350f79d5f0753bf5beef9c2d91af3c\>\"", ",", 
      " ", "\"\<P2WPKH\>\""}], "]"}], "]"}], "[", "\"\<Hash\>\"", 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"25a4fdec-818b-4f3c-b1fc-b41098abfb1e"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8a017593-8836-4925-93b6-77a77997a906"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2e817693-f509-4236-b38e-3b81a6ffb1cf"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"b445611a-2113-403b-\
ac80-cd36d1344db3"],

Cell["\<\
An extended key and its own public key give the same address:\
\>", "ExampleText",ExpressionUUID->"31b2cc6b-6700-4227-8e52-7715e1769554"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"key", " ", "=", " ", 
     RowBox[{"BIP32DeriveKey", "[", 
      RowBox[{
       RowBox[{
       "BIP32MasterKey", "[", "\"\<000102030405060708090a0b0c0d0e0f\>\"", 
        "]"}], ",", " ", "\"\<m/0\>\""}], "]"}]}], "}"}], ",", " ", 
   RowBox[{
    RowBox[{"BitcoinAddress", "[", 
     RowBox[{"key", ",", " ", "\"\<P2WPKH\>\""}], "]"}], " ", "===", " ", 
    RowBox[{"BitcoinAddress", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"BIP32PublicKey", "[", "key", "]"}], "[", "\"\<Key\>\"", "]"}],
       ",", " ", "\"\<P2WPKH\>\""}], "]"}]}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"4b9554c1-3f35-4f71-94ea-8a69a31c783e"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"e1afe308-c402-4d34-85af-3bab139a421b"]
}, 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->
  "62e16be8-8d1c-4760-be53-b9e640772a47"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"e7f5209f-6be1-4f9c-847a-4e2671541f27"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "32fe12da-5e46-40be-8424-d01f7f1bef8c"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"2ef88580-7541-4f5d-baf0-342a3efc262a"],

Cell["\<\
The compressed and uncompressed encodings of one key are different byte \
strings and hash to different addresses, so a recovered private key must be \
tried both ways:\
\>", "ExampleText",ExpressionUUID->"f43ac0fa-5d3d-4d58-841a-fab3f2880612"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"BitcoinAddress", "[", 
     RowBox[{
      RowBox[{"Secp256k1PublicKey", "[", 
       RowBox[{"\"\<\
18e14a7b6a307f426a94f8114701e7c8e774e7f9a47e2c2035db29a206321725\>\"", ",", 
        " ", "#"}], "]"}], ",", " ", "\"\<P2PKH\>\""}], "]"}], " ", "&"}], ",",
    " ", 
   RowBox[{"{", 
    RowBox[{"\"\<Compressed\>\"", ",", " ", "\"\<Uncompressed\>\""}], "}"}]}],
   "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"2ff2f823-f962-4d99-b9f9-7b468a40537b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"1PMycacnJaSqwwJqjawXBErnLsZ7RkXUAs\"\>", 
   ",", "\<\"16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM\"\>"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"407485b8-7569-48ea-8781-b17029c3732f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a0d40848-b252-4f23-8c8b-c34c021a795d"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"aec5ab6d-02a8-4cda-\
8346-eade210f5fa7"],

Cell["\<\
Nothing checks that the form matches the path a key came from, so a key \
derived along the taproot path renders happily as a legacy address that no \
wallet will scan for:\
\>", "ExampleText",ExpressionUUID->"ba528f28-15b4-4ac1-b4a2-1f473c0da6f8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitcoinAddress", "[", 
  RowBox[{
   RowBox[{"BIP32DeriveKey", "[", 
    RowBox[{
     RowBox[{
     "BIP32MasterKey", 
      "[", "\"\<\
5eb00bbddcf069084889a8ab9155568165f5c453ccb85e70811aaed6f6da5fc19a5ac40b389cd3\
70d086206dec8aa6c43daea6690f20ad3d8d48b2d2ce9e38e4\>\"", "]"}], ",", 
     " ", "\"\<m/86h/0h/0h/0/0\>\""}], "]"}], ",", " ", "\"\<P2PKH\>\""}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0b175e9a-d8f8-4a7e-b3eb-60180596e30f"],

Cell[BoxData["\<\"1NsJS4DAHLcegD63trZurmkLm23TRAujXd\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"9d37a51f-38c2-4795-b47a-e8ba87552940"]
}, 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["BitcoinAddressData"]], 
           "paclet:WolframInstitute/Puzzles/ref/BitcoinAddressData", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "9a7f6335-884b-498f-93aa-937fd033b22c"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BitcoinPublicKeyHash"]], 
           "paclet:WolframInstitute/Puzzles/ref/BitcoinPublicKeyHash", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "3ff21894-94b2-4bdc-bf00-edd64918ad35"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["TaprootOutputKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/TaprootOutputKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "f1922f73-5597-4fd1-9c1c-abcdee9dd388"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["EthereumAddress"]], 
           "paclet:WolframInstitute/Puzzles/ref/EthereumAddress", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "8044008b-e705-450f-9ad8-7ce2e5b00c5f"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["BIP32DeriveKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/BIP32DeriveKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "296b764a-4e04-4dbb-8189-5bace5122ea3"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Secp256k1PublicKey"]], 
           "paclet:WolframInstitute/Puzzles/ref/Secp256k1PublicKey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "6d38ddbc-4858-4457-9755-19fbee7dc4e4"]
       }], "SeeAlso",ExpressionUUID->"70a5cd4e-e942-42aa-b4d7-f570de4d8965"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"ec3909e2-4292-4fcb-bbe4-\
74e9fb9456eb"],

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["Derivation"]], 
           "paclet:WolframInstitute/Puzzles/guide/Derivation"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "430c45fb-de39-4a81-90d7-55333f47c591"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"e248ed13-f8ba-4c95-b943-\
ef3806f41b3e"],

Cell[" ", "FooterCell",ExpressionUUID->"ab61f085-cce8-4b60-b5b3-82b95e49dfa6"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"BitcoinAddress",
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, 18.450007}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[BitcoinAddress,paclet : \
WolframInstitute/Puzzles/ref/BitcoinAddress, WolframInstitute/Puzzles Package \
Symbol][key, form] gives the Bitcoin address of a public key in the given \
address form.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "BitcoinAddress", "titlemodifier" -> "", "metadescription" -> "", 
    "windowtitle" -> "BitcoinAddress", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/BitcoinAddress", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"80d4e79b-23e4-4bd5-be30-471c49433dd0"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[21055, 527, 152, 2, 70, "ExampleText",ExpressionUUID->"b648cc87-025b-4b9a-a9c1-89af67e98bdb",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 51588, 1396}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[582, 21, 6053, 147, 70, "AnchorBarGrid",ExpressionUUID->"b3b3a2f9-a6e1-45ea-a801-043a88695bc8",
 CellID->1],
Cell[6638, 170, 107, 0, 70, "ContextNameCell",ExpressionUUID->"2ec4d8dc-59bc-4a54-a810-fbe66061dec4"],
Cell[CellGroupData[{
Cell[6770, 174, 557, 14, 70, "ObjectNameGrid",ExpressionUUID->"59e9caad-4bec-4278-9cf6-e1fe1962da59"],
Cell[7330, 190, 891, 24, 70, "Usage",ExpressionUUID->"f00c9ed9-a300-432a-b568-d42730620448"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8258, 219, 1443, 34, 70, "NotesSection",ExpressionUUID->"dc01d615-7650-48cb-ad33-7f42e6cbf98b",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->654022378],
Cell[9704, 255, 243, 4, 70, "Notes",ExpressionUUID->"def8502a-e476-40eb-8a98-2d43e3859164"],
Cell[9950, 261, 848, 22, 70, "Notes",ExpressionUUID->"716fbe65-4f01-48b8-8078-52f36ea6c124"],
Cell[10801, 285, 4393, 88, 70, "Text",ExpressionUUID->"70bb4c91-d176-4a9a-b539-065afbc3f1c7"],
Cell[15197, 375, 1793, 36, 70, "3ColumnTableMod",ExpressionUUID->"c2f0388c-3adb-453d-9cdc-5d2ae7c8e076"],
Cell[16993, 413, 381, 7, 70, "Notes",ExpressionUUID->"21bcce92-1184-49fc-84a1-807e6183806c"],
Cell[17377, 422, 182, 3, 70, "Notes",ExpressionUUID->"6c715247-be02-40a9-9f8b-fbbd36466c9d"],
Cell[17562, 427, 488, 13, 70, "Notes",ExpressionUUID->"822c8435-d488-4901-8fed-969df7b3a36b"]
}, Closed]],
Cell[18065, 443, 80, 0, 70, "PageDelimiter",ExpressionUUID->"eb320c3e-32ea-402e-a4dd-344dcd6ce71f"],
Cell[CellGroupData[{
Cell[18170, 447, 1402, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"cccd9ad9-0eb7-4bd7-8078-3c61f201e2e9",
 CellID->1332801700],
Cell[19575, 486, 216, 4, 70, "Input",ExpressionUUID->"14fa4f06-7b87-460e-ba40-f815c4987bbe",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[19816, 494, 1236, 31, 70, "ExampleSection",ExpressionUUID->"a83bb27f-3539-42cb-8698-d799c9e89b27",
 CellID->2143733690],
Cell[21055, 527, 152, 2, 70, "ExampleText",ExpressionUUID->"b648cc87-025b-4b9a-a9c1-89af67e98bdb",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[21232, 533, 379, 7, 70, "Input",ExpressionUUID->"5e1c4cdd-1494-48fb-95a1-7194b6b989a9"],
Cell[21614, 542, 148, 1, 70, "Output",ExpressionUUID->"ceda0c20-7780-4ceb-a11e-ec03491272ca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21799, 548, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"9b94f30f-468b-43ae-9b8c-028a88f8222c"],
Cell[22026, 555, 151, 2, 70, "ExampleText",ExpressionUUID->"9daacc69-d150-494f-9adc-45ce7d90b071"],
Cell[CellGroupData[{
Cell[22202, 561, 314, 6, 70, "Input",ExpressionUUID->"051f829a-999d-4bd1-81f5-357fd4e07747"],
Cell[22519, 569, 156, 1, 70, "Output",ExpressionUUID->"8ac9db79-d404-4583-ab44-20009cb97be4"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22724, 576, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"ae288178-26a9-4411-8d83-e95cd54ecccb"],
Cell[22951, 583, 130, 0, 70, "ExampleText",ExpressionUUID->"5b915d8f-f6f1-4c43-b260-e947a0e2cbc9"],
Cell[CellGroupData[{
Cell[23106, 587, 532, 13, 70, "Input",ExpressionUUID->"27728ef8-a1e7-49ab-842d-8f26bbcc0a7c"],
Cell[23641, 602, 180, 3, 70, "Output",ExpressionUUID->"5b8138ac-9fd1-4708-9a32-1e48c9df54e5"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23882, 612, 1227, 31, 70, "ExampleSection",ExpressionUUID->"c81e8b7d-b5b8-40fb-b8b7-db88c8c87c5f",
 CellID->1293636265],
Cell[25112, 645, 168, 3, 70, "ExampleText",ExpressionUUID->"31d861cc-0ec2-427e-878a-f9549abb0b59"],
Cell[CellGroupData[{
Cell[25305, 652, 400, 8, 70, "Input",ExpressionUUID->"06941b15-7070-4054-9cc6-a2b72727c7b9"],
Cell[25708, 662, 149, 1, 70, "Output",ExpressionUUID->"9ded9512-c187-44c0-be56-01cf1cc17d29"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25894, 668, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"bbaed138-fc0e-4d95-800b-d3804191a84c"],
Cell[26121, 675, 109, 0, 70, "ExampleText",ExpressionUUID->"fce9883a-2b08-4005-95c7-000f3bcd54cc"],
Cell[CellGroupData[{
Cell[26255, 679, 549, 13, 70, "Input",ExpressionUUID->"f477c677-eae9-4d2e-b107-95403194c068"],
Cell[26807, 694, 606, 13, 70, "Output",ExpressionUUID->"b68dd53d-ed37-4768-92cd-ebf2303b4ff8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27462, 713, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"16eeea3a-425b-4fcd-a8fa-2545365f1fd4"],
Cell[27689, 720, 206, 3, 70, "ExampleText",ExpressionUUID->"e4ed4e86-6612-4b78-96a0-b06fb6322b7f"],
Cell[CellGroupData[{
Cell[27920, 727, 421, 10, 70, "Input",ExpressionUUID->"571cb504-f778-4627-8440-b7d866ffcee2"],
Cell[28344, 739, 110, 1, 70, "Output",ExpressionUUID->"f85358d0-5c35-4a2d-a632-eb4a88f6eb2e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28503, 746, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"db039c36-f7ff-4229-9857-e110fd1e37db"],
Cell[28730, 753, 171, 3, 70, "ExampleText",ExpressionUUID->"70dbe543-ddab-4cf8-b817-d54a2fc6c5c8"],
Cell[CellGroupData[{
Cell[28926, 760, 396, 9, 70, "Input",ExpressionUUID->"8cb2519a-ed90-4615-b92d-830bcc9111fa"],
Cell[29325, 771, 110, 1, 70, "Output",ExpressionUUID->"39c8ccf7-70b8-4993-84de-7f4a43f61c7f"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[29496, 779, 1229, 31, 70, "ExampleSection",ExpressionUUID->"8c64f90c-5c46-4abf-a40e-cb7a82cbcd50",
 CellID->2061341341],
Cell[30728, 812, 483, 12, 70, "ExampleText",ExpressionUUID->"263ddec5-b2b2-48c2-85a1-bb90adcca00b"],
Cell[CellGroupData[{
Cell[31236, 828, 394, 8, 70, "Input",ExpressionUUID->"a359b0d2-4a5a-4793-ab7d-6fa8ee9ce2c6"],
Cell[31633, 838, 148, 1, 70, "Output",ExpressionUUID->"1e38b454-71ba-4c01-a057-b1281ac8d9e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31818, 844, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"d5e38e0c-31d7-489f-9e2c-9aaa464a7a70"],
Cell[32045, 851, 298, 7, 70, "ExampleText",ExpressionUUID->"f3072f6a-c42b-44c3-a452-b16164f4e7b0"],
Cell[CellGroupData[{
Cell[32368, 862, 395, 8, 70, "Input",ExpressionUUID->"41c082fd-c0e9-4596-9439-8bbf5e18d447"],
Cell[32766, 872, 156, 1, 70, "Output",ExpressionUUID->"120f3e17-2808-421f-bcdd-153c7ca92957"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32971, 879, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"317c8f57-099e-4a0a-adc9-d69e680c6e65"],
Cell[33198, 886, 158, 2, 70, "ExampleText",ExpressionUUID->"7b6f06c3-07bb-4ee7-a990-53c397bf3dc2"],
Cell[CellGroupData[{
Cell[33381, 892, 477, 10, 70, "Input",ExpressionUUID->"f5b46830-3563-4276-9143-ee20914c0206"],
Cell[33861, 904, 110, 1, 70, "Output",ExpressionUUID->"1f41b572-1ce6-4d35-98eb-a86f3ff0c7e0"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[34032, 912, 1233, 31, 70, "ExampleSection",ExpressionUUID->"b1e71f0d-4946-4f4e-abc9-c48935492c44",
 CellID->258228157],
Cell[35268, 945, 127, 0, 70, "ExampleText",ExpressionUUID->"2f2b1624-6419-44a7-b553-ad14b0aa8724"],
Cell[CellGroupData[{
Cell[35420, 949, 829, 20, 70, "Input",ExpressionUUID->"53e6c31d-5465-4501-bf11-b223fa74b88c"],
Cell[36252, 971, 446, 8, 70, "Output",ExpressionUUID->"e6718feb-2f3c-4141-ab78-21dcf941c65c"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[36747, 985, 1244, 31, 70, "ExampleSection",ExpressionUUID->"5efd0a82-44e2-45ad-848b-cdd6260b45b8",
 CellID->2123667759],
Cell[37994, 1018, 149, 2, 70, "ExampleText",ExpressionUUID->"a8754d9d-a0d1-4432-a80e-77a8761d02b0"],
Cell[CellGroupData[{
Cell[38168, 1024, 601, 15, 70, "Input",ExpressionUUID->"bdd67864-1194-4d61-a386-f206e5be5cde"],
Cell[38772, 1041, 201, 4, 70, "Output",ExpressionUUID->"45504509-6f45-4f9b-9680-e22343f0a3ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39010, 1050, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b73ed3ec-752b-46e8-b64e-d9c698fa0c04"],
Cell[39237, 1057, 171, 3, 70, "ExampleText",ExpressionUUID->"ebf85793-e448-471b-b8c1-9545bc77a51e"],
Cell[CellGroupData[{
Cell[39433, 1064, 702, 17, 70, "Input",ExpressionUUID->"25a4fdec-818b-4f3c-b1fc-b41098abfb1e"],
Cell[40138, 1083, 110, 1, 70, "Output",ExpressionUUID->"8a017593-8836-4925-93b6-77a77997a906"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[40297, 1090, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"b445611a-2113-403b-ac80-cd36d1344db3"],
Cell[40524, 1097, 147, 2, 70, "ExampleText",ExpressionUUID->"31b2cc6b-6700-4227-8e52-7715e1769554"],
Cell[CellGroupData[{
Cell[40696, 1103, 770, 19, 70, "Input",ExpressionUUID->"4b9554c1-3f35-4f71-94ea-8a69a31c783e"],
Cell[41469, 1124, 110, 1, 70, "Output",ExpressionUUID->"e1afe308-c402-4d34-85af-3bab139a421b"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[41640, 1132, 1237, 31, 70, "ExampleSection",ExpressionUUID->"2ef88580-7541-4f5d-baf0-342a3efc262a",
 CellID->1305812373],
Cell[42880, 1165, 254, 4, 70, "ExampleText",ExpressionUUID->"f43ac0fa-5d3d-4d58-841a-fab3f2880612"],
Cell[CellGroupData[{
Cell[43159, 1173, 582, 15, 70, "Input",ExpressionUUID->"2ff2f823-f962-4d99-b9f9-7b468a40537b"],
Cell[43744, 1190, 237, 4, 70, "Output",ExpressionUUID->"407485b8-7569-48ea-8781-b17029c3732f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44018, 1199, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"aec5ab6d-02a8-4cda-8346-eade210f5fa7"],
Cell[44245, 1206, 258, 4, 70, "ExampleText",ExpressionUUID->"ba528f28-15b4-4ac1-b4a2-1f473c0da6f8"],
Cell[CellGroupData[{
Cell[44528, 1214, 533, 13, 70, "Input",ExpressionUUID->"0b175e9a-d8f8-4a7e-b3eb-60180596e30f"],
Cell[45064, 1229, 148, 1, 70, "Output",ExpressionUUID->"9d37a51f-38c2-4795-b47a-e8ba87552940"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[45263, 1236, 3733, 97, 70, "SeeAlsoSection",ExpressionUUID->"ec3909e2-4292-4fcb-bbe4-74e9fb9456eb"],
Cell[48999, 1335, 700, 19, 70, "MoreAboutSection",ExpressionUUID->"e248ed13-f8ba-4c95-b943-ef3806f41b3e"],
Cell[49702, 1356, 78, 0, 70, "FooterCell",ExpressionUUID->"ab61f085-cce8-4b60-b5b3-82b95e49dfa6"]
}
]
*)

(* End of internal cache information *)

