anchor.diff:      let ``Utils.GetFilesGroupedBySHA1``() =
           hashedMultiFilesSHA1  
   
  +    let ``Utils.CoerceFilesIntoHardLinks``() = files |> Utils.CoerceFilesIntoHardLinks true
  +
       let Run() =
           ``Kernel32.Create hard link``()
           ``Utils.GetFile``() |> printfn "%d"
  
positive.code:         [|"MD5"; "SHA1"; "SHA256"; "SHA384"; "SHA512"; "RIPEMD160"|] 
          |> Array.map (fun t -> t, HashAlgorithm.Create(t))
  
      /// get array of variants of hashes for all given files
      let GetFilesHashedDiagnostic verbose (hashTypes: (string*HashAlgorithm)[]) (files : string[]) =
          let hashedFile file =       
              try
  
negative.code:             with _ -> None
          files |> Array.map hashedFile |> Array.choose id
  
      /// Get SHA1-hashes with label and elapsed calculation time for each given file.
      let GetFileSHA1 verbose files = 
          files
          |> GetFilesHashedDiagnostic verbose [|"SHA1", HashAlgorithm.Create("SHA1")|] 
  