let rec repeat f n =
- prerr_endline "\n########################### NEW TEST ###########################";
+ print_endline "\n########################### NEW TEST ###########################";
f () ;
if n > 0 then repeat f (n-1)
;;
(solve ++ problem_of ++ Parser.problem_of_string) str
) num ;
- prerr_endline "\n---- ALL TESTS COMPLETED ----"
+ print_endline "\n---- ALL TESTS COMPLETED ----"
;;