sig val delay : int -> unit val get_ticks : unit -> int end