(** Reactive view of the current time *)

type t

val create : int -> transaction t
(* Specify the clock resolution, in milliseconds. *)

val start : t -> transaction {}
(* Call this in client-side code (e.g., 'onload' handler) to begin. *)

val signal : t -> signal time