let print_fmt ?(html=false) fmt report =
  List.iter (print html fmt) report.rep_eles;
  Format.pp_print_flush fmt ()