sig   exception No_dir   val force_dir : bool   val dir : ?error:bool -> unit -> string   val file : ?error:bool -> string -> string   module Dir_name : String end