let metadata ~full = function
| `String str ->
let all_lines = String.split ~on:(`Character '\n') str in
begin match all_lines with
| [one] when String.length one < 70 -> Log.quote one
| _ when full -> Log.verbatim str
| _ ->
Log.(parens (i (String.length str) % s " bytes; "
% i (List.length all_lines) % s " lines"))
end