anchor.diff:      p.StartInfo.RedirectStandardOutput <- true
       p.StartInfo.UseShellExecute <- false
       p.Start() |> ignore
  +    startedProcesses.Add p.Id |> ignore
   
   /// Stops a windows service
   let StopService serviceName = 
  
positive.code:           tracefn "%s %s" p.StartInfo.FileName p.StartInfo.Arguments
  
          p.Start() |> ignore
      with
      | exn -> failwithf "Start of process %s failed. %s" p.StartInfo.FileName exn.Message
  
  
negative.code:   
      try
          p.Start() |> ignore
          startedProcesses.Add p.Id |> ignore
      with
      | exn -> failwithf "Start of process %s failed. %s" p.StartInfo.FileName exn.Message
  
  