let now () = snd (Time.to_local_date_ofday (Time.now ()))