anchor.diff:      let generateFileContent (refLines: #seq<string>) =
           String.Join(Environment.NewLine, headerComment, String.Join(Environment.NewLine, refLines))
   
  -    let tryGetExistingFileRefs project fileName = 
  +    let getExistingFileRefs project fileName = 
           let filePath = getFullFilePathInScriptFolder project fileName  
           if File.Exists filePath then
               File.ReadLines filePath
               |> Seq.filter (fun (line: string) -> line.StartsWith "#r")
               |> Seq.toList
  -            |> Some
  -        else None
  +        else []
   
       let mergeRefs existing actual =
           // remove refs which don't actual anymore (they have been removed from the project)
  
positive.code:         project.Properties.Item("FullPath").Value.ToString()
  
      let getFullFilePathInScriptFolder project fileName = 
          let projectFolder = getProjectFolder project
          let scriptFolder = projectFolder </> scriptFolderName
          if not (Directory.Exists scriptFolder) then
              Directory.CreateDirectory(scriptFolder) |> ignore
          scriptFolder </> fileName
  
      let addFileToActiveProject(project: Project, fileName: string, content: string) = 
          if isFSharpProject project then
              let textFile = getFullFilePathInScriptFolder project fileName
              use writer = File.CreateText(textFile)
              writer.Write(content)
  
              let projectFolderScript = 
                  project.ProjectItems.Item(scriptFolderName)
                  |> Option.ofNull
                  |> Option.getOrTry (fun _ ->
                      project.ProjectItems.AddFolder(scriptFolderName))
              projectFolderScript.ProjectItems.AddFromFile(textFile) |> ignore
              project.Save()
  
      let getActiveProjectOutput (project: Project) =
          Option.attempt <| fun _ ->
  
negative.code:             let loadRefsFileName = "load-references.fsx"
              let actualRefs = generateRefs project
              let refs = 
                  let existingRefs = getExistingFileRefs project loadRefsFileName
                  mergeRefs existingRefs actualRefs
  
              addFileToActiveProject(project, loadRefsFileName, generateFileContent refs)
              let content = generateLoadScriptContent(project, "load-references.fsx")
              addFileToActiveProject(project, "load-project.fsx", content))
  