anchor.diff:      let setOutputPath (xel : XElement) =
           xel.Value <- MSBUILD_BIN_FOLDER
   
  +    let stringifyGuid (guid : System.Guid) =
  +        guid.ToString("D)")
  +
  +    // cleanup everything that will be modified
       let cproj = XDocument (xproj)
       cproj.Descendants(NsMsBuild + "ProjectReference").Remove()
       cproj.Descendants(NsMsBuild + "Import").Where(filterProject).Remove()
  
positive.code:     // This is the import targets that will be Import'ed inside a proj file.
      // First we include full-build view configuration (this is done to avoid adding an extra import inside proj)
      // Then we end up either importing output assembly or project depending on view configuration
      XElement (NsMsBuild + "Project", 
          XElement (NsMsBuild+"Import",
              XAttribute (NsNone + "Project", "$(SolutionDir)/.full-build/views/$(SolutionName).targets"),
              XAttribute (NsNone + "Condition", "'$(FullBuild_Config)' == ''")),
  
negative.code:     // add project refereces
      let afterItemGroup = cproj.Descendants(NsMsBuild + "ItemGroup").First()
      for projectReference in project.ProjectReferences do
          let prjRef = stringifyGuid projectReference
          let importFile = sprintf "%s%s.targets" MSBUILD_PROJECT_FOLDER prjRef
          let import = XElement (NsMsBuild + "Import",
                          XAttribute (NsNone + "Project", importFile))
          afterItemGroup.AddAfterSelf (import)
      cproj
  
  let ConvertProjects (antho : Anthology) (xdocSaver : FileInfo -> XDocument -> Unit) =
      let wsDir = WorkspaceFolder ()
      for project in antho.Projects do
          let repoDir = project.Repository |> GetSubDirectory wsDir
          let projFile = project.RelativeProjectFile |> GetFile repoDir
          printfn "Converting %A" projFile.FullName
          let xproj = XDocument.Load (projFile.FullName)
          let convxproj = ConvertProject xproj project
          xdocSaver projFile convxproj
  
  let XDocumentSaver (fileName : FileInfo) (xdoc : XDocument) =
      xdoc.Save (fileName.FullName)
  
  let Convert () = 
      let antho = LoadAnthology ()
      GenerateProjects antho.Projects XDocumentSaver
      ConvertProjects antho XDocumentSaver
  