open Printf;;

let once x =
  if file_exists lock
  then
    let command =
      sprintf
        "echo -n 'Daemon %s running pid='; cat %s; sleep 5"
        name lock in
    let status =
      mon_execvp "xterm"
        [| "-g""50x2""-e""bash""-c"command |] in
    ()