class virtualInherits['a]
input :nb_blocks:int -> blank:(unit -> 'a) ->
object
..end
method virtual pull_block : 'a -> unit
method virtual id : string
method virtual close : unit
method private sleep : unit
method output_get_ready : unit
method private writer : unit
method private get_block : 'a