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