anchor.diff:          "shall"
       ]
   
  +let splitWords =
  +    let regex = new Regex(@"[\W]+", RegexOptions.Compiled)
  +    fun word -> regex.Split(word)
  +
  +
   let lines = 
       files
       |> Array.map (fun f -> StoreClient.Default.CreateCloudArrayAsync("tmp", File.ReadLines(f)))
  
positive.code:     lines
      |> CloudStream.ofCloudArray
      |> CloudStream.collect (fun line -> 
          line.Split([|' '; '.'; ','|], StringSplitOptions.RemoveEmptyEntries) 
          |> Stream.ofArray
          |> Stream.map (fun word -> word.ToLower())
          |> Stream.map (fun word -> word.Trim()))
  
negative.code: 
  open System
  open System.IO
  open System.Text.RegularExpressions
  open Nessos.MBrace
  open Nessos.MBrace.Client
  open Nessos.Streams.Core
  