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