Improve printing

dev.json

@@ -4,4 +4,4 @@
     "bdump -w daemon,rc,commands /tmp/v033", "ydump dev.json"
   ],
   "settings": []
-}
+}

src/tools.ml

@@ -69,7 +69,7 @@ let spy1_float f =
 ;;
 let spy1_log (log : (string * int) list) =
   let log_str = List.map log ~f:(fun (s, i) ->
-    sprintf "( %s, %i )" s i)
+    sprintf "( %s, %i ), " s i)
   in
   "[ " ^ (String.concat log_str) ^ " ]"
   |> printing;