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: 
      [<DataMember(Name = "QueueUri")>]
      let queueUri = queueUri
  
      let toBase64 (message : 'T) = 
          message
  
negative.code:     let maxBatchCount   = 10
      let maxBatchPayload = 255 * 1024
  
      // SQS limits you to 10 messages per receive call
      // http://docs.aws.amazon.com/AWSSimpleQueueService/latest/APIReference/API_ReceiveMessage.html
      let maxRecvCount    = 10
  
      // SQS limits you to up to 20 seconds of long polling wait time
      let maxWaitTime = 20 * 1000 // in milliseconds
  
  /// CloudQueue implementation on top of Amazon SQS
  [<AutoSerializable(true) ; Sealed; DataContract>]
  type SQSQueue<'T> internal (queueUri, account : AwsSQSAccount) =
  