let
raw_dprintf log_level =
Display
.dprintf ~log_level !-internal_display