Module IoRing

module IoRing: sig .. end

class virtual ['a] base : nb_blocks:int -> blank:(unit -> 'b) -> object .. end

class virtual ['a] input : nb_blocks:int -> blank:(unit -> 'a) -> object .. end

class virtual ['a] output : nb_blocks:int -> blank:(unit -> 'a) -> object .. end