date and duration in ocaml