sig external delay : int -> unit = "sdltimer_delay" "noalloc" external get_ticks : unit -> int = "sdltimer_get_ticks" "noalloc" end