let print_list_crit fmt list_crit =
  List.iter (print_crit fmt) list_crit