anchor.diff:            else
               let number = name.Substring(lastLetterPos + 1)
               name <- name.Substring(0, lastLetterPos + 1) + (UInt64.Parse number + 1UL).ToString()
  -        set.Add name |> ignore
  +        set.TryAdd (name,()) |> ignore
           name
   
   
  
positive.code: let erasedType<'T> assemblyName rootNamespace typeName = 
      ProvidedTypeDefinition(assemblyName, rootNamespace, typeName, Some(typeof<'T>))
  
  let generalTypeSet = System.Collections.Generic.HashSet()
  
  let runtimeType<'T> typeName = ProvidedTypeDefinition(niceName generalTypeSet typeName, Some typeof<'T>)
  
  
negative.code:                         yield sub.[0].ToString().ToUpper() + sub.ToLower().Substring(1) }
              |> String.concat ""
  
          while set.ContainsKey name do 
            let mutable lastLetterPos = String.length name - 1
            while Char.IsDigit name.[lastLetterPos] && lastLetterPos > 0 do
              lastLetterPos <- lastLetterPos - 1
  