anchor.diff:  
   let deleteAll(login : Login) =
       let _service = connect(login)
  -    let folder = Folder.Bind(_service, WellKnownFolderName.Calendar)
  +    let folder = Folder.Bind(_service, WellKnownFolderName.Contacts)
       let view = new ItemView(1000)
       view.Offset <- 0
       let mutable search = true
  
positive.code:         | _ -> false
  
  let propertySet = 
      if exchangeVersion <> ExchangeVersion.Exchange2007_SP1 then
          let result = PropertySet( Array.append Properties [|  |] )
          result.RequestedBodyType <- Nullable(BodyType.Text)
          result
      else
          let result = PropertySet( Properties )
          result.RequestedBodyType <- Nullable(BodyType.Text)
          result
  
  let timezone( debugLog : bool ) =
      let _TIMEZONEInSettings = ConfigurationManager.AppSettings.["ExchangeTimeZone"]
  
negative.code:     let greaterthanfilter = new SearchFilter.IsGreaterThanOrEqualTo(ItemSchema.LastModifiedTime, date)
      let filter = new SearchFilter.SearchFilterCollection(LogicalOperator.And, greaterthanfilter)
      let _service = connect(login)
      let folder = Folder.Bind(_service, WellKnownFolderName.Contacts)
      let view = new ItemView(1000)
      view.Offset <- 0
      let mutable search = true
  