anchor.diff:  
   /// Checks if all given files exists
   let allFilesExist files = Seq.forall File.Exists files
  +
  +/// Performs the given actions on all files and subdirectories
  +let rec recursively dirF fileF (dir:DirectoryInfo) =
  +    dir.GetDirectories() 
  +      |> Seq.iter (fun dir ->
  +        recursively dirF fileF dir
  +        dirF dir)
  +
  +    dir.GetFiles() 
  +      |> Seq.iter fileF
   
   /// Sets the directory readonly 
   let setDirectoryReadOnly readOnly (dir:DirectoryInfo) = 
  
positive.code:           fi.IsReadOnly <- readOnly
        else
            let di = new DirectoryInfo(file)
            setDirectoryReadOnly readOnly di)
        
        
  /// Deletes a directory if it exists
  let DeleteDir x =   
  
negative.code:     srcFiles
        |> Seq.map (fun n -> 
              let newFile = toRelativePath n 
              let oldFile = findOldFileF newFile (lastReleaseDir @@ (newFile.TrimStart '.'))
              let fi = new FileInfo(oldFile)
              if not fi.Exists then logVerbosefn "LastRelease has no file like %s" fi.FullName
              newFile,oldFile)         
  