(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 28733, 699] NotebookOptionsPosition[ 27402, 663] NotebookOutlinePosition[ 27995, 686] CellTagsIndexPosition[ 27952, 683] WindowTitle->Examples for The Haunted Man and the Ghost's Bargain: A Fancy \ for Christmas\:2010Time WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the default content:", "Text", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, { 3.696187841532233*^9, 3.696187852829363*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", " ", "\"\\""}], "]"}], "[", RowBox[{"[", "5", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.705424521728594*^9, 3.7054245291484528`*^9}, 3.886181879815111*^9, 3.8861819327256517`*^9}, CellLabel->"In[5]:="], Cell[BoxData["\<\"Everybody said he looked like a haunted man. The extent of \ my present\\nclaim for everybody is, that they were so far right. He \ did.\"\>"], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.705424514213274*^9, 3.705424529731913*^9}, 3.8861818824425077`*^9, 3.886181935343726*^9}, CellLabel->"Out[5]="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Generate a WordCloud:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.705424535013875*^9, 3.7054245387481737`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.705424539942368*^9, 3.70542454865576*^9}, 3.886181954211608*^9}, CellLabel->"In[6]:="], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.24647887323943662`], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"Tetterby\"\>", StripOnInput->False, FontSize->Scaled[0.1329120970884596], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {-9.5, -39.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Redlaw\"\>", StripOnInput->False, FontSize->Scaled[0.11036575182319212`], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-0.5, 40.5}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.13124199743918055`], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {-0.5, -64.5}, Center, Automatic], InsetBox[ StyleBox["\<\"William\"\>", StripOnInput->False, FontSize->Scaled[0.09115960585648276], FontColor->RGBColor[0.571589, 0.586483, 0.]], {-0.5, 64.5}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.11120080164783167`], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {-79.5, 26.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Mr.\"\>", StripOnInput->False, FontSize->Scaled[0.13541724656237822`], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {79.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Mrs.\"\>", StripOnInput->False, FontSize->Scaled[0.10869565217391304`], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {-83.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hand\"\>", StripOnInput->False, FontSize->Scaled[0.08698435673328508], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {76.5, 38.5}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.08113900796080833], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {-5.5, 85.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Chemist\"\>", StripOnInput->False, FontSize->Scaled[0.06109781216945944], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {-0.5, -87.5}, Center, Automatic], InsetBox[ StyleBox["\<\"eyes\"\>", StripOnInput->False, FontSize->Scaled[0.07028336024049435], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {75.5, -20.5}, Center, Automatic], InsetBox[ StyleBox["\<\"looking\"\>", StripOnInput->False, FontSize->Scaled[0.051077214273785004`], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {63.5, 57.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Johnny\"\>", StripOnInput->False, FontSize->Scaled[0.053582363747703615`], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {-73.5, 46.5}, Center, Automatic], InsetBox[ StyleBox["\<\"old\"\>", StripOnInput->False, FontSize->Scaled[0.09616990480432], FontColor->RGBColor[1, 0.75, 0]], {-53.5, -68.5}, Center, Automatic], InsetBox[ StyleBox["\<\"looked\"\>", StripOnInput->False, FontSize->Scaled[0.06443801146801759], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {59.5, -71.5}, Center, Automatic], InsetBox[ StyleBox["\<\"father\"\>", StripOnInput->False, FontSize->Scaled[0.06527306129265713], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {46.5, 79.5}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.07195345988977342], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {-67.5, 63.5}, Center, Automatic], InsetBox[ StyleBox["\<\"face\"\>", StripOnInput->False, FontSize->Scaled[0.0803039581361688], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {79.5, -46.5}, Center, Automatic], InsetBox[ StyleBox["\<\"returned\"\>", StripOnInput->False, FontSize->Scaled[0.055252463396982684`], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {-0.5, 99.5}, Center, Automatic], InsetBox[ StyleBox["\<\"boy\"\>", StripOnInput->False, FontSize->Scaled[0.06944831041585481], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-87.5, -38.5}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.05942771252018038], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {-52.5, 82.5}, Center, Automatic], InsetBox[ StyleBox["\<\"don\[CloseCurlyQuote]t\"\>", StripOnInput->False, FontSize->Scaled[0.06861326059121527], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {-0.5, -105.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Milly\"\>", StripOnInput->False, FontSize->Scaled[0.06109781216945944], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {98.5, 16.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.04523186550130824], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {53.5, -88.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Phantom\"\>", StripOnInput->False, FontSize->Scaled[0.04773701497522686], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {-59.5, -86.5}, Center, Automatic], InsetBox[ StyleBox["\<\"dear\"\>", StripOnInput->False, FontSize->Scaled[0.06777821076657575], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {-89.5, -59.5}, Center, Automatic], InsetBox[ StyleBox["\<\"memory\"\>", StripOnInput->False, FontSize->Scaled[0.040221566553471026`], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {-96.5, -17.5}, Center, Automatic], InsetBox[ StyleBox["\<\"young\"\>", StripOnInput->False, FontSize->Scaled[0.046901965150587324`], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {49.5, 96.5}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.06694316094193621], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {-38.5, -101.5}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.07946890831152925], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {-47.5, 100.5}, Center, Automatic], InsetBox[ StyleBox["\<\"wrong\"\>", StripOnInput->False, FontSize->Scaled[0.04523186550130824], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {41.5, -101.5}, Center, Automatic], InsetBox[ StyleBox["\<\"round\"\>", StripOnInput->False, FontSize->Scaled[0.052747313923064074`], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {0.5, 112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"woman\"\>", StripOnInput->False, FontSize->Scaled[0.048572064799866393`], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {91.5, 70.5}, Center, Automatic], InsetBox[ StyleBox["\<\"remember\"\>", StripOnInput->False, FontSize->Scaled[0.03688136725491288], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {53.5, 106.5}, Center, Automatic], InsetBox[ StyleBox["\<\"stopped\"\>", StripOnInput->False, FontSize->Scaled[0.03688136725491288], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {-91.5, 81.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Student\"\>", StripOnInput->False, FontSize->Scaled[0.044396815676668706`], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {94.5, 81.5}, Center, Automatic], InsetBox[ StyleBox["\<\"children\"\>", StripOnInput->False, FontSize->Scaled[0.04356176585202917], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {-75.5, -100.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hands\"\>", StripOnInput->False, FontSize->Scaled[0.05024216444914547], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {-85.5, 94.5}, Center, Automatic], InsetBox[ StyleBox["\<\"towards\"\>", StripOnInput->False, FontSize->Scaled[0.04356176585202917], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {49.5, -114.5}, Center, Automatic], InsetBox[ StyleBox["\<\"head\"\>", StripOnInput->False, FontSize->Scaled[0.05692256304626176], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {-103.5, -77.5}, Center, Automatic], InsetBox[ StyleBox["\<\"mother\"\>", StripOnInput->False, FontSize->Scaled[0.04272671602738964], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {98.5, -86.5}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.046901965150587324`], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {104.5, 55.5}, Center, Automatic], InsetBox[ StyleBox["\<\"husband\"\>", StripOnInput->False, FontSize->Scaled[0.04105661637811056], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {89.5, -102.5}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.05942771252018038], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {94.5, 95.5}, Center, Automatic], InsetBox[ StyleBox["\<\"think\"\>", StripOnInput->False, FontSize->Scaled[0.055252463396982684`], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {-83.5, 109.5}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.05024216444914547], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {-14.5, 20.5}, Center, Automatic], InsetBox[ StyleBox["\<\"night\"\>", StripOnInput->False, FontSize->Scaled[0.04606691532594778], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {102.5, -64.5}, Center, Automatic], InsetBox[ StyleBox["\<\"moment\"\>", StripOnInput->False, FontSize->Scaled[0.03688136725491288], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {-72.5, -112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sir\"\>", StripOnInput->False, FontSize->Scaled[0.07529365918833157], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {-103.5, 54.5}, Center, Automatic], InsetBox[ StyleBox["\<\"passed\"\>", StripOnInput->False, FontSize->Scaled[0.035211267605633804`], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {94.5, 111.5}, Center, Automatic], InsetBox[ StyleBox["\<\"room\"\>", StripOnInput->False, FontSize->Scaled[0.048572064799866393`], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {113.5, -20.5}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.04940711462450593], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {109.5, -33.5}, Center, Automatic], InsetBox[ StyleBox["\<\"going\"\>", StripOnInput->False, FontSize->Scaled[0.040221566553471026`], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {-0.5, -121.5}, Center, Automatic], InsetBox[ StyleBox["\<\"great\"\>", StripOnInput->False, FontSize->Scaled[0.04272671602738964], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {34.5, 117.5}, Center, Automatic], InsetBox[ StyleBox["\<\"\[CloseCurlyQuote]s\"\>", StripOnInput->False, FontSize->Scaled[0.09533485497968046], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {-113.5, -35.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Sorrow\"\>", StripOnInput->False, FontSize->Scaled[0.04105661637811056], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {-4.5, 122.5}, Center, Automatic], InsetBox[ StyleBox["\<\"went\"\>", StripOnInput->False, FontSize->Scaled[0.04773701497522686], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {-39.5, 116.5}, Center, Automatic], InsetBox[ StyleBox["\<\"look\"\>", StripOnInput->False, FontSize->Scaled[0.05024216444914547], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-33.5, -120.5}, Center, Automatic], InsetBox[ StyleBox["\<\"poor\"\>", StripOnInput->False, FontSize->Scaled[0.04272671602738964], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {116.5, 32.5}, Center, Automatic], InsetBox[ StyleBox["\<\"door\"\>", StripOnInput->False, FontSize->Scaled[0.048572064799866393`], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {64.5, 120.5}, Center, Automatic], InsetBox[ StyleBox["\<\"place\"\>", StripOnInput->False, FontSize->Scaled[0.03855146690419195], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {85.5, -116.5}, Center, Automatic], InsetBox[ StyleBox["\<\"home\"\>", StripOnInput->False, FontSize->Scaled[0.04356176585202917], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {-71.5, 123.5}, Center, Automatic], InsetBox[ StyleBox["\<\"turned\"\>", StripOnInput->False, FontSize->Scaled[0.040221566553471026`], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {98.5, 123.5}, Center, Automatic], InsetBox[ StyleBox["\<\"yes\"\>", StripOnInput->False, FontSize->Scaled[0.048572064799866393`], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {30.5, 20.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Better\"\>", StripOnInput->False, FontSize->Scaled[0.03938651672883149], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {-113.5, -91.5}, Center, Automatic], InsetBox[ StyleBox["\<\"baby\"\>", StripOnInput->False, FontSize->Scaled[0.03604631743027334], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {115.5, -1.5}, Center, Automatic], InsetBox[ StyleBox["\<\"quiet\"\>", StripOnInput->False, FontSize->Scaled[0.03688136725491288], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {-118.5, 90.5}, Center, Automatic], InsetBox[ StyleBox["\<\"right\"\>", StripOnInput->False, FontSize->Scaled[0.03855146690419195], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {-110.5, -105.5}, Center, Automatic], InsetBox[ StyleBox["\<\"voice\"\>", StripOnInput->False, FontSize->Scaled[0.04272671602738964], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {-96.5, -123.5}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.03688136725491288], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {111.5, -47.5}, Center, Automatic], InsetBox[ StyleBox["\<\"light\"\>", StripOnInput->False, FontSize->Scaled[0.03855146690419195], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-119.5, 65.5}, Center, Automatic], InsetBox[ StyleBox["\<\"stood\"\>", StripOnInput->False, FontSize->Scaled[0.04105661637811056], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {-103.5, 123.5}, Center, Automatic], InsetBox[ StyleBox["\<\"son\"\>", StripOnInput->False, FontSize->Scaled[0.051077214273785004`], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {-59.5, -123.5}, Center, Automatic], InsetBox[ StyleBox["\<\"child\"\>", StripOnInput->False, FontSize->Scaled[0.04356176585202917], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {-116.5, 107.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Oh\"\>", StripOnInput->False, FontSize->Scaled[0.05859266269554084], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {111.5, -117.5}, Center, Automatic], InsetBox[ StyleBox["\<\"gone\"\>", StripOnInput->False, FontSize->Scaled[0.035211267605633804`], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {-122.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.03938651672883149], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {-123.5, 16.5}, Center, Automatic], InsetBox[ StyleBox["\<\"small\"\>", StripOnInput->False, FontSize->Scaled[0.03938651672883149], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {-123.5, 28.5}, Center, Automatic], InsetBox[ StyleBox["\<\"cried\"\>", StripOnInput->False, FontSize->Scaled[0.041891666202750096`], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {28.5, 127.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Quite\"\>", StripOnInput->False, FontSize->Scaled[0.035211267605633804`], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {27.5, -127.5}, Center, Automatic], InsetBox[ StyleBox["\<\"name\"\>", StripOnInput->False, FontSize->Scaled[0.03604631743027334], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {-0.5, 132.5}, Center, Automatic], InsetBox[ StyleBox["\<\"chair\"\>", StripOnInput->False, FontSize->Scaled[0.03688136725491288], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {-36.5, 126.5}, Center, Automatic], InsetBox[ StyleBox["\<\"heart\"\>", StripOnInput->False, FontSize->Scaled[0.037716417079552415`], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {-122.5, -52.5}, Center, Automatic], InsetBox[ StyleBox["\<\"mind\"\>", StripOnInput->False, FontSize->Scaled[0.03938651672883149], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {54.5, -128.5}, Center, Automatic], InsetBox[ StyleBox["\<\"took\"\>", StripOnInput->False, FontSize->Scaled[0.03938651672883149], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {128.5, 9.5}, Center, Automatic], InsetBox[ StyleBox["\<\"asked\"\>", StripOnInput->False, FontSize->Scaled[0.035211267605633804`], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {-28.5, -134.5}, Center, Automatic], InsetBox[ StyleBox["\<\"fire\"\>", StripOnInput->False, FontSize->Scaled[0.04773701497522686], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-130.5, -14.5}, Center, Automatic], InsetBox[ StyleBox["\<\"world\"\>", StripOnInput->False, FontSize->Scaled[0.035211267605633804`], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {122.5, -74.5}, Center, Automatic], InsetBox[ StyleBox["\<\"shall\"\>", StripOnInput->False, FontSize->Scaled[0.03855146690419195], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {-127.5, 40.5}, Center, Automatic], InsetBox[ StyleBox["\<\"table\"\>", StripOnInput->False, FontSize->Scaled[0.035211267605633804`], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {-0.5, -135.5}, Center, Automatic], InsetBox[ StyleBox["\<\"let\"\>", StripOnInput->False, FontSize->Scaled[0.05024216444914547], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {130.5, 44.5}, Center, Automatic], InsetBox[ StyleBox["\<\"saw\"\>", StripOnInput->False, FontSize->Scaled[0.04272671602738964], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {126.5, 64.5}, Center, Automatic], InsetBox[ StyleBox["\<\"wind\"\>", StripOnInput->False, FontSize->Scaled[0.035211267605633804`], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {54.5, 132.5}, Center, Automatic], InsetBox[ StyleBox["\<\"wife\"\>", StripOnInput->False, FontSize->Scaled[0.03855146690419195], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {-130.5, -39.5}, Center, Automatic], InsetBox[ StyleBox["\<\"life\"\>", StripOnInput->False, FontSize->Scaled[0.04523186550130824], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {-57.5, 134.5}, Center, Automatic], InsetBox[ StyleBox["\<\"bed\"\>", StripOnInput->False, FontSize->Scaled[0.035211267605633804`], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {-130.5, -65.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sat\"\>", StripOnInput->False, FontSize->Scaled[0.035211267605633804`], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {70.5, 20.5}, Center, Automatic], InsetBox[ StyleBox["\<\"s\"\>", StripOnInput->False, FontSize->Scaled[0.05942771252018038], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {127.5, -32.5}, Center, Automatic], InsetBox[ StyleBox["\<\"\[CloseCurlyQuote]m\"\>", StripOnInput->False, FontSize->Scaled[0.03604631743027334], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {-39.5, 18.5}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Source Sans Pro"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-142., 142.}, {-142., 142.}}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.705424554763525*^9, 3.886181958383417*^9}, CellLabel->"Out[6]="] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{775, 852}, WindowMargins->{{462, 443}, {Automatic, 21}}, WindowTitle->"Examples for The Haunted Man and the Ghost's Bargain: A Fancy \ for Christmas\[Hyphen]Time", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, FrontEndVersion->"13.2 for Mac OS X x86 (64-bit) (November 18, 2022)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[681, 24, 36, 0, 70, "Subsection",ExpressionUUID->"dd0aa022-a488-4517-b4e8-8799992b4799"], Cell[720, 26, 162, 2, 70, "Text",ExpressionUUID->"e1cfb495-0c91-428e-9ff1-c0990043a31d"], Cell[CellGroupData[{ Cell[907, 32, 487, 12, 70, "Input",ExpressionUUID->"d5d80203-9e5b-4977-bea9-89f2e1b23001"], Cell[1397, 46, 555, 8, 70, "Output",ExpressionUUID->"9087c56d-700b-49fd-8157-9a027adc037c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2001, 60, 35, 0, 70, "Subsection",ExpressionUUID->"2889c7a4-10ce-45fc-b6d8-8dc746d78bcf"], Cell[2039, 62, 352, 5, 70, "Text",ExpressionUUID->"97da7839-aae7-4d5f-ae86-e75982d08a8d"], Cell[CellGroupData[{ Cell[2416, 71, 594, 12, 70, "Input",ExpressionUUID->"f258e666-d6c4-4e3b-9c1f-e19c657dd130"], Cell[3013, 85, 24361, 574, 70, "Output",ExpressionUUID->"f7aec0ef-6e32-4c4b-95d4-dc5843ffda04"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)