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