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