let add_links graph prev_list next = let link prev = add_link graph prev next in List.iter link prev_list