Parameter Interval.1-I

type interval_id
val set_interval : (unit -> unit) -> int -> interval_id
val clear_interval : interval_id -> unit