let error_status_string s = "Unknon status string: "^s