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