let date_of_file filename =
  try Some ((Unix.stat filename).Unix.st_mtime)
  with _ -> None