sig
  type 'a cont
  val suspend : ('a Reagents.Scheduler.cont -> 'a option) -> 'a
  val resume : 'a Reagents.Scheduler.cont -> 'a -> unit
  val get_tid : unit -> int
end