let set_log s =
if Log.cmp Log.User then begin Mutex.lock Log.protect; Log.event Log.User 34 "TESTING" "Setting log level to %s" s; Printf.fprintf Log.log_out "\n"; Mutex.unlock Log.protect end;
  Log.log_from_string s