Wrote request text function.

WetPancake/ProductServices.fs

@@ -23,13 +23,19 @@ module  Pancake =
         |> ConcatToString
 
     let RequestRandomText() =
-       let data2 =
+       let data =
            LoadFile SelectRandomSampleFile
            |> ApplyStandardSetup
            |> SortIntoGroups (PickRandomNumber 10)
            |> GenerateMap
-       GenerateMarkovText (PickRandomNumber 10) data2
+       GenerateMarkovText (PickRandomNumber 10) data
 
-    //let RequestText (gibberishLevel: int) (sentences: int)
+    let RequestText (gibberishLevel: int) (sentences: int) =
+        let data =
+            LoadFile SelectRandomSampleFile
+            |> ApplyStandardSetup
+            |> SortIntoGroups gibberishLevel
+            |> GenerateMap
+        GenerateMarkovText sentences data
 
     //let RequestTextFromFile (gibberishLevel: int) (sentences: int) (filePath: string)