anchor.diff:          let name = toClassName <| indexator.getLiteralName i
                       
           nameOfClasses := name + literalSuffix + csExtension :: !nameOfClasses
  -        tokensAndLits <- name :: tokensAndLits
           let info : TokenInfo =  
               {
                   _baseClass = baseClass
  
positive.code:     for className in nameOfClasses do
          printer.PrintBrInd 2 "<ExternalCompile Include=\"%s\" />" className
  
      printer.PrintBrInd 2 "<Content Include=\"%s%s\">" xmlName xmlExtension
      printer.PrintBrInd 3 "<CopyToOutputDirectory>Always</CopyToOutputDirectory>"
      printer.PrintBrInd 2 "</Content>"
  
      printer.PrintBrInd 1 "</ItemGroup>"
      printer.PrintBrInd 1 "</Project>"
      printer.GetString()
  
negative.code:         let name = indexator.indexToTerm i
                      
          nameOfClasses := name + termSuffix + csExtension :: !nameOfClasses
          let info : TokenInfo =  
              {
                  _baseClass = baseClass
  