anchor.diff:  let GeneratePatchWithFindOldFileFunction lastReleaseDir patchDir srcFiles findOldFileF =
       srcFiles
         |> Seq.map (fun file -> 
  -            let newFile = toRelativePath file
  -            let oldFile = findOldFileF newFile (lastReleaseDir + newFile.TrimStart('.'))
  -            let fi = fileInfo oldFile
  -            if not fi.Exists then logVerbosefn "LastRelease has no file like %s" fi.FullName
  -            newFile,oldFile)         
  -      |> Seq.filter (fun (newF,oldF) -> CompareFiles false oldF newF |> not)
  -      |> Seq.iter (fun (newF,oldF) -> CopyFileIntoSubFolder patchDir newF)
  +            async {
  +                let newFile = toRelativePath file
  +                let oldFile = findOldFileF newFile (lastReleaseDir + newFile.TrimStart('.'))
  +                let fi = fileInfo oldFile
  +                if not fi.Exists then logVerbosefn "LastRelease has no file like %s" fi.FullName
  +                if CompareFiles false oldFile newFile |> not then
  +                    CopyFileIntoSubFolder patchDir newFile })
  +      |> Async.Parallel
  +      |> Async.RunSynchronously
  +      |> ignore
   
   /// Checks the srcFiles for changes to the last release
   ///  param lastReleaseDir: The directory of the last release
  
positive.code:          
      ReadFile file
        |> Seq.map csvRegEx.Split 
        |> Seq.map (Array.map (fun s -> s.Trim([| '"' |])))
               
  /// Appends all given files to one file 
  ///   param newFileName: The target FileName.
  
negative.code:     let two = Array.create BYTES_TO_READ (byte 0)
  
      let mutable eq = true
      for i in 0..iterations do
          if eq then
            fs1.Read(one, 0, BYTES_TO_READ) |> ignore
            fs2.Read(two, 0, BYTES_TO_READ) |> ignore
  