(************************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) (* in_channel -> int -> char option val flush_until_end_of_stream : 'a Stream.t -> unit