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