anchor.diff:    member val condConnections = HashSet<string*string>()
   
     member x.AddMapping(tname:string, alias: string option) =
  +    let tname = normalizeTablename tname
  +    printfn "Adding %s..." tname
       match alias with
       | Some(alias) -> 
         x.tableToAlias.Add(tname, alias)
  
positive.code:     ret.Add def
    ret
  
  let fetchTables() =
    use cmd = conn.CreateCommand()
    cmd.CommandText <- "select s.name + '.' + t.name from sys.tables t join sys.schemas s on t.schema_id = s.schema_id
   where t.is_ms_shipped = 0
   union 
   select s.name + '.' + v.name from sys.views v join sys.schemas s on v.schema_id = s.schema_id"
    use rdr = cmd.ExecuteReader()
    let ret = HashSet<_>()
    while rdr.Read() do ignore <| (ret.Add <| rdr.GetString(0))
    ret
  
  let parse (sql:string) =
  
negative.code:     |> Set.ofSeq
    printfn "Result: %A" relationships
    visualize relationships
      
  do run()    