class virtualInherits['a]output :nb_blocks:int -> blank:(unit -> 'a) ->object..end
method virtual id : stringmethod virtual push_block : 'a -> unitmethod virtual close : unitmethod output_stop : unitmethod output_start : unitmethod reader : unitmethod put_block : ('a -> unit) -> unit