let days_to_seconds n =
  let conv = 24 * 60 * 60 in
  (n * conv)
;;