let bool_of_hstring s = bool_of_string (HString.string_of_hstring s)