let to_string_hum p = Log.to_long_string (log p)