let
dprintf log_level fmt = raw_dprintf log_level (
"@[<2>"
^^fmt^^
"@]@."
)