let
to_string_hum v =
Log
.to_long_string (log v)