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