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