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