let
error_mkdir d s =
"Could not create directory "
^d^
":\n"
^s