let iter_file ?(strict=true) f file =
    fold_file ~strict (fun _ x -> f x) () file