Update: write closing message on stdout (it's not an error message!)

src/sasaMain.ml

@@ -158,7 +158,7 @@ let () =
   | Failure msg -> Printf.eprintf " [sasa] Error: %s\n%!" msg
   | Silent i ->
     let str = if args.rif then "#" else "" in
-    Printf.eprintf "\n%sThis algo is silent after %i move%s, %i step%s, %i round%s.\n"
+    Printf.printf "\n%sThis algo is silent after %i move%s, %i step%s, %i round%s.\n%!"
       str !moves (plur !moves) i (plur i) !rounds (plur !rounds);
     flush stderr;
     flush stdout;
@@ -167,8 +167,8 @@ let () =
     flush stdout
   | Legitimate i ->
     let str = if args.rif then "#" else "" in
-    Printf.eprintf
-      "\n%sThis algo Reached a legitimate configuration after %i moves, %i steps, %i rounds.\n"
+    Printf.printf
+      "\n%sThis algo Reached a legitimate configuration after %i moves, %i steps, %i rounds.\n%!"
       str !moves i !rounds;
     flush stderr;
     flush stdout;