anchor.diff:      lines
       |> CloudStream.ofCloudArray
       |> CloudStream.collect (fun line -> 
  -        line.Split([|' '; '.'; ','|], StringSplitOptions.RemoveEmptyEntries) 
  +        splitWords line
           |> Stream.ofArray
           |> Stream.map (fun word -> word.ToLower())
           |> Stream.map (fun word -> word.Trim()))
  
positive.code: 
  open System
  open System.IO
  open Nessos.MBrace
  open Nessos.MBrace.Client
  open Nessos.Streams.Core
  
negative.code:         "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)))
  