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