method stats_of_fic f =
(* get only the stats that are relative to file fic. remove them
from stats and return them *)
let prop element =
let (fic,_,_) = element in
(f=fic)
in
let (good, bad) = (List.partition prop !stats) in
stats <- ref bad;
good