anchor.diff:  
       let identical = 
           if not (ori.Exists && comp.Exists && ori.Length = comp.Length) then false else
  -        if ori.LastWriteTime = comp.LastWriteTime then true else FilesAreEqual ori comp
  +        ori.LastWriteTime = comp.LastWriteTime || FilesAreEqual ori comp
   
       if not identical then false else
       if delete then      
  
positive.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
  
negative.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.
  