open Unix
let kill_daemon cmd =
  try
    let lockfile = Filename.concat "/tmp/" cmd ^ "_lock" in
    let fd = open_in lockfile in
    let pid = input_binary_int fd in
    close_in fd;
    kill pid Sys.sigkill;
    unlink lockfile
  with _ -> ()