let
print ppf e = fprintf ppf
"%a@\n"
Print
.entry e