let temp_dir_name =
    try Sys.getenv "TEMP" with Not_found -> "."