let iter_file_lines filename func =
  fold_file_lines (fun () line -> func line) () filename