let should_create_dir d = "Directory "^d^" does not exist.\nCreate it ?"