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     ()