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