let
dump ppf e = fprintf ppf
"%a@\n"
Dump
.entry e