sig val pretty : float -> string val to_string_hum : float -> string end