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