anchor.diff:    let srcFiles,refDlls =
       match fsproj with
       | Some fsproj ->
  -      let ns = System.Xml.XmlNamespaceManager(System.Xml.NameTable())
  -      ns.AddNamespace("msbuild", "http://schemas.microsoft.com/developer/msbuild/2003")
         let files = 
  -        fsproj.Root.XPathSelectElements ("//msbuild:Compile", ns)
  +        fsproj.Root.XPathSelectElements ("//Compile")
           |> Seq.map (fun e -> e.Attribute(XName.op_Implicit "Include").Value)
           |> Seq.toList
           |> List.filter ((<>) "AssemblyInfo.fs")
  
positive.code:   |> List.map (fun (k, vs) -> k,List.map snd vs)
    |> List.iter noOverlap
  
  let fillSnippets commit msg =
    let fsproj = 
      fileContentsAt commit "SuaveMusicStore.fsproj"
  
negative.code:           src, fileContentsAt commit src
                 |> Seq.cast<string>
                 |> Seq.toList)
        let paket = fileContentsAt commit "paket.dependencies"
        let inPaket (package : string) =
          paket
          |> Seq.exists 
            (fun line -> line.ToLower().Contains (package.ToLower()))
        let dlls =
          packages
          |> List.filter (fst >> inPaket)
          |> List.map (snd >> (sprintf "%s/packages/%s" repo))
        files, dlls
      | None ->
        tracefn "No fsproj for commit %s" commit
  