sig
  type 'a t = 'a
  val return : '-> 'a
  val bind : '-> ('-> 'b) -> 'b
  val fail : exn -> 'a
  val catch : (unit -> 'a) -> (exn -> 'a) -> 'a
  val finalize : (unit -> 'a) -> (unit -> 'b) -> 'a
  val sleep : float -> unit
  val auto_yield : '-> unit -> unit
end