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