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