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