anchor.diff:          Id : string
           Name: string
           Remove : InstallUninstall
  -        Start : InstallUninstall option
  +        Start : InstallUninstall
           Stop : InstallUninstall
           Wait : YesOrNo
       }
  
positive.code:         Id = "ServiceControl"
          Name = "Service"
          Remove = Both
          Start = Some(Both)
          Stop = Both
          Wait = Yes
      }
  
negative.code:             {
                  yield ("Id", w.Id)
                  yield ("Name", w.Name)
                  match w.Remove with
                  | Never -> ()
                  | _ -> yield ("Remove", w.Remove.ToString())
                  match w.Start with
                  | Never -> ()
                  | _ -> yield ("Start", w.Start.ToString())
                  match w.Stop with
                  | Never -> ()
                  | _ -> yield ("Stop", w.Stop.ToString())
                  yield ("Wait", w.Wait.ToString())
              }
      override w.ToString() = 
  