let pp_cell cell_type pp_fun fmt pp_arg = Format.fprintf fmt "@{<td %a>%a@}" pp_cell_type_html cell_type pp_fun pp_arg