type t
= int * int * int * int
val fprintf_day : Stdlib.Format.formatter -> int -> unit
val fprintf_hour : Stdlib.Format.formatter -> int -> unit
val fprintf_min : Stdlib.Format.formatter -> int -> unit
val fprintf : Stdlib.Format.formatter -> (int * int * int) -> unit