module Idle: sig .. end
sig
end
type id
val add : callback:(unit -> bool) -> id
callback:(unit -> bool) -> id
val remove : id -> unit
id -> unit