let to_string_hum t = insert_underscores (I.to_string t)