anchor.diff:  
   
   module Directory = 
  -    /// get all transformed files of a directory by extension
  +    /// Get all transformed files of a directory by extension.
       let rec GetFilesTransformed transform caseSensitive ext dir =
           let files =  try Directory.GetFiles dir with | _ -> [||]
           let dirs = try Directory.GetDirectories dir with | _ -> [||]
  
positive.code:         ``Utils.GetFilesGroupedBySHA1``() |> printfn "%A"
          printfn "[SHA1] %d multiple files grouped by hash" (hashedMultiFilesSHA1 |> Seq.filter (fun (_,x) -> x |> Seq.length > 1) |> Seq.length)
          printfn "[SHA1] %A min/max of multiple file counts" (hashedMultiFilesSHA1 |> Seq.filter (fun (_,x) -> x |> Seq.length > 1) |> Seq.map (fun (_,x) -> x |> Seq.length) |> fun x -> (x |> Seq.min), (x |> Seq.max))
  
  
negative.code: 
  
  module Utils =
      /// Create hard link at dest with source.
      let CreateHardLink dest source =
          Kernel32.CreateHardLink(dest, source, IntPtr.Zero)
      
      /// Get all transformed files of a sequence of directories by extension.
      let GetFilesTransformed transform caseSensitive ext dirs =
          dirs |> Seq.collect (Directory.GetFilesTransformed transform caseSensitive ext) |> Array.ofSeq
  
      /// Get FileInfo of all files of a sequence of directories by extension.
      let GetFileInfos caseSensitive ext dirs = 
          GetFilesTransformed (fun x -> new FileInfo(x)) caseSensitive ext dirs
  
      /// Get FullName of all files of a sequence of directories by extension.
      let GetFiles caseSensitive ext dirs = 
          GetFilesTransformed id caseSensitive ext dirs
  
  