(* Time-stamp: <modified the 13/03/2019 (at 17:45) by Erwan Jahier> *) (** Reads on stdin a bool *) val bool: bool -> Process.t -> string -> bool