let of_string s = String_to_bool s