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