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