@ -13,6 +13,7 @@
let ConstructMap map text =
BisectWords text ||> UpdateMap map
// This might be better in data processing...
let SeperateStartWords map =
let startWords, otherWords =
map