let add_isect (graph : graph)
              (source : nodeid)
              (target : nodeid) : unit =
  let source_node = find_node graph source in
  let target_node = find_node graph target in
    add source_node.outb (OutIsect target);
    add target_node.inb  (InIsect source)