Moved apply standard setup code to data processing.

Removed irrelevant comments.

WetPancake/DataProcessing.fs

@@ -23,4 +23,13 @@
     let CombineWords prev next =
         [prev; next]
         |> List.filter(fun s -> not (String.IsNullOrWhiteSpace s))
+        |> ConcatToString
+
+    let ApplyStandardSetup text =
+        text
+        |> ReplaceArtifact "\""
+        |> ReplaceArtifact "\n\nIn"
+        |> ReplaceArtifact "\r"
+        |> ReplaceArtifact "\n"
+        |> SplitText @"\s+"
         |> ConcatToString

WetPancake/ProductServices.fs

@@ -2,25 +2,12 @@
 
 module  Pancake =
 
-    //YOU ARE UP TO HERE.
-    // NEED TO MOVE STUFF UP A LEVEL.
-    // CREATE AN OBJECT TO STOP THE STATIC CONTENT.
     open SystemServices
     open DataAccess
-    open DataCleaning
     open DataProcessing
     open DataStructuring
     open DataServices
 
-    let ApplyStandardSetup text =
-        text
-        |> ReplaceArtifact "\""
-        |> ReplaceArtifact "\n\nIn"
-        |> ReplaceArtifact "\r"
-        |> ReplaceArtifact "\n"
-        |> SplitText @"\s+"
-        |> ConcatToString
-
     let RequestRandomText() =
        let data =
            LoadFile SelectRandomSampleFile