ReplicateCharactersInAString.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     37538,        911]
NotebookOptionsPosition[     19061,        536]
NotebookOutlinePosition[     33298,        807]
CellTagsIndexPosition[     33255,        804]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Replicate Characters in a String", "Title",ExpressionUUID->"12040966-f94b-436b-813d-790aa87c386b"],

Cell[BoxData[
 FrameBox[
  TagBox[GridBox[{
     {
      StyleBox["\<\"THE CHALLENGE\"\>",
       StripOnInput->False,
       FontFamily->"Source Sans Pro",
       FontSize->18,
       FontWeight->Plain,
       FontColor->GrayLevel[1]]}
    },
    AutoDelete->False,
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}],
   "Grid"],
  Background->RGBColor[0.9961, 0.3098, 0.21569],
  FrameMargins->{{13, 13}, {2, 8}},
  FrameStyle->None,
  ImageMargins->{{0, 0}, {-2, 0}},
  StripOnInput->False]], "WCIntroDivider",
 CellMargins->{{66, 0}, {-2, 
  37}},ExpressionUUID->"1dbafc91-f3c5-4c06-9f05-605c7b1ce920"],

Cell["", "WCIntroDividerLine",ExpressionUUID->"520f405a-151a-4c0b-ba7d-6eb6b7419dbe"],

Cell["\<\
Write a function that takes a string and replicates each of its characters \
according to their positions in the string.\
\>", "Description",ExpressionUUID->"4f1e5d0d-764e-4d6b-b584-3f0665bc3bd9"],

Cell[CellGroupData[{

Cell["More Details", "Section",ExpressionUUID->"7a578265-a44f-42a0-9708-c624c2dfd0c6"],

Cell["\<\
Replace the first character by itself once, the second by itself twice, the \
third by itself three times and so on.\
\>", "Text",ExpressionUUID->"258e5bf6-d8bd-435f-a5a3-4a74e00ddddf"],

Cell["For example, \"abc\" \[LongRightArrow] \"abbccc\".", "Text",ExpressionUUID->"89edb858-dcee-480b-931f-3a26ce087cf2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["What Your Function Should Do", "Section",ExpressionUUID->"e676eb12-11a9-4450-bbbd-55128611ca9d"],

Cell[TextData[{
 "Write a function called ",
 StyleBox["StringExpand", "InlineCode"],
 " that takes as input a string ",
 StyleBox["str", "InlineCode"],
 " and outputs a string in which the character at position ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]],ExpressionUUID->
  "3d707680-9330-4d4e-a55a-65e5173266d7"],
 " of ",
 StyleBox["str", "MR"],
 " is repeated ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]],ExpressionUUID->
  "2420d90a-ff1a-454c-a175-7c6d2c1ac84c"],
 " times."
}], "Text",ExpressionUUID->"39bb0dc3-ff4e-4c4e-a9f0-8a7f11430161"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["StringExpand",
   StripOnInput->True,
   FontColor->GrayLevel[0]], "[", "\"\<abcde\>\"", "]"}]], "Input",
 Evaluatable->False,
 CellLabelAutoDelete->False,
 CellLabel->"In[1]:=",ExpressionUUID->"156abe96-3ac7-4711-b775-fe79d2fb28fa"],

Cell[BoxData["\<\"abbcccddddeeeee\"\>"], "Output",
 CellLabelAutoDelete->False,
 CellLabel->"Out[1]=",ExpressionUUID->"8731a89c-755e-41ef-a820-9008f2f0a087"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "Subsection",ExpressionUUID->"35710ce5-c85e-47dc-a2fa-2555dfac8979"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["StringExpand",
   StripOnInput->True,
   FontColor->GrayLevel[0]], "[", "\"\<abc\>\"", "]"}]], "Input",
 Evaluatable->False,
 CellLabelAutoDelete->False,
 CellLabel->"In[2]:=",ExpressionUUID->"c6ead595-9d1d-4cca-ba26-19beb43b5566"],

Cell[BoxData["\<\"abbccc\"\>"], "Output",
 CellLabelAutoDelete->False,
 CellLabel->"Out[2]=",ExpressionUUID->"66ef51b1-d5fc-4d0e-a03f-664c896a2361"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["StringExpand",
   StripOnInput->True,
   FontColor->GrayLevel[0]], "[", "\"\<hello world\>\"", "]"}]], "Input",
 Evaluatable->False,
 CellLabelAutoDelete->False,
 CellLabel->"In[3]:=",ExpressionUUID->"0c801f2d-b306-479d-834e-d29b05d27cfd"],

Cell[BoxData["\<\"heelllllllooooo      \
wwwwwwwoooooooorrrrrrrrrllllllllllddddddddddd\"\>"], "Output",
 CellLabelAutoDelete->False,
 CellLabel->"Out[3]=",ExpressionUUID->"6a332115-191d-457d-a876-c706949ca4c5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["StringExpand",
   StripOnInput->True,
   FontColor->GrayLevel[0]], "[", "\"\<Echo!\>\"", "]"}]], "Input",
 Evaluatable->False,
 CellLabelAutoDelete->False,
 CellLabel->"In[4]:=",ExpressionUUID->"9ad3d90e-f9ad-4807-87f1-e9ccea779197"],

Cell[BoxData["\<\"Ecchhhoooo!!!!!\"\>"], "Output",
 CellLabelAutoDelete->False,
 CellLabel->"Out[4]=",ExpressionUUID->"9a96f004-ad65-45cb-ba42-7f8d84133b1b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FrameBox[
  TagBox[GridBox[{
     {
      StyleBox["\<\"SCRATCH AREA\"\>",
       StripOnInput->False,
       FontFamily->"Source Sans Pro",
       FontSize->18,
       FontWeight->Plain,
       FontColor->GrayLevel[1]]}
    },
    AutoDelete->False,
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}],
   "Grid"],
  Background->GrayLevel[0.65],
  FrameMargins->{{13, 13}, {2, 5}},
  FrameStyle->None,
  ImageMargins->{{0, 0}, {-2, 0}},
  StripOnInput->False]], "WCIntroDivider",
 CellGroupingRules->{
  "SectionGrouping", 
   0},ExpressionUUID->"91306839-a263-43b5-ae6e-14b0af2654a4"],

Cell[BoxData[""], "WCIntroDividerLine",
 CellFrameColor->GrayLevel[
  0.65],ExpressionUUID->"cc1a7af8-340a-4e57-b1d5-afcd084cc1d4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ConstantArray", "[", 
  RowBox[{
   RowBox[{"k", "[", 
    RowBox[{"[", "6", "]"}], "]"}], ",", "6"}], "]"}]], "Input",
 CellChangeTimes->{{3.706718602385435*^9, 3.706718609275405*^9}, {
  3.7067193985109944`*^9, 
  3.7067194001541553`*^9}},ExpressionUUID->"eaca6838-d578-4ed5-af73-\
1ecd085dbdbc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"e\"\>", ",", "\<\"e\"\>", ",", "\<\"e\"\>", ",", "\<\"e\"\>", 
   ",", "\<\"e\"\>", ",", "\<\"e\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.706718609498584*^9, 
  3.70671940063612*^9},ExpressionUUID->"2fd51382-05c1-47c2-9e8f-096af73e6a58"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Position", "[", 
  RowBox[{
   RowBox[{"StringExpand", "[", "\"\<abcdea\>\"", "]"}], ",", "\"\<a\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7067185231319075`*^9, 
  3.7067185534039574`*^9}},ExpressionUUID->"d7ef0cd3-7ca5-43cc-a874-\
496671f679fb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "6", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7067185445673456`*^9, 
  3.7067185539282684`*^9}},ExpressionUUID->"a00001e7-1a9c-4e9d-b82f-\
c70c8cc0ce10"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringExpand", "[", "\"\<abcd e\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7067176880512147`*^9, 3.7067177005385265`*^9}, {
   3.7067182739140882`*^9, 3.7067182764137044`*^9}, 
   3.706718786925796*^9},ExpressionUUID->"9cce447a-567c-4ad9-90dd-\
08f7b1f5fd5d"],

Cell[BoxData["\<\"abbcccdddd     eeeeee\"\>"], "Output",
 CellChangeTimes->{
  3.706717700851534*^9, 3.706718787298519*^9, {3.7067191920384703`*^9, 
   3.706719206429608*^9}, 3.7067193809779816`*^9, {3.7067197462407255`*^9, 
   3.706719770361024*^9}},ExpressionUUID->"005fffc8-4876-40ca-bff7-\
604f44b916aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"z", "=", 
  RowBox[{"Characters", "[", "\"\<abcd e\>\"", "]"}]}]], "Input",
 CellChangeTimes->{
  3.706719218282364*^9, {3.706719450627215*^9, 
   3.7067194683772974`*^9}},ExpressionUUID->"ffb856c0-771d-474e-9fd7-\
e3e4b5791e69"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>", ",", "\<\"c\"\>", ",", "\<\"d\"\>", 
   ",", "\<\" \"\>", ",", "\<\"e\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.706719218632119*^9, {3.7067194591716967`*^9, 
   3.706719468662015*^9}},ExpressionUUID->"5e2ac91a-aada-49e3-854e-\
2ada55fb7c68"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "n_", "]"}], ":=", 
  RowBox[{"ConstantArray", "[", 
   RowBox[{
    RowBox[{"z", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], ",", 
    "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7067194705598507`*^9, 3.706719505922798*^9}, {
   3.706719552104698*^9, 3.706719572730419*^9}, 
   3.7067196749888983`*^9},ExpressionUUID->"845d6c24-126e-4696-bbe0-\
0f3674d7f651"],

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{"n", ",", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{
     RowBox[{"z", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], ",",
      "n"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7067196811624503`*^9, 
  3.7067197006243353`*^9}},ExpressionUUID->"0648b0fb-ce16-4f7e-865e-\
249225dee589"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringJoin", "[", 
  RowBox[{"Flatten", "[", 
   RowBox[{
    RowBox[{"Function", "[", 
     RowBox[{"n", ",", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{"z", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
        ",", "n"}], "]"}]}], "]"}], "/@", 
    RowBox[{"Range", "[", 
     RowBox[{"Length", "[", "z", "]"}], "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.706719576945813*^9, 3.70671965610308*^9}, 
   3.706719713107872*^9},ExpressionUUID->"f09cc963-6b26-4bf7-83fa-\
7f43850592c6"],

Cell[BoxData["\<\"abbcccdddd     eeeeee\"\>"], "Output",
 CellChangeTimes->{{3.7067195863099403`*^9, 
  3.706719656474906*^9}},ExpressionUUID->"81f57061-c157-4095-847f-\
92b5ee4372ba"]
}, Open  ]],

Cell[BoxData[""], "Input",ExpressionUUID->"564766b8-84b2-4819-bf79-7f576c738f1a"],

Cell[BoxData[
 FrameBox[
  TagBox[GridBox[{
     {
      StyleBox["\<\"ENTER YOUR CODE HERE\"\>",
       StripOnInput->False,
       FontFamily->"Source Sans Pro",
       FontSize->18,
       FontWeight->Plain,
       FontColor->GrayLevel[1]]}
    },
    AutoDelete->False,
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}],
   "Grid"],
  Background->RGBColor[0.9961, 0.3098, 0.21569],
  FrameMargins->{{13, 13}, {2, 8}},
  FrameStyle->None,
  ImageMargins->{{0, 0}, {-2, 0}},
  StripOnInput->False]], "WCIntroDivider",ExpressionUUID->"fd8bf686-06c7-4c67-\
b81f-026859a9b465"],

Cell[BoxData[""], "WCIntroDividerLine",ExpressionUUID->"563ce98d-f587-4bdb-bc6d-6744d152fe5c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"StringExpand", "[", "s_String", "]"}], ":=", 
  RowBox[{"StringJoin", "[", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{"n", ",", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Characters", "[", "s", "]"}], "\[LeftDoubleBracket]", "n", 
          "\[RightDoubleBracket]"}], ",", "n"}], "]"}]}], "]"}], "/@", 
     RowBox[{"Range", "[", 
      RowBox[{"Length", "[", 
       RowBox[{"Characters", "[", "s", "]"}], "]"}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7067176767156067`*^9, 3.7067176841305656`*^9}, {
  3.7067188011991205`*^9, 3.706718858461054*^9}, {3.7067191102739944`*^9, 
  3.706719203861057*^9}, {3.7067193506582165`*^9, 3.7067193747381897`*^9}, {
  3.706719720216629*^9, 
  3.7067197656117687`*^9}},ExpressionUUID->"059ceff1-f9b8-40d9-bca9-\
c1353ddeb698"]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{
  DynamicModuleBox[{
    WolframChallenges`Notebooks`Authoring`Private`$inSubmit$$ = False}, 
    ButtonBox[
     DynamicBox[
      ToBoxes[
       If[
        TrueQ[WolframChallenges`Notebooks`Authoring`Private`$inSubmit$$], 
        Framed[
         Panel[
          ProgressIndicator[Appearance -> "Percolate", ImageSize -> {60, 20}],
           Background -> White, ImageSize -> {100, 20}, FrameMargins -> 0, 
          Alignment -> Center, Appearance -> "Frameless"], Background -> 
         GrayLevel[1], FrameStyle -> RGBColor[0.9961, 0.3098, 0.21569], 
         RoundingRadius -> 3, Alignment -> Center], 
        Mouseover[
         Framed[
          Panel[
           Style["Submit", "ButtonLabel", ShowStringCharacters -> False], 
           Background -> RGBColor[0.9961, 0.3098, 0.21569], 
           ImageSize -> {100, 20}, FrameMargins -> 0, Alignment -> Center, 
           Appearance -> "Frameless"], Background -> 
          RGBColor[0.9961, 0.3098, 0.21569], FrameStyle -> 
          RGBColor[0.9961, 0.3098, 0.21569], RoundingRadius -> 3, Alignment -> 
          Center], 
         Framed[
          Panel[
           Style[
           "Submit", "ButtonLabelActive", ShowStringCharacters -> False], 
           Background -> GrayLevel[1], ImageSize -> {100, 20}, FrameMargins -> 
           0, Alignment -> Center, Appearance -> "Frameless"], Background -> 
          GrayLevel[1], FrameStyle -> RGBColor[0.9961, 0.3098, 0.21569], 
          RoundingRadius -> 3, Alignment -> Center]]], StandardForm], 
      ImageSizeCache -> {174., {22., 32.}}], Appearance -> None, 
     ButtonFunction :> ((
      WolframChallenges`Notebooks`Authoring`Private`$inSubmit$$ = True; (Off[
         MessageName[$CharacterEncoding, "utf8"]]; ((If[
          Not[
           TrueQ[
            WolframChallenges`$NotebookInitializedQ[
             Hash[{$SessionID, 
               Last[
                EvaluationNotebook[]]}]]]], 
          CloudGet[
           FileNameJoin[{
             CloudObject[
             "https://www.wolframcloud.com/objects/user-9449da4d-3158-4f88-\
9478-f11a7a0d89ab/public/symbols"], "InitializeNotebook"}]][]]; If[
          Not[
           ValueQ[
           WolframChallenges`Notebooks`Dialogs`RunWithSubmissionPolicy]], 
          WolframChallenges`Notebooks`Dialogs`RunWithSubmissionPolicy = 
          CloudGet[
            FileNameJoin[{
              CloudObject[
              "https://www.wolframcloud.com/objects/user-9449da4d-3158-4f88-\
9478-f11a7a0d89ab/public/symbols"], "RunWithSubmissionPolicy"}]]]; 
        WolframChallenges`Notebooks`Dialogs`RunWithSubmissionPolicy[If[
            Or[$VersionNumber >= 11.1, 
             ChoiceDialog[
              StringJoin["Wolfram Challenges is designed for version ", 
               ToString[11.1], 
               " or later of the Wolfram System, and may not function \
properly with the older ", 
               "kernel you are using. Contact Wolfram Research \
(www.wolfram.com) for upgrade information."]]], 
            If[
             Not[
              StringQ[
               If[
                Not[$CloudConnected], 
                CloudConnect[], $WolframID]]], 
             MessageDialog[
             "Users must authenticate with the cloud in order to submit \
solutions."], 
             Quiet[If[
                TrueQ[WolframChallenges`Common`$ActiveClearing], 
                Quiet[
                 Unset[
                  Once["public-2.10.4"; CloudGet[
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-9449da4d-3158-\
4f88-9478-f11a7a0d89ab/public/symbols/HandleResponse"]]]]]]; 
              Module[{CodeEquivalence`Utilities`Private`result$}, 
                Check[CodeEquivalence`Utilities`Private`result$ = 
                  Once["public-2.10.4"; CloudGet[
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-9449da4d-3158-\
4f88-9478-f11a7a0d89ab/public/symbols/HandleResponse"]]], 
                  Quiet[
                   Unset[
                    Once["public-2.10.4"; CloudGet[
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-9449da4d-3158-\
4f88-9478-f11a7a0d89ab/public/symbols/HandleResponse"]]]]]]; 
                CodeEquivalence`Utilities`Private`result$], 
              MessageName[$CharacterEncoding, "utf8"]][
              Quiet[If[
                 TrueQ[WolframChallenges`Common`$ActiveClearing], 
                 Quiet[
                  Unset[
                   Once["public-2.10.4"; CloudGet[
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-9449da4d-3158-\
4f88-9478-f11a7a0d89ab/public/symbols/CheckAnswer"]]]]]]; 
               Module[{CodeEquivalence`Utilities`Private`result$}, 
                 Check[CodeEquivalence`Utilities`Private`result$ = 
                   Once["public-2.10.4"; CloudGet[
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-9449da4d-3158-\
4f88-9478-f11a7a0d89ab/public/symbols/CheckAnswer"]]], 
                   Quiet[
                    Unset[
                    Once["public-2.10.4"; CloudGet[
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-9449da4d-3158-\
4f88-9478-f11a7a0d89ab/public/symbols/CheckAnswer"]]]]]]; 
                 CodeEquivalence`Utilities`Private`result$], 
               MessageName[$CharacterEncoding, "utf8"]][
               CloudObject[
               "https://www.wolframcloud.com/objects/user-9449da4d-3158-4f88-\
9478-f11a7a0d89ab/public/api/check"], {"StringExpand"}, 
               "6e81e367511e44ed"]]]]; Null])& )[]); 
      WolframChallenges`Notebooks`Authoring`Private`$inSubmit$$ = False; 
      Null)& )[], Evaluator -> Automatic, Method -> "Queued"], 
    DynamicModuleValues :> {}, 
    Initialization :> {
     WolframChallenges`Notebooks`Authoring`Private`$inSubmit$$ = False}],
   InterpretationBox[
    StyleBox[
     GraphicsBox[{}, ImageSize -> {10, 0}, BaselinePosition -> Baseline], 
     "CacheGraphics" -> False], 
    Spacer[10], Selectable -> False],DynamicBox[
    ToBoxes[
     Refresh[Off[
        MessageName[$CharacterEncoding, "utf8"]]; If[
        Not[
         TrueQ[$CloudConnected]], 
        Column[{
          Row[{
            Text[
             Style[
             "Note: ", "SigninText", FontWeight -> "DemiBold", Background -> 
              None]], 
            Text[
             Button[
              
              PaneSelector[{
               False -> "Sign into the Wolfram Cloud", True -> 
                "Sign into the Wolfram Cloud"}, 
               Dynamic[
                CurrentValue["MouseOver"], 
                ImageSizeCache -> {48., {1., 12.}}], 
               BaseStyle -> {"SigninText", 
                 RGBColor["#36b1bf"]}, FrameMargins -> 0, ImageSize -> 
               Automatic], 
              CloudConnect[], Appearance -> None, Evaluator -> Automatic, 
              Method -> "Queued"]], 
            Text[
             Style[
             " to save your work on ", "SigninText", Background -> None]]}], 
          Text[
           Style[
           "Challenges and keep track of progress.", "SigninText", Background -> 
            None]]}, Alignment -> Left, Spacings -> 0], 
        Invisible[""]], UpdateInterval -> 1], StandardForm]]},
  "RowDefault"]], "SubmitRow",ExpressionUUID->"e4c7ce27-f550-4ce3-9191-\
ecd62abcecde"]
},
WindowSize->{1536, 781},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
DockedCells->{
  Cell[
   BoxData[
    TagBox[
     GridBox[{{
        ButtonBox[
         TagBox[
          GridBox[{{
             GraphicsBox[
              TagBox[
               RasterBox[CompressedData["
1:eJzVmguUlVUVx4eXTDAoMSKGyEMFEc0oKRCmDBIMTSpEKkFGRh6ZNBCgaJGD
+QDKB1SKBoQouVKyJDGNkcBkWUG+SgXJ1JKsMAvIMJ+7/evsb90z557vfneu
F1zutf4z3+Ocs/c+j/36bq+66aOntKyoqJhVqX9GT5wzdObMiRef0VFvzqyf
dd7U+smTRtbPnjx18sxBda304WBFjaJ1RflJRFopOpZhnPcyVjlk2lek8p2h
+Ktiod13U6xQ/EIxFx0ifToqvmptbqKPPZ+v+Jti7P7WI41Ulh6KIXbdRfFf
cVRruv5ZcsS7oZExhnr9oOetb63dv6o4zNqeCM/9rafxPkXxsmKV3Y/2ZJ6J
jIovKtYo7lAMLDDWR6zNT60P+n7FG2+MtVup+I9ixP7S05PxKZPldruvUbzm
ybinlLWwedrjjfO6t4dus2fbyq1PRI4DFX29+7eM96N21sazhuLO66q3swba
d7jiFhtrkGKc8XjEeMK7pbU9RnFQOXT0+LO/nlHc4z3zzya0U8zW7APefw94
7fDer1U8W07eOtZ644NdaWPPBit+otiqWK3oVS5+Ef49jceTxnOwPW+peMVk
21gmXp2Cue1jz9s0c5wDFMcpRtnen6Q4U/FRxSHNHCuZ8+6BbJ2bM07K2IcH
Yz6t2Kt4U7E4o++hiumKDbYOu8SdwUbDJsVz4s7jHxRLFCcpWhQYc6Hx3mt9
fOpZoo7DFP3tuoXiT5JPbyhqUvofJS52QKZ7FecqjijAr71ihOLb4s7qE4qz
xWxS0Haw8Q7p+WSe9P/xipFF6nq4rcN2RaU9O9fmNKHdyBPp21oxT5xfvlHs
TJv+08TZ7V8r/mh4XHG34grFyYo24vZ9nc3xrxTHRfiMNxkTQrZae9fWZP+3
onsR+i7zxpnhPT9S8Vlx569TpF9Xk+9hxQfE2ZIxige98fDZN0fWJiHWlv1K
rPYexZU2d+dE+HUyWYhzjvSef9kbb3kR+m7z2nNWK8XFdthF9ma/SB984HM2
V8zv8aa7T0mcOKCAvgmxdpx7zhK++F+KSyJ8+5pMd5qMyLrdG2d7EfpuDXi/
5F0Ty3YK2nczXa60+4mS8xEJESMRi4y0uXkmeL8mRe97FAeJs+v494sia/xq
iqxQZhymba5P4Q3dGrRlLR9SLLH7i1P6sS8/JG4eLlJ8y3v3PXFn9q1IP+gx
RWfFh8Xt7VMDGVYWkPf6IvTtIe6sh8Qadg3aXiNu3yLvlBSeLyg6KLbYPT5o
oF0vEmejmLd/FJAbG8dexWa/KJ6f1ev3mWwhoUPPFB05Jy29+0+Jyz0hbPEK
xg36cEaZb87QB6XpvvJphuJ07x5bij063/Tk7PUTZ68L0Q3GlxxqWSALfv77
4s65mOyjvPfYzhbe/ScUmxW9gzmosuv2kTn6seJqcfWMh1JkJM+pEudzfKoV
53Mb7f79kssF0oj9Tq6MnyCuPSqQp739rwp0O9p0O9l7douNyXkf4Ok7S5yd
WBOMjT99xeb1rAIy4oOxZ2F8wFyd5t0j0wMZ+kIPGn982pJAJvYJZ2K25OKO
ExT/tL4rvbaPemOiXx9p6ofXBWNfqlht1w+nyMa+xUbNi7zjHHTz7rsXqS9E
bYBcG5/V1pPpXq/NCnFrstN7tsVr+8tgzL3B/c2Bvuj4OcWxBeSiXoWdejHl
Pf2pW+GrDpHi9V0gbu9hB4d7Mt2UocMmr21DBo8JXlvyftYOHzErpT3zh81u
THkPUZc5VfExRTspXt9tJgex6TxPrvEZ/S7z2lL7DPP3hNjrbby21Mz+Yte3
RtqzXsQHFxQhO/WfswIbUgwdrJijuM2TC7+2OaU9cWKT2qi4M/tk0O4+RZeg
HfswsRu/jYy92OTZXaTs2F3iFHKNJUX2wX9T+90cyEYs9vOgLfFiH69NB+8a
H/ElcfaI+uMECXJxcXHF3XYd5p/YB+rJlxUh88vBPetLTHFO5F1InxSXP24N
ZOtsMo8wHfDxVb6u4vYAc9I/6Jf41HERfdfa9VPSlPAF5DWJjWJuN0bkxX8e
aJgqufoUdrCPIW1vQuQQp0T0TXwj+XMX73l/cfYbnZK55Cxhf4gf1ntjXxrZ
z5vs+jdeO74rYHeoJbJHLxHnn2Ox6WvW9+vi7NVS7x3tyTk4j5eLswchkWN9
njEC2Xzfh/3jjMyQXJ14b0Sex4P7BcGY1Ed32PUqr129PWMedyjGils/fM13
IjJnEfX3rqbbY8E78iLyjh8Gsl2RoQs+YV0G3/HBmOjwhumRfAPg3LKPD5Om
sRR2iDPzuyzlUoi1qBfn2xrExehPmxzUK+cFso3LGA9d0+pBED6qXUVA4uwy
Z6WvtZtrzy/0+hL/s5++21wlA8LX/7+mLq7OTI2L+J/zMyyQi/MUq7VBnLEa
a1cr+fEIOQbxJ/WRg4NxGyRns4gpqu3atzH4X+Ig/MZgGwvf/WlxdvMbiuXi
6uWPmPx+jSwhfCf2c7Xd44vIG4iLD/BkqjZZiWFfCMbAPk4KdCCGvUHc2l0n
zod+wdqvDdr2EvtuJ1bvEBcP+zk7372oX00x3dGPWJBzRx5L7bkqGJf9kJzZ
060vueJsG/N+a/cDZAz6JjWScSb7daYLeUDviiJIXJ6d0IjgHfN9o3d/fmRt
smiB9eX7AXWAu8TlVA2K88TFiNRG3jSwT8ilmuSD4urHCTWJQVL0amvzTZ5P
DoBPIvbwfcGKoA/tyAmPtfssuxcj/ERf6w//tJoOtMja/Uws9/dk8XM5bFGV
6dDPdGLsSq89+8g/v9QJwjhhY2SeqJ2yZ7Cfid9tLt3njZcWl603HnyDwa5U
B3KsD9rfL7laB8S6tA76/ChDriY1FOuDDOz55XZPvFKKzmOtP/YtrFUSc2Gb
8fusyfCIHEulMN0Z6UPMlVaDgk4SZ2vDecJOYUOvtXtsUSymKkTEJ0ntCN2e
sOfojr+nNkmMekHAm31JXDOkwNicmQGhvtYfffZE+mAPa+yavdMh6HeEOH+b
xPz45Q3N1HmhNx61iTq7HmkyXRjwbCe5fcw3xlWRMZn3MTFdvXGoHfKtBxtw
uzj/zth+PntHSj/y/N9LrgZGjYqcspg9zjoc7Y2HzbnKdB0X4bfa6zvHZFxs
Mi8zHQ4tpGvGPMwP5MvbI+Js4lybV+rgve05fnqyOP+OHaSGwHcPcgbiZHKL
GuuP3PhuYgZ8VN8InxMDWeaXqlcwLnPcQ9x+vTrgMadAP2IXbAh2kd9V4Zvx
m3nfN609OfNpNh8v2XyQh0W/A9uc+rTIZETWqlifDD2pn2fVv8mnyRGIJyfE
dBGXU0yzNuQm2Fdyhwfs2RbJxX7kysTaQ0I9xcXL8FhnPGM1T5+wd3nfUQvo
21ryv5uFxLfRj3v37L3qAmOSz7LGrCO5a624eHNQRr9qaVrLI3b+TIZs7I/o
XirAh7g7Zqsh1gTfOyx4js5l+1mmuPMc1i2HG+8wJ0gImU8okR8xI/l7Ele+
bjqNtvfE5WFOU1dGfc8OxsbOd7Z3o0wWXzZkLXofF+CLT+Us5v1eVZrmFNC6
2Bgl8g1rjVsibVqZbJWxMcokB3Up4uVrJT+/3lVGPruCseGFLSZvKtm3NoM/
dQa+R6bVQxLKq4mUwKsygwcykD8eUw7dUmTgzBQTK5GzYrubvcfE+Qby3MuL
4IMseflDOUlc/SwtryCm58wlNV58Lt9+qeF3LTAm548aLDlasoeJVfDROyVO
yDB9X+rqyUcsg8+/y2QiduS7QJLj4GvxVcRkz5p82HHi62n2HhtA3LVBcueD
+iB1GGrpyW+/iPFqjUej8YR36u/X3kkSl9MONN0bxH0DbZScH8OPEufnxVXv
VhIX31OLTPJi4kq+LX5TXB63Qgr8/v3dQOLq7Jxbv8bP9yZ+68/3AfIgcia/
hkstY4qUEPO/UyQuVyfuT76HkteutvOclu9QWyE3SuzcbjvHbztW2tckLo9g
vxIbfE2C3zFl9CUv5BtN8pvApftS1nKRuPpuybZHXP6X+dvWUuh/YTQHOQ==

                "], {{0, 58}, {60, 0}}, {0, 255}, ColorFunction -> RGBColor], 
               
               BoxForm`ImageTag[
               "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> 
               False], BoxID -> 
              "{\"type\":\"Image\",\"message\":\"SizeLimitReached\",\"\
imageData\":{\"imageSource\":\"data:image/png;base64,\
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAdCAYAAAC9pNwMAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAA\
AOxAAADsQBlSsOGwAABL5JREFUSIm1l2mIllUUx393Rs1sUUizKNFSTPODhbbYouRMtmglWGhZQYlt\
QmL0oUUliEpbRLRMKwk0W6XUD1k2ViSCGmkoWplLWDqU0zK5TGYzvz7c8+LTOONMUAdenvvcc885/\
3vP/57zvNAKUTur96vt1DvUfgVdT3Wc2l69Rz2jNT7btBBwDPATMBw4D9gDTAKmAZtjWV9gIlAGDAW\
GqM8AA1NKL7UGRDHgyfE8oD6r3quuU0cfw+bKWDNJnarWxXyn1gYdoFarSV2kblev+RegL1W3qkvi/\
Xu1ovG6po76WuA04GlgQ0ppbMFpW+\
A64AogFXxsBN5OKdWklFYDvdX71OnAmcAYYGUxSCo4HUnOUy3wEVAPTCjlSZ0A9Azd8TFuC+\
wCqoFBwCnA1JTSPvUmYFEAK3Gl91F5j+P5Vj1dnaz2jPkO6jz1GnWG+pu6XH3DI/\
KnulQdor6qnhO23dTH1B7qBvX7pnKzqeCkWm0TeZ6rDla3hP67uDaT432W2hDjWnWUOl/\
tqparO9XDod/eVOCr1Tp1l1oZc+PVa9WvCrubpP6uzlSnqJXqrwX9frVCfSV8XKRuUw+\
pt5TilakD1VXAGqAP8EJKqUptDwyM3PWJ9T8Ah4GTgMsAgduCFyU5AZgOrFIvTimtBeYC/\
YFl6gq1AnV0IF2v7lG3BtLh6sjYXUkeUL+J8V+x+3nmK9dYKtU54WuDWqN+\
FrqJZcBq4CBwPnA68GEgHwDsj90BfAJ0BXrHezlwN/\
B82DeWYcCfMX6HzPjLgTrgfcwkukBdEnk7MVBOU28NhIfUEQWSlOSwuttMqLWNdO+\
oT4av9upz6jIz88vLgO3kGvs4cGfslMifMX4DGAy8BNTEXD1wb8wtABYDTwANoW/\
gSJ3oE2tnAf2AHUReS2xUHRwoH1WHxm57ma/Yk+rNTeSzJFWh36w+pc4OX/\
1DfzCeNWXkzlIfbPwU2BsoPwc6A/\
OBXuQyuiXGM4CFsX5b5A2gArgIWA98XDixfcBScsVrAKakQNQLOBc4BLxFJtBv5GtwF5lAdwMryGXy\
BOBAgJsKjCMTrCGOchDwOvmKfgd8GxusBXallDahlgWx5qjvxlGMC0Bjg1QfNnO0DeZ2OL4w94t6uf\
pi+BgR85+qsyNWOaEs1l3V683lMpnrc4W6ppngX5tL4wvqXvUq9TWjD8d7UaooidoxAqyL50J1ceja\
mT8GbjYXkB+bCP5IrBsctt3C9mX1A3Oj+DzAdaZA9xKAMqAT+cIPBQaklNaH7kbganIhqQa6RL5/\
AtqFbjcwM6VUp/YNMn5BLia1KaX6UqxiP+\
4A7AROLWAZTr6bD6aUVqptgEuAiwNgAv4gfwisTCn9rl4YZHyIfzb/\
GqBHSukAjSWIUm0mTZV6Soz3qd2PMjjavqu5Xzeop5krVb25To9qyTipbeM3JICoPtyKwLfH2p/\
NTeI4o6+3ZFtycEYwtCjL1FOPYdMxyFSUX5s7qWaRxNFMAk4mf2d9SSbQWeSKNZ9cMG4jV6y9wHLgb\
DI36oA5KaWFrdptSxK5e9PcY1er76k9/hPnzQTsry5Qd5g/ebqrXcx/bTaai9Cg/\
yNwpXqD2q4JXbk6TB3fWn9/A9izhAbbZ9AzAAAAAElFTkSuQmCC\",\"boundingBox\":{\"\
width\":30,\"height\":29,\"baseline\":19}},\"plotRange\":[0,1,0,1]}", 
              DefaultBaseStyle -> "ImageGraphics", ImageSize -> 
              Magnification[0.5], ImageSizeRaw -> {60, 58}, 
              PlotRange -> {{0, 60}, {0, 58}}], 
             StyleBox[
             "\"WOLFRAM CHALLENGES\"", ShowStringCharacters -> False, 
              FontFamily -> "Source Sans Pro", FontSize -> 16, FontWeight -> 
              "Normal", FontColor -> GrayLevel[1]]}}, AutoDelete -> False, 
           GridBoxAlignment -> {
            "Columns" -> {Left, Left}, "Rows" -> {Center, Center}}, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
         Appearance -> None, ButtonFunction :> 
         SystemOpen["http://challenges.wolfram.com/"], Evaluator -> Automatic,
          Method -> "Preemptive"]}}, AutoDelete -> False, 
      GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], 
   "Text", ShowCellBracket -> False, CellMargins -> 0, GeneratedCell -> True, 
   CellAutoOverwrite -> True, CellFrameMargins -> {{60, 0}, {4, 6}}, 
   CellFrameColor -> RGBColor[0.9961, 0.3098, 0.21569], ShowStringCharacters -> 
   False, Background -> RGBColor[0.9961, 0.3098, 0.21569]], 
  Cell["", "Text", CellMargins -> 0, ShowCellBracket -> False, 
   CellElementSpacings -> {"CellMinHeight" -> 5}, CellFrameMargins -> 3, 
   FontSize -> 1, CellFrame -> 0, Background -> 
   RGBColor[0.9686274509803922, 0.9137254901960784, 0.403921568627451]]},
ShowAutoSpellCheck->False,
FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (March 13, 2017)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData["Title"], ShowCellBracket -> False, ShowGroupOpener -> False, 
    CellMargins -> {{65.14453125, 30}, {0., 30.}}, 
    CellFrameMargins -> {{66, Inherited}, {Inherited, 20}}, FontFamily -> 
    "Source Sans Pro Light", FontSize -> 50, FontColor -> 
    RGBColor[0.1843137254901961, 0.6509803921568628, 0.6941176470588235]], 
   Cell[
    StyleData["Section"], CellFrame -> {{0, 0}, {0, 1}}, ShowCellBracket -> 
    False, ShowGroupOpener -> False, 
    CellMargins -> {{66, 30}, {Inherited, 35}}, Deployed -> True, 
    CellFrameMargins -> {{0, Inherited}, {Inherited, 10}}, CellFrameColor -> 
    GrayLevel[0.7137], FontFamily -> "Source Sans Pro", FontSize -> 17, 
    FontWeight -> "DemiBold", FontColor -> Hue[0.51, 0.817, 0.72]], 
   Cell[
    StyleData["SectionNoLine", StyleDefinitions -> StyleData["Section"]], 
    CellFrame -> {{0, 0}, {0, 0}}, CellMargins -> {{49, 30}, {4, 0}}], 
   Cell[
    StyleData["SectionOnlyLine", StyleDefinitions -> StyleData["Section"]], 
    CellMargins -> {{66, 30}, {4, 35}}, 
    CellElementSpacings -> {"CellMinHeight" -> 1}, CellFrameMargins -> 0, 
    FontSize -> 0.1], 
   Cell[
    StyleData["Subsection", StyleDefinitions -> StyleData["Section"]], 
    ShowCellBracket -> True, ShowGroupOpener -> True], 
   Cell[
    StyleData["Text"], ShowCellBracket -> True, 
    CellMargins -> {{66, 30}, {Inherited, Inherited}}, FontFamily -> 
    "Source Sans Pro", FontSize -> 16, FontWeight -> "Regular", FontSlant -> 
    "Plain", PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
    FontColor -> 
    RGBColor[0.3254901960784314, 0.3254901960784314, 0.3254901960784314]], 
   Cell[
    StyleData["Item"], CellDingbat -> 
    StyleBox["\[FilledSmallSquare]", Alignment -> Baseline, 
      RGBColor[0.21176470588235294`, 0.6941176470588235, 0.7490196078431373]],
     CellMargins -> {{81, 30}, {Inherited, Inherited}}, FontFamily -> 
    "Source Sans Pro", FontSize -> 16, FontWeight -> "Regular", FontSlant -> 
    "Plain", PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
    FontColor -> 
    RGBColor[0.3254901960784314, 0.3254901960784314, 0.3254901960784314]], 
   Cell[
    StyleData["Description"], ShowCellBracket -> False, 
    CellMargins -> {{71, 30}, {0, 10}}, 
    AutoStyleOptions -> {
     "LocalVariableStyle" -> {FontColor -> RGBColor[0.263, 0.537, 0.345]}}, 
    LineSpacing -> {1.2, 0}, FontFamily -> "Source Sans Pro", FontSize -> 20, 
    FontSlant -> "Plain", 
    PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> 
    GrayLevel[0.3]], 
   Cell[
    StyleData["WCIntroDivider"], Editable -> False, Selectable -> False, 
    Deletable -> False, ShowCellBracket -> False, 
    CellMargins -> {{66, 30}, {-2, 35}}, ShowStringCharacters -> False], 
   Cell[
    StyleData["WCIntroDividerLine", StyleDefinitions -> StyleData["Text"]], 
    Editable -> False, Selectable -> False, Deletable -> False, 
    CellFrame -> {{0, 0}, {0, 8}}, ShowCellBracket -> False, 
    CellMargins -> {{66, 30}, {15, 0}}, 
    CellElementSpacings -> {"CellMinHeight" -> 1}, 
    CellFrameMargins -> {{0, 0}, {-1, 0}}, CellFrameColor -> 
    RGBColor[0.9961, 0.3098, 0.21569], FontSize -> 1], 
   Cell[
    StyleData["SubmitRow"], Editable -> False, Selectable -> False, Deletable -> 
    False, CellFrame -> {{0, 0}, {0, 2}}, ShowCellBracket -> False, 
    CellMargins -> {{66, 30}, {15, 30}}, 
    CellGroupingRules -> {"SectionGrouping", -5}, 
    CellFrameMargins -> {{Inherited, Inherited}, {20, 20}}, CellFrameColor -> 
    RGBColor[0.996078431372549, 0.3058823529411765, 0.21568627450980393`]], 
   Cell[
    StyleData["StandardForm"], FontSize -> 16], 
   Cell[
    StyleData["CodeFont"], FontSize -> 
    FEPrivate`If[False, 0.907029 Inherited, Inherited]], 
   Cell[
    StyleData["RefLink"], TemplateBoxOptions -> {DisplayFunction :> (TagBox[
        ButtonBox[#, ButtonData -> #2, BaseStyle -> Dynamic[
           If[
            CurrentValue["MouseOver"], {
            "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
            "Link"}]]], 
        MouseAppearanceTag["LinkHand"]]& )}, 
    ButtonBoxOptions -> {BaseStyle -> "Link"}], 
   Cell[
    StyleData["InlineCode", StyleDefinitions -> StyleData["StandardForm"]]], 
   Cell[
    StyleData["SmallText", StyleDefinitions -> StyleData["Text"]], FontSize -> 
    0.975 Inherited, FontColor -> GrayLevel[0.25]], 
   Cell[
    StyleData["Hyperlink"], FontColor -> 
    RGBColor[0.21176470588235294`, 0.7058823529411765, 0.7490196078431373]], 
   Cell[
    StyleData["HyperlinkActive"], FontColor -> 
    RGBColor[0.996078431372549, 0.3058823529411765, 0.21568627450980393`]], 
   Cell[
    StyleData["SubmitButton"], ShowCellBracket -> False, 
    CellMargins -> {{66, Inherited}, {25, Inherited}}, ShowCellLabel -> False,
     TextAlignment -> Center, ShowStringCharacters -> False], 
   Cell[
    StyleData["SigninText", StyleDefinitions -> StyleData["Text"]], 
    ShowStringCharacters -> False, FontSize -> 12, FontColor -> 
    GrayLevel[0.25]], 
   Cell[
    StyleData["ButtonLabel", StyleDefinitions -> StyleData["Text"]], 
    TextAlignment -> Center, ShowStringCharacters -> False, FontFamily -> 
    "Source Sans Pro", FontSize -> 18, FontWeight -> "DemiBold", FontColor -> 
    GrayLevel[1]], 
   Cell[
    StyleData[
    "ButtonLabelActive", StyleDefinitions -> StyleData["ButtonLabel"]], 
    TextAlignment -> Center, ShowStringCharacters -> False, FontColor -> 
    RGBColor[0.996078431372549, 0.3058823529411765, 0.21568627450980393`]]}, 
  Visible -> False, FrontEndVersion -> 
  "11.1 for Microsoft Windows (64-bit) (March 13, 2017)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 104, 0, 139, "Title", "ExpressionUUID" -> \
"1225af0c-ee4a-49ef-aa03-8d873edc47d3"],
Cell[687, 24, 691, 21, 99, "WCIntroDivider", "ExpressionUUID" -> \
"3b148dc5-b4a5-4544-b074-4e92781fce2b"],
Cell[1381, 47, 85, 0, 38, "WCIntroDividerLine", "ExpressionUUID" -> \
"e70dd89d-04d2-4142-b4c1-463871f923be"],
Cell[1469, 49, 206, 3, 99, "Description", "ExpressionUUID" -> \
"9f05800d-6333-4d97-b85d-e45955d01392"],
Cell[CellGroupData[{
Cell[1700, 56, 86, 0, 109, "Section", "ExpressionUUID" -> \
"215ce89d-9d74-4570-9fa5-64270018235f"],
Cell[1789, 58, 195, 3, 43, "Text", "ExpressionUUID" -> \
"871424cf-8e0c-4413-9cc2-de540c75da94"],
Cell[1987, 63, 121, 0, 43, "Text", "ExpressionUUID" -> \
"6bc29a7c-ae11-44dc-9f78-9c75a2b006db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2145, 68, 102, 0, 109, "Section", "ExpressionUUID" -> \
"d1afd5d6-a06c-407a-8f5b-1cfbf0b7bdc5"],
Cell[2250, 70, 559, 16, 79, "Text", "ExpressionUUID" -> \
"2a60639e-bddb-44e5-9285-8e736759471f"],
Cell[CellGroupData[{
Cell[2834, 90, 269, 7, 51, "Input", "ExpressionUUID" -> \
"5696241d-e1cf-43d9-9beb-8ccfe2cfc05e",
 Evaluatable->False],
Cell[3106, 99, 157, 2, 51, "Output", "ExpressionUUID" -> \
"c45fbe7f-3557-4350-b614-2b6d4264d7a2"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3312, 107, 90, 0, 109, "Subsection", "ExpressionUUID" -> \
"0cef5d6e-9ea1-4305-82d2-b61dcc3ebd83"],
Cell[CellGroupData[{
Cell[3427, 111, 267, 7, 51, "Input", "ExpressionUUID" -> \
"018bdb05-54ce-4f1b-a569-88bb4a1e13c5",
 Evaluatable->False],
Cell[3697, 120, 148, 2, 51, "Output", "ExpressionUUID" -> \
"b64e3eb4-3f0b-4724-9fc5-20ee79b3d702"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3882, 127, 275, 7, 51, "Input", "ExpressionUUID" -> \
"effb67fd-54b2-4104-b2be-188678176233",
 Evaluatable->False],
Cell[4160, 136, 210, 3, 51, "Output", "ExpressionUUID" -> \
"ee6a2624-0cd6-496c-b163-8c2b25f16c69"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4407, 144, 269, 7, 51, "Input", "ExpressionUUID" -> \
"26843694-7f99-42ff-a887-63aea28cfdb1",
 Evaluatable->False],
Cell[4679, 153, 157, 2, 51, "Output", "ExpressionUUID" -> \
"199a82bc-7014-4a33-8983-2403ceec315f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4897, 162, 685, 22, 92, "WCIntroDivider", "ExpressionUUID" -> \
"05fcc98d-646a-47e0-8a2f-0013d0dff997",
 CellGroupingRules->{"SectionGrouping", 0}],
Cell[5585, 186, 131, 2, 63, "WCIntroDividerLine", "ExpressionUUID" -> \
"764a4fb6-1de6-4ed5-8bc3-b96fcbf6138b"],
Cell[CellGroupData[{
Cell[5741, 192, 322, 8, 51, "Input", "ExpressionUUID" -> \
"eaca6838-d578-4ed5-af73-1ecd085dbdbc"],
Cell[6066, 202, 286, 5, 51, "Output", "ExpressionUUID" -> \
"2fd51382-05c1-47c2-9e8f-096af73e6a58"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6389, 212, 278, 7, 51, "Input", "ExpressionUUID" -> \
"d7ef0cd3-7ca5-43cc-a874-496671f679fb"],
Cell[6670, 221, 251, 7, 51, "Output", "ExpressionUUID" -> \
"a00001e7-1a9c-4e9d-b82f-c70c8cc0ce10"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6958, 233, 285, 5, 51, "Input", "ExpressionUUID" -> \
"9cce447a-567c-4ad9-90dd-08f7b1f5fd5d"],
Cell[7246, 240, 308, 5, 51, "Output", "ExpressionUUID" -> \
"005fffc8-4876-40ca-bff7-604f44b916aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7591, 250, 253, 6, 51, "Input", "ExpressionUUID" -> \
"ffb856c0-771d-474e-9fd7-e3e4b5791e69"],
Cell[7847, 258, 319, 7, 51, "Output", "ExpressionUUID" -> \
"5e2ac91a-aada-49e3-854e-2ada55fb7c68"]
}, Open  ]],
Cell[8181, 268, 420, 10, 51, "Input", "ExpressionUUID" -> \
"845d6c24-126e-4696-bbe0-0f3674d7f651"],
Cell[8604, 280, 356, 9, 51, "Input", "ExpressionUUID" -> \
"fffa38d5-1539-45ae-8cd4-127764d7353f"],
Cell[CellGroupData[{
Cell[8985, 293, 557, 14, 51, "Input", "ExpressionUUID" -> \
"12526e18-9245-41c5-976d-461d5c8b106a"],
Cell[9545, 309, 184, 3, 51, "Output", "ExpressionUUID" -> \
"81f57061-c157-4095-847f-92b5ee4372ba"]
}, Open  ]],
Cell[9744, 315, 81, 0, 51, "Input", "ExpressionUUID" -> \
"71b6c6c1-bca4-47c0-9cb7-90251b03ec0d"],
Cell[9828, 317, 662, 20, 96, "WCIntroDivider", "ExpressionUUID" -> \
"059877db-8f3b-4a86-8c01-fee0777c59ac"],
Cell[10493, 339, 94, 0, 63, "WCIntroDividerLine", "ExpressionUUID" -> \
"1045c184-9b57-4264-a3f4-1ab3b737b05b"],
Cell[10590, 341, 914, 22, 87, "Input", "ExpressionUUID" -> \
"059ceff1-f9b8-40d9-bca9-c1353ddeb698"]
}, Open  ]],
Cell[11519, 366, 7538, 168, 157, "SubmitRow", "ExpressionUUID" -> \
"e4c7ce27-f550-4ce3-9191-ecd62abcecde"]
}
]
*)