anchor.diff:              let groups = 
                   entries 
                   |> Seq.mapi (fun i e -> i, e)
  -                |> Seq.groupBy (fun (i, _) -> i / 10)
  +                |> Seq.groupBy (fun (i, _) -> i / maxBatchCount)
                   |> Seq.map (fun (_, gr) -> gr |> Seq.map snd)
           
               // TODO: partial failures are not really handled right now
  
positive.code:                     |> Async.Ignore
          }
          
          member x.DequeueAsync(timeout) = failwith "Not implemented yet"
  
          member x.DequeueBatchAsync(maxItems) = failwith "Not implemented yet"
          
          member x.TryDequeueAsync() = failwith "Not implemented yet"
  
          member x.GetCountAsync() = failwith "Not implemented yet"
  
  
negative.code: 
      [<DataMember(Name = "QueueUri")>]
      let queueUri = queueUri
  
      let fromBase64 (base64 : string) =
          let binary = Convert.FromBase64String base64
          ProcessConfiguration.BinarySerializer.UnPickle<'T>(binary)
  
      let readBody (msg : Message) = fromBase64 msg.Body
  
      let toBase64 (message : 'T) = 
          message
  