Make.IO
include Generic_io.S
type 'a t
val return : 'a -> 'a t
val (let*) : 'a t -> ('a -> 'b t) -> 'b t
val protect : finally:(unit -> unit t) -> (unit -> 'a t) -> 'a t
val sleep_s : float -> unit t
val spawn : (unit -> unit t) -> unit