let elog message = prerr_endline @@ " [log] " ^ message