let dotest (pid:int64) = 
  let sctl = Sctl.create_local () in 
  let (prog,ctx) = Sctl.attach sctl pid in
    Sctl.kill prog;
    Sctl.close sctl
;;

if (Array.length Sys.argv) <> 2 then 
  Printf.printf "usage: kill <pid>\n"
else 
  dotest(Int64.of_string Sys.argv.(1))