let
to_string_hum p =
Log
.to_long_string (log p)