let iter_promises f l =
  Base.List.fold_left l ~init:(Lwt.return ()) ~f:(fun acc e -> acc >>= fun () -> f e)