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