anchor.diff: +open System.Text.RegularExpressions
  +
  +
   #r "System.dll"
   #r "../../lib/Microsoft.SqlServer.TransactSql.ScriptDom.dll"
   
  
positive.code:     for (KeyValue(k,v)) in tree.children do
        this.printTree v sb (depth + 1)
  
    member this.getDestTypeName (typ:Type) = 
      if typ.IsEnum then "ScriptDom." + typ.Name
      else
        match typ.Name with 
        | "Boolean" -> "bool"
  
negative.code:       | "Microsoft.SqlServer.TransactSql.ScriptDom" -> Some(typ)
        | _ -> None 
  
      if typ.IsEnum then None
      elif typ.IsGenericType then
        let genTp = typ.GetGenericTypeDefinition()
        match typ.GetGenericArguments() with
        | [|gentypA|] -> ofTyp gentypA
  