let warning_message ?to_utf8 s = !f_warning_message ?to_utf8 s