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