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