anchor.diff:  
   /// Creates recursive WiX directory and file tags from the given DirectoryInfo
   let rec wixDir fileFilter asSubDir (directoryInfo:DirectoryInfo) =
  -    dirCount <- dirCount + 1
       let dirs =
         directoryInfo
           |> subDirectories
  
positive.code: 
  open System
  open System.IO
  
  let mutable internal fileCount = 0
  let mutable internal dirCount = 0
  
  /// Creates a WiX File tag from the given FileInfo
  let wixFile (fileInfo:FileInfo) =
  
negative.code:         |> Seq.map wixComponentRefs
          |> toLines
  
      if (filesInDir directoryInfo).Length > 0 then sprintf "%s<ComponentRef Id=\"%s\"/>\r\n" compos (compRefName directoryInfo.Name) else compos
  
  open System
  
  