let print_all () =
  compute ();
  result "%t" (fun fmt -> Occurrences.iter (print_one fmt))