anchor.diff:  
   open System
   open System.IO
  +open System.Text.RegularExpressions
   open Nessos.MBrace
   open Nessos.MBrace.Client
   open Nessos.Streams.Core
  
positive.code:         "shall"
      ]
  
  let lines = 
      files
      |> Array.map (fun f -> StoreClient.Default.CreateCloudArrayAsync("tmp", File.ReadLines(f)))
  
negative.code:     lines
      |> CloudStream.ofCloudArray
      |> CloudStream.collect (fun line -> 
          splitWords line
          |> Stream.ofArray
          |> Stream.map (fun word -> word.ToLower())
          |> Stream.map (fun word -> word.Trim()))
  