let usage () =
  error (sprintf "Usage: %s [ - launch | -kill ]" Sys.argv.(0));;

let _ =
  if Array.length Sys.argv != 1 then
    match Sys.argv.(1) with
    | "-launch" ->
        background lock launch ()
    | "-kill" ->
        kill_daemon lock
    |  _ -> usage ()
  else usage ();;