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