anchor.diff:          let nodesToDelete = List<_>()
           
           let libs = model.GetReferenceNames.Force()
  -        for node in this.Document.SelectNodes("//ns:Reference", this.Namespaces) do
  +        for node in this.Document |> getDescendants "Reference" do
               if Set.contains (node.Attributes.["Include"].InnerText.Split(',').[0]) libs then          
                   nodesToDelete.Add node
   
  
positive.code: 
          for fileItem in fileItems |> List.rev do
              let paketNode = this.createFileItemNode fileItem
              let xpath = sprintf "//ns:%s[starts-with(@Include, '%s')]" 
                                  fileItem.BuildAction 
                                  (Path.GetDirectoryName(fileItem.Include))
              let fileItemsInSameDir = this.Document.SelectNodes(xpath, this.Namespaces) |> Seq.cast<XmlNode>
              if fileItemsInSameDir |> Seq.isEmpty 
              then 
                  newItemGroups.[fileItem.BuildAction].PrependChild(paketNode) |> ignore
  
negative.code:         this.DeletePaketNodes("Compile")
          this.DeletePaketNodes("Content")
  
          let firstItemGroup = this.ProjectNode |> getNodes "ItemGroup" |> Seq.firstOrDefault
  
          let newItemGroups = 
              match firstItemGroup with
  