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