let f_format f = F.e_app0 (mk_fformat f)