sig type t = { hr : int; min : int; sec : int; ms : int; } end