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