let pp_metrics_as_html_row fmt metrics =
  Format.fprintf fmt "@[<v 0>@{<tr>@[<v 2>@ @[<v 0>%a@ %a@ %a@ %a@ %a@ %a@ %a@ %a@ %a@ @]@]@}@ @]"
    (pp_cell Entry pp_strg) metrics.cfunc_name
    (pp_cell_default pp_int) metrics.cifs
    (pp_cell_default pp_int) metrics.cassigns
    (pp_cell_default pp_int) metrics.cloops
    (pp_cell_default pp_int) metrics.ccalls
    (pp_cell_default pp_int) metrics.cgotos
    (pp_cell_default pp_int) metrics.cptrs
    (pp_cell_default pp_int) metrics.cexits
    (pp_cell Result pp_int) (cyclo metrics)