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:     repoDir |> FindKnownProjects 
              |> Seq.map (parser repoDir)
  
  let private ParseWorkspaceProjects (parser) (wsDir : DirectoryInfo) (repos : string seq) : ProjectParsing.ProjectDescriptor seq = 
      repos |> Seq.map (GetSubDirectory wsDir) 
            |> Seq.filter (fun x -> x.Exists) 
            |> Seq.map (ParseRepositoryProjects parser) 
            |> Seq.concat
  
  
  let Create(path : string) = 
      let wsDir = DirectoryInfo(path)
  
negative.code:                 XElement (NsMsBuild + "HintPath", binFile),
                  XElement (NsMsBuild + "Private", "true"))))
  
  let GenerateProjects (projects : Project seq) (xdocSaver : FileInfo -> XDocument -> Unit) =
      let prjDir = WorkspaceProjectFolder ()
      for project in projects do
          let content = GenerateProjectTarget project
          let projectFile = AddExt (project.ProjectGuid.ToString("D")) Targets |> GetFile prjDir
          xdocSaver projectFile content
  
  let ConvertProject (xproj : XDocument) (project : Project) =
      let filterProject (xel : XElement) =
  