anchor.diff:    printfn "Result: %A" realTables
     let relationships = 
       relationships 
  -    |> Seq.filter (fun (a, b) -> (realTables.Contains a) && (realTables.Contains b))
  +    |> Seq.filter (fun (a, b, _) -> (realTables.Contains a) && (realTables.Contains b))
       |> Set.ofSeq
     printfn "Result: %A" relationships
     visualize relationships
  +
  +
       
  -do run()    +do run()    
  +
  +
  
positive.code:     let nodes = Text.StringBuilder()
      w nodes "var nodes = new vis.DataSet(["
  
      for (a, b) in rels do
        let aid = mkId a
        let bid = mkId b
        w edges (sprintf "{from: %d, to: %d}," aid bid)
  
      for KeyValue(tname, id) in ids do
        w nodes (sprintf "{id: %d, label: '%s'}," id tname)
  
      w edges "]);"
      w nodes "]);"
  
negative.code: </html>
    """
  
  let visualize (rels:Set<string*string*string>) =
    let script =
      let mutable nextId = 0
      let ids = Dictionary<string, int>()
  