let export f roots_iter = Array.iter (fun ids -> f (declarations ids)) (Components.scc_roots roots_iter)