let
iter_succ_e f g = iter_e_one_dir f g.d_graph