let iter_bases f r =
    List.iter (fun (p,r) -> f p r) r.bases