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