F# Script for periodically killing the pesky XDesProc.exe that often hangs Visual Studio for no good reason

XdesProcKiller.fsx

open System
open System.Diagnostics

printfn "XDesProc killer"
printfn "Press Return to Close"
printfn "======================"

let rec killer() = async {

  let xdesproc = Process.GetProcessesByName "xdesproc"
  xdesproc |> Array.iter(fun proc -> printfn "Got One!"
                                     proc.Kill ())
  do! Async.Sleep 10000
  return! killer()
}

killer() |> Async.StartImmediate
Console.ReadLine() |> ignore