anchor.diff:  
         for i in [0..props.Length - 1] do
           let prop = props.[i]
  -        w "%s:%s" (prop.Name) (x.getDestPropName prop.PropertyType)
  +        let propName =
  +          match prop.Name with
  +          | "Type" -> "``Type``"
  +          | s -> s
  +
  +        w "%s:%s" propName (x.getDestPropName prop.PropertyType)
           if i <> props.Length - 1 then w " * "
   
     member x.decapitalizePropName(propName:string) =
  
positive.code: #r "System.dll"
  #r "../../lib/Microsoft.SqlServer.TransactSql.ScriptDom.dll"
  
  
negative.code:     for (KeyValue(k,v)) in tree.children do
        this.printTree v sb (depth + 1)
  
    
    member this.getDestTypeName (typ:Type) = 
      if typ.IsEnum then 
        let name = typ.FullName.Replace("+", ".")
        if name.StartsWith("Microsoft.SqlServer.TransactSql.") then
          name.Substring("Microsoft.SqlServer.TransactSql.".Length)
        else 
          name
      else
        match typ.Name with 
        | "Boolean" -> "bool"
  