Notes to myself for the next time.

WetPancake/MapProcessing.fs

@@ -9,6 +9,8 @@
             |> Map.partition (fun k _ -> IsStartOfSentence k)
         fst startWords
 
+    // this is jus repreating the fisrt sentence it makes.
+    // YOU ARE UP TO HERE.
     let rec MarkovChain currentWords (map: Map<string, string list>) sentence =
         let nextChoice = map.[currentWords] |> GetRandomWord
         if IsEndOfSentence nextChoice then nextChoice :: sentence