sig   val open_in : string -> Kwchan.src   val close_in : Kwchan.src -> unit   val with_in :     ?iflags:Pervasives.open_flag list ->     ?isstdin:(string -> bool) -> (Kwchan.src -> 'a) -> string -> 'a end