Seperate start words function seems to be working.

Wrote some test code in the script file to play with it,

WetPancake/Script.fsx

@@ -54,7 +54,7 @@ let dp_words =
     ConcatToString words
 let dp_words2 =
     let words = "This is a test. And has serveral words in it."
-    SortIntoPairs 4 words
+    SortIntoPairs 2 words
     |> Seq.toList
 let dp_bisect =
     let words = [|"This"; "is"; "a"; "test"; "."; "Contains"; "text"; "."|]
@@ -85,12 +85,20 @@ let ds_map2 =
     result
 let ds_map3 = ConstructMap ds_map ds_text
 let ds_text2 = [
-    [|"This"; "is"; "the"; "first"; "test"; "string.";|]
-    [|"This"; "is"; "the"; "second"; "test"; "string";|]
-    [|"This"; "is"; "the"; "third"; "test"; "string";|]
+    [|"This"; "is"; "the"; "first"; "test"; "string."|]
+    [|"This"; "is"; "the"; "first"; "test"; "string."|]
+    [|"this"; "is"; "the"; "second"; "test"; "string"|]
+    [|"this"; "is"; "the"; "third"; "test"; "string"|]
     ]
 let ds_map4 = ConstructMap ds_map ds_text2.[1]
 let ds_map5 = [for i in ds_text2 -> ConstructMap ds_map i]
-//ConstructMap ds_map ds_text2
-//let ds_start = SeperateStartWords ds_map3
-// YOU ARE UP TO HERE. YOU NEED TO BUILD A BIGGER MAP TO TEST THE START WORD CODE.
+let ds_map6 =
+    let result =
+        [for item in ds_map5 do
+            for i in item -> i]
+    result
+let ds_map7 =
+    let result =
+        [for item in ds_map5 -> SeperateStartWords item]
+    result
+let ds_map7Item = ds_map7.Item(0)