let failwithf fs = ksprintf failwith fs
let (//) = Filename.concat
let is_directory d = try Sys.is_directory d with Sys_error _ -> false
let failwithf fs = ksprintf failwith fs
let (//) = Filename.concat
let is_directory d = try Sys.is_directory d with Sys_error _ -> false