let
f_format f =
F
.e_app0 (mk_fformat f)