anchor.diff:      |> Array.map buildDynamicTableEntity
       |> executeBatchOperation TableOperation.Delete table
   
  -let deleteEntitiesAsync connection tableName entities = async{
  +let deleteEntitiesAsync connection tableName entities = async {
       let table = getTable tableName connection
       return! 
           entities
           |> Array.map buildDynamicTableEntity
  -        |> executeBatchOperationAsync TableOperation.Delete table
  -}
  +        |> executeBatchOperationAsync TableOperation.Delete table }
   
   let deleteEntity connection tableName entity =
       deleteEntities connection tableName [| entity |] |> Seq.head |> snd |> Seq.head
   
   let deleteEntityAsync connection tableName entity = async {
       let! resp = deleteEntitiesAsync connection tableName [| entity |] 
  -    return resp |> Seq.head |> snd |> Seq.head
  -}
  -
  -let insertEntityBatchAsync connection tableName insertMode entities = async{
  +    return resp |> Seq.head |> snd |> Seq.head }
  +
  +let insertEntityBatchAsync connection tableName insertMode entities = async {
       let table = getTable tableName connection
       let insertOp = createInsertOperation insertMode
       return! 
           entities
           |> Seq.map buildDynamicTableEntity
  -        |> executeBatchOperationAsync insertOp table
  -}
  +        |> executeBatchOperationAsync insertOp table }
       
   let insertEntityBatch connection tableName insertMode entities = 
       let table = getTable tableName connection
  
positive.code:             let! responses = executeBatchAsynchronously batchOperation entityBatch buildEntityId table
              return (partitionKey, responses |> Seq.toArray)
              })
          |> Async.Parallel
      }
  
  let internal executeBatchOperation createTableOp (table:CloudTable) entities =
      splitIntoBatches createTableOp entities
  
negative.code:                 if entityIndex = index then EntityError(buildEntityId entity, requestInformation.HttpStatusCode, requestInformation.ExtendedErrorInformation.ErrorCode)
                  else BatchOperationFailedError(buildEntityId entity))
          | _ -> entityBatch |> Seq.map(fun entity -> BatchError(buildEntityId entity, requestInformation.HttpStatusCode, requestInformation.ExtendedErrorInformation.ErrorCode))
      | [| _ |] -> entityBatch |> Seq.map(fun entity -> EntityError(buildEntityId entity, requestInformation.HttpStatusCode, requestInformation.ExtendedErrorInformation.ErrorCode))
      | _ -> entityBatch |> Seq.map(fun entity -> BatchError(buildEntityId entity, requestInformation.HttpStatusCode, requestInformation.ExtendedErrorInformation.ErrorCode))
  
  let internal executeBatchAsynchronously batchOp entityBatch buildEntityId (table:CloudTable) = async{
  