sig
  val with_in :
    ?mode:int ->
    ?flags:Pervasives.open_flag list ->
    string -> (char GenClone.t -> 'a) -> 'a
end