let forward_intersect (graph : graph) (source : nodeid) (target : nodeid) : unit=
  let source_node = find_node graph source in
  let target_node = find_node graph target in
    target_node.lang <- simple_intersect source_node.lang target_node.lang