let iter_edges_actions f proj =
let rec do_act_edge n rq_list = match rq_list with
| [] -> ()
| _ :: [] -> ()
| rq1 :: rq2 :: rq_list ->
f (((Action (n, rq1)), (Action (n+1, rq2))), None);
do_act_edge (n+1) (rq2 :: rq_list)
in do_act_edge 1 proj.T.actions