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 (|Lower|_|) = satisfies Char.IsLower
  
  /// Turns a string into a nice PascalCase identifier
  let niceName (set:System.Collections.Generic.HashSet<_>) =     
      fun (s: string) ->
          if s = s.ToUpper() then s else
          // Starting to parse a new segment 
  
negative.code: let erasedType<'T> assemblyName rootNamespace typeName = 
      ProvidedTypeDefinition(assemblyName, rootNamespace, typeName, Some(typeof<'T>))
  
  let generalTypeSet = System.Collections.Concurrent.ConcurrentDictionary()
  
  let runtimeType<'T> typeName = ProvidedTypeDefinition(niceName generalTypeSet typeName, Some typeof<'T>)
  
  