-let logfd = open_out_gen [Open_append;Open_creat] 0o644 !log_filepath
-type result = Success | Failed
+let logfd = ref Pervasives.stdout
+let logprint fmt = Printf.fprintf !logfd (fmt ^^ "%!")
+let debprint fmt = if (!debug) then Printf.fprintf !logfd (fmt ^^ "%!")
+let print fmt = Printf.printf (fmt ^^ "%!")